From ebd569ea272e69b0a3d17999e8fdb87f056b5355 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Fri, 14 Feb 2003 04:56:16 +0000
Subject: Moved pgp2compat into hop information with cpunk pings minor cleanups
 and code beautification

---
 Echolot/Pinger/CPunk.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Echolot/Pinger')

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;
-- 
cgit v1.2.3