diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-02-14 04:56:16 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-02-14 04:56:16 +0000 |
| commit | ebd569ea272e69b0a3d17999e8fdb87f056b5355 (patch) | |
| tree | f5326fd3a0542ec8c9567f59fc1cfa3cd81a488a /Echolot/Pinger | |
| parent | 23be59f56e52acd5182256c780f31ee2185bfbe8 (diff) | |
Moved pgp2compat into hop information with cpunk pings
minor cleanups and code beautification
Diffstat (limited to 'Echolot/Pinger')
| -rw-r--r-- | Echolot/Pinger/CPunk.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Echolot/Pinger/CPunk.pm b/Echolot/Pinger/CPunk.pm index 435db22..a82e791 100644 --- a/Echolot/Pinger/CPunk.pm +++ b/Echolot/Pinger/CPunk.pm @@ -1,7 +1,7 @@ package Echolot::Pinger::CPunk; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: CPunk.pm,v 1.11 2003/01/14 05:25:35 weasel Exp $ +# $Id: CPunk.pm,v 1.12 2003/02/14 04:56:16 weasel Exp $ # =pod @@ -172,8 +172,8 @@ sub encrypt_to($$$$) { return $result; }; -sub ping($$$$$) { - my ($body, $to, $chain, $keys, $pgp2compat) = @_; +sub ping($$$$) { + my ($body, $to, $chain, $keys) = @_; my $msg = $body; @@ -184,7 +184,7 @@ sub ping($$$$$) { $msg; if ($hop->{'encrypt'}) { - my $encrypted = encrypt_to($msg, $hop->{'keyid'}, $keys, $pgp2compat); + my $encrypted = encrypt_to($msg, $hop->{'keyid'}, $keys, $hop->{'pgp2compat'}); (defined $encrypted) or Echolot::Log::debug("Encrypted is undefined."), return undef; |