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 | |
| 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')
| -rw-r--r-- | fml/etc/default_config.cf.ja | 11 | ||||
| -rw-r--r-- | fml/etc/defaults/spool.cf.ja | 11 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 8 |
3 files changed, 22 insertions, 8 deletions
diff --git a/fml/etc/default_config.cf.ja b/fml/etc/default_config.cf.ja index 1ef1dfff..6a6aeb8d 100644 --- a/fml/etc/default_config.cf.ja +++ b/fml/etc/default_config.cf.ja @@ -125,11 +125,16 @@ log_type = file # log message format log_format_type = fml4_compatible -=head1 記事のスプール +=head1 記事および記事のスプール -sequence_file = $ml_home_dir/seq +# 記事を配送する +use_article_delivery = yes + +# 記事をスプールディレクトリに保存する +use_spool = yes -use_spool = yes +# 記事番号 +sequence_file = $ml_home_dir/seq spool_dir = $ml_home_dir/spool diff --git a/fml/etc/defaults/spool.cf.ja b/fml/etc/defaults/spool.cf.ja index dd210f3c..eacb1233 100644 --- a/fml/etc/defaults/spool.cf.ja +++ b/fml/etc/defaults/spool.cf.ja @@ -1,8 +1,13 @@ -=head1 記事のスプール +=head1 記事および記事のスプール -sequence_file = $ml_home_dir/seq +# 記事を配送する +use_article_delivery = yes + +# 記事をスプールディレクトリに保存する +use_spool = yes -use_spool = yes +# 記事番号 +sequence_file = $ml_home_dir/seq spool_dir = $ml_home_dir/spool 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; |