use DBI;
use Getopt::Long;
use LWP::UserAgent;
+use lib '../include';
+use nms;
+
{
package RequestAgent;
our @ISA = qw(LWP::UserAgent);
# ACTION
-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();
my $sth = $dbh->prepare("SELECT sysname,ip FROM switches WHERE sysname LIKE ? ORDER BY ip");
$sth->execute($target_mask);