--- parse_df.pl 2002/07/15 10:27:41 1.3 +++ parse_df.pl 2002/07/16 14:39:53 1.6 @@ -47,6 +47,8 @@ long-desc = "edit name of your host here" EOF + my @targets; + foreach my $mnt (keys %df) { my $target = $mnt; if ($mnt eq "/") { @@ -55,13 +57,20 @@ $target =~ s,^/,,; $target =~ s,/,_,g; } + push @targets,$target; print <<"EOF"; target $target target-type = usage display-name = "$mnt" + skip-overview = 1 EOF } + print "target overview + mtargets = \"",join("; ",@targets),"\" + target-type = usage + y-min = 0 + y-max = 100\n"; exit 1; }