Mercurial > hg > mlmmj

diff contrib/web/perl-admin/htdocs/subscribers.cgi @ 787:284c640f1b3f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 7fefd9a9fad5
children
line wrap: on
line diff
--- 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.';
 	}