X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=web%2Fnettkart-web.pl;h=040d4767865e5ee2a5566a60ff079caf0be4933f;hb=1e7869f8141084245dcd34fb065f38a418517e7b;hp=3da5fe554ae92f9373889d5e28dd812ef6ae459a;hpb=d6cfbb682b3492d24b6623fbf1345c5b2b95f230;p=nms diff --git a/web/nettkart-web.pl b/web/nettkart-web.pl index 3da5fe5..040d476 100755 --- a/web/nettkart-web.pl +++ b/web/nettkart-web.pl @@ -1,11 +1,12 @@ #! /usr/bin/perl 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"; -print $cgi->header(-type=>'text/html', -refresh=>'45; http://nms.tg05.gathering.org/nettkart-web.pl'); +my $dbh = nms::db_connect(); +print $cgi->header(-type=>'text/html', -refresh=>'45; http://nms.tg07.gathering.org/nettkart-web.pl'); print <<"EOF";