Changeset 849 for LATMOS-Accounts/bin/la-guser

Timestamp:

03/29/10 19:09:13 (14 years ago)

Author:

nanardon

Message:

• make unxported mode options more explicit
• fix POD according behavior

File:

• LATMOS-Accounts/bin/la-guser (modified) (3 diffs)

LATMOS-Accounts/bin/la-guser

@@ -20 +20 @@
 
 GetOptions(
-    'c|config=s' => \my $config,
-    'b|base=s'   => \my $base,
-    's'          => \my $set,
-    'r'          => \my $remove,
-    'noexp'      => \my $noexp,
-    'exp'        => \my $exp,
-    'help'       => sub { pod2usage(0) },
+    'c|config=s'        => \my $config,
+    'b|base=s'          => \my $base,
+    's'                 => \my $set,
+    'r'                 => \my $remove,
+    'no-unexp|wo-unexp' => \my $nounexp,
+    'with-exp'          => \my $unexp,
+    'help'              => sub { pod2usage(0) },
 ) or pod2usage();
 
@@ -49 +49 @@
 Query this specific base instead of the default one.
 
-=item --noexp
+=item --with-unexp
 
-Take into account all objects (even non propagated ones, with attribute 'exported'=0)
+Take into account all objects (even non propagated ones, with attribute
+'exported'=0) (default)
 
-=item --exp
+=item --wo-unexp
 
-Take into account only propagated objects (attribute 'exported'=1) (default)
+Take into account only propagated objects (attribute 'exported'=1)
 
 =item -r
@@ -75 +76 @@
 $labase && $labase->load or die "Cannot load base";
 
-$labase->wexported($noexp ? 0 : 1);
+$labase->unexported($nounexp ? 0 : 1);
 
 $labase->is_supported_object($otype) or die "$otype object unsupported\n";