Changeset 32045

Timestamp:

Aug 4, 2011, 5:59:53 PM (15 years ago)

Author:

watersc1

Message:

Print files instead of uris upon request.

File:

• trunk/Nebulous/bin/neb-stat (modified) (4 diffs)

trunk/Nebulous/bin/neb-stat

@@ -19 +19 @@
 use URI;
 
-my ($validate,$server);
+my ($validate,$server,$nouris);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -26 +26 @@
     'server|s=s'     => \$server,
     'validate|v'         => \$validate,
+    'files'          => \$nouris,
 ) || pod2usage( 2 );
 
@@ -79 +80 @@
             $md5sum_uniq{$md5sums[$i]} = 1;
         }
-        $validation[$i] = sprintf("% 3d %32s %s",
-                                  $existance[$i],
-                                  $md5sums[$i],
-                                  ${ $instances }[$i]);
+        if (defined($nouris)) {
+            $validation[$i] = sprintf("% 3d %32s %s",
+                                      $existance[$i],
+                                      $md5sums[$i],
+                                      $files[$i]);
+        }
+        else {
+            $validation[$i] = sprintf("% 3d %32s %s",
+                                      $existance[$i],
+                                      $md5sums[$i],
+                                      ${ $instances }[$i]);
+        }
     }
 }
@@ -151 +160 @@
 Optional - prints out additional information including md5sum.
 
+=item * --files
+
+Optional - prints out disk files instead of uris during validate stage.
+
 =back