From c0f21102eb618bc8d1d00ffed644f7c03c3884fe Mon Sep 17 00:00:00 2001 From: lars Date: Thu, 30 Mar 2006 00:45:48 +0000 Subject: [PATCH] some fixes for Mail::Ezmlm:Gpg first step of integration into ezmlm-web --- gpg-Ezmlm/trunk/Gpg.pm | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/gpg-Ezmlm/trunk/Gpg.pm b/gpg-Ezmlm/trunk/Gpg.pm index aca9659..01895de 100644 --- a/gpg-Ezmlm/trunk/Gpg.pm +++ b/gpg-Ezmlm/trunk/Gpg.pm @@ -347,10 +347,7 @@ sub generate_private_key { sub get_public_keys { my ($self) = @_; my @keys = $self->_get_keys("pub"); - my $key; - foreach $key (@keys) { - print "$key->{uid} - $key->{id}\n"; - } + return @keys; } @@ -358,10 +355,7 @@ sub get_public_keys { sub get_secret_keys { my ($self) = @_; my @keys = $self->_get_keys("sec"); - my $key; - foreach $key (@keys) { - print "$key->{uid} - $key->{id}\n"; - } + return @keys; } # == internal function for creating a gpg object == @@ -369,7 +363,7 @@ sub _get_gpg_object() { my ($self) = @_; my $gpg = new Crypt::GPG(); $gpg->gpgbin($GPG_BIN); - $gpg->gpgopts("--lock-multiple --homedir '" . $self->{'LIST_NAME'} . "/.gnupg'"); + $gpg->gpgopts("--lock-multiple --batch --no-tty --no-secmem-warning --homedir '" . $self->{'LIST_NAME'} . "/.gnupg'"); return $gpg; }