aboutsummaryrefslogtreecommitdiffstats
path: root/clients/snmpfetchng.pl
diff options
context:
space:
mode:
authorKristian Lyngstol <kly@kly.no>2016-03-17 01:57:57 +0000
committerKristian Lyngstol <kly@kly.no>2016-03-17 01:57:57 +0000
commit20afe93187d1ebec66e181b8426b66de94a52c76 (patch)
tree104433e3ee9e6afe0954f02e489995f5483c1948 /clients/snmpfetchng.pl
parent23bec69a289a1dc6761fab27e0a934f97d0fd186 (diff)
NMS: Moure output hacks
Diffstat (limited to 'clients/snmpfetchng.pl')
-rwxr-xr-xclients/snmpfetchng.pl6
1 files changed, 2 insertions, 4 deletions
diff --git a/clients/snmpfetchng.pl b/clients/snmpfetchng.pl
index dd9862d..68baddd 100755
--- a/clients/snmpfetchng.pl
+++ b/clients/snmpfetchng.pl
@@ -20,8 +20,6 @@ our $dbh = nms::db_connect();
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;
-#my $qualification = 'sysname LIKE \'e71%\'';
-
my $qualification = <<"EOF";
(last_updated IS NULL OR now() - last_updated > poll_frequency)
AND (locked='f' OR now() - last_updated > '15 minutes'::interval)
@@ -92,7 +90,7 @@ sub inner_loop
for my $refswitch (@switches) {
$outstanding++;
my %switch = %{$refswitch};
- $poll_todo .= "$switch{'sysname'} ($switch{'mgtip'}) ";
+ $poll_todo .= "$switch{'sysname'} ";
$switch{'start'} = time;
$qlock->execute($switch{'id'})
@@ -146,11 +144,11 @@ sub callback{
}
}
$sth->execute($switch{'sysname'}, JSON::XS::encode_json(\%tree2));
- mylog( "Polled $switch{'sysname'} in " . (time - $switch{'start'}) . "s. ($outstanding outstanding polls)");
$qunlock->execute($switch{'id'})
or die "Couldn't unlock switch";
$dbh->commit;
$outstanding--;
+ mylog( "Polled $switch{'sysname'} in " . (time - $switch{'start'}) . "s. ($outstanding outstanding polls)");
}
while (1) {
inner_loop();