contrib/continuous/post-receive-cinotify

   1 #!/usr/bin/perl
   2 #
   3 # A hook that notifies its companion cidaemon through a simple
   4 # queue file that a ref has been updated via a push (actually
   5 # by a receive-pack running on the server).
   6 #
   7 # See cidaemon for per-repository configuration details.
   8 #
   9 # To use this hook, add it as the post-receive hook, make it
  10 # executable, and set its configuration options.
  11 #
  12
  13 local $ENV{PATH} = '/opt/git/bin';
  14
  15 use strict;
  16 use warnings;
  17 use File::Spec;
  18 use Storable qw(retrieve nstore);
  19 use Fcntl ':flock';
  20
  21 my $git_dir = File::Spec->rel2abs($ENV{GIT_DIR});
  22 my $queue_name = `git config --get builder.queue`;chop $queue_name;
  23 $queue_name =~ m,^([^\s]+)$,; $queue_name = $1; # untaint
  24 unless ($queue_name) {
  25         1 while <STDIN>;
  26         print STDERR "\nerror: builder.queue not set.  Not enqueing.\n\n";
  27         exit;
  28 }
  29 my $queue_lock = "$queue_name.lock";
  30
  31 my @skip;
  32 open S, "git config --get-all builder.skip|";
  33 while (<S>) {
  34         chop;
  35         push @skip, $_;
  36 }
  37 close S;
  38
  39 my @new_branch_base;
  40 open S, "git config --get-all builder.newBranchBase|";
  41 while (<S>) {
  42         chop;
  43         push @new_branch_base, $_;
  44 }
  45 close S;
  46
  47 sub skip ($)
  48 {
  49         local $_ = shift;
  50         foreach my $p (@skip) {
  51                 return 1 if /^$p/;
  52         }
  53         0;
  54 }
  55
  56 open LOCK, ">$queue_lock" or die "Can't open $queue_lock: $!";
  57 flock LOCK, LOCK_EX;
  58
  59 my $queue = -f $queue_name ? retrieve $queue_name : [];
  60 my %existing;
  61 foreach my $r (@$queue) {
  62         my ($gd, $ref) = @$r;
  63         $existing{$gd}{$ref} = $r;
  64 }
  65
  66 my @new_branch_commits;
  67 my $loaded_new_branch_commits = 0;
  68
  69 while (<STDIN>) {
  70         chop;
  71         my ($old, $new, $ref) = split / /, $_, 3;
  72
  73         next if $old eq $new;
  74         next if $new =~ /^0{40}$/;
  75         next if skip $ref;
  76
  77         my $r = $existing{$git_dir}{$ref};
  78         if ($r) {
  79                 $r->[3] = $new;
  80         } else {
  81                 if ($old =~ /^0{40}$/) {
  82                         if (!$loaded_new_branch_commits && @new_branch_base) {
  83                                 open M,'-|','git','show-ref',@new_branch_base;
  84                                 while (<M>) {
  85                                         ($_) = split / /, $_;
  86                                         push @new_branch_commits, $_;
  87                                 }
  88                                 close M;
  89                                 $loaded_new_branch_commits = 1;
  90                         }
  91                         $old = [@new_branch_commits];
  92                 } else {
  93                         $old = [$old];
  94                 }
  95
  96                 $r = [$git_dir, $ref, $old, $new];
  97                 $existing{$git_dir}{$ref} = $r;
  98                 push @$queue, $r;
  99         }
 100 }
 101 nstore $queue, $queue_name;
 102
 103 flock LOCK, LOCK_UN;
 104 close LOCK;