Re: [log4perl-devel] log4perl and Exception

[Mike S. <m...@pe...>]

On Thu, 16 Feb 2006, Alexander wrote:
> It's my code and why it's do not work? (see comments)
> Log::Log4perl version 1.03

You didn't include init().

-- Mike

Mike Schilli
m...@pe...

>
> > 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
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
> for problems?  Stop!  Download the new AJAX search engine that makes
> searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=103432&bid=230486&dat=121642
> _______________________________________________
> log4perl-devel mailing list
> log...@li...
> https://lists.sourceforge.net/lists/listinfo/log4perl-devel
>