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

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

LATMOS-Accounts/bin/la-cli

@@ -10 +10 @@
 =head1 NAME
 
-    la-query - Tools to query base in LATMOS::Accounts system
+    la-cli - A powerfull commandline tool to manage LATMOS::Accounts contents
 
 =head1 SYNOPSIS
 
-    la-query [options] [obj_id]
-
-=item [obj_id] : If present, all set attributes (rw) will be displayed for that obj_id.
-        If none is given, all obj_ids will be printed.
-
-For the default object_type (user), obj_id = login.
-
-Example : la-query lambda
+    la-cli [options]
 
 =cut
 
 GetOptions(
-    'c|config=s' => \my $config,
-    'b|base=s'   => \my $base,
-    'noexp'      => \my $noexp,
-    'exp'        => \my $exp,
-    'help'       => sub { pod2usage(0) },
+    'c|config=s'        => \my $config,
+    'b|base=s'          => \my $base,
+    'no-unexp|wo-unexp' => \my $nounexp,
+    'with-unexp'        => \my $unexp,
+    'help'              => sub { pod2usage(0) },
 ) or pod2usage();
 
@@ -45 +38 @@
 Query this specific base instead of the default one.
 
-=item --noexp
+=item --unexp
 
 Take into account all objects (even non propagated ones, with attribute 'exported'=0)
 
-=item --exp
+=item --no-unexp
 
 Take into account only propagated objects (attribute 'exported'=1) (default)
@@ -61 +54 @@
 $labase && $labase->load or die "Cannot load base";
 
-$labase->wexported($noexp ? 0 : 1);
+$labase->unexported($nounexp ? 0 : 1);
 
 my $globalenv = LATMOS::Accounts::Cli::globalenv($labase);