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

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-qacls (modified) (3 diffs)

LATMOS-Accounts/bin/la-qacls

@@ -23 +23 @@
 
 GetOptions(
-    'c|config=s' => \my $config,
-    'b|base=s'     => \my $base,
-    'o|object=s' => \my $otype,
-    'u|user=s'   => \my $user,
-    'noexp'      => \my $noexp,
-    'exp'        => \my $exp,
-    'help'       => sub { pod2usage(0) },
+    'c|config=s'        => \my $config,
+    'b|base=s'          => \my $base,
+    'o|object=s'        => \my $otype,
+    'u|user=s'          => \my $user,
+    'no-unexp|wo-unexp' => \my $nounexp,
+    'exp'               => \my $unexp,
+    'help'              => sub { pod2usage(0) },
 ) or pod2usage();
 
@@ -44 +44 @@
 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)
 
-=item --exp
+=item --wo-unexp
 
 Take into account only propagated objects (attribute 'exported'=1) (default)
@@ -66 +66 @@
 my $labase = $base ? $LA->base($base) : $LA->default_base;
 
-$labase->wexported($noexp ? 0 : 1);
+$labase->unexported($unexp ? 1 : 0);
 
 if ($user) {