Changeset 27251 for trunk

Timestamp:

Mar 11, 2010, 11:26:26 AM (16 years ago)

Author:

Paul Price

Message:

Allow use for a host other than the local.

File:

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

trunk/tools/neb_size.pl

@@ -9 +9 @@
 
 
-my $hostname = `hostname`;      # Name of host
-chomp $hostname;
-
 
 my ($db_host, $db_name, $db_user, $db_pw); # Database details
 my ($step);                                # Step in ins_id
+my $hostname;
 
 GetOptions(
@@ -21 +19 @@
     'dbuser=s' => \$db_user, # Database user
     'dbpass=s' => \$db_pw, # Database p/w
+    'hostname=s' => \$hostname, # Host name
     'step=s' => \$step,    # Step in ins_id
            ) or die "Unable to parse arguments.\n";
@@ -30 +29 @@
     and defined $db_pw
     and defined $step;
+
+unless (defined $hostname) {
+    $hostname = `hostname`;
+    chomp $hostname;
+}
+
 
 # Database connection
@@ -45 +50 @@
 }
 
-my $sum = 0;                    # Sum of sizes
+my $size = 0;                   # Sum of sizes
+my $num = 0;                    # Number of files
 for (my $i = 0; $i < $max_ins; $i += $step) {
     my $min = $i;               # Minimum instance for query
@@ -57 +63 @@
         my $uri = $$result[0];
         $uri =~ s|^file:||;
-        my $size = -s $uri;
-        $sum += $size;
+        $size += -s $uri;
+        $num++;
     }
 }
 
-print "$hostname: $sum\n";
+print "$hostname: $size ($num files)\n";