execute LDAP and CRM jobs in parallel as single task

diff --git a/lib/APKPM.pm b/lib/APKPM.pm
index 3b2517a..8f9c992 100644 (file)
--- a/lib/APKPM.pm
+++ b/lib/APKPM.pm
@@ -9,6 +9,7 @@ use Data::Dump qw(dump);
 our $VERSION = '0.00';
 
 with 'APKPM::Gearman';
+with 'APKPM::Gearman::Client';
 
 sub prefix { '' }
 
@@ -18,9 +19,22 @@ sub process_name {
        return "$orig ($job_name)";
 }
 
-sub poll : Job : MinProcesses(1) : MaxProcesses(5) : Encode(e_json) : Decode(d_json) {
+sub poll : Job : MinProcesses(1) : MaxProcesses(5) : Encode(e_json) {
        my ( $self, $job, $workload ) = @_;
        warn "# poll $job ", dump($workload);
+
+       my $res = { workload => $workload };
+
+       my $taskset = $self->gc->new_task_set;
+       $taskset->add_task('LDAP_search', $workload, {
+               on_complete => sub { $res->{ldap} = $self->d_json( ${$_[0]} ) }
+       });
+       $taskset->add_task('CRM_username', $workload, {
+               on_complete => sub { $res->{crm} = $self->d_json( ${$_[0]} ) }
+       });
+       warn "# wait";
+       $taskset->wait;
+       return $res;
 }
 
 1;