my @IPsinrange = &getAllIPs($range) ;
my $np = new Nmap::Parser;
$np->parsefile('/home/users/axiroot/scripts/monitor-client/tmp/nmap.xml'); #using filenames

my $si = $np->get_session();
#my @MACsinrange = &getAllMACs($range,)
foreach my $ip (@IPsinrange) {
	$output .= "<tr>\n" ; 
	$output .= "<th>$ip</th>\n" ;	
	for my $host_obj ($np->all_hosts()){
		if ( $host_obj->ipv4_addr() eq $ip ){
			my $state = "";
			$state = $host_obj->status() ;
			if ( $state eq "up" ) {
				$output .= "<td align='center'>$state</td>\n" ;			
				my $hostname = $host_obj->hostname() ;
				if ( $hostname eq 0 ) {
					$hostname = "Hostname niet gekend" ;			
				}
				#print "hostname: $hostname \n" ; 
				$output .= "<td align='center'>$hostname</td>\n" ;
				my $a  = nslookup(host => $ip, type => "PTR");
				if ( $a eq ""){
				$output .= "<td align='center'>Niet in DNS</td>\n" ;				
				} else {
				$output .= "<td align='center'>$a</td>\n" ;				
				}
				my $openPort = (join ',',$host_obj->tcp_ports('open'))."\n" ;
				my @ports = split ',', $openPort;
				$output .= "<td align='left'>";
				foreach my $port (@ports) {
					my $svc = $host_obj->tcp_service($port);
					my $service = $svc->name() ;					
					#$output .= "$port : $service </br>" ;
					$output .= "$port : $service </br>" ;
				}
				$output .= "</td>\n" ;				
				my $mac = $host_obj->mac_addr() ;
				$output .= "<td align='center'>$mac</td>\n" ;				
				my $type = $host_obj->mac_vendor() ;
				$output .= "<td align='center'>$type</td>\n" ;			
			}			
		}
	}	
	$output .= "<tr>\n" ;
}