mailing list converstion implemented

This commit is contained in:
lars 2006-04-11 10:33:55 +00:00
parent 8dcea30928
commit 9eb084e460
6 changed files with 33 additions and 0 deletions

View file

@ -219,6 +219,15 @@ elsif ($action eq '' || $action eq 'list_select') {
$error = 'ParameterMissing';
$pagename = 'list_select';
}
} elsif ($action eq 'gnupg_convert') {
my $tlist = new Mail::Ezmlm::Gpg("$LIST_DIR/" . $q->param('list'));
if ($tlist->convert()) {
$pagename = 'subscribers';
$success = 'GnupgConvert';
} else {
$pagename = 'subscribers';
$warning = 'GnupgConvert';
}
} elsif (($action eq 'gnupg_ask') || ($action eq 'gnupg_do')) {
# User wants to manage keys (only for encrypted mailing lists)
my $subset = $q->param('gnupg_subset');