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

$| = 1;
print $tracker::tracker_header;

$_ = param("ip_addr");
if (/^\s*([\d\.]*)\s*$/)
	{ $query = $1 }
else
	{
	print tracker::html_errors(["Invalid query/"]), end_html();
	exit
	}
	
my $dbconn;
$dbconn = tracker::conndb() or cgi_die("database failure");
$query = "select * from nodes where ip_addr like " . $dbconn->quote('%' .  $query . '%') . ";";
my $sth = $dbconn->prepare($query);
$sth->execute or cgi_die("Database failure:" . $dbconn->errstr);

tracker::start_node_table();

while (@row = $sth->fetchrow_array) 
	{
	tracker::node_row('',@row)
	}

$sth->finish;
$dbconn->disconnect;
tracker::end_table();
print $tracker::tracker_footer;