Changeset 40993 for branches/eam_branches/ipp-20191011

Timestamp:

Oct 28, 2019, 4:13:24 PM (7 years ago)

Author:

eugene

Message:

-l implies -p

File:

• branches/eam_branches/ipp-20191011/Nebulous/bin/neb-ls (modified) (5 diffs)

branches/eam_branches/ipp-20191011/Nebulous/bin/neb-ls

@@ -19 +19 @@
     $ls,
     $column,
+    $help
 );
 
 $server = $ENV{'NEB_SERVER'} unless $server;
-
 
 GetOptions(
@@ -29 +29 @@
     'l'             => \$ls,
     'column|c'      => \$column,
+    'help|h'        => \$help,
 ) || pod2usage( 2 );
+
+# explicitly defined -h / --help:
+if ($help) { pod2usage( 2 ); }
 
 # twiddle column so that it does it by default.
@@ -35 +39 @@
 $column = not $column;
 
+if ($ls) { $path = 1; }
+
 my $pattern = shift;
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --server", -exitval => 2 )
-    unless $server;
+pod2usage( -msg => "Required options: --server", -exitval => 2 ) unless $server;
 
 my $neb = Nebulous::Client->new(
@@ -96 +101 @@
 =head1 SYNOPSIS
 
-    neb-ls [--server <URL>] [-c] [-p] <pattern>
+    neb-ls [--server <URL>] [-c] [-p] [-l] <pattern>
 
 =head1 DESCRIPTION
@@ -115 +120 @@
 
 Disable column formatting, and output results one to a line.
+
+=item * --l|-l
+
+Give disk file information using ls (implies -p).
 
 Optional