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.

The cache is  a file in the metadata area of the depot.

Access to the depot area allowing locking files to be
set up should be limited - perhaps to team leaders, etc.

This version is for an NT server and sets all path
names to lower case for comparison.  To use with
a unix server, remove the "lc" function calls.


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%"