#!/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 =~ /^[\dABCDEFabcdef-]*$/)
	{

	my ($dbconn, $sth);
	$dbconn = tracker::conndb() or cgi_die("Database failure");
	$sth = $dbconn->prepare("SELECT * FROM nodes WHERE mac_addr like " . $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 tracker::html_errors(["Invalid partial mac address query"]) }


print $tracker::tracker_footer;