diff options
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 5 | ||||
| -rw-r--r-- | fml/lib/MailingList/Delivery.pm | 29 |
2 files changed, 32 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 diff --git a/fml/lib/MailingList/Delivery.pm b/fml/lib/MailingList/Delivery.pm new file mode 100644 index 00000000..5288e42d --- /dev/null +++ b/fml/lib/MailingList/Delivery.pm @@ -0,0 +1,29 @@ +#-*- perl -*- +# +# Copyright (C) 2000-2001 Ken'ichi Fukamachi +# All rights reserved. This program is free software; you can +# redistribute it and/or modify it under the same terms as Perl itself. +# +# $Id$ +# $FML$ +# + +package MailingList::Delivery; + +use strict; +use vars qw(@ISA @EXPORT @EXPORT_OK); +use Carp; +use IO::Socket; +use MailingList::SMTP; + +require Exporter; +@ISA = qw(MailingList::SMTP Exporter); + + +sub new +{ + my ($self, $args) = @_; + $self->SUPER::new($args); +} + +1; |