Changeset 848 for LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm

Timestamp:

03/29/10 01:35:03 (14 years ago)

Author:

nanardon

Message:

• add delete function

factorize help code

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm (modified) (10 diffs)

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

@@ -1 +1 @@
 package LATMOS::Accounts::Cli;
+
+# $Id$
 
 use strict;
@@ -13 +15 @@
 sub globalenv {
     my ($labase) = @_;
-    my $env = LATMOS::Accounts::Cli->new({ prompt => sub { "LA cli > " }, },
+    my $env = LATMOS::Accounts::Cli->new({ prompt => sub { $_[0]->base->label . " cli > " }, },
         $labase);
     $env->add_func('ls', {
@@ -95 +97 @@
         {
             prompt => sub {
-                sprintf("%s (%s) > ",
+                sprintf("%s %s/%s > ",
+                    $_[0]->base->label,
                     $_[0]->{_otype},
-                    @{$_[0]->{_objects}} > 1 ? '...' : $_[0]->{_objects}[0]->id,
+                    @{$_[0]->{_objects}} > 1 ? '(' .
+                    scalar(@{$_[0]->{_objects}}) . ' obj.)' : $_[0]->{_objects}[0]->id,
                 );
             },
@@ -122 +126 @@
             if (!$_[2]) {
                 return $_[0]->base->list_canonical_fields($_[0]->{_otype}, 'r')
+            }
+        },
+    });
+    $objenv->add_func('print', {
+        help => 'print fmt - show attributes using template',
+        code => sub {
+            my ($env, $fmt) = @_;
+            foreach (@{$env->{_objects}}) {
+                print $OUT $_->queryformat($fmt) . "\n";
             }
         },
@@ -184 +197 @@
                     /^contratType$/ and return
                         $env->base->search_objects('group', 'sutype=contrattype');
+                    /^site$/ and return
+                        $env->base->search_objects('site');
                     if (@{$env->{_objects}} == 1) {
                         return $env->{_objects}[0]->get_attributes($args[0]);
@@ -242 +257 @@
             },
         });
+    $objenv->add_func('delete', {
+        help => 'delete - delete selected object',
+        code => sub {
+            my ($env) = @_;
+            printf $OUT "%s: %s\ndelete selected objects ? (yes/NO) ",
+            $env->{_otype}, join(', ', map { $_->id } @{$env->{_objects}});
+            my $reply = <STDIN> || ''; chomp($reply);
+            if ($reply eq 'yes') {
+                foreach (@{$env->{_objects}}) {
+                    $env->base->delete_object($env->{_otype}, $_->id) or do {
+                        print $OUT "Cannot delete " . $_->id;
+                        return;
+                    };
+                }
+                $env->base->commit;
+                return "EXIT";
+            } else {
+                print $OUT "cancel !"
+            }
+        },
+    });
 
     if (lc($otype) eq 'user') {
@@ -324 +360 @@
     $env->add_func('exit', { help => "exit current mode",
             code => sub { return "EXIT" }, });
+    $env->add_func('help', {
+        help => 'help [command] - print help about command',
+        completion => sub {
+            if (!$_[2]) { return sort keys %{ $_[0]->{funcs} || {}} }
+        },
+        code => sub {
+            my ($self, $name) = @_;
+            if (!$name) {
+                print $OUT join(', ', sort keys %{ $self->{funcs} || {}});
+            } elsif ($self->{funcs}{$name}{alias}) {
+                print $OUT "$name is an alias for " . join(' ',
+                    @{$self->{funcs}{$name}{alias}});
+            } elsif ($self->{funcs}{$name}{help}) {
+                print $OUT $self->{funcs}{$name}{help};
+            } else {
+                print $OUT "No help availlable";
+            }
+        },
+    });
+
     $env;
 }
@@ -370 +426 @@
     if (!$name) {
         return grep { /^\Q$lastw\E/ } sort
-            ('help', keys %{ $self->{funcs} || {}});
-    } elsif ($name eq 'help') {
-        return grep { /^\Q$lastw\E/ } sort keys %{ $self->{funcs} || {}};
+            (keys %{ $self->{funcs} || {}});
     } elsif ($self->{funcs}{$name}{alias}) {
         $self->complete($lastw, @{$self->{funcs}{$name}{alias}}, @args);
@@ -386 +440 @@
     my ($self, $name, @args) = @_;
     return if (!$name);
-    if ($name eq 'help') {
-        $self->help(@args);
-    } elsif ($self->{funcs}{$name}{alias}) {
+    if ($self->{funcs}{$name}{alias}) {
         $self->run(@{$self->{funcs}{$name}{alias}}, @args);
     } elsif ($self->{funcs}{$name}{code}) {
@@ -396 +448 @@
 }
 
-sub help {
-    my ($self, $name) = @_;
-    if (!$name) {
-        print $OUT join(', ', sort keys %{ $self->{funcs} || {}});
-    } elsif ($self->{funcs}{$name}{alias}) {
-        print $OUT "$name is an alias for " . join(' ',
-            @{$self->{funcs}{$name}{alias}});
-    } elsif ($self->{funcs}{$name}{help}) {
-        print $OUT $self->{funcs}{$name}{help};
-    } else {
-        print $OUT "No help availlable";
-    }
-}
-
-
 1;