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

Hook subject OK

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-14 17:40:23 +02:00
parent a90638153e
commit ecf03827c1
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hooks/subjects.pl
View File

@ -31,7 +31,7 @@ if ($ref =~ m<^refs/tags(/.+)$>)
my $tag = $1;
my @args;
while ($tag =~ m<[:/]([^:]+)>g) {
while ($tag =~ m<[,/]([^,]+)>g) {
push @args, $1;
}
@ -65,7 +65,7 @@ sub check_xml
sub repository_name
{
my $repo = $ENV{GL_REPO};
$repo =~ s/^subjects\\(.*)/$1/;
$repo =~ s#^subjects/(.*)#$1#;
return $repo;
}
@ -143,8 +143,12 @@ sub tag_project
# Send data to intradata
log INFO, "Attente d'un processus de publication...";
log ERROR, "Erreur durant le processus de publication : $_"
if (Process::Client::launch("intradata_get", { action => "update", type => "project", id => $project_id, "year" => $year }, { "butler.xml" => $content }));
if (my $err = Process::Client::launch("intradata_get", { action => "update", type => "project", id => $project_id, "year" => $year }, { "butler.xml" => $content }))
{
if (${ $err } ne "Ok") {
log ERROR, "Erreur durant le processus de publication : " . ${ $err };
}
}
# Call API
log ERROR, $_ if(API::Projects::add($project_id, $year));