Change the background image to TG07.

[nms] / web / nettkart-telnet.pl

diff --git a/web/nettkart-telnet.pl b/web/nettkart-telnet.pl
index fd320445d45c29c5c43d770b6fa22bdcc7139d58..3a8353907051aeef652e0c7ed2b2c160b51545aa 100755 (executable)
--- a/web/nettkart-telnet.pl
+++ b/web/nettkart-telnet.pl
@@ -1,10 +1,11 @@
 #! /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";
+my $dbh = nms::db_connect();
 print $cgi->header(-type=>'text/html', -refresh=>'45; http://nms.tg05.gathering.org/nettkart-telnet.pl');
 
 print <<"EOF";