ezmlm-web/ezmlm-web-modules
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

some fixes for Mail::Ezmlm:Gpg

Browse source 
first step of integration into ezmlm-web
This commit is contained in:
lars 2006-03-30 00:45:48 +00:00
parent e3dc4c9f8a
commit c0f21102eb
1 changed files with 3 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gpg-Ezmlm/trunk/Gpg.pm
View file

@ -347,10 +347,7 @@ sub generate_private_key {
sub get_public_keys { sub get_public_keys {
my ($self) = @_; my ($self) = @_;
my @keys = $self->_get_keys("pub"); my @keys = $self->_get_keys("pub");
my $key; return @keys;
foreach $key (@keys) {
print "$key->{uid} - $key->{id}\n";
}
} }
@ -358,10 +355,7 @@ sub get_public_keys {
sub get_secret_keys { sub get_secret_keys {
my ($self) = @_; my ($self) = @_;
my @keys = $self->_get_keys("sec"); my @keys = $self->_get_keys("sec");
my $key; return @keys;
foreach $key (@keys) {
print "$key->{uid} - $key->{id}\n";
}
} }
# == internal function for creating a gpg object == # == internal function for creating a gpg object ==
@ -369,7 +363,7 @@ sub _get_gpg_object() {
my ($self) = @_; my ($self) = @_;
my $gpg = new Crypt::GPG(); my $gpg = new Crypt::GPG();
$gpg->gpgbin($GPG_BIN); $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; return $gpg;
} }