Re: [log4perl-devel] Init in separate Module

[Kevin G. <ke...@go...>]

Ian, you should try something like this in your config file,

log4j.appender.fileapndr.filename  = \
	sub {File::Basename::basename($0)."log"}
log4j.appender.fileapndr           = Log::Dispatch::File
log4j.appender.fileapndr.layout=org.apache.log4j.SimpleLayout

(requires a 'use File::Basename' somewhere in your code)




Mike Schilli wrote:
> Subject: Sorry for mailing you directly
> Date: 8/20/2003, 3:28 PM
> From: Ian harisay <ia...@gr...>
> To: log...@pe...
> 
> Hi Mike,
> 
> First of all, I love all the work that has been done on Log4perl.
> 
> I am hoping you can help me out.  I am trying to set up a package that I
> can call in my main program.  The package is as such:
> 
> package Log::Init;
> 
> require 5.005;
> use strict;
> use Log::Log4perl;
> use vars qw($VERSION);
> 
> $VERSION = 0.01;
> 
> Log::Log4perl->init("/opt/perl/lib/log.conf");
> 
> ### end of module ###
> 
> Then my main program can just be written as such:
> 
> use Log::Init;
> 
> my $log = Log::Log4perl->get_logger();
> 
> $log->info('my log message');
> 
> This is working fine for me when I initialise from a conf file.  The
> problem I am having, however, is that I would like my log file name to
> be dynamically generated.  For instance when my program (myprog) is
> calls Log::Init, Log::Init will setup a log file called myprog.log.
> This is default behaviour I am after.  I have tried to do this, but have
> not been successful.  Could you help me out with this?
> 
> Also, I looked for a log4perl users mail list.  Didn't find one.  I
> found the log4perl-devel list, but am having trouble posting to it.  I
> only say this because I don't want you to think I haven't exhausted
> these avenues first.
> 
> Thanks,
> 
> Ian
> 
> 
> 
> 
> 
> 
> -------------------------------------------------------
> This SF.net email is sponsored by Dice.com.
> Did you know that Dice has over 25,000 tech jobs available today? From
> careers in IT to Engineering to Tech Sales, Dice has tech jobs from the
> best hiring companies. http://www.dice.com/index.epl?rel_code=104
> _______________________________________________
> log4perl-devel mailing list
> log...@li...
> https://lists.sourceforge.net/lists/listinfo/log4perl-devel

-- 
Happy Trails . . .

Kevin M. Goess
(and Anne and Frank)
904 Carmel Ave.
Albany, CA  94706
(510) 525-5217