Changeset 2218 for trunk/LATMOS-Accounts/bin

Timestamp:

02/22/19 02:06:49 (5 years ago)

Author:

nanardon

Message:

Add '!' command, merge la-sql-log in la-cli

'!' command run a shell or execute command line by shell

File:

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

trunk/LATMOS-Accounts/bin/la-sql-log

@@ -6 +6 @@
 use Getopt::Long;
 use Pod::Usage;
+use LATMOS::Accounts::Cli::Context;
+use LATMOS::Accounts::Cli;
 
 =head1 NAME
@@ -17 +19 @@
 =cut
 
+Getopt::Long::Configure("pass_through");
 GetOptions(
     'c|config=s' => \my $config,
     'b|base=s'   => \my $base,
-    'o|object=s' => \my $otype,
     'help'       => sub { pod2usage(0) },
 ) or pod2usage();
-
-$otype ||= 'user';
 
 =head1 OPTIONS
@@ -51 +51 @@
 $labase->wexported(1);
 
-my @logs = $ARGV[0] 
-    ? $labase->getobjectlogs($otype, $ARGV[0])
-    : $labase->getlogs();
+my $Env = LATMOS::Accounts::Cli->new(
+    Context => LATMOS::Accounts::Cli::Context->new(
+        base => $labase,
+    ),
+);
 
-foreach(@logs) {
-    printf("%s (%d), %s: %s/%s (%d) %s\n",
-        $_->{logdate},
-        $_->{irev} || -1,
-        $_->{username},
-        $_->{otype},
-        $_->{name},
-        $_->{ikey},
-        $_->{message},
-    );
+if (@ARGV) {
+    $Env->run('log', @ARGV);
+} else {
+    $Env->run('log');
 }
+