log4perl-devel — Ongoing log4perl development

Re: [log4perl-devel] Question

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

Yee, I think the answer is no, unless you're using an XML config file, 
in which case the parser should complain.

The properties-style files are so loosely structured that things that 
don't look like name/value lines simply don't trigger any actions.

I think properties files under java are going to have the same problems, 
but I don't have time to test them right now:
http://java.sun.com/j2se/1.3/docs/api/java/util/Properties.html#load(java.io.InputStream)

Yee,Bradley [Ontario] wrote:
> Hey there,
> 
> Is there a way to verify that a log config file is actually a config 
> file?  I.e..  If I were to rename an image file to the log config file 
> and use that as the config my perl script would run as though there was 
> no error but no logging would occur.
> 
> Thanks
> 
> Bradley Yee
> 

-- 
Happy Trails . . .

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

[log4perl-devel] Question

[Yee,Bradley [Ontario] <Bra...@ec...>]

Hey there,

Is there a way to verify that a log config file is actually a config
file?  I.e..  If I were to rename an image file to the log config file
and use that as the config my perl script would run as though there was
no error but no logging would occur.

Thanks

Bradley Yee

Re: [log4perl-devel] First Stab at Circular References

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

Ignoring for now the question of memory leaks

Ignorin
> Didn't my patch work with Tim's code? I added END { $? = 255 } to Tim's 
> snippet and it exited correctly with 255.

But Tim shouldn't have to add END blocks to his code.  I believe the 
problem can be summarized by this code:

------------------------
#!/usr/bin/perl

sub cleanup {
     `/bin/true`; #some shell call
}
die "arrgh";
END{cleanup()}
------------------------

If you run that like this

./test.pl && echo "program ran sucessfully"

you should *not* see the success message, because it *died*.  It looks 
to me like the $? from cleanup() is overriding the result of the die().

Tim is calling logdie() and getting a successful exit code from his 
script because deep in the guts of Mail::Mailer there's shell code 
calling the mailer program that's succeeding.  That success value seems 
to be what his script is exiting with.  Log4perl shouldn't be changing 
exit values to 'success' just because some appender has a successful 
shell function.

The test script runs as expected if you change the END block to

	END{local($?); cleanup()}

In that case, Tim's script also runs as expected, without the addition 
of an additional END block.

So we're not localzing during the GDP, we're making sure all the cleanup 
happens before the GDP.

How does that sound?  I feel like I'm not being clear, and I don't know 
why, but I do think this is the right track.


-- 
Happy Trails . . .

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

[log4perl-devel] =?Windows-1251?B?zuHz9+Xt6OU=?=

[ned <br...@t-...>]

Уважаемые господа!
Предлагаем Вам 3 июня принять
участие в однодневном семинаре на тему
:  
«Учет амортизируемого имущества»
     Программа семинара.
     1.      Понятие амортизируемого имущества. Различие в терминологии: «основные средства», «нематериальные
     активы», 
     «амортизируемое имущество». Как поступить, если налоговое законодательство не содержит толкования
     необходимых понятий 
     в сфере учета амортизируемого имущества.
     2.      Изменения в учете амортизируемого имущества для целей обложения налогом на прибыль
     3.      Учет поступления и выбытия объектов амортизируемого имущества для целей налогообложения.
     Оценка амортизируемого имущества в налоговом учете.
     4.      Отнесение объектов основных средств и нематериальных активов к амортизируемому имуществу. 
     Начисление амортизации и признание ее в налоговом учете
     5.      Налоговый учет расходов на ремонт амортизируемого имущества
     6.      Особенности налогового учета объектов амортизируемого имущества, введенных в эксплуатацию до 1
     января 2002 г. 
     7.      Рекомендуемые налоговые регистры для учета амортизируемого имущества и расходов,
     связанных с его эксплуатацией 
     8.      Реализация и прочее выбытие объектов амортизируемого имущества  признание доходов и расходов, 
     списание убытков по сделке в налоговом учете.
     
     Стоимость участия в мероприятии 3900 руб. с НДС
     Стоимость приобретения видеозаписи семинара с авторским раздаточным материалом 2600 руб. с НДС
     Контактный телефон  (095) 788-73-28

[log4perl-devel] =?windows-1251?B?z/Dl5Ovg4+Dl7CDC4Owg7vLk+/Ug4iDS8/D26Ogh?=

[shih <so...@se...>]

<html>
<body bgcolor="#FFFFFF">
<table width="650" align="center">
  <tr> 
    <td> 
      <div align="center"> 
        <h1><font color="#0099FF" face="Times New Roman">Хорошо работает тот, 
          кто хорошо отдыхает!</font></h1>
      </div>
    </td>
  </tr>
  <tr> 
    <td><font size="+1" face="Times New Roman"> Приглашаем в <font color="#FF0000">Турцию</font> 
      – страну с многовековой историей и древними традициями. Изумительная природа, 
      песчаные пляжи, величественные горы, яркое солнце, и конечно, кристально 
      чистое, ласковое и тёплое море! <font color="#FF0000" size="5"><b><font face="Verdana, Arial, Helvetica, sans-serif">Турция</font></b></font> 
      - это настоящий музей под открытым небом, где 
      до наших дней сохранились памятники великих цивилизаций, дворцы султанов, 
      обители святых угодников. <br>
      <font color="#FF0000"><b><font size="6">от<strong> 230</strong> у.е. !!! 
      </font></b><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">(отель 
      3*) </font></font></font></td>
  </tr>
  <tr> 
    <td height="84">
      <div align="center"><font size="+2" face="Times New Roman"><em><strong>А 
        также: мы предлагаем Вам посетить Кипр, Испанию, Италию, Египет и др. страны.<u><br>
        </u></strong></em></font></div>
    </td>
  </tr>
  <tr> 
    <td>
      <div align="center"><font color="#FF0000" size="4" face="Verdana, Arial, Helvetica, sans-serif"><b>Мы 
        Вас не торопим, но, к сожалению, хорошие предложения быстро заканчиваются.</b></font></div>
    </td>
  </tr>
  <tr> 
    <td>
      <div align="center"><font size="+1" face="Times New Roman">Если наши предложения 
        показались Вам интересными, звоните нам, и мы с удовольствием 
        ответим на все ваши вопросы.</font></div>
    </td>
  </tr>
  <tr> 
    <td valign="top"><strong><font size="3" face="Verdana, Arial, Helvetica, sans-serif">Телефон: (095) <b><font size="4">772-97-37, 208-02-57</font></b><br>
      Факс (095) 208-02-61</font></strong> 
      <p><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Москва, 
        Центр <br>
        м. ”Чистые Пруды”<br>
        Архангельский пер., д. 1, офис 506</strong></font><strong><font face="Times New Roman"><br>
        </font><font face="Verdana, Arial, Helvetica, sans-serif" size="1">лицензия 
        № 0008830, сертификат соответствия № РОСС RU.У073.У01136 </font><font face="Times New Roman"><br>
        </font></strong></p>
    </td>
  </tr>
</table>
</body>
</html>

Re: [log4perl-devel] First Stab at Circular References

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

Kevin Goess wrote on 5/29/2004, 11:08 PM:

 > First, did you actually track down the circular reference the Logger.pm
 > mentioned?  Maybe I'm being dense (probably) but I don't see it in the
 > dump you sent. I checked out a basic $logger under use
 > Test::Memory::Cycle and didn't see any circular references.

Hmm, you could be on to someting: Maybe the reason why the loggers 
aren't cleaned up correctly isn't circular references, it's simply that 
there's still references lurking around.

They can be held by package variables like 
$Log::Log4perl::Logger::ROOT_LOGGER and also by non-lexical variables 
which have obtained a logger instance in the main program:

     no strict;
     $logger = get_logger("Foo");  # Not a "my" variable

On the other hand, if there's no circular reference, why does something 
like the following leak memory?

use Log::Log4perl qw(get_logger);

while(1) {
     Log::Log4perl->init(\ q{
log4perl.logger = DEBUG, A1
log4perl.appender.A1 = Log::Log4perl::Appender::Screen
log4perl.appender.A1.layout = SimpleLayout
});

     $logger = get_logger("foo");
}

 > So the Mail appender's DESTROY is being called during the Global
 > Destruction phase and overwriting $?.  Maybe what we need to do is
 > "local($?)" before then--if we can localize $? in the call stack above
 > where the flush() happens then the correct value will be restored after
 > the flush completes, right?

I'm not sure if you can localize $? while the GDP happens.

 > ~ However, your (Mike's) example sets $? in that BEGIN block, but doesn't
 > help Tim's code, his $? isn't from a BEGIN block.

Hmm, I didn't use a BEGIN block -- not sure I'm following.

 > However, if you change
 >     END { Log::Log4perl::Logger::cleanup(); }
 > to
 >     END { local($?); Log::Log4perl::Logger::cleanup(); }
 > Then Tim's code does finish with the proper exit strategy.

Didn't my patch work with Tim's code? I added END { $? = 255 } to Tim's 
snippet and it exited correctly with 255.

Guess we need to talk more about this, unfortunately, it's too late 
today for non-nocturnals ... :)

--
-- Mike
Mike Schilli
m...@pe...

[log4perl-devel] =?windows-1251?B?wuD44CDw5Wvr4OxhIOIg7/Dl8fHlIQ==?=

[chi-pang <we...@t-...>]

<HTML>
<BODY  bgcolor="#FFD7DF">

<DIV> 
  <div align="center"><font size="+2" face="Times New Roman">Здравствуйте!<BR>
    К началу летнего сезона 2004 рекламное агентство<BR>
    предлагает отличные условия для размещения Вашей рекламы в прессе!</font><font face="Times New Roman"><BR>
    <br>
    </font></div>
  <table width="79%" align="center" cellspacing="5">
    <tr> 
      <td colspan="4"><div align="center"><strong><font size="+1" face="Times New Roman">Скидки 
          на модульную рекламу.<br>
          <br>
          </font></strong></div></td>
    </tr>
    <tr> 
      <td width="38%" ><strong><font face="Times New Roman">Товары и цены</font></strong></td>
      <td width="12%" ><div align="right"><font face="Times New Roman">до 38%</font></div></td>
      <td width="38%" ><strong><font face="Times New Roman">Обустройство и ремонт</font></strong></td>
      <td width="12%" ><div align="right"><font face="Times New Roman">до 38%</font></div></td>
    </tr>
    <tr> 
      <td><strong><font face="Times New Roman">Оптовик</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 23%</font></div></td>
      <td><strong><font face="Times New Roman">Ремонт и строительство</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 40%</font></div></td>
    </tr>
    <tr> 
      <td><strong><font face="Times New Roman">Автомобили и цены</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 35%</font></div></td>
      <td><strong><font face="Times New Roman">Снабженец</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 30%</font></div></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td><div align="right"></div></td>
      <td><strong><font face="Times New Roman">Строительный сезон</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 25%</font></div></td>
    </tr>
    <tr> 
      <td><strong><font face="Times New Roman">Центр +</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 25%</font></div></td>
      <td><strong><font face="Times New Roman">Стройка</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 20%</font></div></td>
    </tr>
    <tr> 
      <td><strong><font face="Times New Roman">Экстра-М</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 18%</font></div></td>
      <td><strong><font face="Times New Roman">Строительные материалы</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 20%</font></div></td>
    </tr>
    <tr> 
      <td><strong><font face="Times New Roman">Услуги и Цены</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 38%</font></div></td>
      <td><hr noshade color="#000000"></td>
      <td><div align="right"></div></td>
    </tr>
    <tr> 
      <td colspan="4"><hr noshade color="#000000"></td>
    </tr>
    <tr> 
      <td><strong><font face="Times New Roman">Из рук в руки</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 29%</font></div></td>
      <td><strong><font face="Times New Roman">Туризм и отдых</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 38%</font></div></td>
    </tr>
    <tr> 
      <td><strong><font face="Times New Roman">Недвижимость и цены</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 35%</font></div></td>
      <td><strong><font face="Times New Roman">Красота и здоровье</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 38%</font></div></td>
    </tr>
    <tr> 
      <td colspan="4"><hr noshade color="#000000"></td>
    </tr>
    <tr> 
      <td><strong><font face="Times New Roman">Работа и зарплата</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 35%</font></div></td>
      <td><strong><font face="Times New Roman">Работа для Вас</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 20%</font></div></td>
    </tr>
    <tr> 
      <td><strong><font face="Times New Roman">Приглашаем на работу</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 25%</font></div></td>
      <td><strong><font face="Times New Roman">Работа сегодня</font></strong></td>
      <td><div align="right"><font face="Times New Roman">до 25%</font></div></td>
    </tr>
    <tr> 
      <td colspan="4"><div align="center"><strong><font size="+1" face="Times New Roman">Элитный 
          персонал до 20%</font></strong></div></td>
    </tr>
    <tr> 
      <td colspan="4"><hr noshade color="#000000"></td>
    </tr>
  </table>
  <div align="center"><font size="+1" face="Times New Roman">Региональная, центральная 
    пресса: "АиФ", "Коммерсантъ",<BR>
    "Московский комсомолец", "Комсомольская правда".<BR>
    И другие издания.</font><font face="Times New Roman"><BR>
    <BR>
    <font size="+2">Разработка макета и выезд курьера - бесплатны.<BR>
    Заявки по телефонам:(095) 508-30-54, 124-59-48</font></font></div>
</DIV>
<DIV align="center"><font face="Times New Roman">&nbsp;</font></DIV>
<DIV><font face="Times New Roman">&nbsp;</font></DIV>
</BODY></HTML>

[log4perl-devel] =?windows-1251?B?0ujv7uPw4PTo/yDt4CDS4OPg7erlIO/w5eTr4OPg5fIg8eLu6CDz8evz4+gu?=

[babak <pi...@se...>]

<HTML>
<BODY lang=RU style="tab-interval: 35.4pt">
<DIV class=Section1>
  <TABLE border=0 align="center" cellPadding=0 
cellSpacing=0 bgcolor="#FFFFCC" class=MsoTableGrid 
style=" BORDER-COLLAPSE: collapse; mso-yfti-tbllook: 480; mso-padding-alt: 0cm 5.4pt 0cm 5.4pt">
    <TBODY>
  <TR style="HEIGHT: 35.45pt; mso-yfti-irow: 0">
        <TD 
    style="PADDING-RIGHT: 5.4pt; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; WIDTH: 478.55pt; PADDING-TOP: 0cm; HEIGHT: 35.45pt" 
    vAlign=top width=638 colSpan=2> <H2 style="TEXT-ALIGN: center" align=center><FONT 
      face="Times New Roman"><SPAN 
      style="FONT-SIZE: 20pt; COLOR: red; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-style: normal"><em><br>
            Р</em></SPAN><em><SPAN 
      style="FONT-SIZE: 16pt; COLOR: red; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-style: normal">уководителям 
            предприятий, фирм и учреждений</SPAN></em></FONT></H2>
      <P class=MsoNormal style="TEXT-ALIGN: center" 
align=center>&nbsp;</P></TD></TR>
  <TR style="mso-yfti-irow: 1">
    <TD 
    style="PADDING-RIGHT: 5.4pt; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; WIDTH: 478.55pt; PADDING-TOP: 0cm" 
    vAlign=top width=638 colSpan=2>
      <P class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT 
      face="Times New Roman"><B style="mso-bidi-font-weight: normal"><SPAN 
      style="FONT-SIZE: 20pt; COLOR: #3366ff">Типография на 
      Таганке</SPAN></B></FONT></P>
      <P class=MsoNormal style="TEXT-ALIGN: center" 
align=center>&nbsp;</P></TD></TR>
  <TR style="HEIGHT: 61.85pt; mso-yfti-irow: 2">
    <TD 
    style="PADDING-RIGHT: 5.4pt; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; WIDTH: 194.4pt; PADDING-TOP: 0cm; HEIGHT: 61.85pt" 
    vAlign=top width=259 rowSpan=2>
      <P class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT 
      face="Times New Roman"><B style="mso-bidi-font-weight: normal"><SPAN 
      style="FONT-SIZE: 18pt; COLOR: red"></SPAN></B></FONT>&nbsp;<FONT 
      face="Times New Roman"><B style="mso-bidi-font-weight: normal"><I 
      style="mso-bidi-font-style: normal"><SPAN 
      style="FONT-SIZE: 18pt; COLOR: red">3 минуты</SPAN></I></B></FONT><br>
            <FONT 
      face="Times New Roman"><B style="mso-bidi-font-weight: normal"><I 
      style="mso-bidi-font-style: normal"><SPAN 
      style="FONT-SIZE: 18pt; COLOR: red">&nbsp;пешком</SPAN></I></B></FONT><br>
            <FONT 
      face="Times New Roman"><I style="mso-bidi-font-style: normal"><SPAN 
      style="COLOR: red; FONT-FAMILY: 'Comic Sans MS'">м. Таганская м. Марксистская</SPAN></I></FONT></P>
      </TD>
    <TD 
    style="PADDING-RIGHT: 5.4pt; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; WIDTH: 284.15pt; PADDING-TOP: 0cm; HEIGHT: 61.85pt" 
    vAlign=top width=379>
      <P class=MsoNormal><FONT face="Times New Roman"><B 
      style="mso-bidi-font-weight: normal"><I 
      style="mso-bidi-font-style: normal"><SPAN 
      style="COLOR: #74478d">Изготовление:</SPAN> пропусков и 
      удостоверений,</I></B></FONT><br><FONT face="Times New Roman"><B 
      style="mso-bidi-font-weight: normal"><I 
      style="mso-bidi-font-style: normal">Учетных книг, поздравительных папок и 
      т.п.</I></B></FONT><br><FONT face="Times New Roman"><B 
      style="mso-bidi-font-weight: normal"><I 
      style="mso-bidi-font-style: normal">Ручной переплет, тиснение фольгой, 
      <SPAN class=SpellE>ламинирование</SPAN>.</I></B></FONT></P>
      </TD></TR>
  <TR style="mso-yfti-irow: 3">
    <TD 
    style="PADDING-RIGHT: 5.4pt; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; WIDTH: 284.15pt; PADDING-TOP: 0cm" 
    vAlign=top width=379>
      <P class=MsoNormal><FONT face="Times New Roman"><B 
      style="mso-bidi-font-weight: normal"><I 
      style="mso-bidi-font-style: normal"><SPAN style="COLOR: #74478d">А 
      также:</SPAN> любая полиграфическая продукция:</I></B></FONT><br><FONT face="Times New Roman"><B 
      style="mso-bidi-font-weight: normal"><I 
      style="mso-bidi-font-style: normal">верстка, дизайн, сканирование, вывод 
      пленок.</I></B></FONT></P>
     </TD></TR>
  <TR style="mso-yfti-irow: 4; mso-yfti-lastrow: yes">
    <TD 
    style="PADDING-RIGHT: 5.4pt; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; WIDTH: 194.4pt; PADDING-TOP: 0cm" 
    vAlign=top width=259>
      <P class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT 
      face="Times New Roman"><I style="mso-bidi-font-style: normal"><SPAN 
      style="COLOR: #74478d; FONT-FAMILY: 'Comic Sans MS'">ул. Большая 
      Коммунистическая</SPAN></I></FONT><br><FONT 
      face="Times New Roman"><I style="mso-bidi-font-style: normal"><SPAN 
      style="COLOR: #74478d; FONT-FAMILY: 'Comic Sans MS'">д. 9 
      а</SPAN></I></FONT></P>
      <P class=MsoNormal>&nbsp;</P></TD>
    <TD 
    style="PADDING-RIGHT: 5.4pt; PADDING-LEFT: 5.4pt; PADDING-BOTTOM: 0cm; WIDTH: 284.15pt; PADDING-TOP: 0cm" 
    vAlign=top width=379>
      <P class=MsoNormal style="TEXT-ALIGN: center" align=center><FONT 
      face="Times New Roman"><B style="mso-bidi-font-weight: normal"><I 
      style="mso-bidi-font-style: normal">тел. 941-65-73</I></B></FONT><br><FONT 
      face="Times New Roman"><B style="mso-bidi-font-weight: normal"><I 
      style="mso-bidi-font-style: normal">факс 924-74-34</I></B></FONT></P>
      <P class=MsoNormal style="TEXT-ALIGN: center" 
  align=center>&nbsp;</P></TD></TR></TBODY></TABLE>
<P class=MsoNormal>&nbsp;</P></DIV></BODY></HTML>

Re: [log4perl-devel] code in variable substition

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

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Mike Schilli wrote:
| Kevin Goess wrote on 5/27/2004, 4:40 PM:
|  > I was surprised to find out that this does not work:
|  >     whoranit = sub { $ENV{USERNAME} || $ENV{USER} }
|  >     log4perl.appender.x.ConversionPattern = %d ${whoranit} %m%n
|
| Another option to accomplish this would be using a cspec or a MDC setting.

Yeah, that's what I finally figured out.  So %W and ${whoranit} end up
being the same thing inside a ConversionPattern.

| What do you think the chance of breaking current configs is? It's
| probably fairly low -- can you think of an example?

It makes me a little nervous doing our variable substitution on Perl
code when our variable markers look an awful lot like Perl's.

name=mywackylogger
...
log4perl.appender.x.emailaddr = \
	sub { $name = $ENV{USER}; "${name}@initech.com" }

With my proposed changes, the emails would go to
"myw...@in..." instead of our developer.

Do you know how far log4j goes with the variable substitution stuff?


- --
Happy Trails. . .

Kevin M. Goess
(and Anne and Frank)
904 Carmel Ave.
Albany, CA  94706
(510)525-5217
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)
Comment: Using GnuPG with Netscape - http://enigmail.mozdev.org

iD8DBQFAuX0S4g4/Tl71vUkRAuxHAJ9RkevEAdTW6UCMPWAwjlRciLLlLQCfTXZs
xgOchJmbn5CUn3v4Ol08Myw=
=BY0C
-----END PGP SIGNATURE-----

Re: [log4perl-devel] First Stab at Circular References

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

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Mike, thanks for doing all that work, fantastic stuff except for two
points: I think the circular reference thing is a red herring, although
I agree with the approach in your patch, and you need a local($?) in
your END block:

First, did you actually track down the circular reference the Logger.pm
mentioned?  Maybe I'm being dense (probably) but I don't see it in the
dump you sent. I checked out a basic $logger under use
Test::Memory::Cycle and didn't see any circular references.

Are you sure Tim's exit value problem is related to circular references?
~ It seems to me that since we're using package variables to store our
loggers, they're not going to be destroyed until the Global Destruction
phase of the script, the reference in the package symbol table won't go
away until then.  That behavior seems correct to me.

So the Mail appender's DESTROY is being called during the Global
Destruction phase and overwriting $?.  Maybe what we need to do is
"local($?)" before then--if we can localize $? in the call stack above
where the flush() happens then the correct value will be restored after
the flush completes, right?

To do that we need to do the flushing before the GDP kicks in, so your
END block in Log4perl.pm and your cleanup() methods are the right idea.
~ However, your (Mike's) example sets $? in that BEGIN block, but doesn't
help Tim's code, his $? isn't from a BEGIN block.  However, if you change

	END { Log::Log4perl::Logger::cleanup(); }
to
	END { local($?); Log::Log4perl::Logger::cleanup(); }

Then Tim's code does finish with the proper exit strategy.

How does that sound?  Let me know if you don't follow me, in fact feel
free to phone me if I'm not clear, I'm around all weekend (during normal
waking hours, that is).


- --
Happy Trails. . .

Kevin M. Goess
(and Anne and Frank)
904 Carmel Ave.
Albany, CA  94706
(510)525-5217
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)
Comment: Using GnuPG with Netscape - http://enigmail.mozdev.org

iD8DBQFAuXpo4g4/Tl71vUkRAu2TAKCsPxT+OYfia+YGTjA901ZVEiZBjwCgt/rc
p6wF9m73KF/VwP+oX27dIEk=
=Mdad
-----END PGP SIGNATURE-----

Re: [log4perl-devel] code in variable substition

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

Kevin Goess wrote on 5/27/2004, 4:40 PM:

 > I was surprised to find out that this does not work:
 >
 >     whoranit = sub { $ENV{USERNAME} || $ENV{USER} }
 >
 >     log4perl.appender.x.ConversionPattern = %d ${whoranit} %m%n

Another option to accomplish this would be using a cspec or a MDC setting.

What do you think the chance of breaking current configs is? It's 
probably fairly low -- can you think of an example?

--
-- Mike
Mike Schilli
m...@pe...

[log4perl-devel] First Stab at Circular References

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

Hi all,

here's a first stab at the circular references, patch attached. With 
this in place, Tim's Mail appender example will work if you specify an 
end block at the beginning to reset the exit code *after* the mail 
appender gets destroyed:

     END { $? = 255; }

     use Log::Log4perl qw(get_logger :levels);

     Log::Log4perl->init(\q{
log4perl.logger                     = DEBUG, Mailer

log4perl.appender.Mailer            = Log::Dispatch::Email::MailSend
log4perl.appender.Mailer.to         = em...@so...
log4perl.appender.Mailer.subject    = mysubject
log4perl.appender.Mailer.layout     = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Mailer.layout.ConversionPattern = %m%n
});

     my $logger = get_logger("foo");
     $logger->logdie( "boo" );

--
-- Mike
Mike Schilli
m...@pe...

Index: lib/Log/Log4perl.pm
===================================================================
RCS file: /cvsroot/log4perl/Log-Log4perl/lib/Log/Log4perl.pm,v
retrieving revision 1.164
diff -a -u -r1.164 Log4perl.pm
--- lib/Log/Log4perl.pm	28 May 2004 23:41:54 -0000	1.164
+++ lib/Log/Log4perl.pm	29 May 2004 07:49:20 -0000
@@ -2,6 +2,9 @@
  package Log::Log4perl;
  ##################################################

+    # Have this first to execute last
+END { Log::Log4perl::Logger::cleanup(); }
+
  use 5.006;
  use strict;
  use warnings;
Index: lib/Log/Log4perl/Appender.pm
===================================================================
RCS file: /cvsroot/log4perl/Log-Log4perl/lib/Log/Log4perl/Appender.pm,v
retrieving revision 1.35
diff -a -u -r1.35 Appender.pm
--- lib/Log/Log4perl/Appender.pm	26 Apr 2004 02:41:10 -0000	1.35
+++ lib/Log/Log4perl/Appender.pm	29 May 2004 07:49:21 -0000
@@ -260,7 +260,15 @@
  ##################################################
  sub DESTROY {
  ##################################################
-    # just there because of AUTOLOAD
+    # use Data::Dumper;
+
+    # warn "Destroying appender $_[0]";
+    # warn "app=", Dumper($_[0]), "-";
+
+    foreach my $key (keys %{$_[0]}) {
+        # print "deleting $key\n";
+        delete $_[0]->{$key};
+    }
  }

  1;
Index: lib/Log/Log4perl/Logger.pm
===================================================================
RCS file: /cvsroot/log4perl/Log-Log4perl/lib/Log/Log4perl/Logger.pm,v
retrieving revision 1.60
diff -a -u -r1.60 Logger.pm
--- lib/Log/Log4perl/Logger.pm	9 Oct 2003 17:07:11 -0000	1.60
+++ lib/Log/Log4perl/Logger.pm	29 May 2004 07:49:22 -0000
@@ -23,6 +23,56 @@
  __PACKAGE__->reset();

  ##################################################
+sub cleanup {
+##################################################
+    # warn "Logger cleanup";
+
+    # Delete all loggers
+    foreach my $loggername (keys %$LOGGERS_BY_NAME){
+        # warn "Logger delete: $loggername";
+        $LOGGERS_BY_NAME->{$loggername}->DESTROY();
+        delete $LOGGERS_BY_NAME->{$loggername};
+    }
+
+    # Delete the root logger
+    #$ROOT_LOGGER->DESTROY() if defined $ROOT_LOGGER;
+    undef $ROOT_LOGGER;
+    $LOGGERS_BY_NAME = ();
+
+    # warn scalar(keys %APPENDER_BY_NAME), " appenders leftover";
+
+    # Delete all appenders
+    foreach my $appendername (keys %APPENDER_BY_NAME){
+        if (exists $APPENDER_BY_NAME{$appendername} &&
+            exists $APPENDER_BY_NAME{$appendername}->{appender}) {
+            # warn "Appender delete: $appendername ",
+                # "($APPENDER_BY_NAME{$appendername}->{appender})";
+                # Destroy L4p::Appender::Whatever
+#            $APPENDER_BY_NAME{$appendername}->{appender}->DESTROY() if
+# 
$APPENDER_BY_NAME{$appendername}->{appender}->can("DESTROY");
+                # Destroy L4p::Appender
+            $APPENDER_BY_NAME{$appendername}->DESTROY();
+            delete $APPENDER_BY_NAME{$appendername}->{appender};
+            delete $APPENDER_BY_NAME{$appendername};
+        }
+    }
+    %APPENDER_BY_NAME   = ();
+}
+
+# use Data::Dumper;
+
+##################################################
+sub DESTROY {
+##################################################
+    # warn "Destroying logger $_[0]";
+    # print Dumper($_[0]);
+    for(keys %{$_[0]}) {
+        # print "Deleting key $_\n";
+        delete $_[0]->{$_};
+    }
+}
+
+##################################################
  sub reset {
  ##################################################
      $ROOT_LOGGER        = __PACKAGE__->_new("", $DEBUG);

[log4perl-devel] Re:

[<vis...@ud...>]

<html>
<body>
<p align="center">
Бизнес - справочники, бизнес - программы, базы данных на http://basez.p9.org.uk/ 
<p align="center">
&nbsp;<p align="center">
&nbsp;<p align="center">&nbsp;</p>
<p align="center"><font color="#FDFDFD" size="1">я был мальчиком, я сам очень любил разводить костры, и до сих  пор  люблю,</font></p>
<p align="center"><font color="#F9F9F9" size="1">Вещь, конечно, хорошая, но если у вас полный доступ к ресурсам Internet, она</font></p>
<p align="center"><font color="#FBFBFB" size="1">Именуйтефайлыследующимобразом:</font></p>
<p align="center"><font color="#F7F7F7" size="1">2) средств на оплату товаров, работ и услуг, выполняемых физическими и юридическими лицами по государственным и муниципальным контрактам;</font></p>
</body>
</html>

Re: [log4perl-devel] Circular References Update

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

Mike Schilli wrote:
> Hi all,
> 
> while investigating the circular reference problem, 

What is the circular reference problem?  I don't remember hearing we had 
one?

> Does anybody know why this snippet results in action items for 
> global destruction:
> 
>      package Log::Log4perl::Logger;
>      sub DESTROY {
>          warn "Destroying $_[0]";
>      }

that part defines a DESTROY method in that package

>      use Log::Log4perl::Logger;

and that part runs the code in Logger.pm, which includes

	__PACKAGE__->reset();

which includes

	$ROOT_LOGGER = __PACKAGE__->_new("", $DEBUG);

and that $ROOT_LOGGER object is what then gets DESTROY'd.


That was too easy.  Is this a trick question?

-- 
Happy Trails . . .

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

[log4perl-devel] Circular References Update

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

Hi all,

while investigating the circular reference problem, I found out another 
nugget: Does anybody know why this snippet results in action items for 
global destruction:

     #!/usr/bin/perl

     package Log::Log4perl::Logger;
     sub DESTROY {
         warn "Destroying $_[0]";
     }

     package main;
     use Log::Log4perl::Logger;
     $Log::Log4perl::Logger::LOGGERS_BY_NAME = {};

It will print

      Destroying Log::Log4perl::Logger=HASH(0x8128554) at t4 line 13 
during global destruction.

Although, I can't see any circular references in the ROOT logger defined 
in Logger.pm. Hmm.

--
-- Mike
Mike Schilli
m...@pe...

[log4perl-devel] code in variable substition

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

I was surprised to find out that this does not work:

    whoranit = sub { $ENV{USERNAME} || $ENV{USER} }

    log4perl.appender.x.ConversionPattern = %d ${whoranit} %m%n

the sub isn't run when the variable $whoranit is defined, it stays just 
a string.

It has to do with the order things happen in the ConfigParser:

      # Everything could potentially be a variable assignment
   $var_subst{$key} = $val;

      # Substitute any variables
   $val =~ s/\${(.*?)}/
      Log::Log4perl::Config::var_subst($1, \%var_subst)/gex;

   $val = eval_if_perl($val) if
      $key !~ /\.(cspec\.)|warp_message|filter/;


We could change this by putting the assignment at the end after the 
eval_if_perl() instead of the beginning, then you could do stuff like 
variable interpolation inside variables, and variable interpolation 
inside perlcode, none of which you can do now

    name=bob
    fullname=${name} smith
    greeting=sub{'hi there '.${fullname}}

but it could concievably break current configurations, so maybe it's a 
can of worms we don't want to open.

Any comments?




-- 
Happy Trails . . .

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

[log4perl-devel] =?Windows-1251?B?0OXj6GPy8GH26P8g9Ojw7Ps=?=

[<co...@to...>]

<xHTML>
<xBODY>
<P align="center"><FONT size="+2" face="Comic Sans MS">Регистрация предприятий в г. Москве и Подмосковье<BR>
Регистрация изменений в учредительные документы <BR>
Регистрация предприятий с иностранными инвестициями<BR>
Аккредитация представительств иностранных юридических лиц</FONT><BR>
<BR>
<FONT color="#0000ff" size="7" face="Arial Black">ГОТОВЫЕ ФИРМЫ</FONT></P>
<CENTER>
<TABLE cellpadding="9" cellspacing="1" bgcolor="#000000">
  <TBODY>
    <TR>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana" size="+2">НАЗВАНИЕ</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">№<BR>
      ИМНС</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana" size="-1">Упрощенная</FONT><BR>
      система<BR>
      налогообложения<BR>
      </TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">Дата</FONT><BR>
      регистрации<BR>
      </TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;ВЕНТА&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">9</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">-</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">27 апреля 2004 г.</FONT></TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;АВЕЛМА&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">9</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">-</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">27 апреля 2004 г.</FONT></TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;СтройМонтаж&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">9</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">-</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">30 апреля 2004 г.</FONT></TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;ЛАНТЕКС&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">13</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">6%</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">05 мая 2004 г.</FONT></TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;АВАНТА&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">14</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">6%</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">26 апреля 2004 г.</FONT></TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;ТоргСервис&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">14</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">-</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">07 мая 2004 г.</FONT></TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;Мастер-М&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">15</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">-</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">05 мая 2004 г.</FONT></TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;ТОРЕКС&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">28</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">-</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">23 апреля 2004 г.</FONT></TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;БРИЗ&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">34</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">-</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">12 мая 2004 г.</FONT></TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;ТЕХНОКОМ&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">34</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">-</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">30 апреля 2004 г.</FONT></TD>
    </TR>
    <TR>
      <TD bgcolor="#ffffff"><FONT face="Verdana">ООО &quot;ДИАЛ&quot;</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">43</FONT></TD>
      <TD align="center" bgcolor="#ffffff"><FONT face="Verdana">6%</FONT></TD>
      <TD bgcolor="#ffffff"><FONT face="Verdana">29 апреля 2004 г.</FONT></TD>
    </TR>
  </TBODY>
</TABLE>
</CENTER>
<P align="center"><FONT color="#0000ff" size="7" face="Arial Black">Тел. 799-18-69</FONT><BR>
</P>
<HR width="90%">
<P align="center"><BR>
<B><FONT size="+3" color="#0000ff" face="Arial Black">ИЗГОТОВЛЕНИЕ ПЕЧАТЕЙ, ШТАМПОВ, ФАКСИМИЛЕ<BR>
<BR>
Тел. 234-88-78</FONT></B></P>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center"><img src="cid:914937C9.D21670DA.BE5D52BF.D13C9779_csseditor"></p>

[log4perl-devel] =?Windows-1251?B?zuHz9+Xt6OU=?=

[mahmoud <sa...@t-...>]

Уважаемые господа!
Приглашаем Вас 3 июня поучаствовать в однодневном мастер-классе на
тему :  «Учет амортизируемого имущества»
Семинар рекомендуется главным бухгалтерам, налоговым консультантам, руководителям пре6дприятия.
       
     Программа семинара.
     1. Понятие амортизируемого имущества. Различие в терминологии: «основные средства»,
     «нематериальные активы», «амортизируемое имущество». Как поступить, если налоговое
     законодательство не содержит толкования необходимых понятий в сфере учета амортизируемого
     имущества.
     2. Новое в учете амортизируемого имущества для целей обложения налогом на
     прибыль
     3. Учет поступления и выбытия объектов амортизируемого имущества для целей налогообложения.
     Оценка амортизируемого имущества в налоговом учете.
     4. Отнесение объектов основных средств и нематериальных активов к амортизируемому имуществу.
     Начисление амортизации и признание ее в налоговом учете
     5. Налоговый учет расходов на ремонт амортизируемого имущества
     6. Особенности налогового учета объектов амортизируемого имущества, введенных в эксплуатацию
     до 1 января 2002 г. 
     7. Рекомендуемые налоговые регистры для учета амортизируемого имущества и расходов, связанных
     с его эксплуатацией 
     8. Реализация и прочее выбытие объектов амортизируемого имущества  признание доходов и
     расходов, списание убытков по сделке в налоговом учете.
     
     Cтоимость участия в мастер-классе 
     3900 рублей, включая НДС. Форма оплаты любая (наличная или
     безналичная). В эту стоимость входит: участие в
     мероприятии,раздаточный материал
     кофе-пауза, обед.
     
     Мастер-класс проходит в Москве (м. Академическая).Начало - в 10 часов и окончание - в 17.30 - 18.00.
     Для участия в семинаре необходимо
     регистрироваться. 
     Если Ваше участие в мероприятии невозможно мы
     предлагаем Вам приобрести видеозапись
     этого и других мастер-классов.К видеокассетам прилагается раздаточный
     материал. Стоимость видеосеминар  2600 руб. в
     т.ч. НДС
     
     
     Телефон для справок 788-7328

Re: [log4perl-devel] Exit value with Mailer

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

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <title></title>
</head>
<body bgcolor="#ffffff">
<font face="Arial,sans-serif" size="2"><font size="2"><span type="cite">Tim
M&uuml;ller-Seydlitz wrote on 5/26/2004, 8:01 AM:</span>
</font></font>
<p><font face="Arial,sans-serif" size="2"></font></p>
<blockquote type="cite"
 style="border-left: thin solid blue; padding-left: 10px; margin-left: 0pt;"><font
 face="Arial,sans-serif" size="2"> </font>
  <p><font face="Arial,sans-serif" size="2">I am having trouble with
the exit value of the attached code snippet.<br>
I was able to trace it down to the mail appender.<br>
When the mail appender is called for a fatal error, the exit value
cannot be set.</font></p>
</blockquote>
<font face="Arial,sans-serif" size="2"><font size="2">You've posted
this already two days ago. Please be patient.<br>
<br>
As far as I can see, it's caused by the DESTROY handler of the
Log::Dispatch::Email module, which is called when the program exits and
calls </font></font><font face="Arial,sans-serif" size="2"><font
 size="2">Log::Dispatch::Email's </font></font><font
 face="Arial,sans-serif" size="2"><font size="2">flush(). This sets $!
or $? to 0 (or both) and therefore (see perldoc -f die) modifies the
exit value.<br>
<br>
If you want to help, you could narrow it down even more, based on the
findings above.<br>
<br>
<span>-- <br>
-- Mike<br>
Mike Schilli<br>
<a class="moz-txt-link-abbreviated" href="mailto:m...@pe...">m...@pe...</a></span></font></font>
</body>
</html>

[log4perl-devel] Exit value with Mailer

[<Tim...@we...>]

<html><style>p {margin: 0px}</style><body bgcolor='#ffffff' style='font-size:9pt; font-family:Verdana; font-family: Verdana' ><STYLE>p {margin: 0px}</STYLE><P>Hi,</P><P>I am having trouble with the exit value of the attached code snippet.</P><P>I was able to trace it down to the mail appender.</P><P>When the mail appender is called for a fatal error, the exit value cannot be set.</P><FONT color=#0000ff size=2><P>Run this with the appender Mailer and without it.</P><P>With the mailer I dont get the proper exit status, without it works as expected.</P><P>I hope you reproduce this nasty error.</P><P>Please tell me, if you need more specific information.</P><P>I use perl 5.8.0</P><P>and Log4perl version 0.42 and Solaris 8.</P><P>I tested the exit value with bash </P><P>perl dietest.pl &amp;&amp; echo "You should not see this message if exit value is not zero"</P><P>Regards</P><P>Tim</P></FONT><br><br><table cellpadding="0" cellspacing="0" border="0"><tr><td bgcolor="#000000"><im!
 g src="http://img.web.de/p.gif" width="1" height="1" border="0" alt="" /></td></tr><tr><td style="font-family:verdana; font-size:12px; line-height:17px;">Endlich SMS mit Bildern versenden! Das Bild selbst ist dabei gratis,&nbsp;&nbsp;<br>Sie bezahlen lediglich den Versand. <A HREF="http://freemail.web.de/?mc=021195"><B>http://freemail.web.de/?mc=021195</B></A>&nbsp;&nbsp;</td></tr></table></body></html>

[log4perl-devel] Exit value with Mailer

[<Tim...@we...>]

<html><style>p {margin: 0px}</style><body bgcolor='#ffffff' style='font-size:9pt; font-family:Verdana; font-family: Verdana' ><STYLE>p {margin: 0px}</STYLE><P>Hi,</P><P>I am having trouble with the exit value of the attached code snippet.</P><P>I was able to trace it down to the mail appender.</P><P>When the mail appender is called for a fatal error, the exit value cannot be set.</P><FONT color=#0000ff size=2><P>Run this with the appender Mailer and without it.</P><P>With the mailer I dont get the proper exit status, without it works as expected.</P><P>I hope you reproduce this nasty error.</P><P>Please tell me, if you need more specific information.</P><P>I use perl 5.8.0</P><P>and Log4perl version 0.42 and Solaris 8.</P><P>I tested the exit value with bash </P><P>perl dietest.pl &amp;&amp; echo "You should not see this message if exit value is not zero"</P><P>Regards</P><P>Tim</P></FONT><br><br><table cellpadding="0" cellspacing="0" border="0"><tr><td bgcolor="#000000"><im!
 g src="http://img.web.de/p.gif" width="1" height="1" border="0" alt="" /></td></tr><tr><td style="font-family:verdana; font-size:12px; line-height:17px;">Verschicken Sie romantische, coole und witzige Bilder per SMS!&nbsp;&nbsp;<br>Jetzt neu bei WEB.DE FreeMail: <A HREF="http://freemail.web.de/?mc=021193"><B>http://freemail.web.de/?mc=021193</B></A>&nbsp;&nbsp;</td></tr></table></body></html>

[log4perl-devel] =?Windows-1251?B?zuHz9+Xt6OU=?=

[pranab <so...@se...>]

Уважаемые господа!
Предлагаем Вам 31 мая посетить в однодневном мастер-классе на
тему :  "Техники проведения совещаний»
     
На сегодняшний день практически каждый менеджер, начиная от генерального директора и
заканчивая руководителями подразделений, сталкивается с необходимостью проведения совещаний и
рабочих собраний. 
Совещания - являются общепринятой формой управления и традиционной формой взаимодействия в
современной компании.
К сожалению, совещания зачастую отличаются крайне низкой эффективностью, что объясняется
незнанием принципов подготовки и проведения совещаний.

Слушателям семинара предлагается следующая программа:
        
1. Структура совещания 
 - Основные виды совещаний
  - Планирование совещания 
   - Этапы совещания
    - Содержание совещания
    
    2. Подготовка к совещанию. 
    - Постановка цели совещания
    - Каким образом назначать совещания. 
    - Методы подготовки и проведения
    - Способы доведения информации до участников. 
    - Повестка дня, регламент совещания. Управление временем.
    
    3. Проведение совещания. 
    - Методы проведения собраний и совещаний. 
    - Что мешает эффективному проведению? 
    - Позиции участников.
    - Коммуникативные барьеры
    - Предоставление обратной связи
    - Основные правила убеждения.
    - Приемы воздействия на участников спора
    - Этапы принятия решений, творческие методы выработки решений. 
    - Специфика группового принятия решений, выработка совместного решения. 
    - Завершение. Результаты, информирование о принятых решениях. 
    - Мотивация к действию.
    
    4. Анализ проведенного собрания. Контроль выполнения принятых решений. 
    
    По окончании тренинга участники смогут: 
    - Эффективно планировать и использовать время, отведенное на совещание 
    - Мотивировать и побуждать всех участников к активному сотрудничеству и участию в решении
    проблемы 
    - Быстро собирать мнения участников и интегрировать их в общий результат совещания 
    - Управлять участниками дискуссии так, чтобы достигать максимальных результатов 
    - Экономить время и силы при участии или проведении совещания. 
    
    Стоимость участия 
    3900 рублей, в т.ч. НДС. Форма оплаты любая (наличная или
    безналичная). В стоимость входит: участие в
    мероприятии,раздаточный материал
    кофе-пауза, обед.
    
    Мастер-класс проходит в Москве (м. Академическая).Начало мероприятия в 10 часов и
    окончание в 17 часов.
    Для участия в семинаре необходимо
    регистрироваться. 
    Если Вы не можете посетить мастер-класс мы
    предлагаем Вам приобрести запись на видео
    этого и других мастер-классов.К 
    видеоматериалам прилагается раздаточный
    материал. стоимость
    приобретения видеоматериалы  2600 руб. с учетом НДС
    
    
    Телефон для справок 788-73-28
    

Re: [log4perl-devel] duplicates from root catergory

[Aamer A. <aa...@ci...>]

On May 25, 2004, at 1:50 AM, Mike Schilli wrote:

> Aamer Akhter wrote on 5/24/2004, 8:15 PM:
>
>> I had the following config:
>>
>> log4perl.logger                                = WARN, Screen
>> log4perl.logger.parser.cisco.prd       = DEBUG, Screen
>> log4perl.logger.cisco.perl             = DEBUG, Screen
>>
>> But, these messages were getting duplicated by 'log4perl.logger':
>
> That's actually a common mistake and can be corrected easily:
>
>      http://log4perl.sourceforge.net/d/Log/Log4perl/FAQ.html#a6c81
>

Mike,

thanks. I had gone thru the faq too quickly and missed this particular 
line:

The culprit is that once the logger Cat::Subcat decides to fire, it 
will forward the message unconditionally to all directly or indirectly 
attached appenders. The Cat logger will never be asked if it wants the 
message or not -- the message will just be pushed through to the 
appender attached to Cat.

Thank-you for maintaining log4perl, and the excellent faq.


> --
> -- Mike
> Mike Schilli
> m...@pe...
>
>

-- 
Aamer Akhter / aa...@ci...
NSITE cisco Systems

Re: [log4perl-devel] duplicates from root catergory

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

Aamer Akhter wrote on 5/24/2004, 8:15 PM:

 > I had the following config:
 >
 > log4perl.logger                                = WARN, Screen
 > log4perl.logger.parser.cisco.prd       = DEBUG, Screen
 > log4perl.logger.cisco.perl             = DEBUG, Screen
 >
 > But, these messages were getting duplicated by 'log4perl.logger':

That's actually a common mistake and can be corrected easily:

     http://log4perl.sourceforge.net/d/Log/Log4perl/FAQ.html#a6c81

--
-- Mike
Mike Schilli
m...@pe...

[log4perl-devel] duplicates from root catergory

[Aamer A. <aa...@ci...>]

Hello,

I had the following config:

log4perl.logger                                = WARN, Screen
log4perl.logger.parser.cisco.prd       = DEBUG, Screen
log4perl.logger.cisco.perl             = DEBUG, Screen

But, these messages were getting duplicated by 'log4perl.logger':

[2004/05/24 22:49:57] [parser.cisco.prd] [prd.pl:36] [DEBUG] cisco::prd 
parser created
[2004/05/24 22:49:57] [parser.cisco.prd] [prd.pl:36] [DEBUG] cisco::prd 
parser created

If I take away the root logger, there are no more duplicates. I would 
think that the WARN filter on the root logger would block one of the 
logs, but obviously that's not happening. Is this a bug or a feature 
;-)

thanks!

-- 
Aamer Akhter / aa...@ci...
NSITE cisco Systems