Index: trunk/tools/neb_size.pl
===================================================================
--- trunk/tools/neb_size.pl	(revision 27250)
+++ trunk/tools/neb_size.pl	(revision 27251)
@@ -9,10 +9,8 @@
 
 
-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,4 +19,5 @@
     '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,4 +29,10 @@
     and defined $db_pw
     and defined $step;
+
+unless (defined $hostname) {
+    $hostname = `hostname`;
+    chomp $hostname;
+}
+
 
 # Database connection
@@ -45,5 +50,6 @@
 }
 
-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,8 +63,8 @@
         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";