Changeset 999 for trunk

Timestamp:

05/19/12 09:35:50 (12 years ago)

Author:

nanardon

Message:

• simplify la-config, then aovid redundancy with la-attributes

File:

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

trunk/LATMOS-Accounts/bin/la-config

@@ -13 +13 @@
 =head1 SYNOPSIS
 
-List supported base, synchronisation, objects and attributes
+List setup base, synchronisation
 
-    la-config [option] [object]
+    la-config [option]
 
 =cut
@@ -21 +21 @@
 GetOptions(
     'c|config=s' => \my $config,
-    'lb'         => \my $listbases,
     'ls'         => \my $listsynchros,
     'base=s'     => \my $base,
@@ -39 +38 @@
 Perform query on this base
 
-=item --lb
-
-List base setup in config
-
 =item --ls
 
@@ -53 +48 @@
 my $LA = LATMOS::Accounts->new($config, noacl => 1);
 
-if ($listbases) {
-    my $default = $LA->default_base_name || '';
-    print "Bases:\n";
-    foreach ($LA->list_bases) {
-        printf("  %s %s (%s)\n",
-            ($_ eq $default ? '*' : ' '),
-            $_,
-            $LA->val($_, 'type', 'Err: no type')
-        );
-    }
-}
 if ($listsynchros) {
     my $default_sync = $LA->default_synchro_name || '';
@@ -75 +59 @@
         );
     }
-}
-if (!($listsynchros || $listbases)) {
-    if (my $otype = $ARGV[0]) {
-        my $labase = $base ? $LA->base($base) : $LA->default_base;
-        printf "Supported field for object type %s (base %s)\n",
-        $otype,
-        $base ? $base : $LA->default_base_name;
-        foreach($labase->list_canonical_fields($otype, 'a')) {
-                my $attr = $labase->attribute($otype, $_);
-            printf(
-                "  %s (%s%s)\n", $_,
-                'r',
-                ($attr->readonly ? 'w' : ' '),
-            )
-        }
-    } else {
-        my $labase = $base ? $LA->base($base) : $LA->default_base
-            or die "Cannot instanciate " .
-            $base ? $base : $LA->default_base_name . "\n";
-        printf "Supported object type by base %s\n",
-            $base ? $base : $LA->default_base_name;
-        print "  $_\n" foreach($labase->ordered_objects);
+} else {
+    my $default = $LA->default_base_name || '';
+    print "Bases:\n";
+    foreach ($LA->list_bases) {
+        printf("  %s %s (%s)\n",
+            ($_ eq $default ? '*' : ' '),
+            $_,
+            $LA->val($_, 'type', 'Err: no type')
+        );
     }
 }