update for perl error **ePN
git-svn-id: http://svn.centreon.com/Plugins/Dev@2136 6bcd3966-0018-0410-8128-fd23d134de7e
This commit is contained in:
parent
34877ed81f
commit
f670bafa3f
|
@ -258,7 +258,7 @@ if (defined($opt_T)){
|
||||||
$last_in_bits = 0;
|
$last_in_bits = 0;
|
||||||
$last_out_bits = 0;
|
$last_out_bits = 0;
|
||||||
|
|
||||||
my $flg_created;
|
my $flg_created = 0;
|
||||||
|
|
||||||
if (-e "/tmp/traffic_if".$interface."_".$opt_H) {
|
if (-e "/tmp/traffic_if".$interface."_".$opt_H) {
|
||||||
open(FILE,"<"."/tmp/traffic_if".$interface."_".$opt_H);
|
open(FILE,"<"."/tmp/traffic_if".$interface."_".$opt_H);
|
||||||
|
@ -283,7 +283,7 @@ unless (open(FILE,">"."/tmp/traffic_if".$interface."_".$opt_H)){
|
||||||
print FILE "$update_time:$in_bits:$out_bits";
|
print FILE "$update_time:$in_bits:$out_bits";
|
||||||
close(FILE);
|
close(FILE);
|
||||||
|
|
||||||
if ($flg_created eq 0){
|
if ($flg_created == 0){
|
||||||
print "First execution : Buffer in creation.... \n";
|
print "First execution : Buffer in creation.... \n";
|
||||||
exit($ERRORS{"UNKNOWN"});
|
exit($ERRORS{"UNKNOWN"});
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue