Changeset 1985 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

04/20/17 18:30:00 (7 years ago)

Author:

nanardon

Message:

Add tools to create multiple object from csv file

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/OCHelper.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/OCHelper.pm

@@ -112 +112 @@
 }
 
+=head2 $ochelper->Automate($info)
+
+Try to create object from C<$info> w/o interacting with user.
+If given infomation does not allow to create object, it failed.
+
+Return 1 on success.
+
+=cut
+
+sub Automate {
+    my ($self, $info) = @_;
+
+    for (my $count = 0; $count < 3; $count++) {
+        my $status;
+        ($status, $info) = $self->step($info);
+        if ($status eq 'CREATED') {
+            return 1;
+        } elsif ($status eq 'ERROR') {
+            return;
+        }
+    }
+}
+
 1;