X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=web%2Fnettkart-telnet.pl;h=783f53ebf8e71bd68db213523d2ca389bc3b51ef;hb=065361daac62b4cdb33cf19caa534e29ac1dfde0;hp=fd320445d45c29c5c43d770b6fa22bdcc7139d58;hpb=d6cfbb682b3492d24b6623fbf1345c5b2b95f230;p=nms diff --git a/web/nettkart-telnet.pl b/web/nettkart-telnet.pl index fd32044..783f53e 100755 --- a/web/nettkart-telnet.pl +++ b/web/nettkart-telnet.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-telnet.pl'); +my $dbh = nms::db_connect(); +print $cgi->header(-type=>'text/html', -refresh=>'45; http://nms.tg07.gathering.org/nettkart-telnet.pl'); print <<"EOF";