invoke poll_ZTEDSLAM and poll_ZTEMSAN for presistant workers
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 19 Jun 2011 15:32:14 +0000 (17:32 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 19 Jun 2011 15:32:14 +0000 (17:32 +0200)
lib/APKPM/Poll.pm

index ab30f71..d42d390 100644 (file)
@@ -30,6 +30,11 @@ sub poll_prefix : Job : Encode(e_json) {
 
        my $taskset = $self->gc->new_task_set;
        my $results;
+
+       $taskset->add_task('poll_' . $_, "start", {
+               on_complete => sub { push @$results, ${$_[0]} }
+       }) foreach ( 'ZTEDSLAM', 'ZTEMSAN' );
+
        while (my ($username,$ip) = each %$ip_username) {
                $taskset->add_task('poll_ip_username', "$ip $username", {
                        on_complete => sub { push @$results, ${$_[0]} }