--- bin/CleanLog 2003/08/05 21:43:24 1.5 +++ bin/CleanLog 2003/08/15 23:00:27 1.6 @@ -19,13 +19,11 @@ my ($debug,$verbose) = (0,0); my ($help,$masterhost,$masterport,$masteruser,$masterpassword); -my $snapshot = "__Snapshot"; my $result = GetOptions( "debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help, "masterhost=s" => \$masterhost, "masterport=i" => \$masterport, "masteruser=s" => \$masteruser, "masterpassword=s" => \$masterpassword, - "snapshot=s" => \$snapshot, ); if (defined($help) || (scalar(@ARGV) < 2) || ($ARGV[1] !~ /^\d+$/)) { @@ -33,7 +31,6 @@ Options: --masterhost=hostname --masterport=port --masteruser=username --masterpassword=string - --snapshot=snapshot "; exit ((scalar(@ARGV) < 2)? 1:0); }