46 |
}; |
}; |
47 |
print STDERR " read DF eof=",eof(DF); |
print STDERR " read DF eof=",eof(DF); |
48 |
while(<DF>) { |
while(<DF>) { |
|
alarm 0; # turn alarm off |
|
49 |
chomp; |
chomp; |
50 |
my ($node,$total,$used,$aval,$use_pcnt,$mount) = split(/\s+/,$_,6); |
my ($node,$total,$used,$aval,$use_pcnt,$mount) = split(/\s+/,$_,6); |
51 |
if ($use_pcnt && $use_pcnt =~ s/(\d+)%/$1/) { |
if ($use_pcnt && $use_pcnt =~ s/(\d+)%/$1/) { |
56 |
} |
} |
57 |
} |
} |
58 |
close(DF); |
close(DF); |
59 |
|
alarm 0; # turn alarm off |
60 |
$cache->set( $ssh, $df, "1 min" ) if ($USE_CACHE); |
$cache->set( $ssh, $df, "1 min" ) if ($USE_CACHE); |
61 |
} |
} |
62 |
|
|