diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-02-17 14:44:15 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-02-17 14:44:15 +0000 |
| commit | 8008d99c22778c8735d4ad24352a61e2d7c17d84 (patch) | |
| tree | b0aa01892ca439b02fe54026add3b0ead36c4934 /Echolot/Chain.pm | |
| parent | 3103f9137c65eeba6a21899a286c957483559860 (diff) | |
Collect From: header lines
Diffstat (limited to 'Echolot/Chain.pm')
| -rw-r--r-- | Echolot/Chain.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Echolot/Chain.pm b/Echolot/Chain.pm index 02604ad..dcf6647 100644 --- a/Echolot/Chain.pm +++ b/Echolot/Chain.pm @@ -1,7 +1,7 @@ package Echolot::Chain; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Chain.pm,v 1.7 2003/02/17 07:22:49 weasel Exp $ +# $Id: Chain.pm,v 1.8 2003/02/17 14:44:15 weasel Exp $ # =pod @@ -36,6 +36,7 @@ sub do_mix_chainping($$$$$$$$) { Echolot::Pinger::Mix::ping( $body, $to, + 0, [ $key1{'nick'} , $key2{'nick'} ], { $keyid1 => \%key1, $keyid2 => \%key2 } ) or return 0; @@ -58,6 +59,7 @@ sub do_cpunk_chainping($$$$$$$$) { Echolot::Pinger::CPunk::ping( $body, $to, + 0, [ { address => $addr1, keyid => $keyid1, encrypt => ($type1 ne 'cpunk-clear'), @@ -202,8 +204,8 @@ sub set_intensive_care($@) { }; }; -sub receive($$$) { - my ($msg, $token, $timestamp) = @_; +sub receive($$$$) { + my ($header, $msg, $token, $timestamp) = @_; my $now = time(); |