Changeset 40

Timestamp:

04/25/09 04:12:06 (15 years ago)

Author:

nanardon

Message:

• allow to list supported objects and attribute

File:

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

LATMOS-Accounts/bin/la-config

@@ -20 +20 @@
 
     la-config [option] att
+    la-config [option] att objects_type
 
 =cut
@@ -58 +59 @@
     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));
+        if (my $otype = shift(@ARGV)) {
+            printf "Supported field for object type %s (base %s)\n",
+                $otype,
+                $base ? $base : $LA->default_base_name;
+            print "  $_\n" foreach($labase->list_canonicals_fields($otype));
+        } else {
+            printf "Supported object type by base %s\n",
+                $base ? $base : $LA->default_base_name;
+            print "  $_\n" foreach($labase->list_supported_objects);
+        }
     };
 }