summaryrefslogtreecommitdiff
path: root/Echolot/Pinger/CPunk.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-02-14 04:56:16 +0000
committerPeter Palfrader <peter@palfrader.org>2003-02-14 04:56:16 +0000
commitebd569ea272e69b0a3d17999e8fdb87f056b5355 (patch)
treef5326fd3a0542ec8c9567f59fc1cfa3cd81a488a /Echolot/Pinger/CPunk.pm
parent23be59f56e52acd5182256c780f31ee2185bfbe8 (diff)
Moved pgp2compat into hop information with cpunk pings
minor cleanups and code beautification
Diffstat (limited to 'Echolot/Pinger/CPunk.pm')
-rw-r--r--Echolot/Pinger/CPunk.pm8
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;