#define COND_SIGNAL(c) \ STMT_START { \ if ((c)->waiters > 0 && \ ReleaseSemaphore((c)->sem,1,NULL) == 0) \ croak("panic: COND_SIGNAL (%ld)",GetLastError()); \ } STMT_END #### my $jobQueue = IBM::CLIFARM::SERVER::UTIL::JobQueue->new(DBfile => $dbFile); threads->create('IBM::CLIFARM::SERVER::UTIL::JobQueue::manageQueue'); #### my $jobNode = IBM::CLIFARM::SERVER::UTIL::JobNode->new({process => $process, jobType => $recover_type, userName => $username, options => $options}); $jobNode->setPossibleResources(resourceGiven => $resources); IBM::CLIFARM::SERVER::UTIL::JobQueue::enqueueJob({jobNode => $jobNode}); $logger->debug("Created new job node for $recover_type command with job number $jobNode->{JOBNUMBER}");