Changeset 2400

Timestamp:

06/15/20 19:10:36 (4 years ago)

Author:

nanardon

Message:

Few fixes in la-cli

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Cli.pm (modified) (2 diffs)
• Cli/Base.pm (modified) (2 diffs)

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

@@ -71 +71 @@
     }
 }
+
+=head1 CLI FUNCTIONS
+
+=head2 GLOBAL FUNCTIONS
+
+=cut
 
 sub BUILD {
@@ -206 +212 @@
             },
         });
+
+=head3 create
+
+Create object
+
+=over 4
+
+=item -i
+
+    interactive: will prompt for attribute
+
+=item -f FILE
+
+    Read file for attribute value
+
+=item -e
+
+    open an epty file instead instead attribute list
+
+=item --ro
+
+    Open an empty with attribute even read-only one
+
+=back
+=cut
+
     $self->add_func('create', {
             code => sub {

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

@@ -94 +94 @@
                     foreach(sort $labase->list_canonical_fields($args[0], 'a')) {
                         my $attr = $labase->attribute($args[0], $_);
-                        $self->printf("%s   %s\n", ($attr ? ($attr->ro ? 'r ' : 'rw') : '  '), $_);
+                        $self->printf(
+                            "%s   %s%s\n",
+                            ($attr ? ($attr->ro ? 'r ' : 'rw') : '  '),
+                            $_,
+                            $attr->reference ? ' (=> ' . $attr->reference . ')' : '',
+                        );
                     }
                 } else {
@@ -500 +505 @@
     my ($op, $shellLine, $internalLine);
 
-    if ($cmdLine =~ /^(.*?)(?<![\\|])([\|\>])\s*([^\|].*)?$/) {
+    if ($cmdLine =~ /^(.*?)(?<![\S\\|])([\|\>])\s*([^\|].*)?$/) {
         $internalLine = $1;
         $op = $2;