source: trunk/LATMOS-Accounts/bin/la-sql-log @ 2393

#!/usr/bin/perl

use strict;
use warnings;
use LATMOS::Accounts;
use Getopt::Long;
use Pod::Usage;
use LATMOS::Accounts::Cli::Context;
use LATMOS::Accounts::Cli;

=head1 NAME

    la-sql-log - Dislay objects log

=head1 SYNOPSIS

    la-edit [options] [obj_id]

=cut

Getopt::Long::Configure("pass_through");
GetOptions(
    'c|config=s' => \my $config,
    'b|base=s'   => \my $base,
    'help'       => sub { pod2usage(0) },
) or pod2usage();

=head1 OPTIONS

=over 4

=item -c|--config configdir

Use this configuration directory instead of the default one.

=item -b|--base basename

Query this specific base instead of the default one.

=item -o|object object_type

Query will be performed on this object. Default is the 'User' object.

=back

=cut

my $LA = LATMOS::Accounts->new($config, noacl => 1);
my $labase = $LA->base($base);
$labase && $labase->load or die "Cannot load base";
$labase->wexported(1);

my $Env = LATMOS::Accounts::Cli->new(
    Context => LATMOS::Accounts::Cli::Context->new(
        base => $labase,
    ),
);

if (@ARGV) {
    $Env->run('log', @ARGV);
} else {
    $Env->run('log');
}