Menu
▾
▴
log4perl-devel — Ongoing log4perl development
You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
(3) |
Aug
(38) |
Sep
(126) |
Oct
(23) |
Nov
(72) |
Dec
(36) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(76) |
Feb
(32) |
Mar
(19) |
Apr
(6) |
May
(54) |
Jun
(40) |
Jul
(45) |
Aug
(35) |
Sep
(51) |
Oct
(67) |
Nov
(10) |
Dec
(50) |
| 2004 |
Jan
(51) |
Feb
(22) |
Mar
(22) |
Apr
(28) |
May
(53) |
Jun
(99) |
Jul
(38) |
Aug
(49) |
Sep
(23) |
Oct
(29) |
Nov
(30) |
Dec
(48) |
| 2005 |
Jan
(15) |
Feb
(21) |
Mar
(25) |
Apr
(16) |
May
(131) |
Jun
|
Jul
(8) |
Aug
(5) |
Sep
(15) |
Oct
|
Nov
(15) |
Dec
(12) |
| 2006 |
Jan
(15) |
Feb
(20) |
Mar
(8) |
Apr
(10) |
May
(3) |
Jun
(16) |
Jul
(15) |
Aug
(11) |
Sep
(17) |
Oct
(27) |
Nov
(11) |
Dec
(12) |
| 2007 |
Jan
(19) |
Feb
(18) |
Mar
(33) |
Apr
(4) |
May
(15) |
Jun
(22) |
Jul
(19) |
Aug
(20) |
Sep
(14) |
Oct
(4) |
Nov
(34) |
Dec
(11) |
| 2008 |
Jan
(8) |
Feb
(18) |
Mar
(2) |
Apr
(4) |
May
(26) |
Jun
(9) |
Jul
(8) |
Aug
(8) |
Sep
(3) |
Oct
(17) |
Nov
(14) |
Dec
(4) |
| 2009 |
Jan
(6) |
Feb
(41) |
Mar
(21) |
Apr
(10) |
May
(21) |
Jun
|
Jul
(8) |
Aug
(4) |
Sep
(3) |
Oct
(8) |
Nov
(6) |
Dec
(5) |
| 2010 |
Jan
(14) |
Feb
(13) |
Mar
(7) |
Apr
(12) |
May
(4) |
Jun
(1) |
Jul
(11) |
Aug
(5) |
Sep
|
Oct
(1) |
Nov
(10) |
Dec
|
| 2011 |
Jan
(7) |
Feb
(3) |
Mar
(1) |
Apr
(5) |
May
|
Jun
(1) |
Jul
(6) |
Aug
(6) |
Sep
(10) |
Oct
(5) |
Nov
(4) |
Dec
(5) |
| 2012 |
Jan
(4) |
Feb
(5) |
Mar
(1) |
Apr
(7) |
May
(1) |
Jun
|
Jul
(2) |
Aug
|
Sep
(5) |
Oct
(5) |
Nov
(4) |
Dec
(5) |
| 2013 |
Jan
(6) |
Feb
|
Mar
(14) |
Apr
(9) |
May
(3) |
Jun
(2) |
Jul
(1) |
Aug
(1) |
Sep
|
Oct
|
Nov
(4) |
Dec
(6) |
| 2014 |
Jan
|
Feb
(1) |
Mar
(10) |
Apr
|
May
(3) |
Jun
|
Jul
|
Aug
|
Sep
(4) |
Oct
(1) |
Nov
|
Dec
(4) |
| 2015 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2016 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
|
|
From: eddie <su...@t-...> - 2004-08-27 01:42:47
|
<html>
<body bgcolor="#eef1f7">
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><p align="center"><font color="#466DA4" size="3" face="Geneva, Arial, Helvetica, sans-serif"><strong>Образовательный
Центр</strong></font><font color="#466DA4" size="2" face="Geneva, Arial, Helvetica, sans-serif"><br>
предлагает вниманию руководителей крупных и малых предприятий,<br>
начальников отделов развития и обучения, специалистов<br>
кадровых служб и агентств </font></p>
<hr color="#78A2DA">
<p align="center"><font color="#ef7a1b" size="3" face="Geneva, Arial, Helvetica, sans-serif"><strong>9-10 сентября
</strong></font><font color="#466DA4" size="3" face="Geneva, Arial, Helvetica, sans-serif"><br>
двухдневный семинар-тренинг по теме<br>
<strong>"Формирование управленческой команды в организации"</strong><br>
</font></p>
<hr color="#78A2DA">
<strong><font color="#ef7a1b" size="2" face="Geneva, Arial, Helvetica, sans-serif">
В программе семинара:</font></strong><br>
<font color="#466DA4"><br>
<font size="2" face="Geneva, Arial, Helvetica, sans-serif">• Структура организации
и командное взаимодействие<br>
• Необходимость командных методов работы в практике управления<br>
• Этапы жизненного цикла организации<br>
• Структура организации и механизм координации<br>
• Отличительные особенности команды как стратегического ресурса компании<br>
• Цели и ценности как инструмент построения команды<br>
• Объединение команды вокруг стратегических целей компании.<br>
• Распределение сфер ответственности между участниками команды<br>
• Управление групповыми процессами в команде<br>
• Мобилизация команды в критических ситуациях<br>
• Преодоление типовых трудностей в построении и управлении командой<br>
• Воспроизводство менеджмента компании </font></font> <p><font color="#466DA4" size="2" face="Geneva, Arial, Helvetica, sans-serif">
<font color="#ef7a1b"><strong>В ходе обучения участники:</strong></font><br>
<br>
• получат опыт специально выстроенного взаимодействия в условиях командной<br>
работы;<br>
• уточнят ориентиры работы своей управленческой команды в контексте<br>
бизнес-ориентиров организации;<br>
• сформулируют практические выводы по работе в подразделениях, развитию<br>
корпоративной культуры компании.</font></p>
<hr color="#78A2DA">
<font color="#466DA4" size="2" face="Geneva, Arial, Helvetica, sans-serif"><strong><br>
Стоимость участия в семинаре - 7500 рублей, с учетом НДС.</strong><br>
Форма оплаты любая (наличная или безналичная).<br>
<strong>В стоимость входит:</strong> участие в работе семинара, раздаточный
материал, кофе-пауза, обед в ресторане.</font><font face="Geneva, Arial, Helvetica, sans-serif">
<p><font color="#466DA4" size="2">Тренинг проходит в Москве (м. Академическая).
<br>
Начало - в 10 часов, окончание в 17.30-18.00 (в двухдневном формате).
</font></p>
<p><font color="#466DA4" size="2"><strong>Регистрация участников обязательна.</strong>
Для регистрации необходимо сообщить следующие данные: наименование организации,
ИНН,КПП, юридический адрес, телефон, факс, Ф.И.О. участников, контактное
лицо.</font></p>
<p><font color="#466DA4" size="2">Если необходимо бронировать гостиницу,
сообщайте даты приезда-отъезда заранее.</font></p>
</font>
<hr color="#78A2DA">
<font face="Geneva, Arial, Helvetica, sans-serif">
<p><font color="#466DA4" size="2">При отсутствии возможности посетить семинар,
мы предлагаем приобрести видеоверсию семинара на DVD дисках или видеокассетах
(прилагается авторский раздаточный материал).<br>
<strong>Стоимость видеокурса - 4500 рублей, с учетом НДС.</strong></font></p>
<p><font color="#466DA4" size="2">На участие в семинаре и приобретение видеозаписей
оформляется полный пакет бухгалтерских документов.</font> </p>
</font>
<hr color="#78A2DA">
<p><font color="#ef7a1b" size="2" face="Geneva, Arial, Helvetica, sans-serif"><strong>КОНТАКТНЫЕ
ТЕЛЕФОНЫ: (095) 788-73-28.</strong></font> <br>
<br>
</td>
</tr>
</table>
</body>
</html>
|
|
From: Kevin G. <ke...@go...> - 2004-08-25 21:44:02
|
> log4j.appender.A3=Log::Log4perl::JavaMap::SyslogAppender
Eric, the classes under JavaMap aren't meant to be used as appenders,
they're what would translate an entry like this
log4j.appender.A3=org.apache.log4j.SyslogAppender
into something Perl can understand. If you want to use the syslog
appender, either use that line above or just do
log4j.appender.A3=Log::Dispatch::Syslog
if you don't need compatibility with Java's log4j.
Mike Schilli wrote:
> -------- Original Message --------
> Subject: Log4perl JavaMap Syslogappender
> Date: 8/24/2004, 6:24 AM
> From: COURBIER Eric <Eri...@sl...>
> To: m...@pe...
>
> Hi Mike,
>
> I've installed the Log4perl version 0.48 and try to use the JavaMap
> Syslogappender in order to send log to en remote syslog server.
>
> When i launch my script i've got this error :
>
> Can't use string ("debug") as a HASH ref while "strict refs" in use at
> /usr/lib/perl5/site_perl/5.8.1/Log/Log4perl/JavaMap/SyslogAppender.pm
> line 21
>
> Have you test the remote syslog feature ?
>
> My script
> #!/usr/bin/perl
>
> use strict;
>
> use Log::Log4perl qw(get_logger :levels);
> Log::Log4perl::init("log.conf");
>
> my $logger = get_logger("");
>
> $logger->info("principal INFO");
> $logger->error("principal ERROR");
>
>
> My log.conf
>
> ############################################################
> # A simple root logger with a Log::Log4perl::Appender::File
> # file appender in Perl.
> ############################################################
>
> log4j.rootLogger = INFO, B1, A1, A3
>
> log4j.appender.A1=Log::Dispatch::Screen
> log4j.appender.A1.layout=org.apache.log4j.PatternLayout
> log4j.appender.A1.layout.ConversionPattern=%d [%t] %-5p %c - %m%n
>
> log4j.appender.B1=Log::Dispatch::Syslog
> log4j.appender.B1.layout=Log::Log4perl::Layout::SimpleLayout
> log4j.appender.B1.name=file1
> log4j.appender.B1.min_level=info
> log4j.appender.B1.ident=CSS4
> #log4j.appender.B1.Facility=LOCAL0
> log4j.appender.B1.sysloghost=css4.slib.com
>
> log4j.appender.A3=Log::Log4perl::JavaMap::SyslogAppender
> #log4j.appender.A3=Log::Dispatch::Syslog
> log4j.appender.A3.layout=Log::Log4perl::Layout::SimpleLayout
> log4j.appender.A3.SyslogHost=zephyr.slib.com
> log4j.appender.A3.Facility=LOCAL0
> log4j.appender.A3.facility=LOCAL0
> log4j.appender.A3.name=file2
> log4j.appender.A3.min_level=debug
> log4j.appender.A3.socket=inet
> log4j.appender.A3.logopt=nowait
>
> Courbier Eric
>
>
> --
> -- Mike
> Mike Schilli
> m...@pe...
>
>
> -------------------------------------------------------
> SF.Net email is sponsored by Shop4tech.com-Lowest price on Blank Media
> 100pk Sonic DVD-R 4x for only $29 -100pk Sonic DVD+R for only $33
> Save 50% off Retail on Ink & Toner - Free Shipping and Free Gift.
> http://www.shop4tech.com/z/Inkjet_Cartridges/9_108_r285
> _______________________________________________
> 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
|
|
From: <Jam...@ub...> - 2004-08-25 10:24:10
|
Hi Mike, If you have a look at the development notes at the end of this appenders = perldoc you will notice you are specifying the = Log::Log4perl::Appender::Synchronized. I know that this is just a typo, = so no major issue, thought you would like to know. Kind Regards James Visit our website at http://www.ubs.com This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. E-mail transmission cannot be guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or contain viruses. The sender therefore does not accept liability for any errors or omissions in the contents of this message which arise as a result of e-mail transmission. If verification is required please request a hard-copy version. This message is provided for informational purposes and should not be construed as a solicitation or offer to buy or sell any securities or related financial instruments. |
|
From: francisc <chi...@1s...> - 2004-08-25 00:02:04
|
<html> <body lang=RU style='tab-interval:35.4pt'> <div class=Section1> <div align=center> <table class=MsoNormalTable border=0 cellpadding=0 width="70%" style='width:70.0%;mso-cellspacing:1.5pt;background:#00CCCC;mso-padding-alt: 0cm 5.4pt 0cm 5.4pt'> <tr style='mso-yfti-irow:0'> <td style='background:white;padding:.75pt .75pt .75pt .75pt'> <p class=MsoNormal align=center style='text-align:center'><span style='font-size:18.0pt;font-family:"Arial Black";color:#990000'>П<span class=GramE>pe</span>длaгaeм обучeниe тeнниcу!</span></p> </td> </tr> <tr style='mso-yfti-irow:1'> <td style='background:white;padding:.75pt .75pt .75pt .75pt'> <p class=MsoNormal><span style='font-family:"Comic Sans MS"'>Извините, <span class=GramE>ec</span>ли этo сообщение пришлo нe пo aдpeсу и принесло Вам неудобство.<br> Предлагаем обучение теннису - постановка техники, навыки игры. Занятия проводятся на </span><b style='mso-bidi-font-weight:normal'><span style='font-size:16.0pt;font-family:"Comic Sans MS";color:red'>открытых кортах</span></b><span style='font-family:"Comic Sans MS"'> в районах: м<span class=GramE>.Л</span>енинский проспект, м.Октябрьская, м.Воробьевы Горы, м. Фрунзенская, м. Парк культуры, м.Коньково, <span style='mso-spacerun:yes'> </span><br> Возраст обучающихся от 7 лет.<br> <b>СТОИМОСТЬ 1</b> заняти<span class=GramE>я(</span>включает оплату корта и тренера):<br> – <b style='mso-bidi-font-weight:normal'>1 час 950 руб.<o:p></o:p></b></span></p> <p class=MsoNormal><b style='mso-bidi-font-weight:normal'><span style='font-size:16.0pt;font-family:"Comic Sans MS";color:red'>В спортзала<span class=GramE>х<span style='font-size:12.0pt;color:windowtext;font-weight:normal'>(</span></span></span></b><span style='font-family:"Comic Sans MS"'>размер зала 24х12м с деревянным покрытием без забегов)<o:p></o:p></span></p> <p class=MsoNormal><span class=GramE><span style='font-family:"Comic Sans MS"'>м. Ленинский проспект, м. Шаболовская, м. Октябрьская, м. Тульская, м. Профсоюзная, м. Новые Черемушки.</span></span><span style='font-family:"Comic Sans MS"'><o:p></o:p></span></p> <p class=MsoNormal><b><span style='font-family:"Comic Sans MS"'>СТОИМОСТЬ 1</span></b><span style='font-family:"Comic Sans MS"'> заняти<span class=GramE>я(</span>включает оплату зала и тренера):- <b style='mso-bidi-font-weight:normal'>1 час 750 руб.</b><br> <br> <b>ОПЛАТА</b> производится за <b>4</b> занятия. Возможны занятия в группах от <b style='mso-bidi-font-weight:normal'>2</b> до <b style='mso-bidi-font-weight: normal'>4</b> человек, если Вы сами можете их сформировать.</span></p> </td> </tr> <tr style='mso-yfti-irow:2;mso-yfti-lastrow:yes'> <td style='background:white;padding:.75pt .75pt .75pt .75pt'> <p class=MsoNormal align=center style='text-align:center'><u><span style='color:#CC0000'>НЕ ЗАНИМАЕМСЯ ПОДГОТОВКОЙ ПРОФЕССИОНАЛЬНЫХ СПОРТСМЕНОВ И СДАЧЕЙ КОРТОВ В АРЕНДУ!</span></u><br> <span style='font-size:24.0pt;color:#990000'>Тел.: 8926</span><span lang=EN-US style='font-size:24.0pt;color:#990000;mso-ansi-language:EN-US'>-</span><span style='font-size:24.0pt;color:#990000'>5265144 </span><span style='font-size: 24.0pt;color:#0000CC'>E-mail: <A HREF="mailto:ten...@gm...">ten...@gm...</A> </td> </tr> </table> </div> </body> </html> |
|
From: Mike S. <m...@pe...> - 2004-08-24 20:25:43
|
Lee Carmichael wrote on 8/24/2004, 11:51 AM: > It > just means I need to be more careful about verifying > the date has actually changed before switching the log > file because I would guess there is a performance > cost. I think Log::Dispatch::FileRotate does that in a fairly efficient manner. You could probably get a couple of ideas from looking at its source code. -- -- Mike Mike Schilli m...@pe... |
|
From: Lee C. <lec...@ya...> - 2004-08-24 18:51:12
|
Hello Mike, > switch the name during runtime, I suggest overriding > log() and using > switch_file() if desired. Would this be an option? Thanks for the advice. I think I will try overriding the 'log' method and use the 'switch_file' method. It just means I need to be more careful about verifying the date has actually changed before switching the log file because I would guess there is a performance cost. Thanks again, Lee __________________________________ Do you Yahoo!? Yahoo! Mail Address AutoComplete - You start. We finish. http://promotions.yahoo.com/new_mail |
|
From: Mike S. <m...@pe...> - 2004-08-24 18:12:16
|
-------- Original Message --------
Subject: Log4perl JavaMap Syslogappender
Date: 8/24/2004, 6:24 AM
From: COURBIER Eric <Eri...@sl...>
To: m...@pe...
Hi Mike,
I've installed the Log4perl version 0.48 and try to use the JavaMap
Syslogappender in order to send log to en remote syslog server.
When i launch my script i've got this error :
Can't use string ("debug") as a HASH ref while "strict refs" in use at
/usr/lib/perl5/site_perl/5.8.1/Log/Log4perl/JavaMap/SyslogAppender.pm
line 21
Have you test the remote syslog feature ?
My script
#!/usr/bin/perl
use strict;
use Log::Log4perl qw(get_logger :levels);
Log::Log4perl::init("log.conf");
my $logger = get_logger("");
$logger->info("principal INFO");
$logger->error("principal ERROR");
My log.conf
############################################################
# A simple root logger with a Log::Log4perl::Appender::File
# file appender in Perl.
############################################################
log4j.rootLogger = INFO, B1, A1, A3
log4j.appender.A1=Log::Dispatch::Screen
log4j.appender.A1.layout=org.apache.log4j.PatternLayout
log4j.appender.A1.layout.ConversionPattern=%d [%t] %-5p %c - %m%n
log4j.appender.B1=Log::Dispatch::Syslog
log4j.appender.B1.layout=Log::Log4perl::Layout::SimpleLayout
log4j.appender.B1.name=file1
log4j.appender.B1.min_level=info
log4j.appender.B1.ident=CSS4
#log4j.appender.B1.Facility=LOCAL0
log4j.appender.B1.sysloghost=css4.slib.com
log4j.appender.A3=Log::Log4perl::JavaMap::SyslogAppender
#log4j.appender.A3=Log::Dispatch::Syslog
log4j.appender.A3.layout=Log::Log4perl::Layout::SimpleLayout
log4j.appender.A3.SyslogHost=zephyr.slib.com
log4j.appender.A3.Facility=LOCAL0
log4j.appender.A3.facility=LOCAL0
log4j.appender.A3.name=file2
log4j.appender.A3.min_level=debug
log4j.appender.A3.socket=inet
log4j.appender.A3.logopt=nowait
Courbier Eric
--
-- Mike
Mike Schilli
m...@pe...
|
|
From: Mike S. <m...@pe...> - 2004-08-24 17:34:22
|
Lee Carmichael wrote on 8/24/2004, 6:25 AM:
> There has been a request by our
> ops folks to make the logs use a daily date format.
Hmm, it looks like your requirement of a log file name based on the
current date could be met by the "Rolling File Appender", see this FAQ:
http://log4perl.sourceforge.net/d/Log/Log4perl/FAQ.html#923b3
However, if you still want to derive a class from L4p::Appender::File
(or from your directory class), here's a couple of comments:
Currently, there's two different methods in Log::Log4perl::Appender::File
which are setting/modifying the filename: The constructor new()
and the switch_file() method. Both take the file name as a parameter.
Changing the internal {filename} attribute has no effect, it won't log
to a different file unless switch_file() is called.
So, I would recommend that the derived class doesn't override
file_open() or filename(), but comes with its own constructor, calling
the base class constructor with the desired file name. If you need to
switch the name during runtime, I suggest overriding log() and using
switch_file() if desired. Would this be an option?
--
-- Mike
Mike Schilli
m...@pe...
|
|
From: Lee C. <lec...@ya...> - 2004-08-24 13:25:14
|
Hello Mike,
> I typically use the term "derived class".
As yes. It was the end of a long day. Thank you.
> Can you provide more details on what the derived
> class will be provide
> differently than the base class? If you're
> overriding filename(), you
> probably also have to override the constructor,
> which doesn't leave much
> base class functionality left.
Sure. Basically I have one derived class that creates
a sub directory to put the logfile in if a MDC key =>
value have been set. There has been a request by our
ops folks to make the logs use a daily date format. My
plan was to leave the sub directory class alone and
just derive another class from it where I used the
'Date::Format' modules 'time2str' to allow the format
to be set in the configuration then override the
'filename' method to call the 'time2str' function for
the name so this was continually updated with the
correct date instead of ever setting/updating the
'filename' attribute. This way the filename value is
always the log pattern not the actual date but the
filename when used by 'file_open' is the real date. It
does mean I have to make a constructor but this inits
one attribute for my class and calls the constructor
for the super class. I thought about doing it with the
by overriding the log method and just continuely
updating the logfile with the 'file_switch' but it
seemed just as easy to do it this way.
I have attached the second class, it isn't very long.
In this one, I am accessing the internal 'filename'
attribute but I meant to update this to use my own
value.
sub new
{
my($class, %options) = @_;
my $self = $class->SUPER::new(%options);
$self->{'ofilename'} = $options{'filename'};
bless($self, $class);
return($self);
}
sub filename
{
my $self = shift;
## the 'filename' here could be a differ attribute
for only this class
return time2str($self->{filename}, time());
}
Thanks for your time,
Lee
_______________________________
Do you Yahoo!?
Win 1 of 4,000 free domain names from Yahoo! Enter now.
http://promotions.yahoo.com/goldrush
|
|
From: Mike S. <m...@pe...> - 2004-08-24 00:46:13
|
Lee Carmichael wrote on 8/23/2004, 3:37 PM: > I have run across a slight problem or a request for a > new feature with the Log::Log4perl::Appender::File.pm > module. I asked for a filename method to access the > 'filename' attribute but now I want to override the > 'filename' attribute in a child module (what is the > correct OO term for something down the tree in > inheritence...?) I typically use the term "derived class". > The problem is that the 'file_open' > method/sub uses the attribute not the method so if I > override 'filename' method it doesn't get used by the > 'file_open'. I have patched (and included) diff for > the 'File.pm' to use the method instead of the > attribute. I could have override the 'file_open' > method but that is more than the three lines to > override the 'filename' method... Yes I am very lazy. > ;) Can you provide more details on what the derived class will be provide differently than the base class? If you're overriding filename(), you probably also have to override the constructor, which doesn't leave much base class functionality left. -- -- Mike Mike Schilli m...@pe... |
|
From: Lee C. <lec...@ya...> - 2004-08-23 22:37:21
|
Hello Everyone, I have run across a slight problem or a request for a new feature with the Log::Log4perl::Appender::File.pm module. I asked for a filename method to access the 'filename' attribute but now I want to override the 'filename' attribute in a child module (what is the correct OO term for something down the tree in inheritence...?) The problem is that the 'file_open' method/sub uses the attribute not the method so if I override 'filename' method it doesn't get used by the 'file_open'. I have patched (and included) diff for the 'File.pm' to use the method instead of the attribute. I could have override the 'file_open' method but that is more than the three lines to override the 'filename' method... Yes I am very lazy. ;) Let me know if this sounds odd or if I'm asking for wildly bad things? Thanks and keep up the great work, Lee __________________________________ Do you Yahoo!? Yahoo! Mail - You care about security. So do we. http://promotions.yahoo.com/new_mail |
|
From: acacia <su...@t-...> - 2004-08-23 16:39:04
|
Прохлада и нежность постельного белья от www.mypresent.ru для самых жарких ночей. |
|
From: <st...@eu...> - 2004-08-23 13:07:17
|
Кондиционеры! Окна ПВХ! Жалюзи! Натяжные потолки! Строй. материалы! МЫ ПРИЕЗЖАЕМ НА ЗАМЕР С 7.30 ДО 23.00!!! 7 ДНЕЙ В НЕДЕЛЮ!!! Без выходных и праздников!!! У нас действует услуга - КОНДИЦИОНЕР ЗА 8 ЧАСОВ!!! Вы получаете, установленный у Вас кондиционер после оплаты, в течение 8 часов!!! (утром деньги - вечером стулья!) Hitachi, Panasonic, DAEWOO, LG, SAMSUNG, Fuji, HYUNDAI, Toshiba, DAIKIN, Mitsubishi, по низким ценам! Более 100 моделей! Сплит-система, помещение 18 кв. метров: SAMSUNG-05 - $480!!! DAEWOO-07 - $495!!! LG-05 - $495!!! Сплит-система, помещение 21 кв. метр: Hitachi-07 - $670!!! Panasonic-07 - $590!!! Натяжные потолки, помещение 20 кв. м. $579!!! Отверстие под люстру - $10, под трубу - $10. Сплит-система, помещение 25 кв. метров: SAMSUNG-09 - $550!!! DAEWOO-09 - $560!!! LG-09 - $595!!! Цены включают в себя доставку, расходные материалы, монтаж кондиционера! Жалюзи на окна, лоджии!!! Вертикальные, горизонтальные, рольставни, защитные - от $6 за кв. м. Профилактические работы, 1 конд. - $45! Осуществляем продажу и доставку строительных материалов! Гарантийное (от 1 года до 3 лет!) и послегарантийное обслуживания! Большой опыт работы! Тел.: (095) 508-7591, 504-8630, 976-90-74. |
|
From: Mike S. <m...@pe...> - 2004-08-21 19:33:39
|
Hi all,
just sent Log::Log4perl 0.48 to Sourceforge, here's what's been changed:
(08/20/2004)
* (ms) fixed bug reported by Chip Salzenberg <ch...@po...>: logdie()
and logwarn() are now compliant with the warn() and die()
standard which suppresses the "at file line x" message if
the message ends with a "\n".
* (ms) New interface for custom config parsers.
Log::Log4perl::Config::BaseConfigurator now provides a base
class
for new config parsers. Init can now be called like
Log::Log4perl->init($parser) with a parser object, which is
derived from Log::Log4perl::Config::BaseConfigurator and
provides a parse() method (no arguments). The file (or whatever)
to be parsed can be set by calling $parser->text(\@lines) or
$parser->file($name) before calling L4p->init($parser).
The Property, DOM and LDAP configurators have been
adapted, check their implementation for details.
* (ms) Added integrity check for Log4perl configurations: Log4perl
now issues a warning if a configuration doesn't define any
appenders. Should anyone not like this, it can be turned
off by setting $L4p::Config::CONFIG_INTEGRITY_CHECK = 0
before calling init().
* (ms) Fixed bug reported by Johannes Kilian <jo...@vi...>
with __DIE__ handler and "PatternLayout" shortcut. Replaced
'eval { require ... }' by L4p::Util::module_available in
L4p::Config.pm.
* (ms) Did away with $IS_LOADED internal variable.
* (ms) Fixed bug with L4p::INITIALIZED vs. L4P::Logger::INITIALIZED,
added t/020Easy2.t.
* (ms) Added adm/cvskwexp script to check if we're running into CVS
trouble because of <dollar>Log keyword expansion.
Let me know if you see any problems, if all goes well, it'll hit CPAN in
a couple of days.
--
-- Mike
Mike Schilli
m...@pe...
|
|
From: William M. <wi...@kn...> - 2004-08-19 19:09:55
|
Mike, Ignore my previous post. I found another place in my code where I was calling init which was passing in the variable as a scalar ref (yes, I know that's bad style; I'm trying to mend my ways). Thanks for the hint! William -- Knowmad Services Inc. http://www.knowmad.com |
|
From: William M. <wi...@kn...> - 2004-08-19 18:18:38
|
On Thu, Aug 19, 2004 at 08:23:32AM -0700, Mike Schilli wrote:
> > Use of uninitialized value in split at
> > /home/quicktel/QT-Web/t/../perl5/Log/Log4perl/Config.pm line 523.
>
> This would indicate that you're passing a string reference to init() --
> but it should be a string in case you want to read in a file. Can you
> send the code snippet?
Here's the code:
my $l4p_config = $cfg->{'projectdir'} . "/" . $cfg->{'log4perl_config_file'};
warn "Log4perl is reading config from $l4p_config\n";
Log::Log4perl->init($l4p_config);
$cfg contains a hashref with settings values. The warning outputs the
following:
Log4perl is reading config from /home/quicktel/QT-Web/t/conf/log4perl.cfg
Thanks,
William
--
Knowmad Services Inc.
http://www.knowmad.com
|
|
From: William M. <wi...@kn...> - 2004-08-18 20:23:37
|
Hi Mike and Kevin, I just upgraded to v0.47 and am seeing the following error message in my logs when running with warnings: Name "Log::Dispatch::File::IS_LOADED" used only once: possible typo at perl5/Log/Log4perl/Appender.pm line 54. Name "Log::Log4perl::Appender::Screen::IS_LOADED" used only once: possible typo at perl5/Log/Log4perl/Appender.pm line 54. Is this a known problem? I did an assignment to a local variable on the line above to avoid it. There's probably a better solution though. Thanks, William -- Knowmad Services Inc. http://www.knowmad.com |
|
From: Mike S. <m...@pe...> - 2004-08-18 14:30:24
|
Johannes Kilian wrote on 8/18/2004, 6:00 AM:
> SIG{__DIE__} = sub {
> print STDERR @_;
> exit;
> };
Wow, that's an interesting bug, you can work around it by specifying
log4perl.appender.Logfile.layout = \
Log::Log4perl::Layout::PatternLayout
instead of
log4perl.appender.Logfile.layout = PatternLayout
I need to investigate why this happens, here's a snippet to reproduce it:
$SIG{__DIE__} = sub {
print STDERR @_;
exit;
};
use Log::Log4perl qw(get_logger);
my $conf = q(
log4perl.category.Bar.Twix = WARN, Logfile
log4perl.appender.Logfile = Log::Log4perl::Appender::File
log4perl.appender.Logfile.filename = test.log
log4perl.appender.Logfile.layout = PatternLayout
log4perl.appender.Logfile.layout.ConversionPattern = %m%n
);
Log::Log4perl::init(\$conf);
my $logger = get_logger("Bar::Twix");
$logger->error("Blah");
--
-- Mike
Mike Schilli
m...@pe...
|
|
From: Johannes K. <jo...@vi...> - 2004-08-18 12:59:01
|
Hi there,
I tried to use my own DIE-Handler in my main application using:
-------------------------
SIG{__DIE__} = sub {
print STDERR @_;
exit;
};
-------------------------
Using this, log4perl runs into the handler. The produced Output is:
------------------------
Can't locate PatternLayout.pm in @INC (@INC contains:
..D:/PCTK_Builddatenbank/Pctk_branch_ref_3194/bin/../lib .
C:\Programme\ActiveState Komodo 3.0\dbgp\perllib D:/usr/perl/lib
D:/Perl/lib D:/Perl/site/lib) at (eval 114)
[D:/Perl/site/lib/Log/Log4perl/Config.pm:419] line 3, line 5.
------------------------
PatternLayout.pm is definitivly available at
D:/Perl/site/lib/log/log4perl/layout (The place where it should be ....)
Disabling my DIE-Handler everything works fine ...
Using log:log4perl Version 0.47, ActivePerl 5.8.4
Any idea?
Johannes
|
|
From: Bobby N. <bwn...@fe...> - 2004-08-16 22:24:03
|
Mike,
Looks like I spoke a bit too soon. When I try to use 0.48_01, I get
lots of compilation errors revolving around the
Log::Log4perl::Config::BaseConfigurator module. =20
Here's a sample of output from "make test":
t/048lwp.............Can't locate
Log/Log4perl/Config/BaseConfigurator.pm in @INC (@INC contains:
/c/Documents and Settings/388572/Desktop/Log-Log4perl-0.48_01/blib/lib
/c/Documents and Settings/388572/Desktop/Log-Log4perl-0.48_01/blib/arch
/usr/lib/perl5/5.8.2/cygwin-thread-multi-64int
/usr/lib/perl5/5.8.2/cygwin-thread-multi-64int /usr/lib/perl5/5.8.2
/usr/lib/perl5/site_perl/5.8.2/cygwin-thread-multi-64int
/usr/lib/perl5/site_perl/5.8.2/cygwin-thread-multi-64int
/usr/lib/perl5/site_perl/5.8.2
/usr/lib/perl5/site_perl/5.8.2/cygwin-thread-multi-64int
/usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl .
/usr/lib/perl5/5.8.2/cygwin-thread-multi-64int /usr/lib/perl5/5.8.2
/usr/lib/perl5/site_perl/5.8.2/cygwin-thread-multi-64int
/usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl .) at
/c/Documents and
Settings/388572/Desktop/Log-Log4perl-0.48_01/blib/lib/Log/Log4perl/Confi
g/PropertyConfigurator.pm line 2.
BEGIN failed--compilation aborted at /c/Documents and
Settings/388572/Desktop/Log-Log4perl-0.48_01/blib/lib/Log/Log4perl/Confi
g/PropertyConfigurator.pm line 2.
<pause />
Never mind, I grabbed it from the viewcvs page, and everything is back
up and running. You might want to take a look at your build script to
see why it seemed to have skipped it.
Thanks,
Bobby
-----Original Message-----
From: Bobby Nations=20
Sent: Wednesday, August 11, 2004 10:25 AM
To: 'Mike Schilli'
Cc: log...@li...
Subject: RE: [log4perl-devel] Log4Perl and CVS enhancement
Mike,
That looks great! I'll roll it into our projects and use it from now
on. Thanks for the change.
Cheers,
Bobby
-----Original Message-----
From: Mike Schilli [mailto:m...@pe...]=20
Sent: Wednesday, August 11, 2004 3:49 AM
To: Bobby Nations
Cc: log...@li...
Subject: Re: [log4perl-devel] Log4Perl and CVS enhancement
Bobby Nations wrote on 8/10/2004, 8:19 AM:
> Would you please change the above two files so that they no longer
match
> the regular expression, "\$Log.*\\$"? This would really help out
folks
> in the field.
Interesting, the current code seems to work fine with sourceforge's CVS=20
-- but I remember we've had issues with code matching $Log...$ patterns=20
in the past. I've reformatted the susceptible sections in Config.pm and=20
Logger.pm, please check if this dev release resolves your issues:
http://perlmeister.com/tmp/Log-Log4perl-0.48_01.tar.gz
--
-- Mike
Mike Schilli
m...@pe...
|
|
From: Bobby N. <bwn...@fe...> - 2004-08-16 21:59:02
|
Mike,
Looks like I spoke a bit too soon. When I try to use 0.48_01, I get
lots of compilation errors revolving around the
Log::Log4perl::Config::BaseConfigurator module. =20
Here's a sample of output from "make test":
t/048lwp.............Can't locate
Log/Log4perl/Config/BaseConfigurator.pm in @INC (@INC contains:
/c/Documents and Settings/388572/Desktop/Log-Log4perl-0.48_01/blib/lib
/c/Documents and Settings/388572/Desktop/Log-Log4perl-0.48_01/blib/arch
/usr/lib/perl5/5.8.2/cygwin-thread-multi-64int
/usr/lib/perl5/5.8.2/cygwin-thread-multi-64int /usr/lib/perl5/5.8.2
/usr/lib/perl5/site_perl/5.8.2/cygwin-thread-multi-64int
/usr/lib/perl5/site_perl/5.8.2/cygwin-thread-multi-64int
/usr/lib/perl5/site_perl/5.8.2
/usr/lib/perl5/site_perl/5.8.2/cygwin-thread-multi-64int
/usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl .
/usr/lib/perl5/5.8.2/cygwin-thread-multi-64int /usr/lib/perl5/5.8.2
/usr/lib/perl5/site_perl/5.8.2/cygwin-thread-multi-64int
/usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl .) at
/c/Documents and
Settings/388572/Desktop/Log-Log4perl-0.48_01/blib/lib/Log/Log4perl/Confi
g/PropertyConfigurator.pm line 2.
BEGIN failed--compilation aborted at /c/Documents and
Settings/388572/Desktop/Log-Log4perl-0.48_01/blib/lib/Log/Log4perl/Confi
g/PropertyConfigurator.pm line 2.
Do I need another module or something as well? =20
Thanks,
Bobby
-----Original Message-----
From: Bobby Nations=20
Sent: Wednesday, August 11, 2004 10:25 AM
To: 'Mike Schilli'
Cc: log...@li...
Subject: RE: [log4perl-devel] Log4Perl and CVS enhancement
Mike,
That looks great! I'll roll it into our projects and use it from now
on. Thanks for the change.
Cheers,
Bobby
-----Original Message-----
From: Mike Schilli [mailto:m...@pe...]=20
Sent: Wednesday, August 11, 2004 3:49 AM
To: Bobby Nations
Cc: log...@li...
Subject: Re: [log4perl-devel] Log4Perl and CVS enhancement
Bobby Nations wrote on 8/10/2004, 8:19 AM:
> Would you please change the above two files so that they no longer
match
> the regular expression, "\$Log.*\\$"? This would really help out
folks
> in the field.
Interesting, the current code seems to work fine with sourceforge's CVS=20
-- but I remember we've had issues with code matching $Log...$ patterns=20
in the past. I've reformatted the susceptible sections in Config.pm and=20
Logger.pm, please check if this dev release resolves your issues:
http://perlmeister.com/tmp/Log-Log4perl-0.48_01.tar.gz
--
-- Mike
Mike Schilli
m...@pe...
|
|
From: hongphuc <pr...@t-...> - 2004-08-16 15:17:48
|
<html>
<body bgcolor="#e1c07d">
<table width="700" height="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="C4A347" bgcolor="#faf2e7">
<tr>
<td valign="top"><p align="center"><font color="#466DA4" face="Geneva, Arial, Helvetica, sans-serif"><strong><br>
<br>
<font color="#B87A00" face="Georgia, Times New Roman, Times, serif">Образовательный
Центр</font></strong></font><font color="#B87A00" face="Georgia, Times New Roman, Times, serif"><br>
<font size="3">приглашает руководителей предприятий, организаций, <br>
учреждений всех форм собственности, руководителей кадровых служб</font></font><font color="#B87A00" size="3"><font face="Geneva, Arial, Helvetica, sans-serif">
</font></font></p>
<hr width="98%" size="1" color="#C4A347">
<p align="center"><font color="#B87A00" size="3" face="Georgia, Times New Roman, Times, serif">принять
участие в зарубежном семинаре:</font><font color="#B87A00" size="3" face="Georgia, Times New Roman, Times, serif"><strong><br>
"Управление персоналом: мастерство и искусство",<br>
</strong>проведение
которого запланировано</font><font color="#466DA4" size="3" face="Georgia, Times New Roman, Times, serif"><br>
<strong><font color="#ef7a1b">в Греции (Афины - Лутраки) с<font face="Geneva, Arial, Helvetica, sans-serif">
29.09.2004</font> г. по <font face="Geneva, Arial, Helvetica, sans-serif">04.10.2004</font>.</font></strong></font><font color="#466DA4" size="3" face="Geneva, Arial, Helvetica, sans-serif">
</font></p>
<hr width="98%" size="1" color="#C4A347">
<div align="center"><font color="#466DA4" size="2" face="Geneva, Arial, Helvetica, sans-serif">
<br>
<strong> <font color="#B87A00"> <font size="3" face="Georgia, Times New Roman, Times, serif">Внимание!!!</font></font></strong><font color="#B87A00" size="3" face="Georgia, Times New Roman, Times, serif">
Затраты на участие в семинаре относятся на себестоимость. </font></font><font color="#B87A00" size="3" face="Georgia, Times New Roman, Times, serif">
</font> </div>
<div align="justify"><font face="Geneva, Arial, Helvetica, sans-serif">
<p align="center"><font color="#B87A00" size="3" face="Georgia, Times New Roman, Times, serif"><strong> Стоимость
семинара:</strong> 1570 евро (включая НДС, по курсу ЦБ на день оплаты).</font></p>
</font>
<hr align="center" width="98%" size="1" color="#C4A347">
<div align="center"><font color="#466DA4" size="2" face="Geneva, Arial, Helvetica, sans-serif"><font color="#B87A00"><br>
<font size="3" face="Georgia, Times New Roman, Times, serif">Зарегистрироваться для участия в семинаре и получить<br>
дополнительную информацию Вы можете по <strong>телефону</strong>:</font></font></font>
</div>
<p align="center"><font color="#ef7a1b" size="2" face="Geneva, Arial, Helvetica, sans-serif"><strong> <font face="Verdana, Arial, Helvetica, sans-serif"> <font size="3" face="Geneva, Arial, Helvetica, sans-serif">(095)
788-73-28</font></font></strong></font><br>
</p>
</div>
</td>
</tr>
</table>
</body>
</html>
|
|
From: Mike S. <m...@pe...> - 2004-08-16 02:24:01
|
Hi all,
there was a complaint a while ago that even nonsensical Log4perl config
files are parsed and loaded without complaints.
The patch below implements a check in Log4perl::init() to verify that
what we've read is a somewhat valid configuration. It issues a warning
if no appenders have been defined at all.
Let me know if you see any issues, just want to make sure we're not
breaking any old code.
--
-- Mike
Mike Schilli
m...@pe...
Index: Changes
===================================================================
RCS file: /cvsroot/log4perl/Log-Log4perl/Changes,v
retrieving revision 1.198
diff -a -u -r1.198 Changes
--- Changes 16 Aug 2004 01:28:10 -0000 1.198
+++ Changes 16 Aug 2004 02:18:37 -0000
@@ -17,6 +17,11 @@
$parser->file($name) before calling L4p->init($parser).
The Property, DOM and LDAP configurators have been
adapted, check their implementation for details.
+ * (ms) Added integrity check for Log4perl configurations: Log4perl
+ now issues a warning if a configuration doesn't define any
+ appenders. Should anyone not like this, it can be turned
+ off by setting $L4p::Config::CONFIG_INTEGRITY_CHECK = 0
+ before calling init().
0.47 (07/11/2004)
* (ms) Added suggestion by Hutton Davidson <Dav...@ft...>
Index: lib/Log/Log4perl/Config.pm
===================================================================
RCS file: /cvsroot/log4perl/Log-Log4perl/lib/Log/Log4perl/Config.pm,v
retrieving revision 1.62
diff -a -u -r1.62 Config.pm
--- lib/Log/Log4perl/Config.pm 16 Aug 2004 01:28:11 -0000 1.62
+++ lib/Log/Log4perl/Config.pm 16 Aug 2004 02:18:39 -0000
@@ -16,7 +16,9 @@
use constant _INTERNAL_DEBUG => 0;
-our $CONFIG_FILE_READS = 0;
+our $CONFIG_FILE_READS = 0;
+our $CONFIG_INTEGRITY_CHECK = 1;
+our $CONFIG_INTEGRITY_ERROR = undef;
# How to map lib4j levels to Log::Dispatch levels
my @LEVEL_MAP_A = qw(
@@ -269,6 +271,24 @@
#now we're done, set up all the output methods (e.g. ->debug('...'))
Log::Log4perl::Logger::reset_all_output_methods();
+
+ #Run a sanity test on the config not disabled
+ if($Log::Log4perl::Config::CONFIG_INTEGRITY_CHECK and
+ !config_is_sane()) {
+ warn "Log::Log4perl configuration looks suspicious: ",
+ "$CONFIG_INTEGRITY_ERROR";
+ }
+}
+
+##################################################
+sub config_is_sane {
+##################################################
+ if(scalar keys %Log::Log4perl::Logger::APPENDER_BY_NAME == 0) {
+ $CONFIG_INTEGRITY_ERROR = "No appenders defined";
+ return 0;
+ }
+
+ return 1;
}
##################################################
Index: t/004Config.t
===================================================================
RCS file: /cvsroot/log4perl/Log-Log4perl/t/004Config.t,v
retrieving revision 1.18
diff -a -u -r1.18 004Config.t
--- t/004Config.t 16 Aug 2004 01:28:11 -0000 1.18
+++ t/004Config.t 16 Aug 2004 02:18:39 -0000
@@ -7,15 +7,19 @@
# change 'tests => 1' to 'tests => last_test_to_print';
#########################
use Test::More;
-BEGIN { plan tests => 12 };
+BEGIN { plan tests => 13 };
use Log::Log4perl;
use Log::Log4perl::Appender::TestBuffer;
+use File::Spec;
my $EG_DIR = "eg";
$EG_DIR = "../eg" unless -d $EG_DIR;
-ok(1); # If we made it this far, we are ok.
+my $TMP_FILE = File::Spec->catfile(qw(t tmp warnings));
+$TMP_FILE = "tmp/warnings" if ! -d "t";
+
+ok(1, "Startup"); # If we made it this far, we are ok.
######################################################################
# Test the root logger on a configuration file defining a file appender
@@ -27,7 +31,7 @@
like(Log::Log4perl::Appender::TestBuffer->by_name("A1")->buffer(),
- qr#^\d+\s+\[N/A\] DEBUG N/A - Gurgel$#);
+ qr#^\d+\s+\[N/A\] DEBUG N/A - Gurgel$#, "Root logger");
######################################################################
# Test the root logger via inheritance (discovered by Kevin Goess)
@@ -40,7 +44,7 @@
$logger->debug("Gurgel");
like(Log::Log4perl::Appender::TestBuffer->by_name("A1")->buffer(),
- qr#^\d+\s+\[N/A\] DEBUG foo N/A - Gurgel$#);
+ qr#^\d+\s+\[N/A\] DEBUG foo N/A - Gurgel$#, "Root logger inherited");
######################################################################
# Test init with a string
@@ -58,7 +62,7 @@
$logger->debug("Gurgel");
like(Log::Log4perl::Appender::TestBuffer->by_name("A1")->buffer(),
- qr#^\d+\s+\[N/A\] DEBUG foo - Gurgel$#);
+ qr#^\d+\s+\[N/A\] DEBUG foo - Gurgel$#, "Init via string");
######################################################################
# Test init with a hashref
@@ -79,7 +83,7 @@
$logger->debug("Gurgel");
like(Log::Log4perl::Appender::TestBuffer->by_name("A1")->buffer(),
- qr#^\d+\s+\[N/A\] DEBUG foo - Gurgel$#);
+ qr#^\d+\s+\[N/A\] DEBUG foo - Gurgel$#, "Init via hashref");
############################################################
@@ -137,10 +141,10 @@
# },
-is($stub_hook->{P}{login}{hostname}, 'a.jabber.server');
-is($stub_hook->{P}{login}{password}, 'bunny');
-is($stub_hook->{P}{to}[0], 'elmer@a.jabber.server');
-is($stub_hook->{P}{to}[1], 'sa...@an...rver');
+is($stub_hook->{P}{login}{hostname}, 'a.jabber.server', "Config and
Jabber");
+is($stub_hook->{P}{login}{password}, 'bunny', "Config and Jabber");
+is($stub_hook->{P}{to}[0], 'elmer@a.jabber.server', "Config and Jabber");
+is($stub_hook->{P}{to}[1], 'sa...@an...rver', "Config and
Jabber");
##########################################################################
# Test what happens if we define a PatternLayout without ConversionPattern
@@ -160,7 +164,7 @@
#actually, it turns out that log4j handles this, if no ConversionPattern
#specified is uses DEFAULT_LAYOUT_PATTERN, %m%n
#ok($@, '/No ConversionPattern given for PatternLayout/');
-is($@, '');
+is($@, '', 'PatternLayout without ConversionPattern');
######################################################################
# Test with $/ set to undef
@@ -172,7 +176,7 @@
$logger->debug("Gurgel");
like(Log::Log4perl::Appender::TestBuffer->by_name("A1")->buffer(),
- qr#^\d+\s+\[N/A\] DEBUG N/A - Gurgel$#);
+ qr#^\d+\s+\[N/A\] DEBUG N/A - Gurgel$#, "Config in slurp mode");
######################################################################
# Test init with a config parser object
@@ -194,5 +198,21 @@
$logger->debug("Gurgel");
is(Log::Log4perl::Appender::TestBuffer->by_name("A1")->buffer(),
- "objectGurgel\n");
+ "objectGurgel\n", "Init with parser object");
+
+######################################################################
+# Test integrity check
+######################################################################
+open STDERR, ">$TMP_FILE";
+open IN, "<$TMP_FILE" or die "Cannot open $TMP_FILE";
+sub readwarn { return scalar <IN>; }
+END { close IN }
+
+Log::Log4perl->init(\ <<EOT);
+ # Just an empty configuration
+EOT
+
+like(readwarn(), qr/looks suspicious: No appenders/,
+ "Test integrity check on empty conf file");
+unlink $TMP_FILE;
|
|
From: Felix S. <fe...@sc...> - 2004-08-15 23:21:05
|
Hi Mike, Mike wrote: > Felix Schwarz wrote on 8/15/2004, 10:35 AM: > > But the user may say "programm --verbose" or > > something similar and expects that the loglevel will go up (logging > > more). > > > > Is there a way changing to the loglevel from its defaults in the file > > (INFO) to DEBUG? > Yes, there is. Here's a description on how to increase/decrease log > levels based on command line options: > http://log4perl.sourceforge.net/d/Log/Log4perl.html#1eaf0 > Let us know if that's what you're looking for. Thanks a lot. That was exactly what I was looking for. -- Felix |
|
From: Mike S. <m...@pe...> - 2004-08-15 18:40:57
|
Felix Schwarz wrote on 8/15/2004, 10:35 AM:
> But the user may say "programm --verbose" or
> something similar and expects that the loglevel will go up (logging
> more).
>
> Is there a way changing to the loglevel from its defaults in the file
> (INFO) to DEBUG?
Yes, there is. Here's a description on how to increase/decrease log
levels based on command line options:
http://log4perl.sourceforge.net/d/Log/Log4perl.html#1eaf0
Let us know if that's what you're looking for.
--
-- Mike
Mike Schilli
m...@pe...
|
139 messages has been excluded from this view by a project administrator.
