source: trunk/LATMOS-Accounts/bin/la-log-test @ 2380

Last change on this file since 2380 was 997, checked in by nanardon, 12 years ago
  • pod fix
  • Property svn:executable set to *
  • Property svn:keywords set to Id Rev
File size: 811 bytes
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use LATMOS::Accounts::Log;
6use Getopt::Long;
7use Pod::Usage;
8
9=head1 NAME
10
11    la-log-test - Tools to LATMOS::Account loggin system
12
13=head1 SYNOPSIS
14
15    la-log-test [options]
16
17=cut
18
19GetOptions(
20    'c|config=s' => \my $config,
21    'l|level=s'  => \my $level,
22    'mail=s'     => \my $mail,
23    'help'       => sub { pod2usage(0) },
24) or pod2usage();
25
26=head1 OPTIONS
27
28=over 4
29
30=item -c|--config configdir
31
32Use this configuration directory instead of the default one.
33
34=item -l|--level level
35
36Set the log level
37
38=item --mail email
39
40Setup log error sent to email at end of execution
41
42=back
43
44=cut
45
46$level ||= 'LA_INFO';
47
48if ($mail) {
49    la_set_log(mail => $mail);
50}
51
52my $numlevel = eval "LATMOS::Accounts::Log::$level()";
53
54la_log($numlevel, "message from $0 ($level)");
Note: See TracBrowser for help on using the repository browser.