48 lines
1.9 KiB
Plaintext
48 lines
1.9 KiB
Plaintext
|
$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);
|
||
|
}
|