#
# Set the cache stale counter for the branch lock trigger.
# Unix usage:
#	perl /whatever/Lockbranchstale.pl %changelist% %serverport%
# NT usage:
#       c:/perl/bin/perl  c:/whatever/lockbranchstale.pl %changelist% %serverport%
# (Note that the name of this script might need to be an "8.3" filename,
# depending on the version of Perl you're running.)
#
# Tested on Platforms:    NT (as program, not service).
#

$ChangeNum = $ARGV[0];
$ServerPort = $ARGV[1];
$p4 = "p4 -p $ServerPort -u <review_user>";

`$p4 counter lockchange $ChangeNum`;

exit (0);