diff options
| author | fukachan <fukachan> | 2002-05-21 15:07:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-05-21 15:07:31 +0000 |
| commit | 5869023fd142870d89638ea1587b709dce49f42d (patch) | |
| tree | 33627cd76ce8884a0af7fe742bf2363b76a51ea2 /fml/lib/FML/Process | |
| parent | 0ed10c88915a4a0739133648411d92e2a6d8eec5 (diff) | |
| download | fml8-5869023fd142870d89638ea1587b709dce49f42d.tar.gz fml8-5869023fd142870d89638ea1587b709dce49f42d.tar.bz2 fml8-5869023fd142870d89638ea1587b709dce49f42d.zip | |
use $curproc->open_outgoing_message_channel() not _smtplog to save
SMTP transaction logs.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 2be6afef..f5d51603 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.74 2002/04/23 14:10:33 fukachan Exp $ +# $FML: Distribute.pm,v 1.75 2002/04/28 13:34:16 fukachan Exp $ # package FML::Process::Distribute; @@ -390,7 +390,12 @@ sub _deliver_article my $fp = sub { Log(@_);}; # pointer to the log function my $sfp = sub { my ($s) = @_; print $s; print "\n" if $s !~ /\n$/o;}; - { # debug + my $wh = $curproc->open_outgoing_message_channel(); + if (defined $wh) { + $sfp = sub { print $wh @_;}; + } + + if (0) { # debug my $dir = $config->{ smtp_log_dir }; use File::Utils qw(mkdirhier); mkdirhier($dir) unless -d $dir; @@ -407,6 +412,7 @@ sub _deliver_article } } + # delay loading of module my $service = {}; eval q{ |