Mercurial > hg > mlmmj
changeset 787:284c640f1b3f
Check return status in mlmmj-perl-admin when adding subscribers (Florian
Streibelt, Bitmand)
author | Ben Schmidt |
---|---|
date | Sun, 21 Nov 2010 00:31:09 +1100 |
parents | b542f6e55f5b |
children | cd322af071bc |
files | ChangeLog contrib/web/perl-admin/htdocs/subscribers.cgi |
diffstat | 2 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog Sun Nov 21 00:30:23 2010 +1100 +++ b/ChangeLog Sun Nov 21 00:31:09 2010 +1100 @@ -1,3 +1,5 @@ + o Check return status in mlmmj-perl-admin when adding subscribers (Florian + Streibelt, Bitmand) o Better validation of input in php-admin (Thomas Goirand) o Added Turkish translation (Samed Beyribey) o Fixed security bug in mlmmj-php-admin (Florian Streibelt, Morten Shearman
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi Sun Nov 21 00:30:23 2010 +1100 +++ b/contrib/web/perl-admin/htdocs/subscribers.cgi Sun Nov 21 00:31:09 2010 +1100 @@ -104,8 +104,12 @@ if ($nomailsub) { system "$mlmmjsub -L $topdir/$list -a $email -Un -s"; } + if ($? == 0) { $action .= "$email has been subscribed.<br>\n"; } else { + $action .= "error subscribing $email (code $?)<br>\n"; + } + } else { $action .= '"'.encode_entities($email).'" is not a valid email address.<br>'; } } @@ -123,7 +127,11 @@ if ($nomailsub) { system "$mlmmjsub -L $topdir/$list -a $email -Un -s"; } + if ($? == 0) { + $action = "$email has been added"; + } else { $action = "error adding $email (code $?)"; + } } else { $action = '"'.encode_entities($email).'" is not a valid email address.'; }