diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-09-10 20:03:20 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-09-10 20:03:20 +0000 |
| commit | 7806b9613d43e46d28782bc1cdb4f3f637911d2b (patch) | |
| tree | 7c3c18030ef6f89527bb0f69e0a33c53681aa815 /Echolot/Pinger/Mix.pm | |
| parent | 3ee44994425c98bfedc04990aa5cd018bad44898 (diff) | |
Write SENDMAIL to mix.cfg
Diffstat (limited to 'Echolot/Pinger/Mix.pm')
| -rw-r--r-- | Echolot/Pinger/Mix.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Echolot/Pinger/Mix.pm b/Echolot/Pinger/Mix.pm index 1bae338..40d2d9b 100644 --- a/Echolot/Pinger/Mix.pm +++ b/Echolot/Pinger/Mix.pm @@ -1,7 +1,7 @@ package Echolot::Pinger::Mix; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Mix.pm,v 1.8 2002/08/19 19:02:19 weasel Exp $ +# $Id: Mix.pm,v 1.9 2002/09/10 20:03:20 weasel Exp $ # =pod @@ -51,6 +51,7 @@ sub ping($$$$) { my $mixcfg = Echolot::Config::get()->{'mixhome'}.'/mix.cfg'; my $address = Echolot::Config::get()->{'my_localpart'} . '@' . Echolot::Config::get()->{'my_domain'}; + my $sendmail = Echolot::Config::get()->{'sendmail'}; open (F, ">$mixcfg") or cluck("Cannot open $mixcfg for writing: $!"), return 0; @@ -59,6 +60,7 @@ sub ping($$$$) { print (F "ADDRESS $address\n"); print (F "PUBRING pubring.mix\n"); print (F "TYPE2LIST type2.list\n"); + print (F "SENDMAIL $sendmail -f $address -t\n"); close (F) or cluck("Cannot close $mixcfg: $!"), return 0; |