use Net::Telnet;
use DBI;
use POSIX;
+use lib '../include';
+use nms;
# Tweak and check
my $password = 'removed';
my $delaytime = 30;
my $poll_frequency = 60;
-my $dbh = DBI->connect("dbi:Pg:dbname=snmpfetch;host=violet.tg05.gathering.org",
- "snmpfetch", "removed")
- or die "Couldn't connect to database";
+my $dbh = db_connect();
$dbh->{AutoCommit} = 0;
my $spoll = $dbh->prepare("