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 "/") { |
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 |
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 |
|
|