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

$| = 1;

$query = param("mac_addr");

print $tracker::tracker_header;

if ( ($query =~ /(\w\w-){5}\w\w/) || ($query =~ /(\w{4}\.){2}\w{4}/) )
	{
	if ($query =~ /(\w{4}\.){2}\w{4}/)
		{ $query = tracker::reformat_rtr_mac($query) }
	my ($dbconn, $sth);
	$dbconn = tracker::conndb() or cgi_die("Database failure");
	$sth = $dbconn->prepare("SELECT * FROM nodes WHERE mac_addr = " . $dbconn->quote($query) . ";");
	$sth->execute or cgi_die("Database failure:" . $dbconn->errstr);
	
	tracker::start_node_table();
	while (@row = $sth->fetchrow_array) 
		{
		tracker::node_row($hostname,@row)
		}
	$sth->finish;
	$dbconn->disconnect;
	tracker::end_table();
	}
else
	{
	print "Invalid mac address.  Exact mac address only, examples:<p>\n";
	print "FF-FF-FF-FF-FF-FF or FFFF.FFFF.FFFF"	
	}


print $tracker::tracker_footer;