diff options
| author | fukachan <fukachan> | 2001-01-24 12:32:00 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-24 12:32:00 +0000 |
| commit | bbbaac908bcf60ef95efcbf5d693016fec9976d5 (patch) | |
| tree | 328e32960ceee8c8914868c3035a520210df7f7b /fml/lib/FML/Process | |
| parent | 691d1c10da49168919a708eb4d750647204b2a20 (diff) | |
| download | fml8-bbbaac908bcf60ef95efcbf5d693016fec9976d5.tar.gz fml8-bbbaac908bcf60ef95efcbf5d693016fec9976d5.tar.bz2 fml8-bbbaac908bcf60ef95efcbf5d693016fec9976d5.zip | |
reconstruct hierarchy under MailingList::
Delivery
|
------------------
| | |
SMTP LMTP ....
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 7417fea4..edd0fd03 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -164,10 +164,11 @@ sub _deliver_article my $header = $curproc->{ article }->{ header };# FML::Header # distribute article - use MailingList::SMTP; + use MailingList::Delivery; + 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 MailingList::SMTP { + my $service = new MailingList::Delivery { log_function => $fp, smtp_log_function => $sfp, socket_timeout => 2, # XXX 2 for debug but 10 by default |