diff options
| author | fukachan <fukachan> | 2001-02-10 13:55:50 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-02-10 13:55:50 +0000 |
| commit | 5ed67ceffcad9da5c0a0533e607935aaf4e27415 (patch) | |
| tree | 3b6e40ec40f2499b3ecf4fa9805d8cee67f51b89 /fml/lib/FML/Process/Distribute.pm | |
| parent | d3dd076c515c1b38209823df9d8ce11ebfedf163 (diff) | |
| download | fml8-5ed67ceffcad9da5c0a0533e607935aaf4e27415.tar.gz fml8-5ed67ceffcad9da5c0a0533e607935aaf4e27415.tar.bz2 fml8-5ed67ceffcad9da5c0a0533e607935aaf4e27415.zip | |
add $use_article_delivery to or not to enable article delivery function
XXX it is independent from $use_spool.
XXX spooling and delivery of articles are independent from each other.
Diffstat (limited to 'fml/lib/FML/Process/Distribute.pm')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index d997935c..8569d1d6 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -172,8 +172,12 @@ sub _deliver_article my ($curproc, $args) = @_; my $config = $curproc->{ config }; # FML::Config object - my $body = $curproc->{ article }->{ body }; # MailingList::Messages - my $header = $curproc->{ article }->{ header };# FML::Header + my $body = $curproc->{ article }->{ body }; # MailingList::Messages; + my $header = $curproc->{ article }->{ header };# FML::Header; + + unless ( $config->yes( 'use_article_delivery' ) ) { + return; + } # distribute article use MailingList::Delivery; |