diff options
| -rwxr-xr-x | scripts/vyatta-show-interfaces.pl | 44 |
1 files changed, 25 insertions, 19 deletions
diff --git a/scripts/vyatta-show-interfaces.pl b/scripts/vyatta-show-interfaces.pl index 063eb98..1b662c8 100755 --- a/scripts/vyatta-show-interfaces.pl +++ b/scripts/vyatta-show-interfaces.pl @@ -88,26 +88,29 @@ sub get_clear_stats { foreach my $var (@rx_stat_vars, @tx_stat_vars) { $stats{$var} = 0; } - my $FILE; + my $filename = get_intf_statsfile($intf); - if (!open($FILE, '<', $filename)) { - return %stats; - } - my $magic = <$FILE>; chomp $magic; + open (my $f, '<', $filename) + or return %stats; + + my $magic = <$f>; + chomp $magic; if ($magic ne $clear_file_magic) { print "bad magic [$intf]\n"; return %stats; } - my $timestamp = <$FILE>; chomp $timestamp; + + my $timestamp = <$f>; + chomp $timestamp; $stats{'timestamp'} = $timestamp; - my ($var, $val); - while (<$FILE>) { + + while (<$f>) { chop; - ($var, $val) = split(/,/); + my ($var, $val) = split(/,/); $stats{$var} = $val; } - close($FILE); + close($f); return %stats; } @@ -276,18 +279,21 @@ sub run_clear_intf { foreach my $intf (@intfs) { my %stats = get_intf_stats($intf); - my $FILE; my $filename = get_intf_statsfile($intf); - if (!open($FILE, ">", $filename)) { - die "Couldn't open $filename [$!]\n"; - } + + mkdir $clear_stats_dir unless ( -d $clear_stats_dir ); + + open(my $f, '>', $filename) + or die "Couldn't open $filename [$!]\n"; + print "Clearing $intf\n"; - print $FILE $clear_file_magic, "\n", time(), "\n"; - my ($var, $val); - while (($var, $val) = each (%stats)) { - print $FILE $var, ",", $val, "\n"; + print $f $clear_file_magic, "\n", time(), "\n"; + + while (my ($var, $val) = each (%stats)) { + print $f $var, ",", $val, "\n"; } - close($FILE); + + close($f); } } |