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

$| = 1;

$query = param("vlan");

print $tracker::tracker_header;

if ( $query =~ /^\d+$/)
	{

	my ($dbconn, $sth);
	$dbconn = tracker::conndb() or cgi_die("Database failure");
	$sth = $dbconn->prepare("SELECT * FROM nodes WHERE vlan = " . $dbconn->quote($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();
	}
else
	{ print tracker::html_errors(["Invalid switch name query"]) }


print $tracker::tracker_footer;