src/VREF/lock

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use lib $ENV{GL_LIBDIR};
   6 use Gitolite::Common;
   7
   8 # gitolite VREF to lock and unlock (binary) files.  Requires companion command
   9 # 'lock' to be enabled; see doc/locking.mkd for details.
  10
  11 # ----------------------------------------------------------------------
  12
  13 # see gitolite docs for what the first 7 arguments mean
  14
  15 die "not meant to be run manually" unless $ARGV[6];
  16
  17 my $ff = "$ENV{GL_REPO_BASE}/$ENV{GL_REPO}.git/gl-locks";
  18 exit 0 unless -f $ff;
  19
  20 our %locks;
  21 my $t = slurp($ff);
  22 eval $t;
  23 _die "do '$ff' failed with '$@', contact your administrator" if $@;
  24
  25 my ( $oldtree, $newtree, $refex ) = @ARGV[ 3, 4, 6 ];
  26
  27 for my $file (`git diff --name-only $oldtree $newtree`) {
  28     chomp($file);
  29
  30     if ( $locks{$file} and $locks{$file}{USER} ne $ENV{GL_USER} ) {
  31         print "$refex '$file' locked by '$locks{$file}{USER}'";
  32         last;
  33     }
  34 }
  35
  36 exit 0