job *
chk_job_request(char *jobid, struct batch_request *preq, int *rc)
{
int t;
int histerr = 0;
job *pjob;
int deletehist = 0;
char *p1;
char *p2;
if (preq->rq_extend && strstr(preq->rq_extend, DELETEHISTORY))
deletehist = 1;
t = is_job_array(jobid);
if ((t == IS_ARRAY_NO) || (t == IS_ARRAY_ArrayJob))
pjob = find_job(jobid); /* regular or ArrayJob itself */
else
pjob = find_arrayparent(jobid); /* subjob(s) */
*rc = t;
if (pjob == NULL) {
log_event(PBSEVENT_DEBUG, PBS_EVENTCLASS_JOB, LOG_INFO,
jobid, msg_unkjobid);
req_reject(PBSE_UNKJOBID, 0, preq);
return NULL;
} else {
histerr = svr_chk_histjob(pjob);
if (histerr && deletehist == 0) {
req_reject(histerr, 0, preq);
return NULL;
}
if (deletehist ==1&& pjob->ji_qs.ji_state == JOB_STATE_MOVED &&
pjob->ji_qs.ji_substate != JOB_SUBSTATE_FINISHED) {
job_purge(pjob);
req_reject(PBSE_UNKJOBID, 0, preq);
return NULL;
}
}
/*
* The job was found using the job ID in the request, but it may not
* match exactly (i.e. FQDN vs. unqualified hostname). Overwrite the
* host portion of the job ID in the request with the host portion of
* the one from the server job structure. Do not modify anything
* before the first dot in the job ID because it may be an array job.
* This will allow find_job() to look for an exact match when the
* request is serviced by MoM.
*/
p1 = strchr(pjob->ji_qs.ji_jobid, '.');
if (p1) {
p2 = strchr(jobid, '.');
if (p2)
*p2 = '\0';
strncat(jobid, p1, PBS_MAXSVRJOBID-1);
}
if (svr_authorize_jobreq(preq, pjob) == -1) {
(void)sprintf(log_buffer, msg_permlog, preq->rq_type,
"Job", pjob->ji_qs.ji_jobid,
preq->rq_user, preq->rq_host);
log_event(PBSEVENT_SECURITY, PBS_EVENTCLASS_JOB, LOG_INFO,
pjob->ji_qs.ji_jobid, log_buffer);
req_reject(PBSE_PERM, 0, preq);
return NULL;
}
if ((t == IS_ARRAY_NO) && (pjob->ji_qs.ji_state == JOB_STATE_EXITING)) {
/* special case Deletejob with "force" */
if ((preq->rq_type == PBS_BATCH_DeleteJob) &&
(preq->rq_extend != NULL) &&
(strcmp(preq->rq_extend, "force") == 0)) {
return (pjob);
}
(void)sprintf(log_buffer, "%s, state=%d", msg_badstate,
pjob->ji_qs.ji_state);
log_event(PBSEVENT_DEBUG, PBS_EVENTCLASS_JOB, LOG_INFO,
pjob->ji_qs.ji_jobid, log_buffer);
req_reject(PBSE_BADSTATE, 0, preq);
return NULL;
}
return (pjob);
}
/**
* @brief
* Support function for req_stat_job().
* Builds status reply for a single job id, which may be: a normal job,
* an Array job, a single subjob or a range of subjobs.
* Finds the job structure for the job id and calls either do_stat_of_a_job()
* or status_subjob() to build that actual status reply.
*
* @param[in,out] preq - pointer to the stat job batch request, reply updated
* @param[in] name - job id to be statused
* @param[in] dohistjobs - flag to include job if it is a history job
* @param[in] dosubjobs - flag to expand a Array job to include all subjobs
*
* @return int
* @retval PBSE_NONE (0) : no error
* @retval non-zero : PBS error code to return to client
*/
static int
stat_a_jobidname(struct batch_request *preq, char *name, int dohistjobs, int dosubjobs)
{
int i, indx, x, y, z;
char *pc;
char *range;
int rc;
job *pjob;
struct batch_reply *preply = &preq->rq_reply;
svrattrl *pal;
if ((i = is_job_array(name)) == IS_ARRAY_Single) {
pjob = find_arrayparent(name);
if (pjob == NULL) {
return (PBSE_UNKJOBID);
} else if ((!dohistjobs) && (rc = svr_chk_histjob(pjob))) {
return (rc);
}
indx = subjob_index_to_offset(pjob, get_index_from_jid(name));
if (indx != -1) {
pal = (svrattrl *)GET_NEXT(preq->rq_ind.rq_status.rq_attr);
rc = status_subjob(pjob, preq, pal, indx, &preply->brp_un.brp_status, &bad);
} else {
rc = PBSE_UNKJOBID;
}
return (rc); /* no job still needs to be stat-ed */
} else if ((i == IS_ARRAY_NO) || (i == IS_ARRAY_ArrayJob)) {
pjob = find_job(name);
if (pjob == NULL) {
return (PBSE_UNKJOBID);
} else if ((!dohistjobs) && (rc = svr_chk_histjob(pjob))) {
return (rc);
}
return (do_stat_of_a_job(preq, pjob, dohistjobs, dosubjobs));
} else {
/* range of sub jobs */
range = get_index_from_jid(name);
if (range == NULL) {
return (PBSE_IVALREQ);
}
pjob = find_arrayparent(name);
if (pjob == NULL) {
return (PBSE_UNKJOBID);
} else if ((!dohistjobs) && (rc = svr_chk_histjob(pjob))) {
return (rc);
}
pal = (svrattrl *)GET_NEXT(preq->rq_ind.rq_status.rq_attr);
while (1) {
if ((i=parse_subjob_index(range,&pc,&x,&y,&z,&i)) == -1) {
return (PBSE_IVALREQ);
} else if (i == 1)
break;
while (x <= y) {
indx = numindex_to_offset(pjob, x);
if (indx < 0) {
x += z;
continue;
}
rc = status_subjob(pjob, preq, pal, indx, &preply->brp_un.brp_status, &bad);
if (rc && (rc != PBSE_PERM)) {
return (rc);
}
x += z;
}
range = pc;
}
/* stat-ed the range, no more to stat for this id */
return (PBSE_NONE);
}
}
