|
From: Alexander <pus...@gm...> - 2006-02-16 11:35:52
|
Hello!
Sorry for my english.
It's my code and why it's do not work? (see comments)
Log::Log4perl version 1.03
> use Data::Dumper;
> use Proc::Daemon;
> use Getopt::Long;
> use Config::General;
> use Log::Log4perl;
> use Log::Log4perl::Level;
> use Exception qw(:try);
>
> main();
>
> sub main
> {
> print "start\n"; # work
> my $params = init();
> log_info(" -=== Start ===- "); # work
> log_err("test"); # work
>
> my $err;
> my $logger = Log::Log4perl->get_logger("ant-daemon");
> try
> {
> log_err("in try"); # work
> # some my code
> }
> except
> {
> my $error=shift;
> my $id = $error->id;
> my $text = $error->stringify;
> chomp($text);
> $err = "Error id = \"$id\", message = \"$text\"\n";
> print $err; # work
> log_err($err); # do not work!
> };
>
>
> print "Hey!!\n"; # work
> $logger->log($INFO, "it's test"); # do not work!
> $logger->error("it's test"); # do not work!
> log_err("it's test"); # do not work!
> if($err)
> {
> log_err("fuck"); # do not work!
> print $err; # work
> }
> }
>
> sub logmsg
> {
> my $type = shift;
> my @what = @_;
> my $logger = Log::Log4perl->get_logger("ant-daemon");
>
> if(defined($type) && scalar(@what) > 0)
> { $logger->log($type, @what); }
> else
> {
> $logger->log($ERROR, "error in log sub");
> return 0;
> }
>
> return 1;
> }
>
> sub log_fatal
> { return logmsg($FATAL, @_); }
>
> sub log_err
> { return logmsg($ERROR, @_); }
>
> sub log_warn
> { return logmsg($WARN, @_); }
>
> sub log_info
> { return logmsg($INFO, @_); }
>
> sub log_debug
> { return logmsg($DEBUG, @_); }
Alexander Magola
|