Changeset 31413

Timestamp:

Apr 29, 2011, 3:52:08 PM (15 years ago)

Author:

watersc1

Message:

Allow neb-df to print volume names instead of host names with --names option

File:

• trunk/Nebulous/bin/neb-df (modified) (3 diffs)

trunk/Nebulous/bin/neb-df

@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($server);
+my ($server,$names);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -22 +22 @@
 GetOptions(
     'server|s=s'    => \$server,
+    'names'         => \$names,
 ) || pod2usage( 2 );
 
@@ -51 +52 @@
         = @$row;
     my $path        = $vol{host};
+    if ($names) {
+        $path = $vol{name};
+    }
+
     my $total       = $vol{total};
     $total_total    += $total;