diff options
| author | fukachan <fukachan> | 2002-05-27 11:20:00 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-05-27 11:20:00 +0000 |
| commit | eb03edfb8ba3028d1bc5db5e9aa5f4f7da40f9d5 (patch) | |
| tree | 36b8671e6154b86d270e54717698760d99e4817e /fml/lib/FML/Process | |
| parent | 47a3d3bd087c8d8b24dd6858c698abd2528271e3 (diff) | |
| download | fml8-eb03edfb8ba3028d1bc5db5e9aa5f4f7da40f9d5.tar.gz fml8-eb03edfb8ba3028d1bc5db5e9aa5f4f7da40f9d5.tar.bz2 fml8-eb03edfb8ba3028d1bc5db5e9aa5f4f7da40f9d5.zip | |
pass smtp log file handle to Mail::Delivery
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 5e138590..3276c7d4 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.76 2002/05/21 15:07:31 fukachan Exp $ +# $FML: Distribute.pm,v 1.77 2002/05/27 08:51:13 fukachan Exp $ # package FML::Process::Distribute; @@ -389,10 +389,12 @@ sub _deliver_article # distribute article my $fp = sub { Log(@_);}; # pointer to the log function my $sfp = sub { my ($s) = @_; print $s; print "\n" if $s !~ /\n$/o;}; + my $handle = undef; my $wh = $curproc->open_outgoing_message_channel(); if (defined $wh) { $sfp = sub { print $wh @_;}; + $handle = $wh; } if (0) { # debug @@ -420,6 +422,7 @@ sub _deliver_article $service = new Mail::Delivery { log_function => $fp, smtp_log_function => $sfp, + smtp_log_handle => $handle, }; }; croak($@) if $@; |