Changeset 27730

Timestamp:

Apr 22, 2010, 4:30:36 PM (16 years ago)

Author:

rhenders

Message:

Added datastore product argument

File:

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

trunk/ippToPsps/scripts/removeFromDatastore.pl

@@ -7 +7 @@
 
 my $start;
+my $product;
 
-GetOptions(  'start=s' => \$start)  or pod2usage( 2 );
+GetOptions( 
+        'start|s=s' => \$start,
+        'product|p=s' => \$product,
+        )  or pod2usage( 2 );
 
 my $i;
 
-for ($i = $start; $i < 1000; $i++) {
+for ($i = $start; $i < 100000; $i++) {
 
     my $job = sprintf("J%06d", $i);
-    my $command  = "dsreg --del $job --product PSPS_test";
+    my $command  = "dsreg --del $job --product $product";
 
     run(command => $command, verbose => 1);