From bcb4b53f7c2aec7062fac9f468496381a257ad82 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 2 Jul 2002 18:03:55 +0000
Subject: ping cpunk without pgponly in clear too

---
 Echolot/Pinger/CPunk.pm | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

(limited to 'Echolot/Pinger/CPunk.pm')

diff --git a/Echolot/Pinger/CPunk.pm b/Echolot/Pinger/CPunk.pm
index 2c80d4d..90b8b8a 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.3 2002/07/02 14:21:38 weasel Exp $
+# $Id: CPunk.pm,v 1.4 2002/07/02 18:03:55 weasel Exp $
 #
 
 =pod
@@ -196,14 +196,17 @@ sub ping($$$$$) {
 			"Anon-To: $to\n".
 			"\n".
 			$msg;
-		my $encrypted = encrypt_to($msg, $hop->{'keyid'}, $keys, $pgp2compat);
-		(defined $encrypted) or 
-			cluck("Encrypted is undefined"),
-			return undef;
-		$msg = "::\n".
-			"Encrypted: PGP\n".
-			"\n".
-			$encrypted;
+
+		if ($hop->{'encrypt'}) {
+			my $encrypted = encrypt_to($msg, $hop->{'keyid'}, $keys, $pgp2compat);
+			(defined $encrypted) or 
+				cluck("Encrypted is undefined"),
+				return undef;
+			$msg = "::\n".
+				"Encrypted: PGP\n".
+				"\n".
+				$encrypted;
+		};
 		$to = $hop->{'address'};
 	}
 
-- 
cgit v1.2.3