Changeset 38 for LATMOS-Accounts

Timestamp:

04/25/09 02:35:12 (15 years ago)

Author:

nanardon

Message:

• add doc on la-config

File:

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

LATMOS-Accounts/bin/la-config

@@ -7 +7 @@
 use Pod::Usage;
 
+=head1 NAME
+
+    la-config - Tools to query configuration of LATMOS::Accounts system.
+
+=head1 SYNOPSIS
+
+Show configured bases:
+
+    la-config
+
+List supported attribute:
+
+    la-config [option] att
+
+=cut
+
 GetOptions(
     'c|config=s' => \my $config,
+    'b|base=s'   => \my $base,
+    'help'       => sub { pod2usage(0) },
 ) or pod2usage();
+
+=head1 OPTIONS
+
+=item -c|--config configfile
+
+Use this configuration file instead default
+
+=item -b|--base basename
+
+Perform query on this base
+
+=cut
 
 my $LA = LATMOS::Accounts->new($config);
@@ -17 +47 @@
     m/^$/ and do {
         my $default = $LA->default_base_name || '';
-        foreach ($LA->list_bases) {
+        foreach ($base ? ($base) : $LA->list_bases) {
             printf("%s %s (%s)\n",
                 ($_ eq $default ? '*' : ' '),
@@ -26 +56 @@
         last;
     };
+    m/^att(ributes)?$/ and do {
+        my $labase = $base ? $LA->base($base) : $LA->default_base;
+        my $otype = shift(@ARGV) || 'user';
+        printf "Supported field for object type %s (base %s)\n",
+            $otype,
+            $LA->default_base_name || 'N/A';
+        print "  $_\n" foreach($labase->list_canonicals_fields($otype));
+    };
 }