/[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.1 by dpavlin, Mon Jul 15 10:13:38 2002 UTC revision 1.5 by dpavlin, Tue Jul 16 08:32:24 2002 UTC
# Line 29  sub parse_df { Line 29  sub parse_df {
29                  chomp;                  chomp;
30                  my ($node,$total,$used,$aval,$use_pcnt,$mount) = split(/\s+/,$_,6);                  my ($node,$total,$used,$aval,$use_pcnt,$mount) = split(/\s+/,$_,6);
31                  if ($use_pcnt && $use_pcnt =~ s/(\d+)%/$1/) {                  if ($use_pcnt && $use_pcnt =~ s/(\d+)%/$1/) {
32                          print STDERR "$_\n";  #                       print STDERR "$_\n";
33  #                       $df{$mount}=$use_pcnt;  #                       $df{$mount}=$use_pcnt;
34                          $df{$mount}=$used * 100 / $total;                          $df{$mount}=$used * 100 / $total if ($total != 0);
35  #                       print $df{$mount}," == $use_pcnt\n";  #                       print $df{$mount}," == $use_pcnt\n";
36                  }                  }
37          }          }
# Line 47  target --default-- Line 47  target --default--
47          long-desc       =       "edit name of your host here"          long-desc       =       "edit name of your host here"
48    
49  EOF  EOF
50            my @targets;
51    
52          foreach my $mnt (keys %df) {          foreach my $mnt (keys %df) {
53                  my $target = $mnt;                  my $target = $mnt;
54                  if ($mnt eq "/") {                  if ($mnt eq "/") {
55                          $target = "root";                          $target = "root";
56                  } else {                  } else {
57                          $target =~ s,^/,,;                          $target =~ s,^/,,;
58                            $target =~ s,/,_,g;
59                  }                  }
60                    push @targets,$target;
61                  print <<"EOF";                  print <<"EOF";
62  target  $target  target  $target
63          target-type     =       usage          target-type     =       usage
64          display-name    =       "$mnt"          display-name    =       "$mnt"
65            skip-overview   =       1
66    
67  EOF  EOF
68          }          }
69            print "target overview
70            mtargets        = \"",join("; ",@targets),"\"
71            target-type     = usage\n";
72          exit 1;          exit 1;
73  }  }
74    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.26