--- parse_df.pl 2002/07/15 10:27:41 1.3 +++ parse_df.pl 2002/07/16 08:28:13 1.4 @@ -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,6 +57,7 @@ $target =~ s,^/,,; $target =~ s,/,_,g; } + push @targets,$target; print <<"EOF"; target $target target-type = usage @@ -62,6 +65,9 @@ EOF } + print "target overview + mtargets = \"",join("; ",@targets),"\" + target-type = usage\n"; exit 1; }