# no options currently
if ( !getopts("", \%opts) || @ARGV < 3 ) {
print STDERR <<EOF;
-usage: $0 archiveHost userName hosts...
+usage: $0 archiveHost userName hosts[:num]...
EOF
exit(1);
}
my(@HostList, @BackupList);
for ( my $i = 2 ; $i < @ARGV ; $i++ ) {
- my $host = $ARGV[$i];
+ my ($host,$num) = split(/:/,$ARGV[$i],2);
if ( !defined($Hosts->{$host}) ) {
print(STDERR "$0: host $host doesn't exist... quitting\n");
exit(1);
exit(1);
}
push(@HostList, $host);
- push(@BackupList, $backups[$#backups]{num});
+ $num ||= $backups[$#backups]{num};
+ push(@BackupList, $num);
}
my $ReqFileName;