Update make-switches.pl for TG07.

[nms] / clients / switchfix.pl

diff --git a/clients/switchfix.pl b/clients/switchfix.pl
index 536e868bbf23b708993acd5eaf811991eed9ff3b..4329f0452057e4e87672de45266c0def1eca9753 100755 (executable)
--- 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);