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

ezmlm-web code:

Browse source 
* added missing "ref" check for encrypted mailing list objects
This commit is contained in:
lars 2009-03-23 23:23:37 +00:00
parent 80844f7e2a
commit fda762b084
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ezmlm-web.cgi
View file

@ -480,7 +480,7 @@ if (defined($action) && ($action eq 'show_mime_examples')) {
if (!defined($list)) { if (!defined($list)) {
$pagename = 'list_select'; $pagename = 'list_select';
$error = 'ParameterMissing'; $error = 'ParameterMissing';
} elsif ($list->isa("Mail::Ezmlm::GpgEzmlm")) { } elsif (ref($list) && $list->isa("Mail::Ezmlm::GpgEzmlm")) {
my $plain_list = $list->convert_to_plaintext(); my $plain_list = $list->convert_to_plaintext();
if ($plain_list) { if ($plain_list) {
$list = $plain_list; $list = $plain_list;
@ -979,7 +979,7 @@ sub set_pagedata {
# add module-specific pagedata # add module-specific pagedata
if ($list) { if ($list) {
if ($list->isa("Mail::Ezmlm::GpgEzmlm")) { if (ref($list) && $list->isa("Mail::Ezmlm::GpgEzmlm")) {
set_pagedata_gpgezmlm($list); set_pagedata_gpgezmlm($list);
} }
} }
@ -2335,7 +2335,7 @@ sub update_config {
my $error = (1==0); my $error = (1==0);
$error = (0==0) unless (update_config_common($list)); $error = (0==0) unless (update_config_common($list));
if ($list->isa("Mail::Ezmlm::GpgEzmlm")) { if (ref($list) && $list->isa("Mail::Ezmlm::GpgEzmlm")) {
$error = (0==0) unless (update_config_gpgezmlm($list)); $error = (0==0) unless (update_config_gpgezmlm($list));
} }
return (!$error); return (!$error);