From 85e97d2ce4c684fbc50059f9a3790379a13f6339 Mon Sep 17 00:00:00 2001 From: Mercier Pierre-Olivier Date: Thu, 12 Sep 2013 13:22:29 +0200 Subject: [PATCH] Test gearman return before continue --- hooks/subjects.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/hooks/subjects.pl b/hooks/subjects.pl index 141a28a..972f72a 100755 --- a/hooks/subjects.pl +++ b/hooks/subjects.pl @@ -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);