#!/usr/bin/perl
use CGI qw(:standard);
use tracker;
use tracker_cgi;


		
$| = 1;
$_ = param("node");
print $tracker::http_header;
print $tracker::tracker_header;
print "<center><h2> $_ report </h2></center><p>";


print "<p><b>nslookup:</b><hr><pre>";
print `/usr/bin/nslookup $_ 2>/dev/null`;
print "</pre><p><b>ping:</b><hr><pre>";
print `/bin/ping -c 4 $_`;
if ( (!($? >> 8)) && $tracker::nmap )
	{
	print "</pre><p><b>NMAP:</b><hr><pre>";
	print `$tracker::nmap $_ `
	}
print "</pre>";

tracker::tracker_end;