undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'mw/cvsserver'

Browse Source 
* mw/cvsserver:
  git-cvsserver runs hooks/post-update
  git-cvsserver runs hooks/post-receive
This commit is contained in:
Junio C Hamano 2007-12-06 23:44:49 -08:00
commit 5f7003b18c
1 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
git-cvsserver.perl
View File

@ -1211,13 +1211,13 @@ sub req_ci
chdir $tmpdir; chdir $tmpdir;
# populate the temporary index based # populate the temporary index
system("git-read-tree", $parenthash); system("git-read-tree", $parenthash);
unless ($? == 0) unless ($? == 0)
{ {
die "Error running git-read-tree $state->{module} $file_index $!"; die "Error running git-read-tree $state->{module} $file_index $!";
} }
$log->info("Created index '$file_index' with for head $state->{module} - exit status $?"); $log->info("Created index '$file_index' for head $state->{module} - exit status $?");
my @committedfiles = (); my @committedfiles = ();
my %oldmeta; my %oldmeta;
@ -1237,7 +1237,7 @@ sub req_ci
my ( $filepart, $dirpart ) = filenamesplit($filename); my ( $filepart, $dirpart ) = filenamesplit($filename);
# do a checkout of the file if it part of this tree # do a checkout of the file if it is part of this tree
if ($wrev) { if ($wrev) {
system('git-checkout-index', '-f', '-u', $filename); system('git-checkout-index', '-f', '-u', $filename);
unless ($? == 0) { unless ($? == 0) {
@ -1324,11 +1324,11 @@ sub req_ci
exit; exit;
} }
# Check that this is allowed, just as we would with a receive-pack ### Emulate git-receive-pack by running hooks/update
my @cmd = ( $ENV{GIT_DIR}.'hooks/update', "refs/heads/$state->{module}", my @hook = ( $ENV{GIT_DIR}.'hooks/update', "refs/heads/$state->{module}",
$parenthash, $commithash ); $parenthash, $commithash );
if( -x $cmd[0] ) { if( -x $hook[0] ) {
unless( system( @cmd ) == 0 ) unless( system( @hook ) == 0 )
{ {
$log->warn("Commit failed (update hook declined to update ref)"); $log->warn("Commit failed (update hook declined to update ref)");
print "error 1 Commit failed (update hook declined)\n"; print "error 1 Commit failed (update hook declined)\n";
@ -1337,6 +1337,7 @@ sub req_ci
} }
} }
### Update the ref
if (system(qw(git update-ref -m), "cvsserver ci", if (system(qw(git update-ref -m), "cvsserver ci",
"refs/heads/$state->{module}", $commithash, $parenthash)) { "refs/heads/$state->{module}", $commithash, $parenthash)) {
$log->warn("update-ref for $state->{module} failed."); $log->warn("update-ref for $state->{module} failed.");
@ -1344,6 +1345,24 @@ sub req_ci
exit; exit;
} }
### Emulate git-receive-pack by running hooks/post-receive
my $hook = $ENV{GIT_DIR}.'hooks/post-receive';
if( -x $hook ) {
open(my $pipe, "| $hook") || die "can't fork $!";
local $SIG{PIPE} = sub { die 'pipe broke' };
print $pipe "$parenthash $commithash refs/heads/$state->{module}\n";
close $pipe || die "bad pipe: $! $?";
}
### Then hooks/post-update
$hook = $ENV{GIT_DIR}.'hooks/post-update';
if (-x $hook) {
system($hook, "refs/heads/$state->{module}");
}
$updater->update(); $updater->update();
# foreach file specified on the command line ... # foreach file specified on the command line ...