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
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
