Changeset 41052 for branches/eam_branches/ipp-20191011

Timestamp:

Nov 5, 2019, 8:08:47 AM (7 years ago)

Author:

eugene

Message:

add help info

File:

• branches/eam_branches/ipp-20191011/Nebulous/bin/neb-cat (modified) (3 diffs)

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

@@ -18 +18 @@
 use constant CHUNK_SIZE => 1024;
 
-my ($server);
+my ($server, $help);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -24 +24 @@
 GetOptions(
     'server|s=s'    => \$server,
+    'help|h'        => \$help,
 ) || pod2usage( 2 );
 
-pod2usage( -msg => "Required options: --server <key...>", -exitval => 2 )
-        unless defined $server;
+# explicitly defined -h / --help:
+if ($help) { pod2usage( -verbose => 1 ); }
+
+pod2usage( -msg => "Required options: --server <key...>", -exitval => 2 ) unless defined $server;
 
 my $neb = Nebulous::Client->new(
@@ -95 +98 @@
 =over 4
 
-=item * --server|-s <URL>
+=item --server|-s <URL>
 
 URL of the Nebulous server to connect to.