--- shtoolize.in 2001/09/23 10:58:10 1.25
+++ shtoolize.in 2001/09/23 11:15:57 1.26
@@ -35,7 +35,7 @@
# Available modules
my @available = qw(
echo mdate table prop move install mkdir mkln mkshadow
- fixperm tarball subst guessos arx slo scpp version path
+ fixperm rotate tarball subst guessos arx slo scpp version path
);
##
@@ -256,6 +256,8 @@
my $u2 = '';
my $u3 = '';
my $u4 = '';
+ my $u5 = '';
+ my $u6 = '';
if ($u =~ m|^(.{50}.*?)\s+(.+)$|) {
($u, $u2) = ($1, $2);
}
@@ -265,10 +267,18 @@
if ($u3 =~ m|^(.{50}.*?)\s+(.+)$|) {
($u3, $u4) = ($1, $2);
}
+ if ($u4 =~ m|^(.{50}.*?)\s+(.+)$|) {
+ ($u4, $u5) = ($1, $2);
+ }
+ if ($u5 =~ m|^(.{50}.*?)\s+(.+)$|) {
+ ($u5, $u6) = ($1, $2);
+ }
$usage .= sprintf(" echo ' %-8s %s'\n", $name, $u);
$usage .= sprintf(" echo ' %-8s %s'\n", '', $u2) if ($u2);
$usage .= sprintf(" echo ' %-8s %s'\n", '', $u3) if ($u3);
$usage .= sprintf(" echo ' %-8s %s'\n", '', $u4) if ($u4);
+ $usage .= sprintf(" echo ' %-8s %s'\n", '', $u5) if ($u5);
+ $usage .= sprintf(" echo ' %-8s %s'\n", '', $u6) if ($u6);
}
if (@unused) {
$usage .= " echo ''\n";
@@ -278,6 +288,8 @@
my $u2 = '';
my $u3 = '';
my $u4 = '';
+ my $u5 = '';
+ my $u6 = '';
if ($u =~ m|^(.{50}.*?)\s+(.+)$|) {
($u, $u2) = ($1, $2);
}
@@ -287,10 +299,18 @@
if ($u3 =~ m|^(.{50}.*?)\s+(.+)$|) {
($u3, $u4) = ($1, $2);
}
+ if ($u4 =~ m|^(.{50}.*?)\s+(.+)$|) {
+ ($u4, $u5) = ($1, $2);
+ }
+ if ($u5 =~ m|^(.{50}.*?)\s+(.+)$|) {
+ ($u5, $u6) = ($1, $2);
+ }
$usage .= sprintf(" echo ' %-8s %s'\n", $name, $u);
$usage .= sprintf(" echo ' %-8s %s'\n", '', $u2) if ($u2);
$usage .= sprintf(" echo ' %-8s %s'\n", '', $u3) if ($u3);
$usage .= sprintf(" echo ' %-8s %s'\n", '', $u4) if ($u4);
+ $usage .= sprintf(" echo ' %-8s %s'\n", '', $u5) if ($u5);
+ $usage .= sprintf(" echo ' %-8s %s'\n", '', $u6) if ($u6);
}
}
$usage =~ s|\n$||s;
|
