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

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

LATMOS-Accounts/bin/la-query

@@ -25 +25 @@
 
 GetOptions(
-    'c|config=s' => \my $config,
-    'b|base=s'   => \my $base,
-    'o|object=s' => \my $otype,
-    'e|empty'    => \my $empty_attr,
-    'fmt=s'      => \my $fmt,
-    'filefmt=s'  => \my $filefmt,
-    'ro'         => \my $with_ro,
-    '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,
+    'e|empty'           => \my $empty_attr,
+    'fmt=s'             => \my $fmt,
+    'filefmt=s'         => \my $filefmt,
+    'ro'                => \my $with_ro,
+    'no-unexp|wo-unexp' => \my $nounexp,
+    'with-unexp'        => \my $unexp,
+    'help'              => sub { pod2usage(0) },
 ) or pod2usage();
 
@@ -55 +55 @@
 Query will be performed on this object. Default is the 'User' object.
 
-=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 -e|--empty
@@ -114 +115 @@
 $labase && $labase->load or die "Cannot load base";
 
-$labase->wexported($noexp ? 0 : 1);
+$labase->unexported($nounexp ? 0 : 1);
 
 if ($filefmt){