diff options
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 848fe577..5b06b50e 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -202,6 +202,24 @@ sub _deliver_article my $fp = sub { Log(@_);}; # pointer to the log function my $sfp = sub { my ($s) = @_; print $s; print "\n" if $s !~ /\n$/o;}; + + { # debug + my $dir = $config->{ smtp_log_dir }; + use FML::Utils qw(mkdirhier); + mkdirhier($dir) unless -d $dir; + + my $f = $config->{ smtp_log_file }; + unlink $f if -f $f; + if ($f) { + use FileHandle; + my $fh = new FileHandle "> $f"; + if (defined $fh) { + $fh->autoflush(1); + $sfp = sub { print $fh @_;}; + } + } + } + my $service = new MailingList::Delivery { log_function => $fp, smtp_log_function => $sfp, |