use Net::Telnet;
use POSIX;
use Time::HiRes;
+use lib '../include';
+use nms;
use strict;
use warnings;
#require 'SNMP_Session.pm';
my $timeout = 25;
my $location = 'skipet';
-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;
my $qswitch = $dbh->prepare(<<"EOF")