/[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.5 by dpavlin, Tue Jul 16 08:32:24 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
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.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.26