/**
* @brief
* find_event_ptr - find the correct event pointer for the duplicated
* event based on event type
*
* @param[in] ote - old event
* @param[in] nsinfo - "new" universe
*
* @return event_ptr in new universe
* @retval NULL : on error
*/
event_ptr_t *
find_event_ptr(timed_event *ote, server_info *nsinfo)
{
resource_resv *oep; /* old event_ptr in resresv form */
event_ptr_t *event_ptr = NULL;
char logbuf[MAX_LOG_SIZE];
if (ote == NULL || nsinfo == NULL)
return NULL;
switch (ote->event_type) {
case TIMED_RUN_EVENT:
case TIMED_END_EVENT:
oep = (resource_resv *) ote->event_ptr;
event_ptr =
find_resource_resv_by_time(nsinfo->all_resresv,
oep->name, oep->start);
if (event_ptr == NULL) {
schdlog(PBSEVENT_SCHED, PBS_EVENTCLASS_SCHED, LOG_WARNING, ote->name,
"Event can't be found in new server to be duplicated.");
event_ptr = NULL;
}
break;
case TIMED_POLICY_EVENT:
case TIMED_DED_START_EVENT:
case TIMED_DED_END_EVENT:
event_ptr = nsinfo->policy;
break;
case TIMED_NODE_DOWN_EVENT:
case TIMED_NODE_UP_EVENT:
event_ptr = find_node_info(nsinfo->nodes,
((node_info*)(ote->event_ptr))->name);
break;
default:
snprintf(logbuf, MAX_LOG_SIZE, "Unknown event type: %d",
#ifdef NAS /* localmod 005 */
(int)ote->event_type);
#else
ote->event_type);
#endif /* localmod 005 */
schdlog(PBSEVENT_SCHED, PBS_EVENTCLASS_SCHED, LOG_WARNING, __func__, logbuf);
}
return event_ptr;
}
/**
* @brief
* update_resresv_on_end - update a resource_resv structure when
* it ends
*
* @param[out] resresv - the resresv to update
* @param[in] job_state - the new state if resresv is a job
*
* @return nothing
*
*/
void
update_resresv_on_end(resource_resv *resresv, char *job_state)
{
queue_info *resv_queue;
resource_resv *next_occr = NULL;
time_t next_occr_time;
char logbuf[MAX_LOG_SIZE];
int ret;
int i;
if (resresv == NULL)
return;
/* now that it isn't running, it might be runnable again */
resresv->can_not_run = 0;
/* unless of course it's a job and its queue is in an ineligible state */
if (resresv->is_job && resresv->job != NULL &&
!resresv->job->queue->is_ok_to_run)
resresv->can_not_run = 1;
/* no longer running... clear start and end times */
resresv->start = UNSPECIFIED;
resresv->end = UNSPECIFIED;
if (resresv->is_job && resresv->job != NULL) {
set_job_state(job_state, resresv->job);
if (resresv->job->is_suspended) {
#ifndef NAS /* localmod 005 */
int i;
#endif /* localmod 005 */
nspec **ns = resresv->nspec_arr;
resresv->job->is_susp_sched = 1;
for (i = 0; ns[i] != NULL; i++)
ns[i]->ninfo->num_susp_jobs++;
}
resresv->job->is_provisioning = 0;
/* free resources allocated to job since it's now been requeued */
if (resresv->job->is_queued && !resresv->job->is_checkpointed) {
free(resresv->ninfo_arr);
resresv->ninfo_arr = NULL;
free_nspecs(resresv->nspec_arr);
resresv->nspec_arr = NULL;
free_resource_req_list(resresv->job->resused);
resresv->job->resused = NULL;
if (resresv->nodepart_name != NULL) {
free(resresv->nodepart_name);
resresv->nodepart_name = NULL;
}
free_selspec(resresv->execselect);
resresv->execselect = NULL;
}
}
else if (resresv->is_resv && resresv->resv !=NULL) {
resresv->resv->resv_state = RESV_DELETED;
resv_queue = find_queue_info(resresv->server->queues,
resresv->resv->queuename);
if (resv_queue != NULL) {
resv_queue->is_started = 0;
ret = is_ok_to_run_queue(resresv->server->policy, resv_queue);
if (ret == SUCCESS)
resv_queue->is_ok_to_run = 1;
else
resv_queue->is_ok_to_run = 0;
if (resresv->resv->is_standing) {
/* This occurrence is over, move resv pointers of all jobs that are
* left to next occurrence if one exists
*/
if (resresv->resv->resv_idx < resresv->resv->count) {
next_occr_time = get_occurrence(resresv->resv->rrule,
resresv->resv->req_start, resresv->resv->timezone, 2);
if (next_occr_time >= 0) {
next_occr = find_resource_resv_by_time(resresv->server->resvs,
resresv->name, next_occr_time);
if (next_occr != NULL) {
if (resv_queue->jobs != NULL) {
for (i = 0; resv_queue->jobs[i] != NULL; i++) {
if (in_runnable_state(resv_queue->jobs[i]))
resv_queue->jobs[i]->job->resv = next_occr;
}
}
}
else {
snprintf(logbuf, MAX_LOG_SIZE,
"Can't find occurrence of standing reservation at time %ld",
next_occr_time);
schdlog(PBSEVENT_DEBUG, PBS_EVENTCLASS_SERVER, LOG_DEBUG,
resresv->name, logbuf);
}
}
}
}
}
}
}
