CVSROOT: acl.pl - allow custom "deny" message

[qboosh]

Author: qboosh                       Date: Sun Mar 23 20:56:22 2008 GMT
Module: CVSROOT                       Tag: HEAD
---- Log message:
- allow custom "deny" message

---- Files affected:
CVSROOT:
   acl.pl (1.14 -> 1.15) 

---- Diffs:

================================================================
Index: CVSROOT/acl.pl
diff -u CVSROOT/acl.pl:1.14 CVSROOT/acl.pl:1.15
--- CVSROOT/acl.pl:1.14	Sun Mar 23 21:51:36 2008
+++ CVSROOT/acl.pl	Sun Mar 23 21:56:16 2008
@@ -18,15 +18,21 @@
 	while (<ACL>) {
 		chomp;
 		next if /^$/ or /^#/;
-		($rpath, $ruser, $raction) = split(/\s+/, $_, 3);
+		($rpath, $ruser, $raction, $message) = split(/\s+/, $_, 4);
 
 		if ($file =~ $rpath && $user =~ $ruser) {
 			return if ($raction =~ /^(accept|allow|ok)$/i);
 
 			if ($raction =~ /^(deny|reject|forbid|no)$/i) {
 				print "***\n";
-				print "*** Commit access forbidden by ACL. Contact CVS admin if you think there\n";
-				print "*** has been some mistake (rule no $rule, file $file)\n";
+				if (defined $message) {
+					print "*** $message\n"
+				} else {
+					print "*** Commit access forbidden by ACL.\n"
+				}
+				print "***\n";
+				print "*** Contact CVS admin if you think there has been some mistake\n";
+				print "*** (rule no $rule, file $file)\n";
 				print "***\n";
 				exit 1;
 			}
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/CVSROOT/acl.pl?r1=1.14&r2=1.15&f=u