summaryrefslogtreecommitdiff
path: root/Echolot/Pinger/Mix.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-06-18 17:19:00 +0000
committerPeter Palfrader <peter@palfrader.org>2002-06-18 17:19:00 +0000
commitba461ce2b7f7677cf16ef77bc4389666f82b977f (patch)
treef726e2f52ac50c620bfc9725cebcc7718daac446 /Echolot/Pinger/Mix.pm
parentaa9115bfb5032c5689936e955b119203e0d006dc (diff)
changed chain parameter
Diffstat (limited to 'Echolot/Pinger/Mix.pm')
-rw-r--r--Echolot/Pinger/Mix.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/Echolot/Pinger/Mix.pm b/Echolot/Pinger/Mix.pm
index afe957f..5dd0ef5 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.1 2002/06/11 09:53:35 weasel Exp $
+# $Id: Mix.pm,v 1.2 2002/06/18 17:19:00 weasel Exp $
#
=pod
@@ -24,6 +24,8 @@ use English;
sub ping($$$$) {
my ($body, $to, $chain, $keys) = @_;
+ my $chaincomma = join (',', @$chain);
+
my $keyring = Echolot::Config::get()->{'Pinger::Mix'}->{'mixdir'}.'/pubring.mix';
open (F, '>'.$keyring) or
cluck("Cannot open $keyring for writing: $!"),
@@ -36,7 +38,7 @@ sub ping($$$$) {
cluck("Cannot close $keyring"),
return 0;
- open(MIX, "|".Echolot::Config::get()->{'Pinger::Mix'}->{'mix'}." -m -S -l $chain") or
+ open(MIX, "|".Echolot::Config::get()->{'Pinger::Mix'}->{'mix'}." -m -S -l $chaincomma") or
cluck("Cannot exec mixpinger: $!"),
return 0;
print MIX "To: $to\n\n$body";