int req_stat_job(
struct batch_request *preq) /* ptr to the decoded request */
{
struct stat_cntl *cntl; /* see svrfunc.h */
char *name;
job *pjob = NULL;
pbs_queue *pque = NULL;
int rc = PBSE_NONE;
char log_buf[LOCAL_LOG_BUF_SIZE];
enum TJobStatTypeEnum type = tjstNONE;
/*
* first, validate the name of the requested object, either
* a job, a queue, or the whole server.
*/
if (LOGLEVEL >= 7)
{
sprintf(log_buf, "note");
log_event(PBSEVENT_JOB, PBS_EVENTCLASS_JOB, __func__, log_buf);
}
/* FORMAT: name = { <JOBID> | <QUEUEID> | '' } */
name = preq->rq_ind.rq_status.rq_id;
if (preq->rq_extend != NULL)
{
/* evaluate pbs_job_stat() 'extension' field */
if (!strncasecmp(preq->rq_extend, "truncated", strlen("truncated")))
{
/* truncate response by 'max_report' */
type = tjstTruncatedServer;
}
else if (!strncasecmp(preq->rq_extend, "summarize_arrays", strlen("summarize_arrays")))
{
type = tjstSummarizeArraysServer;
}
} /* END if (preq->rq_extend != NULL) */
if (isdigit((int)*name))
{
/* status a single job */
if (is_array(name))
{
if (type != tjstSummarizeArraysServer)
{
type = tjstArray;
}
}
else
{
type = tjstJob;
if ((pjob = svr_find_job(name, FALSE)) == NULL)
{
rc = PBSE_UNKJOBID;
}
else
unlock_ji_mutex(pjob, __func__, "1", LOGLEVEL);
}
}
else if (isalpha(name[0]))
{
if (type == tjstNONE)
type = tjstQueue;
else if (type == tjstSummarizeArraysServer)
type = tjstSummarizeArraysQueue;
else
type = tjstTruncatedQueue;
/* if found, this mutex is released later */
if ((pque = find_queuebyname(name)) == NULL)
{
rc = PBSE_UNKQUE;
}
}
else if ((*name == '\0') || (*name == '@'))
{
/* status all jobs at server */
if (type == tjstNONE)
type = tjstServer;
}
else
{
rc = PBSE_IVALREQ;
}
if (rc != 0)
{
/* is invalid - an error */
req_reject(rc, 0, preq, NULL, NULL);
return(rc);
}
preq->rq_reply.brp_choice = BATCH_REPLY_CHOICE_Status;
CLEAR_HEAD(preq->rq_reply.brp_un.brp_status);
cntl = (struct stat_cntl *)calloc(1, sizeof(struct stat_cntl));
if (cntl == NULL)
{
if (pque != NULL)
unlock_queue(pque, "req_stat_job", (char *)"no memory cntl", LOGLEVEL);
req_reject(PBSE_SYSTEM, 0, preq, NULL, NULL);
return(PBSE_SYSTEM);
}
if ((type == tjstTruncatedQueue) ||
(type == tjstTruncatedServer))
{
if (pque != NULL)
{
unlock_queue(pque, __func__, "", LOGLEVEL);
pque = NULL;
}
}
cntl->sc_type = (int)type;
cntl->sc_conn = -1;
cntl->sc_pque = pque;
cntl->sc_origrq = preq;
cntl->sc_post = req_stat_job_step2;
cntl->sc_jobid[0] = '\0'; /* cause "start from beginning" */
req_stat_job_step2(cntl); /* go to step 2, see if running is current */
if (pque != NULL)
unlock_queue(pque, "req_stat_job", (char *)"success", LOGLEVEL);
free(cntl);
return(PBSE_NONE);
} /* END req_stat_job() */
void req_stat_job(
struct batch_request *preq) /* ptr to the decoded request */
{
struct stat_cntl *cntl; /* see svrfunc.h */
char *name;
job *pjob = NULL;
pbs_queue *pque = NULL;
int rc = 0;
enum TJobStatTypeEnum type = tjstNONE;
/*
* first, validate the name of the requested object, either
* a job, a queue, or the whole server.
*/
/* FORMAT: name = { <JOBID> | <QUEUEID> | '' } */
name = preq->rq_ind.rq_status.rq_id;
if (preq->rq_extend != NULL)
{
/* evaluate pbs_job_stat() 'extension' field */
if (!strncasecmp(preq->rq_extend, "truncated", strlen("truncated")))
{
/* truncate response by 'max_report' */
type = tjstTruncatedServer;
}
else if (!strncasecmp(preq->rq_extend, "summarize_arrays", strlen("summarize_arrays")))
{
type = tjstSummarizeArraysServer;
}
} /* END if (preq->rq_extend != NULL) */
if (isdigit((int)*name))
{
/* status a single job */
if (is_array(name))
{
if (type != tjstSummarizeArraysServer)
{
type = tjstArray;
}
pjob = find_array_template(name);
}
else
{
type = tjstJob;
if ((pjob = find_job(name)) == NULL)
{
rc = PBSE_UNKJOBID;
}
}
}
else if (isalpha(name[0]))
{
if (type == tjstNONE)
type = tjstQueue;
else if (type == tjstSummarizeArraysServer)
type = tjstSummarizeArraysQueue;
else
type = tjstTruncatedQueue;
if ((pque = find_queuebyname(name)) == NULL)
{
rc = PBSE_UNKQUE;
}
}
else if ((*name == '\0') || (*name == '@'))
{
/* status all jobs at server */
if (type == tjstNONE)
type = tjstServer;
}
else
{
rc = PBSE_IVALREQ;
}
if (rc != 0)
{
/* is invalid - an error */
req_reject(rc, 0, preq, NULL, NULL);
return;
}
preq->rq_reply.brp_choice = BATCH_REPLY_CHOICE_Status;
CLEAR_HEAD(preq->rq_reply.brp_un.brp_status);
cntl = (struct stat_cntl *)malloc(sizeof(struct stat_cntl));
if (cntl == NULL)
{
req_reject(PBSE_SYSTEM, 0, preq, NULL, NULL);
return;
}
cntl->sc_type = (int)type;
cntl->sc_conn = -1;
cntl->sc_pque = pque;
cntl->sc_origrq = preq;
cntl->sc_post = req_stat_job_step2;
cntl->sc_jobid[0] = '\0'; /* cause "start from beginning" */
if (server.sv_attr[(int)SRV_ATR_PollJobs].at_val.at_long)
cntl->sc_post = 0; /* we're not going to make clients wait */
req_stat_job_step2(cntl); /* go to step 2, see if running is current */
return;
} /* END req_stat_job() */
