summaryrefslogtreecommitdiff
path: root/Echolot/Pinger/CPunk.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-01-02 20:04:50 +0000
committerPeter Palfrader <peter@palfrader.org>2003-01-02 20:04:50 +0000
commit566cc99380a23a0f1ea6b2018f6fdbc3dffe698d (patch)
tree76035f4325156d32fe9f8acca6bddc2df180ebe6 /Echolot/Pinger/CPunk.pm
parent157a83489d8bae3fe74386dc6d5488cb7c64508e (diff)
Don't use GnuPG::Interface's recipients when encrypting any more as it is broken with at least GnuPG 1.2.1
Diffstat (limited to 'Echolot/Pinger/CPunk.pm')
-rw-r--r--Echolot/Pinger/CPunk.pm14
1 files changed, 4 insertions, 10 deletions
diff --git a/Echolot/Pinger/CPunk.pm b/Echolot/Pinger/CPunk.pm
index 1d44759..f051216 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.7 2002/09/05 15:12:01 weasel Exp $
+# $Id: CPunk.pm,v 1.8 2003/01/02 20:04:50 weasel Exp $
#
=pod
@@ -85,8 +85,7 @@ sub encrypt_to($$$$) {
$GnuPG->options->hash_init(
- armor => 1,
- recipients => [ $recipient ] );
+ armor => 1 );
( $stdin_fh, $stdout_fh, $stderr_fh, $status_fh )
= ( IO::Handle->new(),
@@ -100,8 +99,7 @@ sub encrypt_to($$$$) {
stderr => $stderr_fh,
status => $status_fh
);
- my $command_args = [qw{--no-options --always-trust --no-default-keyring --cipher-algo 3DES --keyring}, $keyring];
- #my $command_args = [qw{--no-default-keyring --always-trust --compress-algo 1 --load-extension idea --rfc1991 --cipher-algo IDEA --keyring}, $keyring];
+ my $command_args = [qw{--no-options --always-trust --no-default-keyring --cipher-algo 3DES --keyring}, $keyring, '--recipient', $recipient];
my $plaintextfile;
if ($pgp2compat) {
#pgp2compat requires files, cannot use stdin
@@ -118,12 +116,8 @@ sub encrypt_to($$$$) {
push @$command_args, qw{--pgp2}, $plaintextfile;
- #push @$command_args, qw{--load-extension idea --pgp2}, $plaintextfile;
- #push @$command_args, qw{--pgp2}, $plaintextfile;
} else {
- #push @$command_args, qw{ --pgp6 };
- #push @$command_args, qw{--disable-mdc --no-force-v4-certs --no-comment --escape-from --force-v3-sigs --no-ask-sig-expire --no-ask-cert-expire --digest-algo MD5 --compress-algo 1 --cipher-algo 3DES };
- #push @$command_args, qw{--rfc1991 --no-openpgp --disable-mdc --no-force-v4-certs --no-comment --escape-from --force-v3-sigs --no-ask-sig-expire --no-ask-cert-expire --digest-algo MD5 --compress-algo 1};
+ # nothing here ATM.
};