diff options
| author | fukachan <fukachan> | 2001-01-20 11:15:21 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-20 11:15:21 +0000 |
| commit | 7d6d532e2da031f58589ce06d618a478ab0a7474 (patch) | |
| tree | 135d37bf040526f06b0829afd25a386ceefd47d8 /fml/lib/FML/Process | |
| parent | d6e71179d4f3c69e6466dd54cbb5741f542d8c41 (diff) | |
| download | fml8-7d6d532e2da031f58589ce06d618a478ab0a7474.tar.gz fml8-7d6d532e2da031f58589ce06d618a478ab0a7474.tar.bz2 fml8-7d6d532e2da031f58589ce06d618a478ab0a7474.zip | |
nuke native _smtplog but we given the pointer to smtplog() and _smtplog()
within FML::Process::*
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 320c7ca7..700cd6ea 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -86,10 +86,12 @@ sub _distribute # distribute article use Netlib::SMTP; - my $fp = sub { Log(@_);}; # pointer to the log function + my $fp = sub { Log(@_);}; # pointer to the log function + my $sfp = sub { my ($s) = @_; print $s; print "\n" if $s !~ /\n$/o;}; my $service = new Netlib::SMTP { - log_function => $fp, - socket_timeout => 2, + log_function => $fp, + smtp_log_function => $sfp, + socket_timeout => 2, # XXX 2 for debug but 10 by default }; if ($service->error) { Log($service->error); return;} |