diff options
| author | fukachan <fukachan> | 2006-03-26 14:56:17 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-03-26 14:56:17 +0000 |
| commit | 1ec41964df136ca850e388b3987e71f3fe1c58e6 (patch) | |
| tree | 80adc7586e8b5ad44d357f9c6b24566b47a1f312 /fml/lib/FML/Process | |
| parent | 323380bed2b193834604d9dd35c1b5897bf703ba (diff) | |
| download | fml8-1ec41964df136ca850e388b3987e71f3fe1c58e6.tar.gz fml8-1ec41964df136ca850e388b3987e71f3fe1c58e6.tar.bz2 fml8-1ec41964df136ca850e388b3987e71f3fe1c58e6.zip | |
use $curproc->log() as log_info and $curproc->logdebug() as log_debug
in Mail::Delivery, by passing log_debug function pointer to
Mail::Delivery class.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 87c7362e..9a88543f 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.171 2006/03/21 07:04:07 fukachan Exp $ +# $FML: Distribute.pm,v 1.172 2006/03/25 04:07:26 fukachan Exp $ # package FML::Process::Distribute; @@ -598,8 +598,9 @@ sub _deliver_article } # 2. distribute article - my $fp_log_info = sub { $curproc->logdebug(@_);}; + my $fp_log_info = sub { $curproc->log(@_);}; my $fp_log_error = sub { $curproc->logerror(@_);}; + my $fp_log_debug = sub { $curproc->logdebug(@_);}; my $fp_smtplog = sub { my ($s) = @_; print $s; print "\n" if $s !~ /\n$/o; }; @@ -635,6 +636,7 @@ sub _deliver_article $service = new Mail::Delivery { log_info_function => $fp_log_info, log_error_function => $fp_log_error, + log_debug_function => $fp_log_debug, smtp_log_function => $fp_smtplog, smtp_log_handle => $handle, address_validate_function => $validater, |