Changeset 27866

Timestamp:

May 6, 2010, 9:18:41 AM (16 years ago)

Author:

rhenders

Message:

Improved argument handling

File:

• trunk/ippToPsps/scripts/removeFromDatastore.pl (modified) (2 diffs)

trunk/ippToPsps/scripts/removeFromDatastore.pl

@@ -5 +5 @@
 use IPC::Cmd 0.36 qw( can_run run );
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
+use Pod::Usage qw( pod2usage );
 
 my $start = undef;
 my $end = undef;
-my $product = "PSPS_test";
+my $product = undef;
 
 GetOptions( 
@@ -18 +19 @@
 pod2usage(
         -msg => "\n   Required options:\n\n".
-        "--start<init|det|diff|stack>\n".
-        "--end <path>\n".
+        "--start <jobStartNumber> [--end <jobEndNumber>]\n".
         "--product <datastoreProduct>\n",
         -exitval => 3
         ) unless
 defined $product and
-defined $start and
-defined $end; 
+defined $start;
 
+
+if (!defined $end) {$end = 1000000;}
 
 my $i;