Changeset 36435

Timestamp:

Jan 14, 2014, 12:16:00 PM (12 years ago)

Author:

watersc1

Message:

Add option to select which volume index to work on.

File:

• trunk/tools/neb_rawOTA_host_scan.pl (modified) (6 diffs)

trunk/tools/neb_rawOTA_host_scan.pl

@@ -21 +21 @@
     ) or die "Unable to connect to database $DBI::errstr\n";
 
-my ($host,$min_ins_id,$verbose,$limit,$continue,$alt);
+my ($host,$min_ins_id,$verbose,$limit,$continue,$alt,$vol_label);
 $min_ins_id = 0;
 $verbose = 0;
@@ -27 +27 @@
 $continue = 0;
 $alt = 0;
+$vol_label = 0;
 
 GetOptions(
@@ -35 +36 @@
     'continue|c'    => \$continue,
     'alternate|a'   => \$alt,
+    'vol_label|L=s'   => \$vol_label,
     ) or pod2usage( 2 );
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
@@ -41 +43 @@
     defined($host);
 
-my $volume = $host . ".0";
+my $volume = $host . "." . $vol_label;
 my $rr;
 
@@ -85 +87 @@
     }
     my $r_ins      = $db->selectall_arrayref( $ins_id_sth );
-    my $last_ins_id = 0;
+    my $last_ins_id = $max_ins_id;
     $number = 0;
     foreach $rr (@{ $r_ins }) {
@@ -154 +156 @@
         $min_ins_id = $last_ins_id;
     }
-} while (($continue && $number != 0) || ($min_ins_id <= $max_ins_id));
+} while (($continue && $number != 0) || ($min_ins_id < $max_ins_id));