X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=web%2Fnettkart-text.pl;h=cf198dd36ee20fca507bfd27403172215b0aa73c;hb=1e7869f8141084245dcd34fb065f38a418517e7b;hp=6ac1d9f9667b7beb6a5812b8b0e64ad1e023e804;hpb=d6cfbb682b3492d24b6623fbf1345c5b2b95f230;p=nms diff --git a/web/nettkart-text.pl b/web/nettkart-text.pl index 6ac1d9f..cf198dd 100755 --- a/web/nettkart-text.pl +++ b/web/nettkart-text.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=>'10; http://nms.tg05.gathering.org/nettkart-text.pl'); +my $dbh = nms::db_connect(); +print $cgi->header(-type=>'text/html', -refresh=>'10; http://nms.tg07.gathering.org/nettkart-text.pl'); print <<"EOF";