Changeset 27254 for trunk

Timestamp:

Mar 11, 2010, 11:56:01 AM (16 years ago)

Author:

Paul Price

Message:

Better about errors.

File:

• trunk/tools/neb_size.pl (modified) (4 diffs)

trunk/tools/neb_size.pl

@@ -43 +43 @@
                        ) or die "Unable to connect to database: $DBI::errstr";
 
+{
+    my $old = select(STDOUT);
+    $| = 1;
+    select($old);
+}
+
 my $max_ins;                    # Maximum instance identifier
 {
@@ -49 +55 @@
     $max_ins = $$results[0];
 }
+print "MAX: $max_ins\n";
+
+
 
 my $size = 0;                   # Sum of sizes
@@ -55 +64 @@
     my $min = $i;               # Minimum instance for query
     my $max = $i + $step;       # Maximum instance for query
+    print "Checking $min to $max...\n";
 
     my $sql = "SELECT uri FROM instance JOIN volume USING(vol_id) WHERE host = '$hostname' AND ins_id BETWEEN $min AND $max";
@@ -63 +73 @@
         my $uri = $$result[0];
         $uri =~ s|^file:||;
-        $size += -s $uri;
+        next unless defined $uri;
+        my $bytes = -s $uri;
+        next unless defined $bytes;
+        $size += $bytes;
         $num++;
     }