source: branches/1.0/LATMOS-Accounts/bin/la-log-test @ 1341

#!/usr/bin/perl

use strict;
use warnings;
use LATMOS::Accounts::Log;
use Getopt::Long;
use Pod::Usage;

=head1 NAME

    la-log-test - Tools to LATMOS::Account loggin system

=head1 SYNOPSIS

    la-log-test [options]

=cut

GetOptions(
    'c|config=s' => \my $config,
    'l|level=s'  => \my $level,
    'list'       => \my $list,
    'help'       => sub { pod2usage(0) },
) or pod2usage();

=head1 OPTIONS

=over 4

=item -c|--config configfile

Use this configuration file instead of the default one.

=item -l|--level level

Set the log level

=cut

$level ||= 'LA_INFO';

my $numlevel = eval "LATMOS::Accounts::Log::$level()";

la_log($numlevel, "message from $0 ($level)");