Changeset 2284 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm

Timestamp:

09/24/19 21:27:33 (5 years ago)

Author:

nanardon

Message:

Try to add loadcsv function to la-cli

File:

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

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm

@@ -236 +236 @@
         }
     );
+
+    $self->add_func('loadcsv',
+        {
+            help => 'Load CSV file to create object',
+            code => sub {
+                my ($self, $otype, $file) = @_;
+
+                open(my $fh, '<', $file) or do {
+                   warn "Cannot open  $file $!\n";
+                   return;
+                };
+
+                my @ids;
+
+                loadCSV(
+                    $fh,
+                    cb => sub {
+                        my ($res, $linecount) = @_;
+
+                        my $ochelper = $labase->ochelper($otype);
+
+                        my $info = {
+                            contents => $res
+                        };
+                        if ($res->{name}) {
+                            $info->{name}{content} = $res->{name};
+                        }
+
+                        if ($ochelper->Automate($info)) {
+                            push(@ids, $res->{name});
+                        } else {
+                            warn "Cannot create object line $linecount (not enough information ?)\n";
+                        }
+                    },
+                );
+
+                close($fh);
+
+                my @objs;
+                foreach (@ids) {
+                    my $obj = $self->base->get_object($otype, $_) or do {
+                        print $OUT "Cannot get $otype $_\n";
+                        return;
+                    };
+                    push(@objs, $obj);
+                }
+
+                print $OUT "Selecting $otype " . join(', ', @ids) . "\n";
+                LATMOS::Accounts::Cli::Object->new(
+                    Parent  => $self,
+                    Context => $self->Context,
+                    otype   => $otype,
+                    objs    => \@objs,
+                )->cli();
+            },
+            completion => sub {
+                if ($_[2]) {
+                    return Term::ReadLine::Gnu::filename_list(@_);
+                } else {
+                    return '@', $_[0]->base->list_supported_objects;
+                }
+            },
+        }
+    );
+
     $self->add_func('user',  { alias => [qw'select user' ] });
     $self->add_func('group', { alias => [qw'select group'] });