Changeset 27843 for trunk/ippToPsps

Timestamp:

May 3, 2010, 10:55:39 AM (16 years ago)

Author:

rhenders

Message:

Added 'end' argument for deleting stuff in bulk more carefully

File:

• trunk/ippToPsps/scripts/removeFromDatastore.pl (modified) (1 diff)

trunk/ippToPsps/scripts/removeFromDatastore.pl

@@ -6 +6 @@
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 
-my $start;
-my $product;
+my $start = undef;
+my $end = undef;
+my $product = "PSPS_test";
 
 GetOptions( 
         'start|s=s' => \$start,
+        'end|e=s' => \$end,
         'product|p=s' => \$product,
         )  or pod2usage( 2 );
 
+pod2usage(
+        -msg => "\n   Required options:\n\n".
+        "--start<init|det|diff|stack>\n".
+        "--end <path>\n".
+        "--product <datastoreProduct>\n",
+        -exitval => 3
+        ) unless
+defined $product and
+defined $start and
+defined $end; 
+
+
 my $i;
 
-for ($i = $start; $i < 100000; $i++) {
+for ($i=$start; $i<$end+1; $i++) {
 
     my $job = sprintf("J%06d", $i);