X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=clients%2Fswitchfix.pl;h=4329f0452057e4e87672de45266c0def1eca9753;hb=99dcb1923257b44082a29963fe74493e350a83af;hp=536e868bbf23b708993acd5eaf811991eed9ff3b;hpb=d6cfbb682b3492d24b6623fbf1345c5b2b95f230;p=nms

diff --git a/clients/switchfix.pl b/clients/switchfix.pl
index 536e868..4329f04 100755
--- a/clients/switchfix.pl
+++ b/clients/switchfix.pl
@@ -4,6 +4,9 @@ use warnings;
 use DBI;
 use Getopt::Long;
 use LWP::UserAgent;
+use lib '../include';
+use nms;
+
 {
 	package RequestAgent;
 	our @ISA = qw(LWP::UserAgent);
@@ -25,10 +28,7 @@ my $target_mask = $ARGV[0] ? $ARGV[0] : 'e%-%sw';
 
 
 # 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);