int
schd_cleanup(void)
{
QueueList *qptr;
for (qptr = schd_SubmitQueue; qptr != NULL; qptr = qptr->next)
cleanup_queue(qptr->queue);
for (qptr = schd_BatchQueues; qptr != NULL; qptr = qptr->next)
cleanup_queue(qptr->queue);
if (schd_AllJobs)
{
schd_free_jobs(schd_AllJobs);
schd_AllJobs = NULL;
}
if (schd_RsrcsList)
{
cleanup_rsrcs(schd_RsrcsList);
schd_RsrcsList = NULL;
}
return (0);
}
/*
* schd_get_queue_limits - query queue information from the server.
*
* Returns 0 on success, -1 for "fatal errors", and 1 for a transient
* error (i.e., the queue failed the sanity checks imposed by the
* queue_sanity() function).
*/
int
schd_get_queue_limits(Queue *queue)
{
char *id = "schd_get_queue_limits";
int istrue;
int local_errno = 0;
Batch_Status *bs;
AttrList *attr;
static AttrList alist[] =
{
{&alist[1], ATTR_start, "", ""},
{&alist[2], ATTR_enable, "", ""},
{&alist[3], ATTR_count, "", ""},
{&alist[4], ATTR_maxuserrun, "", ""},
{&alist[5], ATTR_rescavail, "", ""},
{&alist[6], ATTR_rescassn, "", ""},
{&alist[7], ATTR_rescdflt, "", ""},
{&alist[8], ATTR_rescmax, "", ""},
{&alist[9], ATTR_rescmin, "", ""},
{&alist[10], ATTR_acluren, "", ""},
{&alist[11], ATTR_acluser, "", ""},
{&alist[12], ATTR_p, "", ""},
{NULL, ATTR_maxrun, "", ""}
};
queue->running = UNSPECIFIED;
queue->queued = UNSPECIFIED;
queue->maxrun = UNSPECIFIED;
queue->userrun = UNSPECIFIED;
queue->ncpus_max = UNSPECIFIED;
queue->ncpus_min = UNSPECIFIED;
queue->ncpus_default = UNSPECIFIED;
queue->ncpus_assn = UNSPECIFIED;
queue->mem_max = UNSPECIFIED;
queue->mem_min = UNSPECIFIED;
queue->mem_default = UNSPECIFIED;
queue->wallt_max = UNSPECIFIED;
queue->wallt_min = UNSPECIFIED;
queue->wallt_default = UNSPECIFIED;
queue->rsrcs = NULL;
queue->flags = 0;
queue->priority = UNSPECIFIED;
queue->speed = UNSPECIFIED;
if (queue->featureA)
{
free(queue->featureA);
queue->featureA = NULL;
}
if (queue->featureB)
{
free(queue->featureB);
queue->featureB = NULL;
}
if (queue->featureC)
{
free(queue->featureC);
queue->featureC = NULL;
}
queue->featureD = UNSPECIFIED;
queue->featureE = UNSPECIFIED;
queue->featureF = UNSPECIFIED;
queue->featureG = UNSPECIFIED;
queue->featureH = UNSPECIFIED;
queue->featureI = UNSPECIFIED;
if (queue->rsrcs)
{
DBPRT(("%s: found resource list on queue '%s'! Freeing them...\n", id,
queue->qname));
cleanup_rsrcs(queue->rsrcs);
queue->rsrcs = NULL;
}
if (queue->jobs)
{
DBPRT(("%s: found jobs on queue '%s'! Freeing them...\n", id,
queue->qname));
schd_free_jobs(queue->jobs);
queue->jobs = NULL;
}
if (queue->useracl)
{
DBPRT(("%s: found user ACL list on queue '%s'! Freeing it...\n", id,
queue->qname));
schd_free_useracl(queue->useracl);
queue->useracl = NULL;
}
/* Ask the server for information about the specified queue. */
if ((bs = pbs_statque_err(connector, queue->qname, alist, NULL, &local_errno)) == NULL)
{
sprintf(log_buffer, "pbs_statque failed, \"%s\" %d",
queue->qname, local_errno);
log_record(PBSEVENT_ERROR, PBS_EVENTCLASS_SERVER, id, log_buffer);
DBPRT(("%s: %s\n", id, log_buffer));
return (-1);
}
/* Process the list of attributes returned by the server. */
for (attr = bs->attribs; attr != NULL; attr = attr->next)
{
/* Is queue started? */
if (!strcmp(attr->name, ATTR_start))
{
if (schd_val2bool(attr->value, &istrue) == 0)
{
if (istrue) /* if true, queue is not stopped. */
queue->flags &= ~QFLAGS_STOPPED;
else
queue->flags |= QFLAGS_STOPPED;
}
else
{
DBPRT(("%s: couldn't parse attr %s value %s to boolean\n", id,
attr->name, attr->value));
}
continue;
}
/* Is queue enabled? */
if (!strcmp(attr->name, ATTR_enable))
{
if (schd_val2bool(attr->value, &istrue) == 0)
{
if (istrue) /* if true, queue is not disabled. */
queue->flags &= ~QFLAGS_DISABLED;
else
queue->flags |= QFLAGS_DISABLED;
}
else
{
DBPRT(("%s: couldn't parse attr %s value %s to boolean\n", id,
attr->name, attr->value));
}
continue;
}
/* How many jobs are queued and running? */
if (!strcmp(attr->name, ATTR_count))
{
queue->queued = schd_how_many(attr->value, SC_QUEUED);
queue->running = schd_how_many(attr->value, SC_RUNNING);
continue;
}
/* Queue-wide maximum number of jobs running. */
if (!strcmp(attr->name, ATTR_maxrun))
{
queue->maxrun = atoi(attr->value);
continue;
}
/* Per-user maximum number of jobs running. */
if (!strcmp(attr->name, ATTR_maxuserrun))
{
queue->userrun = atoi(attr->value);
continue;
}
/* Queue Priority Value */
if (!strcmp(attr->name, ATTR_p))
{
queue->priority = atoi(attr->value);
continue;
}
/* Is there an enabled user access control list on this queue? */
if (!strcmp(attr->name, ATTR_acluren))
{
if (schd_val2bool(attr->value, &istrue) == 0)
{
if (istrue) /* if true, queue has an ACL */
queue->flags |= QFLAGS_USER_ACL;
else
queue->flags &= ~QFLAGS_USER_ACL;
}
else
{
DBPRT(("%s: couldn't parse attr %s value %s to boolean\n", id,
attr->name, attr->value));
}
continue;
}
if (!strcmp(attr->name, ATTR_acluser))
{
if (queue->useracl)
{
DBPRT(("queue %s acluser already set!\n", queue->qname));
schd_free_useracl(queue->useracl);
}
queue->useracl = schd_create_useracl(attr->value);
continue;
}
/* Queue maximum resource usage. */
if (!strcmp(attr->name, ATTR_rescmax))
{
if (!strcmp("mem", attr->resource))
{
queue->mem_max = schd_val2byte(attr->value);
continue;
}
if (!strcmp("ncpus", attr->resource))
{
queue->ncpus_max = atoi(attr->value);
continue;
}
if (!strcmp("walltime", attr->resource))
{
queue->wallt_max = schd_val2sec(attr->value);
continue;
}
if (!strcmp("speed", attr->resource))
{
queue->speed = atoi(attr->value);
continue;
}
if (!strcmp(FEATURE_A, attr->resource))
{
queue->featureA = schd_strdup(attr->value);
continue;
}
if (!strcmp(FEATURE_B, attr->resource))
{
queue->featureB = schd_strdup(attr->value);
continue;
}
if (!strcmp(FEATURE_C, attr->resource))
{
queue->featureC = schd_strdup(attr->value);
continue;
}
if (!strcmp(FEATURE_D, attr->resource))
{
queue->featureD = atol(attr->value);
continue;
}
if (!strcmp(FEATURE_E, attr->resource))
{
queue->featureE = atol(attr->value);
continue;
}
if (!strcmp(FEATURE_F, attr->resource))
{
queue->featureF = atol(attr->value);
continue;
}
if (!strcmp(FEATURE_G, attr->resource))
{
schd_val2bool(attr->value, &istrue);
queue->featureG = istrue;
continue;
}
if (!strcmp(FEATURE_H, attr->resource))
{
schd_val2bool(attr->value, &istrue);
queue->featureH = istrue;
continue;
}
if (!strcmp(FEATURE_I, attr->resource))
{
schd_val2bool(attr->value, &istrue);
queue->featureI = istrue;
continue;
}
continue;
}
/* Queue minimum resource usage. */
if (!strcmp(attr->name, ATTR_rescmin))
{
if (!strcmp("mem", attr->resource))
{
queue->mem_min = schd_val2byte(attr->value);
continue;
}
if (!strcmp("ncpus", attr->resource))
{
queue->ncpus_min = atoi(attr->value);
continue;
}
if (!strcmp("walltime", attr->resource))
{
queue->wallt_min = schd_val2sec(attr->value);
continue;
}
continue;
}
/* Queue assigned (in use) resource usage. */
if (!strcmp(attr->name, ATTR_rescassn))
{
if (!strcmp("mem", attr->resource))
{
queue->mem_assn = schd_val2byte(attr->value);
continue;
}
if (!strcmp("ncpus", attr->resource))
{
queue->ncpus_assn = atoi(attr->value);
}
continue;
}
if (!strcmp(attr->name, ATTR_rescdflt))
{
if (!strcmp("mem", attr->resource))
{
queue->mem_default = schd_val2byte(attr->value);
continue;
}
if (!strcmp("ncpus", attr->resource))
{
queue->ncpus_default = atoi(attr->value);
continue;
}
if (!strcmp("walltime", attr->resource))
queue->wallt_default = schd_val2sec(attr->value);
}
/* Ignore anything else */
}
pbs_statfree(bs);
return (0);
}
