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

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

LATMOS-Accounts/bin/la-search

@@ -27 +27 @@
 Perform search in this specific base instead default
 
-=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 --fmt format
@@ -77 +78 @@
 
 GetOptions(
-    'c|config=s' => \my $config,
-    'b|base=s'   => \my $base,
-    'o|object=s' => \my $otype,
-    'fmt=s'      => \my $fmt,
-    '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,
+    'fmt=s'             => \my $fmt,
+    'no-unexp|wo-unexp' => \my $nounexp,
+    'with-unexp'        => \my $unexp,
+    'help'              => sub { pod2usage(0) },
 ) or pod2usage();
 
@@ -94 +95 @@
 $labase && $labase->load or die "Cannot load base";
 
-$labase->wexported($noexp ? 0 : 1);
+$labase->unexported($nounexp ? 0 : 1);
 
 my @result = $labase->search_objects($otype, @ARGV);