use warnings;
require 'SNMP_Session.pm';
+use lib '../include';
+use nms;
+
my $password = 'removed';
my $timeout = 15;
-my $dbh = DBI->connect("dbi:Pg:dbname=nms;host=localhost", "nms", "nms")
- or die "Couldn't connect to database";
+my $dbh = nms::db_connect();
$dbh->{AutoCommit} = 0;
# normal mode: fetch switches from the database