Lock Branch.

Perl triggers to allow non-superusers to lock branches.

They do this by setting up lists of depot paths in
simple text files (one path per line, a "#" anwhere in the
line makes THE ENTIRE LINE a comment) in a
"well known" directory.  (defaults to "//depot/locks")

The lockbranch.pl trigger checks submissions
against a cached list of paths derrived from the
//depot/locks files.  If any path matches, the submission
is rejected.

lockbranch.pl detects its cache is stale by relying
on a counter set by the lockcachestale.pl trigger.

Usage:

set up the two triggers as follows

lockareas //depot/... "c:/perl/bin/perl c://Triggers/lockbranch.pl %changelist% %serverport% %client%"
lockareas -//depot/locks/... ""
cachelock //depot/locks/... "c:/perl/bin/perl C:/Triggers/lockcachestale.pl %changelist% %serverport%"