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

send_git: ACU-

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-12-05 05:55:35 +01:00
parent ba19732a47
commit 95f945f963
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
process/files/send_git.pl
View File

@ -21,6 +21,11 @@ sub process
my $rendu = $args->{param}{rendu}; my $rendu = $args->{param}{rendu};
my $login = $args->{param}{login}; my $login = $args->{param}{login};
my $rendu_for = $rendu;
if ($rendu =~ /^(ACU|YAKA)-(.*)$/) {
$rendu_for = $1;
}
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";
my $tempdir = tempdir(); my $tempdir = tempdir();
@ -30,10 +35,10 @@ sub process
croak "$path is not a valid repository." if ($?); croak "$path is not a valid repository." if ($?);
my $tar; my $tar;
open my $fh, "tar -czf - -C '$tempdir' . |" or die ($!); open my $fh, "tar -czf - -C '$tempdir' . |" or die ("Error during tar: " . $!);
$tar .= $_ while(<$fh>); $tar .= $_ while(<$fh>);
close $fh; close $fh;
die "Unable to untar: $!" if ($?); die "Unable to tar: $!" if ($?);
# Clean # Clean
remove_tree($tempdir); remove_tree($tempdir);
@ -43,7 +48,7 @@ sub process
"type" => "std", "type" => "std",
"id" => $project_id, "id" => $project_id,
"year" => $year, "year" => $year,
"rendu" => $rendu, "rendu" => $rendu_for,
"login" => $login, "login" => $login,
"file" => "rendu.tgz" "file" => "rendu.tgz"
}, },