Changeset 36480 for branches/eam_branches/ipp-20131211/tools/neb_rawOTA_host_scan.pl

Timestamp:

Feb 6, 2014, 11:48:53 AM (12 years ago)

Author:

eugene

Message:

merging changes from trunk

Location:

branches/eam_branches/ipp-20131211

Files:

• . (modified) (1 prop)
• tools/neb_rawOTA_host_scan.pl (modified) (7 diffs)

branches/eam_branches/ipp-20131211/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);
+my ($host,$min_ins_id,$verbose,$limit,$continue,$alt,$vol_label);
 $min_ins_id = 0;
 $verbose = 0;
 $limit = 10000;
 $continue = 0;
+$alt = 0;
+$vol_label = 0;
 
 GetOptions(
@@ -33 +35 @@
     'limit|l=s'     => \$limit,
     'continue|c'    => \$continue,
+    'alternate|a'   => \$alt,
+    'vol_label|L=s'   => \$vol_label,
     ) or pod2usage( 2 );
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
@@ -39 +43 @@
     defined($host);
 
-my $volume = $host . ".0";
+my $volume = $host . "." . $vol_label;
 my $rr;
 
@@ -50 +54 @@
 my $vol_id = shift( @{ ${ $r_vol }[0] });
 
+# Get max ins_id
+my $max_id_sth = "SELECT ins_id FROM instance WHERE vol_id = $vol_id ORDER BY ins_id DESC limit 1";
+my $r_max_id   = $db->selectall_arrayref( $max_id_sth );
+unless (defined(${ $r_max_id }[0])) {
+    die "Cannot find max_id";
+}
+my $max_ins_id = shift( @{ ${ $r_max_id }[0] });
+
 if ($verbose) {
-    print "$host $volume $vol_id $min_ins_id\n";
+    print "$host $volume $vol_id $min_ins_id $max_ins_id\n";
 }
 
@@ -70 +82 @@
 my $number = 0;
 do {
-    my $ins_id_sth = "SELECT ins_id,so_id,uri FROM instance WHERE vol_id = ${vol_id} AND ins_id > $min_ins_id LIMIT $limit";
+    my $ins_id_sth = "SELECT ins_id,so_id,uri FROM instance WHERE vol_id = ${vol_id} AND ins_id > $min_ins_id AND ins_id <= $max_ins_id  LIMIT $limit";
+    if ($alt) {
+        $ins_id_sth = "SELECT ins_id,so_id,uri,vol_id FROM instance WHERE ins_id > $min_ins_id AND ins_id <= $max_ins_id  LIMIT $limit";
+    }
     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 }) {
-        my ($ins_id,$so_id,$uri) = @{ $rr };
+        my ($ins_id,$so_id,$uri,$v_id) = @{ $rr };
         if ($verbose) {
 #       print ("  $ins_id $so_id $uri\n");
@@ -81 +96 @@
         $number++;
         $last_ins_id = $ins_id;
+        if ($alt) {
+            if ($v_id != $vol_id) { next; }
+        }
         if ($uri !~ /ota...fits/) { next; }
         my $have_b_node = 0;
@@ -138 +156 @@
         $min_ins_id = $last_ins_id;
     }
-} while ($continue && $number != 0);
+} while (($continue && $number != 0) || ($min_ins_id < $max_ins_id));