/[cricket]/parse_df.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /parse_df.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by dpavlin, Thu Sep 12 14:58:44 2002 UTC revision 1.11 by dpavlin, Tue May 13 16:00:53 2003 UTC
# Line 46  sub parse_df { Line 46  sub parse_df {
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/) {
# Line 57  sub parse_df { Line 56  sub parse_df {
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    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.26