/[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.3 by dpavlin, Mon Jul 15 10:27:41 2002 UTC revision 1.4 by dpavlin, Tue Jul 16 08:28:13 2002 UTC
# 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 "/") {
# Line 55  EOF Line 57  EOF
57                          $target =~ s,^/,,;                          $target =~ s,^/,,;
58                          $target =~ s,/,_,g;                          $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
# Line 62  target $target Line 65  target $target
65    
66  EOF  EOF
67          }          }
68            print "target overview
69            mtargets        = \"",join("; ",@targets),"\"
70            target-type     = usage\n";
71          exit 1;          exit 1;
72  }  }
73    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26