Changeset 1996

Timestamp:

04/27/17 13:18:50 (7 years ago)

Author:

nanardon

Message:

objid is now optional with la-create (using ochelper)

File:

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

trunk/LATMOS-Accounts/bin/la-create

@@ -12 +12 @@
     la-create -- Tools to create object in LATMOS::Account system
 
-=head1 SYNOPSIS
+=head1 USAGE
 
-    la-create [options] obj_id
+    la-create [options] [obj_id]
+
+C<la-create> create objects inside database.
+
+If no input file is given C<$EDITOR> program is launch with an empty template.
+
+The object name must given except when creating C<user> object in SQL database
+for which a try will be done from C<sn> and C<givenName>.
 
 =cut
@@ -76 +83 @@
     my ($fh) = @_;
     my %attr = LATMOS::Accounts::Utils::parse_obj_file($fh);
-    if (my $obj = $labase->get_object($otype, $objname)) {
+    if ($objname && (my $obj = $labase->get_object($otype, $objname))) {
         if ($allow_update) {
             my $res = $obj->set_c_fields(%attr);
@@ -89 +96 @@
         }
     } else {
-        my $res = $labase->create_c_object($otype, $objname, %attr);
-        if($res) {
-            print "Changes applied\n";
-            $labase->commit;
-            $LA->call_batch_sync;
-            return 1;
-        }
-        return 0;
+        if ($objname) {
+            my $res = $labase->create_c_object($otype, $objname, %attr);
+            if($res) {
+                print "Changes applied\n";
+                $labase->commit;
+                $LA->call_batch_sync;
+                return 1;
+            }
+            return 0;
+        } else {
+            my $ochelper = $labase->ochelper($otype);
+
+            my $info = {
+                contents => { %attr },
+            };
+            if ($attr{name}) {
+                $info->{name}{content} = $attr{name};
+            }
+
+            $ochelper->Automate($info) or
+                die "Cannot create object (not enough information ?)\n";
+        } 
     }
 }