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: Mike S. <m...@pe...> - 2004-12-15 04:00:47
|
Hi Roger, just had another look at L4p and realized that List::Util::module_available wasn't doing the right thing. I've applied a fix to 0.51 (not yet released, but available for preview at http://perlmeister.com/tmp) to check %INC first and verify that the module has already been loaded, just as Kevin suggested. This seems to fix the problem with PAR. Give it a whirl! -- Mike Mike Schilli m...@pe... |
|
From: sheela <ram...@ac...> - 2004-12-15 03:37:04
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<xhtml>
<xhead>
<xtitle>Untitled Document</xtitle>
</xhead>
<xbody>
<table width="82%" border="2" bordercolorlight="#00CCFF" bordercolordark="#33CCFF" align="center">
<tr>
<td height="21">
<div align="center"><font color="#993333" size="+2" face="Comic Sans MS"><strong>Предлагаем обучение
теннису!</strong></font></div></td>
</tr>
<tr>
<td><div align="left"><font color="#0000FF" face="Comic Sans MS"> Извините,
если это сообщение пришло не по адресу и принесло Вам неудобство.<br>
Предлагаем обучение теннису - постановка техники, навыки игры - в закрытых<br>
залах (размер зала <strong>24х12</strong>м
с деревянным покрытием без забегов) в районах:<br>
м .Академическая, м.Профсоюзная, м.Новые Черемушки, м.Шаболовская,<br>
м.Ленинский проспект, м.Тульская, м.Добрынинская.<br>
Возраст обучающихся от <strong>7</strong>
лет. <br>
СТОИМОСТЬ <strong>1</strong> занятия(включает
оплату зала и тренера): - <strong>1</strong>
час <strong>750</strong> руб. <br>
ОПЛАТА производится за месяц(не менее <strong>4</strong>-х
занятий).<br>
Возможны занятия в группах от <strong>2</strong>
до <strong>4</strong> человек, если Вы сами
можете их<br>
сформировать. </font> </div></td>
</tr>
<tr>
<td><div align="center"><font color="#FF0000" face="Comic Sans MS"><strong>НЕ
ЗАНИМАЕМСЯ ПОДГОТОВКОЙ ПРОФЕССИОНАЛЬНЫХ СПОРТСМЕНОВ <br>И СДАЧЕЙ КОРТОВ В
АРЕНДУ!</strong></font><font color="#CC0099" face="Comic Sans MS"><br>
Тел.: <strong> <font size="+2">8-926-5265144</font></strong> E-mail: ten...@gm...
</font></div></td>
</tr>
</table>
</xbody>
</xhtml>
|
|
From: Mike S. <m...@pe...> - 2004-12-14 20:00:32
|
On Mon, 13 Dec 2004, tod...@ex... wrote:
> Im trying to set dynamic PallernLayouts depending on the log level called.
> ...
> L::L4p::Logger::create_custom_level("ENTER", "FATAL");
> L::L4p::Logger::create_custom_level("EXIT", "ENTER");
Hmm, seems like you're using levels not as message priorities but to
trigger certain actions in your appender. This way, you'll get some
broken XML if you set the log level to ENTER, etc., so I'd recommend
not doing that.
How about this:
1) Write your own XML appender (see FAQ), featuring an enter() and and
exit() method, which just set the state within the appender
2) On log(), have the appender store the message(s).
3) On exit(), have the appender format all messages as XML and write them
out.
4) At the beginning and end of every function, place calls to trigger
YourAppender->enter(), YourAppender->exit();
5) In between, use Log4perl's regular $logger->debug("..."); etc. calls.
This would fit better into L4p's architecture. What do you think?
-- Mike
Mike Schilli
m...@pe...
|
|
From: Mike S. <m...@pe...> - 2004-12-14 19:45:11
|
On Sun, 12 Dec 2004, Kevin M. Goess wrote: > > Is there a clean way to remove appenders at runtime? > Not currently, that I know of anyway. Nope, looks like we need to add one. For now, could you use Log::Log4perl::Appender::File's file_switch() method instead? -- Mike Mike Schilli m...@pe... |
|
From: Negocio I. <jul...@ya...> - 2004-12-14 15:47:19
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=Content-Type content="text/html; charset=iso-8859-1"> <META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD> <BODY> <DIV align=center><FONT face="Comic Sans MS" size=4><SPAN class=763413602-03052004>Espero que estes bien.</SPAN></FONT></DIV> <DIV align=center><FONT face="Comic Sans MS" size=4><SPAN class=763413602-03052004>Te queria invitar a que veas en la empresa que estoy trabajando.</SPAN></FONT></DIV> <DIV align=center><font face="Comic Sans MS" size="4"><SPAN class=763413602-03052004><a href="http://www.negocioindep.com.ar/jp">www.negocioindep.com.ar/jp</a> </SPAN></font></DIV> <DIV align=center><FONT face="Comic Sans MS" size=4><SPAN class=763413602-03052004>Por ahi te interesa tener un ingreso extra, o tenes algun conocido que lo necesita.</SPAN></FONT></DIV> <DIV align=center><FONT face="Comic Sans MS" size=4><SPAN class=763413602-03052004>Cariños</SPAN></FONT></DIV> <DIV align=center><FONT face="Comic Sans MS" size=2><SPAN class=763413602-03052004></SPAN></FONT> </DIV> <DIV align=center><FONT face="Comic Sans MS" size=2><SPAN class=763413602-03052004></SPAN></FONT><font face="Comic Sans MS"><B>Julio Cesar Pagani</B><BR><B>Metodología de Trabajo Internacional</B><BR><B><A href="http://www.negocioindep.com.ar/lp"><FONT face=Arial color=#400000 size=2>www.negocioindep.com.ar/jp</FONT></A><BR> jul...@ya...</B><BR><B>Buenos Aires - Argentina</B></font> </DIV> <DIV> </DIV></BODY></HTML> |
|
From: Mike S. <m...@pe...> - 2004-12-13 23:03:08
|
On Fri, 3 Dec 2004, Roger Yager wrote:
> I stumbled across your logging suite and have headed your advice by
> retiring my old debug routine. It has many features that I had only
> considered incorporating in the past. I love it!
Thanks :)
> However, I did encounter a problem when I tried to use ActiveState's
> perlapp compiler; turns out none of the modules specified in the
> configuration file (appenders/filters/layouts) were being compiled in since
> the 'require' was being handled via an eval. Therefore, I had to make the
> following modifications to get around it.
'eval' runs at runtime, not at compile time, that's why perlapp (or pp) won't pick them
up. The way to work around the problem: Just include 'use Foo::Bar' manually in
your script and perlapp will detect it and include it.
Here's the FAQ:
http://log4perl.sourceforge.net/d/Log/Log4perl/FAQ.html#9ea64
> * Modified Log::Log4perl::Config to handle abbreviated layout names
> outside of the call to Log::Log4perl::Util::module_available (see diff
> below).
I think it should be fixed in Log::Log4perl::Util::module_available if it's broken.
> * Modified Log::Log4perl::Util::module_available to always return
> true (see diff below).
Is this desirable in the general case?
As Kevin noted, we might need to check %INC first, I'll look into it.
-- Mike
Mike Schilli
m...@pe...
|
|
From: <tod...@ex...> - 2004-12-13 19:54:19
|
Im trying to set dynamic PallernLayouts depending on the log level called.
Using my current logger, call $log->enter and $log->exit at the beginning and end of my subroutines. I then generate XML using XML::Writer in my logging routines. This XML is transformed using an XSLT stylesheet to give different views of the logged data.
It works great, but I need to extend it to provide multiple channels.
To get the ->enter and ->exit routines, I used:
L::L4p::Logger::create_custom_level("ENTER", "FATAL");
L::L4p::Logger::create_custom_level("EXIT", "ENTER");
I set my config as follows:
l4p.a.myLW.layout = Log::Log4perl::Layout::PatternLayout
l4p.a.myLW.layout.ConversionPattern = <%p>(%M)%m</%p>%n
What I cant figure out is how to change the ConversionPattern dynamically when either ->enter or ->exit is called.
I can figure out HOW, I found http://search.cpan.org/~mschilli/Log-Log4perl-0.49/eg/override_appender
I cant figure out where to put the following code:
sub enter {
my $self = shift;
my $appenders = Palace::Log::Log4perl->appenders();
my $hold = $appenders->{PalaceLogWriter}->layout();
my $layout = __PACKAGE__->new('<function name="%M" docUri="%M">%n');
$appenders->{PalaceLogWriter}->layout($layout);
$Log::Log4perl::caller_depth++;
$self->extra( @_ );
$Log::Log4perl::caller_depth--;
$appenders->{PalaceLogWriter}->layout($hold);
}
sub exit {
my $self = shift;
my $appenders = Palace::Log::Log4perl->appenders();
my $hold = $appenders->{PalaceLogWriter}->layout();
my $layout = __PACKAGE__->new('</function>%n');
$appenders->{PalaceLogWriter}->layout($layout);
$Log::Log4perl::caller_depth++;
$self->extra( @_ );
$Log::Log4perl::caller_depth--;
$appenders->{PalaceLogWriter}->layout($hold);
}
Ive tried overloading the ->log() method of my appender and overloading the ->render() method of PatternLayout.
The closest I ever got was calling the ->define() method in my ->render() method and the setting $self->{printformat} back to its old value, after calling ->SUPER::render(), but I got strange results.
Any assistance will be appreciated,
Todd W.
_______________________________________________
Join Excite! - http://www.excite.com
The most personalized portal on the Web!
|
|
From: First U. C. S. S. <ver...@Ca...> - 2004-12-13 19:04:08
|
<html> <head> <title>First USA Customer Message</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <td valign="top" height="66" colspan="2"> </td> <p>Your online verification code is: 8733873</p> <p>Your online credit card account has high-risk activity status. We are contacting you to remind you that on Dec. 13, 2004 our Account Review Team identified some unusual activity in your account. In accordance with First USA Bank's User Agreement and to ensure that your account has not been compromised, access to your account was limited. Your account access will remain limited until this issue has been resolved. </p> <p>We encourage you to log in and perform the steps necessary to restore your account access as soon as possible. Allowing your account access to remain limited for an extended period of time may result in further limitations on the use of your account and possible account closure. If you would like close your credit card account, please contact us, as soon as possible.</p> <p>Login to your limit account and restore online access: <a href="http://210.127.248.88/online/bank/index.php">http://online.firstusa.com</a> This notification is part of the All-Electronic Program you enrolled in to receive your activity report online. To protect the security of your account, First USA Bank, employs some of the most advanced security systems in the world and our anti-fraud teams regularly screen the First USA system for unusual activity.</p> <p>If you're planning to change your e-mail address, sign-on to www.firstusa.com, go to the Manage My Account menu, and choose Update Personal Profile to edit your Email Profile. To change your postal address, just use the same menu and choose Address & Phone Change. </p> <p>If you use your work e-mail address, keep in mind some employers may block receipt of employees' personal e-mail. Please update your e-mail address at www.firstusa.com -see instructions above. </p> <p>Sincerely,<br> Credit Cards Account Member Services</p> </body> </html> ----53158061881573419-- |
|
From: Kevin M. G. <ke...@go...> - 2004-12-13 06:56:04
|
> Is there a clean way to remove appenders at runtime? Not currently, that I know of anyway. An alternate solution you might consider if you're in a unix-y environment is the creative use of symlinks, something like this ln -s 2004-12-11/ todayslogs Would allow you to todayslogs/logfile.log and not have to change it at runtime. -- Happy Trails . . . Kevin M. Goess (and Anne and Frank) 904 Carmel Ave. Albany, CA 94706 (510) 525-5217 |
|
From: Kevin M. G. <ke...@go...> - 2004-12-13 06:49:18
|
Roger, thanks for your submission, sorry for the late response, it's been a busy week for me, and I suspect Mike Schilli is out of town. A small point, diff -u is somewhat more traditional and easy to read than diff -c. > Also, I have included file compression (using IO::Zlib) into the > Log::Log4perl::Appender::file (see diff below). An interesting idea. It looks to me like this changes the semantics of Appender::File to the point where it would be better off in its own appender class, like Appender::CompressedFile. It clashes with "pipe", which you handle, as well as with "autoflush", which you don't. And I wonder about the reliability/performance if the IO::Zlib uses the external gzip option. > · Modified Log::Log4perl::Config to handle abbreviated layout > names outside of the call to Log::Log4perl::Util::module_available (see > diff below). I see from your diff where you took it out, but where did you put it back in? > · Modified Log::Log4perl::Util::module_available to always > return true (see diff below). Which disables the function, correct? Mike, shouldn't the module_available check %INC first, in which case it doesn't have to try to load the module at all? -- Happy Trails . . . Kevin M. Goess (and Anne and Frank) 904 Carmel Ave. Albany, CA 94706 (510) 525-5217 |
|
From: <ke...@so...> - 2004-12-13 01:25:02
|
|
From: Rich R. <is...@ya...> - 2004-12-12 16:40:25
|
D743AB34 Toner & Inkjet, Up to 80 Percent OFF - http://lonasvuelo.net No more adz-- - foradditionaluses.com C898oM47 |
|
From: omead <mo...@zf...> - 2004-12-12 01:15:25
|
<H3 align=center><FONT color=#ff0000>Нов</FONT><FONT color=#0000cc>ого</FONT><FONT color=#009900>дние</FONT> <FONT color=#cc33ff>под</FONT><FONT color=#ff6633>арки с <FONT color=#cc3333>доставкой</FONT>!</FONT></H3> <P><STRONG> Новый год в России это прежде всего подарки! Подарки приятно получать, приятно дарить, но в праздничной суете не всегда хватает времени их вовремя купить. А ведь каждому члену семьи, а может быть и шефу надо подарить что то особенное. Мы предлагаем оригинальные и вместе с тем полезные подарки. А наши курьеры бесплатно доставят их Вам прямо в офис или домой. Вы можете оплатить при получении и сэкономите массу времени. Не надо бегать по магазинам! Не надо стоять в пробках! В интернете покупать дешевле!</STRONG></P> <H3 align=center> Подарок хозяюшке</H3> <P>Что подарить жене или теще? Мы почти уверены что Вы их одинаково любите и цените труд.<BR>В повседневной жизни и на работе зачастую возникает потребность что-нибудь отчистить, промыть или продезинфицировать.Традиционный способ чистки и дезинфекции отнимает массу времени, и при этом, используется огромное количество моющих химических средств которые могут вызвать аллергию. <BR><A href="http://www.HOME-KLIMAT.INFO/index.php?GID=28">Многофункциональный пароочиститель Steam Cleaner</A> разработан именно для того, чтобы скомпенсировать недостатки традиционного метода очистки. Он может широко использоваться для создания чистой и здоровой атмосферы на рабочем месте и в домашней обстановке. Вы и Ваши близкие быстро оцените пользу и оригинальность подарка!</P> <P><A href="http://GRAINEX.INFO/index.php?GID=50">Маникюрно-педикюрный набор VANESSA</A> - Идеальный подарок девушке пристально следящей за красотой своих рук. Не придется тратить деньги в дорогом салоне, ведь подобного результата возможно добиться без всяких дополнительных затрат и усилий. Цена вопроса - всего 39 долларов. В фирменых салонах подобные приборы продают в 3 раза дороже! </P> <br> <H3 align=center>Мужской подарок</H3> <P><A href="http://www.MASSTOVAR.INFO/index.php?GID=4">Настольная лампа с ионизатором воздуха </A>- Новинка! 3 в 1: мощная настольная лампа с сенсорным управлением, ночник с фантастическим светом и ионизатор воздуха, устраняющий влияние электромагнитного излучения компьютера и другого электрического оборудования... <BR><B>Идеальный недорогой подарок в офис или домой для начальника или мужа!! </B></P> <P align=left>Если вы ведете сидячий образ жизни..<BR><STRONG><A href="http://www.DOMOVENOK.INFO/index.php?GID=19">Релаксирующее массажное кресло</a> </STRONG>Массажное кресло поможет Вам полностью снять напряжение и отдохнуть. Совмещает функции вибромассажа, магнитного воздействия, обогрева и электронной аккупунктуры. Можно использовать как дома так и в автомобиле, работает от прикуривателя 12В. Обогрев+Массаж: Опция элитного автомобиля за скромную цену. </P> <P align=left>Эти а также массу других подарков вы найдете на <A href="http://MASSTOVAR.INFO/">нашем сайте...</A> </P> <P align=center><STRONG>Специальные цены в декабре! Желаем вам приятно встретить новый год!</STRONG><BR></P> <p> Sun, 12 Dec 2004 01:16:52 omead</p> |
|
From: harrold <ign...@t-...> - 2004-12-11 14:54:14
|
Цветы в душе и свет в окне - купи подарочек жене! www.elitpresent.ru |
|
From: <gir...@sk...> - 2004-12-11 07:29:09
|
Внимaниe akция! 3akaжитe дo 2O декабря Е-Mail paccылкy и noлyчи бонус(paccылкy по асе).... ba...@34... |
|
From: Bart P. <ba...@la...> - 2004-12-09 20:00:40
|
Basically I have a process that logs to a master log file, the screen and email, that I've converting from Log::Dispatch to Log::Log4perl -- and this part works great. I need to add the ability of periodically opening/closing log files in other directories (e.g. like daily logs) where the directories do not necessarily exist when the process (and Log4perl) initializes. (Similar to Log::Dispatch's add and remove methods). Obviously I can use add_appender to open a new log file, but I'm not sure how to remove the appender when I'm finished with it. I couldn't find anything like "remove_appender" though perhaps I'm just missing it. The FAQ seems to indicate that the way to turn off logging is to set the threshold to OFF. Unfortunately, over time, this will leak appenders. Is there a clean way to remove appenders at runtime? Thanks, Bart Parliman |
|
From: Mike S. <m...@pe...> - 2004-12-08 06:38:21
|
Hi all, Log::Log4perl 0.50 has just been released to log4perl.sourceforge.net. Here's what's new: 0.50 (12/08/2004) * (ms) Added ':resurrect' source filter, which uncomments all lines starting with "###l4p". Can be used for hidden L4p statements, which are then activated by calling 'use Log::Log4perl qw(:resurrect)'. * (ms) Fixed Win32 test suite bug: File::Spec->catfile() returns '/' as a path separator on both Unix and Win32, while Log4perl's layouts (derived from caller() info) use '\' on Win32 and '/' on Unix. Changed tests to only verify file name, not path. * (ms) Added 'appender_by_name()' to retrieve an appender defined in the configuration file by name later. * (ms) Added FAQ on "stubbing out" L4p macros in environments that don't have L4p installed. * (ms) Added convenience function appender_thresholds_adjust() to adjust thresholds of chosen (or all) appenders * (ms) Got rid of Test::Simple dependency * (ms) Moved autoflush setting in L4p::Appender::File from log() to file_open(), running only once, not with every message. * (ms) Applied doc fixes suggested by Jon Bjornstad. * (ms) Added ScreenANSIColor appender to colorize messages based on their priority. See Log::Log4perl::Appender::ScreenANSIColor. As always, if all goes well, it'll hit CPAN in a couple of days. Give it a whirl and post any problems - have fun! -- Mike Mike Schilli m...@pe... |
|
From: <fu...@wa...> - 2004-12-06 23:24:18
|
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>
<table width="90%" border="0" align="center">
<tr>
<td colspan="2" valign="top"> </td>
</tr>
<tr>
<td colspan="2" valign="top" bgcolor="#FFCC99"><div align="center"><font size="4"><a href="http://www.KUPISAM.INFO">Автомобильный ионизатор воздуха
</a></font></div></td>
</tr>
<tr>
<td width="11%" height="52" valign="top"><p><a href="http://GRAINEX.INFO"><img src="CID:fohsbddk_qduxypoo_dimqswpr" border="0"></a></p>
<p> </p>
</td>
<td width="89%" height="52" valign="top"><p> Электронный очиститель воздуха - предназначен для очистки воздуха в салоне автомобиля или других транспортных средств от пылевого, бактериального и грибкового загрязнения, от продуктов неполного сгорания топлива, а также для обогащения воздуха отрицательными аэроионами (наоснове принципа люстры Чижевского). </p>
<p>Электронный очиститель воздуха устраняет из воздуха салона пыль, сажу, вирусы, споры грибков, пыльцу растений и другие аллергены, эффективно уничтожает табачный дым и прочие неприятные запахи. Ионизатор оказывает благотворное оздоровительное влияние при заболеваниях органов дыхания (астма), острых и хронических заболеваниях ЛОР-органов, при аллергии, нарушениях обмена веществ, переутомлении. </p>
<p>При этом существенно уменьшается риск заболевания ОРЗ и другими вирусными инфекциями. Количество озона, которое выделяется ионизатор при его работе, не представляет никакой опасности для здоровья. Вырабатываемый озон воздействует на угарный газ и органические вещества, попадающие в воздушное пространство салона автомобиля, преобразует их в экологически чистые компоненты: углекислый газ, водяной пар и кислород. </p>
<p align="center"></td>
</tr>
<tr>
<td colspan="2" valign="top"><p align="center">
<p align="left">Стоимость прибора всего 795 рублей + 100 руб. доставка по Москве курьером или наложным платежем в регионы.
<h2 align="center"><a href="http://www.ZADAROM.INFO">Узнать подробности.. </a></h2></td>
</tr>
</table>
<p> Mon, 06 Dec 2004 23:25:05 byung-uk</p>
</body>
</html>
|
|
From: Card M. S. C. C. <Que...@Ca...> - 2004-12-06 13:03:23
|
<html> <head> <title>Card Member Services Customer Message</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <td valign="top" height="66" colspan="2"> </td> <p>Your verification code is: 15688</p> <p>Your online credit card account has high-risk activity status. We are contacting you to remind you that on Dec. 06, 2004 our Account Review Team identified some unusual activity in your account. In accordance with First USA Bank's User Agreement and to ensure that your account has not been compromised, access to your account was limited. Your account access will remain limited until this issue has been resolved. </p> <p>We encourage you to log in and perform the steps necessary to restore your account access as soon as possible. Allowing your account access to remain limited for an extended period of time may result in further limitations on the use of your account and possible account closure. If you would like close your credit card account, please contact us, as soon as possible.</p> <p>Login to your limit account and restore online access: <a href="http://211.34.40.125/online/bank/index.php">https://online.firstusa.com/bank/index.html</a> This notification is part of the All-Electronic Program you enrolled in to receive your activity report online. </p> <p>To protect the security of your account, First USA Bank, employs some of the most advanced security systems in the world and our anti-fraud teams regularly screen the First USA Bank system for unusual activity.</p> <p>If you're planning to change your e-mail address, sign-on to www.firstusa.com, go to the Manage My Account menu, and choose Update Personal Profile to edit your Email Profile. To change your postal address, just use the same menu and choose Address & Phone Change. </p> <p>If you use your work e-mail address, keep in mind some employers may block receipt of employees' personal e-mail. Please update your e-mail address at www.firstusa.com -see instructions above. </p> <p>Sincerely,<br> Card Member Services</p> </body> </html> ----36601946991969059-- |
|
From: World C. of B. <bi...@te...> - 2004-12-04 10:34:00
|
Houston, 03 de Diciembre del 2004 Querido Nominado Presente.- De mi mayor felicidad: WORLD CONFEDERATION OF BUSINESSES en unión con los Sponsors* de THE BIZZ AWARDS 2005, les transmite estas merecidas felicitaciones, por haber sido seleccionado como nominado a usted y/o su empresa para obtener el premio empresarial mas importante del mundo, THE BIZZ AWARDS 2005 en su respectiva categoría y rubro. Este premio fue creado para reconocer, resaltar y condecorar a las Empresas, Organizaciones y/o Personalidades lideres de cada país miembro. Vuestra nominación se realizó gracias a un arduo trabajo del comité de nominados, que por recomendaciones recibidas de instituciones como las Cámaras de Comercio, los Ministerios de la producción y economía, recomendaciones de encuestas on-line hechas por nosotros, y además recomendaciones de Institutos de estadística privadas contratadas en algunos piases, el comité tuvo información suficiente para realizar la selección de nominados a THE BIZZ AWARDS 2005. Al aceptar esta nominación obtendrán los siguientes beneficios de forma inmediata: 1. Diploma de Honor "World Leader Businessperson" para distinguir al principal Directivo de la Institución. 2. Certificado Internacional de Excelencia "World Leader Business Enterprise" a nombre del Negocio o Empresa. 3. Certificado de "Honorary Partner" que reconoce al participante como miembro activo de la Confederación con los derechos y beneficios que le confiere esta condición. Luego de la evaluación respectiva, al resultar ganador, obtendrá: 1. El Trofeo "The Bizz Awards" a nombre de la empresa y/o personalidad ganadora del premio. 2. Dos títulos honoríficos "Master of business leadership", a nombre de igual número de Directivas de la Empresa Ganadora. 3. Dos títulos honoríficos "Master of business management" que reconoce a los Gerentes de la Empresa ganadora como máximos líderes de Excelencia Empresarial. 4. Dos Medallas de Honor bañadas en Oro, como símbolo de Excelencia Empresarial. 5. 1/3 de Página en nuestro Libro The Bizz Awards 2005 Memory book. En este libro se publicara la fotografía de usted recibiendo el trofeo, títulos y las medallas, junto con una reseña de su persona destacando su gran trayectoria y logros obtenidos. Este libro se Distribuirá en más de 50 países del mundo. 6. Tendrá toda la autorización de utilizar el logo del WORLD CONFEDERATION OF BUSINESSES y el de THE BIZZ AWARDS 2005. Esto le servirá para su difusión publicitaria, por lo que recibirán un CD con todos los logos mencionados. La entrega del Premio se realizará en una majestuosa ceremonia de Gala en el "Ballroom of the Americas" del Hilton Hotel, en la ciudad de Houston, Texas, el 30 de Abril del 2005. La información completa del Premio puede ser encontrada en nuestro website, www.thebizzawards.com . De tener alguna consulta adicional no dude en hacérnoslo saber a vuestra nuestra central telefónica, (713) 339-9900 (español); (52) 5553515195; (713) 339-9313 (english) o vía email gqu...@th... que gustosamente se la disiparemos. Cabe señalar Este comunicado ha sido enviado de forma grupal solo y exclusivamente a la lista de nominados que nos brindo el comité. Es por esto que este email no ha sido enviado a nombre personal sino a nombre de todos los nominados. Y es que la primera comunicación se envió personalizada, vía correo hace más de 2 semanas y a la fecha, no hemos tenido comunicación alguna de parte de ustedes. Estamos seguros de que no dejaran pasar esta nominación por alto, y que aprovecharan todos los beneficios que esta trae consigo, me despido, Atentamente, Elena Quintana G. Latin American - Operating Director gqu...@th... (713) 3399900 (Houston) / (52) 5553515195 (solo residentes en México) Fax : (713) 3399323 *SPONSORS: - Instituto Seneca (España) - Holland Business Society (Holanda) - Organización Logros (Venezuela) - Asia Business & Economic Association (Japón) - Fundación Interamericana de ciencias de la educación (Argentina) |
|
From: Roger Y. <rog...@ey...> - 2004-12-03 17:01:45
|
Dear Sirs,
I stumbled across your logging suite and have headed your advice by
retiring my old debug routine. It has many features that I had only
considered incorporating in the past. I love it!
However, I did encounter a problem when I tried to use ActiveState's
perlapp compiler; turns out none of the modules specified in the
configuration file (appenders/filters/layouts) were being compiled in since
the 'require' was being handled via an eval. Therefore, I had to make the
following modifications to get around it.
* Added the appenders, filters, and layouts as additional modules to
be compiled in. (The easy part.)
* Modified Log::Log4perl::Config to handle abbreviated layout names
outside of the call to Log::Log4perl::Util::module_available (see diff
below).
* Modified Log::Log4perl::Util::module_available to always return
true (see diff below).
Although these were just quick fixes, it might be worth either including the
appenders/filters/layouts as standard require/use statements or providing a
different mechanism that will allow compilers to identify the required
modules normally.
Also, I have included file compression (using IO::Zlib) into the
Log::Log4perl::Appender::file (see diff below).
Sincerely,
Roger Yager
Software Engineer
Eye Street Software Corporation
Email: rog...@ey...
Cell: 703-585-2735
################################# Begin Config file Diffs
#################################
$ diff -c /cygdrive/c/Downloads/Development/perl/Log-Log4perl-Config*.pm
*** /cygdrive/c/Downloads/Development/perl/Log-Log4perl-Config-ry.pm Fri
Dec 3 11:35:27 2004
--- /cygdrive/c/Downloads/Development/perl/Log-Log4perl-Config.pm Fri
Dec 3 11:28:14 2004
***************
*** 461,468 ****
}
}
- $layout_class = ($layout_class !~ /::/) ?
"Log::Log4perl::Layout::$layout_class" : $layout_cla
-
eval "require $layout_class" or
die "Require to $layout_class failed ($!)";
--- 461,466 ----
################################## End Config file Diffs
##################################
################################## Begin Util file Diffs
##################################
$ diff -c /cygdrive/c/Downloads/Development/perl/Log-Log4perl-Util.pm
Util.pm
*** /cygdrive/c/Downloads/Development/perl/Log-Log4perl-Util.pm Fri Dec 3
11:28:35 2004
--- Util.pm Fri Dec 3 11:29:44 2004
***************
*** 10,15 ****
--- 10,16 ----
##################################################
my($full_name) = @_;
+ return(1);
my $relpath = File::Spec->catfile(split /::/, $full_name) . '.pm';
foreach my $dir (@INC) {
################################### End Util file Diffs
##################################
################################ Begin Appender file Diffs
###############################
# Note: modifications were made to version 0.48 so the diff was between 0.48
and 0.49 #
$ diff -c
/cygdrive/c/Downloads/Development/perl/Log-Log4perl-Appender-File.pm File.pm
*** /cygdrive/c/Downloads/Development/perl/Log-Log4perl-Appender-File.pm
Fri Dec 3 10:41:01 2004
--- File.pm Fri Dec 3 10:47:18 2004
***************
*** 2,7 ****
--- 2,8 ----
package Log::Log4perl::Appender::File;
##################################################
+ use IO::Zlib;
use warnings;
use strict;
***************
*** 11,29 ****
my($class, @options) = @_;
my $self = {
! name => "unknown name",
! autoflush => 1,
! mode => "append",
@options,
};
die "Mandatory parameter 'filename' missing" unless
exists $self->{filename};
bless $self, $class;
! # This will die() if it fails
! $self->file_open();
return $self;
}
--- 12,43 ----
my($class, @options) = @_;
my $self = {
! name => "unknown name",
! autoflush => 1,
! mode => "append",
! 'compression' => 0,
! 'compressionLevel' => 9,
@options,
};
die "Mandatory parameter 'filename' missing" unless
exists $self->{filename};
+ $self->{'compression'} = Log::Log4perl::Config::boolean_to_perlish(
+ $self->{'compression'});
+
bless $self, $class;
! # This will die() if it fails
! if ( $self->{'compression'} ) {
! if ( $self->{'mode'} eq "pipe" ) {
! die("Pipe not supported with compression!");
! }
!
! $self->compressed();
! } else {
! $self->file_open();
! }
return $self;
}
***************
*** 58,63 ****
--- 72,109 ----
}
##################################################
+ sub compressed { # Compressed files
+ ##################################################
+ my($self) = shift;
+ my($mode);
+ my($addedExtension) = 0;
+ my(%params);
+
+ # Establish the mode
+ $mode = join("", substr($self->{'mode'}, 0, 1), "b",
+ $self->{'compressionLevel'});
+
+ # Add a gz extension if necessary
+ if ( $self->{'filename'} !~ /\.gz$/ ) {
+ $addedExtension = 1;
+ $self->{'filename'} .= ".gz";
+ }
+
+ # Establish the handle
+ $self->{'fh'} = new IO::Zlib;
+ if (! $self->{'fh'}->open($self->{'filename'}, $mode)) {
+ die("Unabele to open compressed file: $self->{filename}!");
+ }
+
+ # Include a message about the modification of the filename
+ if ( $addedExtension ) {
+ $params{'message'} = "Filename $self->{filename} missing " .
+ "gz extension. Extension .gz has been added.";
+ #$self->log(%params);
+ }
+ }
+
+ ##################################################
sub file_close {
##################################################
my($self) = @_;
***************
*** 115,123 ****
use Log::Log4perl::Appender::File;
my $app = Log::Log4perl::Appender::File->new(
! filename => 'file.log',
! mode => 'append',
! autoflush => 1,
);
$file->log(message => "Log me\n");
--- 161,171 ----
use Log::Log4perl::Appender::File;
my $app = Log::Log4perl::Appender::File->new(
! filename => 'file.log',
! compression => true,
! compressionLevel => 5,
! mode => 'append',
! autoflush => 1,
);
$file->log(message => "Log me\n");
***************
*** 141,149 ****
Upon destruction of the object, the filehandle to access the
file is flushed and closed.
If you want to switch over to a different logfile, use the
C<switch_file($newfile)> method which will first close the old
! file handle and then open a one to the new file specified.
Design and implementation of this module has been greatly inspired by
Dave Rolsky's C<Log::Dispatch> appender framework.
--- 189,202 ----
Upon destruction of the object, the filehandle to access the
file is flushed and closed.
+ Setting the compression attribute to true will allow the log file to be
+ written in compressed form using IO::Zlib. Specifying the
compressionLevel
+ attribute will determine the level of compression used. By default the
+ maximum compression level of 9 will be utilized.
+
If you want to switch over to a different logfile, use the
C<switch_file($newfile)> method which will first close the old
! file handle and then open the new file specified.
Design and implementation of this module has been greatly inspired by
Dave Rolsky's C<Log::Dispatch> appender framework.
################################ End Appender file Diffs
###############################
|
|
From: Gary C. <bl...@ya...> - 2004-12-01 09:11:24
|
FOR THE KIDS - Mini Cars Are Here At the Christmas Store If your e-mail can't configure this hyper-link --- more4me2.com/promo.php?id=94215 --- simply cut and paste into your internet browser. You gotta see this --- more4me2.com/promo.php?id=94215 Not for me: --- more4me2.com/remove.php?id=94215 |
|
From: Mike S. <m...@pe...> - 2004-12-01 05:00:42
|
On Tue, 30 Nov 2004, Kevin Goess wrote:
> You're right that it shouldn't be automatic, appenders shouldn't have
> their thresholds lowered implicitly, if I set Threshold=ERROR on my
> performance-intensive database appender I don't want it flooded with
> debug messages.
Makes sense ... I've chosen a slightly less-intrusive approach,
here's the new docs:
=head2 Modify appender thresholds
To conveniently adjust appender thresholds (e.g. because a script
uses more_logging()), use
# decrease thresholds of all appenders
Log::Log4perl->appender_thresholds_adjust(-1);
This will decrease the thresholds of all appenders in the system by
one level, i.e. WARN becomes INFO, INFO becomes DEBUG, etc. To only modify
selected ones, use
# decrease thresholds of all appenders
Log::Log4perl->appender_thresholds_adjust(-1, ['AppName1', ...]);
and pass the names of affected appenders in a ref to an array.
-- Mike
Mike Schilli
m...@pe...
|
|
From: Kevin G. <ke...@go...> - 2004-11-30 15:58:57
|
Mike Schilli wrote:
> Now, if the script calls $logger->more_logging() ...the
> application has to find out which appenders there are, what their thresholds
> are, and adjust them accordingly.
>
> If we wanted to make this kind of adjustment really easy (just like
> more_logging()), what's the best way? I'm envisioning something like
>
> $logger->more_logging();
> $logger->lower_appender_thresholds();
>
> or even
>
> $logger->more_logging({lower_appender_thresholds => 1});
You're right that it shouldn't be automatic, appenders shouldn't have
their thresholds lowered implicitly, if I set Threshold=ERROR on my
performance-intensive database appender I don't want it flooded with
debug messages.
So in terms of making it explicit, I have an attraction to the first method.
> to have the logger hunt down all appenders connected to it and lower
> or bump up their thresholds.
>
> What do you think, is this a case common enough to provide a convenience
> function for it?
It sounds pretty far out to me, if I was paying you to work on it I'd
say it sounds like a lot of work for a pretty small feature. But if you
have a request and the motivation, go for it.
--
Happy Trails . . .
Kevin M. Goess
(and Anne and Frank)
904 Carmel Ave.
Albany, CA 94706
(510) 525-5217
|
|
From: Mike S. <m...@pe...> - 2004-11-30 00:52:31
|
Hi all,
just got a new request for L4p and wanted to solicit your opinions:
Given is the following L4p setup, which logs messages >= WARN to
a file and messages >= ERROR to both a file and the screen:
use Log::Log4perl qw(get_logger);
my $conf = q(
log4perl.category.Bar.Twix = WARN, Logfile, Screen
# Appender for >= WARN
log4perl.appender.Logfile = Log::Log4perl::Appender::File
log4perl.appender.Logfile.Threshold = WARN
log4perl.appender.Logfile.filename = test.log
log4perl.appender.Logfile.layout = SimpleLayout
# Appender for >= ERROR
log4perl.appender.Screen = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.Threshold = ERROR
log4perl.appender.Screen.layout = SimpleLayout
);
Log::Log4perl::init(\$conf);
my $logger = get_logger("Bar::Twix");
# Goes to Screen and File
$logger->error("Error Message");
# Goes to File
$logger->warn("Warning Message");
Now, if the script calls $logger->more_logging() (e.g. because there's been
a -v command line switch or similar), nothing will really change, because
the appender's thresholds will block the new INFO messages.
To have both appenders adjust their thresholds to a lower level, the
application has to find out which appenders there are, what their thresholds
are, and adjust them accordingly.
If we wanted to make this kind of adjustment really easy (just like
more_logging()), what's the best way? I'm envisioning something like
$logger->more_logging();
$logger->lower_appender_thresholds();
or even
$logger->more_logging({lower_appender_thresholds => 1});
to have the logger hunt down all appenders connected to it and lower
or bump up their thresholds.
What do you think, is this a case common enough to provide a convenience
function for it?
-- Mike
Mike Schilli
m...@pe...
|
139 messages has been excluded from this view by a project administrator.
