use LWP::Simple;
use CGI;
use DBI;
+use lib '../include';
+use nms;
my $cgi = CGI->new;
-my $dbh = DBI->connect("dbi:Pg:dbname=snmpfetch;host=violet.tg05.gathering.org", "snmpfetch", "removed")
-or die "Couldn't connect to database";
+my $dbh = nms::db_connect();
my $cam = $cgi->param('cam');
if (!defined($cam) || ($cam ne "1" && $cam ne "2")) {
}
-print CGI::header(-type=>'image/png', -refresh=>'10; http://nms.tg05.gathering.org/overlay.pl?cam=' . $cam);
+print CGI::header(-type=>'image/png', -refresh=>'10; http://nms.tg07.gathering.org/overlay.pl?cam=' . $cam);
print $gd->png;
sub get_color {