Test gearman return before continue
This commit is contained in:
parent
bc0459433c
commit
85e97d2ce4
@ -4,6 +4,7 @@ use strict;
|
||||
use warnings;
|
||||
use v5.10;
|
||||
|
||||
use ACU::API::Projects;
|
||||
use ACU::LDAP;
|
||||
use ACU::Log;
|
||||
$ACU::Log::log_file = undef;
|
||||
@ -137,7 +138,8 @@ sub tag_project
|
||||
|
||||
# Send data to intradata
|
||||
log INFO, "Attente d'un processus de publication...";
|
||||
Process::Client::launch("intradata_get", { action => "update", type => "project", id => $project_id, "year" => $year }, { "butler.xml" => $content });
|
||||
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 }));
|
||||
|
||||
# Call API
|
||||
my $err = API::Projects::add($project_id, $year);
|
||||
|
Reference in New Issue
Block a user