Add a new configuration option: COMMITCHECK_EXTRA. This is a

reference to an anonymous subroutine that if defined gets run at
commitcheck time.  It allows the admin to run further checks to
see whether committing is allowed.

1 files changed, 10 insertions, 4 deletions

diff --git a/CVSROOT/cfg.pm b/CVSROOT/cfg.pm
index 705f7f4ca821..eabc2bc565fb 100755
--- a/CVSROOT/cfg.pm
+++ b/CVSROOT/cfg.pm
@@ -14,10 +14,11 @@
 package cfg;
 use strict;
 use vars qw(
-	$ADD_TO_LINE $CHECK_HEADERS $DEBUG $EXCLUDE_FILE $FILE_PREFIX
-	$IDHEADER $LAST_FILE $MAILADDRS $MAILBANNER $MAILCMD $MAIL_BRANCH_HDR
-	$MAIL_ON_DIR_CREATION $MAIL_TRANSFORM $MINCVSVERSION $PID $PROG_CVS
-	$PROG_MV $TMPDIR $UNEXPAND_RCSID %TEMPLATE_HEADERS @COMMIT_HOSTS
+	$ADD_TO_LINE $CHECK_HEADERS $COMMITCHECK_EXTRA $DEBUG $EXCLUDE_FILE
+	$FILE_PREFIX $IDHEADER $LAST_FILE $MAILADDRS $MAILBANNER $MAILCMD
+	$MAIL_BRANCH_HDR $MAIL_ON_DIR_CREATION $MAIL_TRANSFORM $MINCVSVERSION
+	$PID $PROG_CVS $PROG_MV $TMPDIR $UNEXPAND_RCSID %TEMPLATE_HEADERS
+	@COMMIT_HOSTS
 );
 
 my $CVSROOT = $ENV{'CVSROOT'} || die "Can't determine \$CVSROOT!";
@@ -62,6 +63,11 @@ $PROG_MV =	'/bin/mv';		# mv(1)
 # The minimum version of cvs that we will work with.
 $MINCVSVERSION = "1090900";  # 1.9.9p0
 
+# Additional commit time checks.  This is an anonymous subroutine
+# that gets called early on in the validation process to see whether
+# the committer is allowed to commit.
+$COMMITCHECK_EXTRA = "";
+
 
 ################
 ### logcheck ###