Use nms::db_connect() everywhere.

[nms] / web / smanagement.pl

diff --git a/web/smanagement.pl b/web/smanagement.pl
index ce270c3d4f307945b0087eccbf44bba118e997b8..e6474586eb467bc45b3a248e352e0b260074f887 100755 (executable)
--- a/web/smanagement.pl
+++ b/web/smanagement.pl
@@ -1,4 +1,6 @@
 #!/usr/bin/perl
+use lib '../include';
+use nms;
 #
 #
 
@@ -20,9 +22,7 @@ use Data::Dumper;
 # Grab from .htaccess-authentication
 my $user = $ENV{'REMOTE_USER'};
 
-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();
 $dbh->{AutoCommit} = 0;
 
 # Ugly casting, found not other way