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:
Sylvestre Ho 2010-03-10 09:45:40 +00:00
parent 8d77c29604
commit 11bb7f796d
1 changed files with 13 additions and 11 deletions

View File

@ -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);
}