mailing list converstion implemented
This commit is contained in:
parent
8dcea30928
commit
9eb084e460
6 changed files with 33 additions and 0 deletions
|
@ -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');
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue