openbsd-ports/net/rtg/patches/patch-etc_rtgtargmkr_pl_in

48 lines
1.9 KiB
Plaintext
Raw Normal View History

$OpenBSD: patch-etc_rtgtargmkr_pl_in,v 1.1.1.1 2008/07/19 13:52:22 sthen Exp $
--- etc/rtgtargmkr.pl.in.orig Fri Sep 26 17:56:02 2003
+++ etc/rtgtargmkr.pl.in Thu Nov 24 12:49:56 2005
@@ -85,6 +85,8 @@ foreach $conf (@configs) {
@cVals = split /\s+/, $line;
if ($cVals[0] =~ /DB_Host/) {
$db_host=$cVals[1];
+ } elsif ($cVals[0] =~ /DB_Port/) {
+ $db_port=$cVals[1];
} elsif ($cVals[0] =~ /DB_User/) {
$db_user=$cVals[1];
} elsif ($cVals[0] =~ /DB_Pass/) {
@@ -162,9 +164,9 @@ sub find_interface_id {
$iid = $row[0];
if ( $row[1] ne $desc ) {
print "Interface description changed.\n";
- print "Was: \"$row[1]\"\n";
- print "Now: \"$desc\"\n";
- print "Suggest: UPDATE interface SET description='$desc' WHERE id=$iid\n";
+ print "\"$row[1]\" -> \"$desc\", updating.\n";
+ $sql = "UPDATE interface SET description='$desc' WHERE id=$iid";
+ &sql_insert($sql);
}
}
$sth->finish;
@@ -274,9 +276,10 @@ sub main {
# SQL Database Handle
if ( !$DBOFF ) {
- $dbh = DBI->connect("DBI:mysql:$db_db:host=$db_host",$db_user,$db_pass);
+ $dbh = DBI->connect("DBI:mysql:$db_db:$db_host:$db_port",$db_user,
+ $db_pass);
if (!$dbh) {
- print "Could not connect to database ($db_db) on $db_host.\n";
+ print "Could not connect to database ($db_db) on $db_host:$db_port.\n";
print "Check configuration.\n";
exit(-1);
}
@@ -296,7 +299,7 @@ sub main {
if ( $bits == 64 ) { %mibs_of_interest = %mibs_of_interest_64 }
else { %mibs_of_interest = %mibs_of_interest_32 }
- print "Poking $router ($communities{$router}) ($bits bit)...\n" if $INFO;
+ print "Poking $router ($bits bit)...\n" if $INFO;
if ( !$DBOFF ) {
$rid = &find_router_id($router);
}