summaryrefslogtreecommitdiff
path: root/Echolot/Pinger/Mix.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-02-17 14:44:15 +0000
committerPeter Palfrader <peter@palfrader.org>2003-02-17 14:44:15 +0000
commit8008d99c22778c8735d4ad24352a61e2d7c17d84 (patch)
treeb0aa01892ca439b02fe54026add3b0ead36c4934 /Echolot/Pinger/Mix.pm
parent3103f9137c65eeba6a21899a286c957483559860 (diff)
Collect From: header lines
Diffstat (limited to 'Echolot/Pinger/Mix.pm')
-rw-r--r--Echolot/Pinger/Mix.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/Echolot/Pinger/Mix.pm b/Echolot/Pinger/Mix.pm
index 6e1072d..f331f2a 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.12 2003/01/14 06:40:24 weasel Exp $
+# $Id: Mix.pm,v 1.13 2003/02/17 14:44:15 weasel Exp $
#
=pod
@@ -20,8 +20,8 @@ use strict;
use English;
use Echolot::Log;
-sub ping($$$$) {
- my ($body, $to, $chain, $keys) = @_;
+sub ping($$$$$) {
+ my ($body, $to, $with_from, $chain, $keys) = @_;
my $chaincomma = join (',', @$chain);
@@ -70,6 +70,8 @@ sub ping($$$$) {
open(MIX, "|".Echolot::Config::get()->{'mixmaster'}." -m -S -l $chaincomma 2>/dev/null") or
Echolot::Log::warn("Cannot exec mixpinger: $!."),
return 0;
+ print MIX "From: Echolot Pinger <$address>\n"
+ if $with_from;
print MIX "To: $to\n\n$body\n";
close (MIX);