Changeset 455

Timestamp:

09/10/09 22:29:54 (15 years ago)

Author:

nanardon

Message:

• make la-config usable

File:

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

LATMOS-Accounts/bin/la-config

@@ -13 +13 @@
 =head1 SYNOPSIS
 
-Show configured bases:
+List supported base, synchronisation, objects and attributes
 
-    la-config
-
-List supported attribute:
-
-    la-config [option] att
-    la-config [option] att objects_type
+    la-config [option] [object]
 
 =cut
@@ -26 +21 @@
 GetOptions(
     'c|config=s' => \my $config,
-    'b|base=s'   => \my $base,
+    'lb'         => \my $listbases,
+    'ls'         => \my $listsynchros,
+    'base=s'     => \my $base,
     'help'       => sub { pod2usage(0) },
 ) or pod2usage();
@@ -40 +37 @@
 Perform query on this base
 
+
+=item --lb
+
+List base setup in config
+
+=item --ls
+
+List synchronisation setup in config
+
 =cut
 
 my $LA = LATMOS::Accounts->new($config);
 
-my $action = shift(@ARGV) || '';
-for ($action) {
-    m/^$/ and do {
-        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')
-            );
-        }
-        my $default_sync = $LA->default_synchro_name || '';
-        print "Syncro:\n";
-        foreach ($LA->list_synchro) {
-            printf("  %s %s (%s => %s)\n",
-                ($_ eq $default_sync ? '*' : ' '),
-                $_,
-                $LA->val("sync:$_", 'from', 'Err: No from'),
-                join(', ', $LA->val("sync:$_", 'to', 'Err: No to')),
-            );
-        }
-        last;
-    };
-    m/^att(ributes)?$/ and do {
+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 || '';
+    print "Syncro:\n";
+    foreach ($LA->list_synchro) {
+        printf("  %s %s (%s => %s)\n",
+            ($_ eq $default_sync ? '*' : ' '),
+            $_,
+            $LA->val("sync:$_", 'from', 'Err: No from'),
+            join(', ', $LA->val("sync:$_", 'to', 'Err: No to')),
+        );
+    }
+}
+if (!($listsynchros || $listbases)) {
+    if (my $otype = $ARGV[0]) {
         my $labase = $base ? $LA->base($base) : $LA->default_base;
-        if (my $otype = shift(@ARGV)) {
-            printf "Supported field for object type %s (base %s)\n",
-                $otype,
-                $base ? $base : $LA->default_base_name;
-            printf(
-                "  %s (%s%s)\n", $_,
-                ($labase->get_field_name($otype, $_, 'r') ? 'r' : ' '),
-                ($labase->get_field_name($otype, $_, 'w') ? 'w' : ' '),
-            ) foreach($labase->list_canonical_fields($otype, 'a'));
-        } else {
-            printf "Supported object type by base %s\n",
-                $base ? $base : $LA->default_base_name;
-            print "  $_\n" foreach($labase->list_supported_objects);
-        }
-    };
+        printf "Supported field for object type %s (base %s)\n",
+        $otype,
+        $base ? $base : $LA->default_base_name;
+        printf(
+            "  %s (%s%s)\n", $_,
+            ($labase->get_field_name($otype, $_, 'r') ? 'r' : ' '),
+            ($labase->get_field_name($otype, $_, 'w') ? 'w' : ' '),
+        ) foreach($labase->list_canonical_fields($otype, 'a'));
+    } else {
+        my $labase = $base ? $LA->base($base) : $LA->default_base;
+        printf "Supported object type by base %s\n",
+        $base ? $base : $LA->default_base_name;
+        print "  $_\n" foreach($labase->list_supported_objects);
+    }
 }