rules.pl

% We don't send email if the commit message says DO NOT REVIEW, so don't allow submit either.
% Case insensitive because the mail filter rules are.
% Using reject here so that there will be a column on the CL dashboard.
submit_filter(In, Out) :-
	In =.. [submit | I],
	gerrit:commit_message_matches('[Dd][Oo][ \t\r\n]+[Nn][Oo][Tt][ \t\r\n]+[Rr][Ee][Vv][Ii][Ee][Ww]'),
	!,
	gerrit:commit_author(Id),
	Error = label('Do-Not-Review', reject(Id)),
	Out =.. [submit, Error | I].

% Don't allow submit of DO NOT SUBMIT commit message either.
% Case insensitive because DO NOT REVIEW is.
% Using need instead of reject to avoid the column on the CL dashboard.
submit_filter(In, Out) :-
	In =.. [submit | I],
	gerrit:commit_message_matches('[Dd][Oo][ \t\r\n]+[Nn][Oo][Tt][ \t\r\n]+[Ss][Uu][Bb][Mm][Ii][Tt]'),
	!,
	gerrit:commit_author(Id),
	Error = label('Do-Not-Submit', need(_)),
	Out =.. [submit, Error | I].

% Otherwise, pass submit rule through.
submit_filter(In, Out) :- In = Out.