epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Fix send_git

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-03 01:18:58 +01:00
parent 4ba4f34993
commit 61d523c7c3
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
hooks/submissions.pl
View file

@ -111,7 +111,7 @@ if ($ref =~ m<^refs/tags/(.+)$>)
"id" => $id_project, "id" => $id_project,
"rendu" => $tag, "rendu" => $tag,
"login" => $repo_login, "login" => $repo_login,
"path" => $ENV{GL_REPO_BASE_ABS}."/".$ENV{GL_REPO}.".git", # "path" => "ssh://git@localhost/".$ENV{GL_REPO},
}); });
}; };
if ($@) { if ($@) {

4
process/files/send_git.pl
View file

@ -22,12 +22,12 @@ sub process
my $path = $args->{param}{path} // "ssh://git@localhost/$year/$project_id/$login.git"; my $path = $args->{param}{path} // "ssh://git@localhost/$year/$project_id/$login.git";
croak "$path is not a valid path." if (! -d $path);
my $tempdir = tempdir(); my $tempdir = tempdir();
qx/git clone -b '$rendu' '$path' '$tempdir'/; qx/git clone -b '$rendu' '$path' '$tempdir'/;
croak "$path is not a valid repository." if (! $?);
my $tar; my $tar;
open my $fh, "tar -czf - -C '$tempdir' . |"; open my $fh, "tar -czf - -C '$tempdir' . |";
$tar .= $_ while(<$fh>); $tar .= $_ while(<$fh>);