will not write into cache file if snmpwalk fails
git-svn-id: http://svn.centreon.com/trunk/plugins-2.x@10176 6bcd3966-0018-0410-8128-fd23d134de7e
This commit is contained in:
parent
8d77c29604
commit
11bb7f796d
|
@ -240,18 +240,20 @@ else {
|
|||
|
||||
if ($mustCreateFile) {
|
||||
$result = $session->get_table(Baseoid => $OID_DESC);
|
||||
unless (open(FILE,">".$cacheFile)){
|
||||
print "Check mod for temporary file : ".$cacheFile."...\n";
|
||||
exit $ERRORS{"UNKNOWN"};
|
||||
if (defined($result)) {
|
||||
unless (open(FILE,">".$cacheFile)){
|
||||
print "Check mod for temporary file : ".$cacheFile."...\n";
|
||||
exit $ERRORS{"UNKNOWN"};
|
||||
}
|
||||
my $currentTime = time();
|
||||
print FILE $currentTime."\n";
|
||||
foreach my $key (oid_lex_sort(keys %$result)) {
|
||||
my @oid_list = split (/\./,$key);
|
||||
my $interfaceIndex = pop (@oid_list);
|
||||
print FILE $interfaceIndex.";".$result->{$key}."\n";
|
||||
}
|
||||
close(FILE);
|
||||
}
|
||||
my $currentTime = time();
|
||||
print FILE $currentTime."\n";
|
||||
foreach my $key (oid_lex_sort(keys %$result)) {
|
||||
my @oid_list = split (/\./,$key);
|
||||
my $interfaceIndex = pop (@oid_list);
|
||||
print FILE $interfaceIndex.";".$result->{$key}."\n";
|
||||
}
|
||||
close(FILE);
|
||||
}
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue