int main(
int argc,
char **argv)
{
int c;
int errflg = 0;
int any_failed = 0;
int purge_completed = FALSE;
int located = FALSE;
char *pc;
char job_id[PBS_MAXCLTJOBID]; /* from the command line */
char job_id_out[PBS_MAXCLTJOBID];
char server_out[MAXSERVERNAME] = "";
char rmt_server[MAXSERVERNAME] = "";
char extend[1024];
#define GETOPT_ARGS "acm:pW:t:"
initialize_network_info();
extend[0] = '\0';
while ((c = getopt(argc, argv, GETOPT_ARGS)) != EOF)
{
switch (c)
{
case 'a': /* Async job deletion */
if (extend[0] != '\0')
{
errflg++;
break;
}
strcpy(extend, DELASYNC);
break;
case 'c':
if (extend[0] != '\0')
{
errflg++;
break;
}
snprintf(extend,sizeof(extend),"%s%ld",PURGECOMP,(long)(time(NULL)));
purge_completed = TRUE;
break;
case 'm':
/* add delete message */
if (extend[0] != '\0')
{
/* extension option already specified */
errflg++;
break;
}
strncpy(extend, optarg, sizeof(extend));
break;
case 'p':
if (extend[0] != '\0')
{
errflg++;
break;
}
strcpy(extend, DELPURGE);
strcat(extend, "1");
break;
case 't':
if (extend[0] != '\0')
{
errflg++;
break;
}
pc = optarg;
if (strlen(pc) == 0)
{
fprintf(stderr, "qdel: illegal -t value (array range cannot be zero length)\n");
errflg++;
break;
}
snprintf(extend,sizeof(extend),"%s%s",
ARRAY_RANGE,
pc);
break;
case 'W':
if (extend[0] != '\0')
{
errflg++;
break;
}
pc = optarg;
if (strlen(pc) == 0)
{
fprintf(stderr, "qdel: illegal -W value\n");
errflg++;
break;
}
while (*pc != '\0')
{
if (!isdigit(*pc))
{
fprintf(stderr, "qdel: illegal -W value\n");
errflg++;
break;
}
pc++;
}
strcpy(extend, DELDELAY);
strcat(extend, optarg);
break;
default:
errflg++;
break;
}
} /* END while (c) */
if (purge_completed)
{
strcpy(server_out,pbs_default());
goto cnt;
}
if ((errflg != 0) || (optind >= argc))
{
static char usage[] = "usage: qdel [{ -a | -c | -p | -t | -W delay | -m message}] [<JOBID>[<JOBID>]|'all'|'ALL']...\n";
fprintf(stderr, "%s", usage);
fprintf(stderr, " -a -c, -m, -p, -t, and -W are mutually exclusive\n");
exit(2);
}
for (;optind < argc;optind++)
{
int connect;
int stat = 0;
/* check to see if user specified 'all' to delete all jobs */
snprintf(job_id, sizeof(job_id), "%s", argv[optind]);
if (get_server(job_id, job_id_out, sizeof(job_id_out), server_out, sizeof(server_out)))
{
fprintf(stderr, "qdel: illegally formed job identifier: %s\n",
job_id);
any_failed = 1;
continue;
}
cnt:
connect = cnt2server(server_out);
if (connect <= 0)
{
any_failed = -1 * connect;
if(server_out[0] != 0)
fprintf(stderr, "qdel: cannot connect to server %s (errno=%d) %s\n",
server_out,
any_failed,
pbs_strerror(any_failed));
else
fprintf(stderr, "qdel: cannot connect to server %s (errno=%d) %s\n",
pbs_server,
any_failed,
pbs_strerror(any_failed));
continue;
}
stat = pbs_deljob_err(connect, job_id_out, extend, &any_failed);
if (stat &&
(any_failed != PBSE_UNKJOBID))
{
prt_job_err("qdel", connect, job_id_out);
}
else if (stat &&
(any_failed != PBSE_UNKJOBID) &&
!located)
{
located = TRUE;
if (locate_job(job_id_out, server_out, rmt_server))
{
pbs_disconnect(connect);
strcpy(server_out, rmt_server);
goto cnt;
}
prt_job_err("qdel", connect, job_id_out);
}
pbs_disconnect(connect);
}
exit(any_failed);
} /* END main() */
int scheduling_cycle(
int sd)
{
server_info *sinfo; /* ptr to the server/queue/job/node info */
job_info *jinfo; /* ptr to the job to see if it can run */
int ret = SUCCESS; /* return code from is_ok_to_run_job() */
int local_errno = 0;
char log_msg[MAX_LOG_SIZE]; /* used to log an message about job */
char comment[MAX_COMMENT_SIZE]; /* used to update comment of job */
sched_log(PBSEVENT_DEBUG2, PBS_EVENTCLASS_REQUEST, "", "Entering Schedule");
update_cycle_status();
/* create the server / queue / job / node structures */
if ((sinfo = query_server(sd)) == NULL)
{
fprintf(stderr, "Problem with creating server data strucutre\n");
return(0);
}
if (init_scheduling_cycle(sinfo) == 0)
{
sched_log(
PBSEVENT_DEBUG,
PBS_EVENTCLASS_SERVER,
sinfo -> name,
"init_scheduling_cycle failed.");
free_server(sinfo, 1);
return(0);
}
/* main scheduling loop */
while ((jinfo = next_job(sinfo, 0)))
{
sched_log(
PBSEVENT_DEBUG2,
PBS_EVENTCLASS_JOB,
jinfo->name,
"Considering job to run");
if ((ret = is_ok_to_run_job(sd, sinfo, jinfo->queue, jinfo)) == SUCCESS)
{
run_update_job(sd, sinfo, jinfo->queue, jinfo);
}
else
{
if (jinfo->can_never_run)
{
sched_log(
PBSEVENT_JOB,
PBS_EVENTCLASS_JOB,
jinfo->name,
"Job Deleted because it would never run");
pbs_deljob_err(sd, jinfo->name, (char *)"Job could never run", &local_errno);
}
jinfo->can_not_run = 1;
if (translate_job_fail_code(ret, comment, log_msg))
{
/* if the comment doesn't get changed, its because it hasn't changed.
* if the reason for the job has not changed, we do not need to log it
*/
if (update_job_comment(sd, jinfo, comment) == 0)
{
sched_log(
PBSEVENT_SCHED,
PBS_EVENTCLASS_JOB,
jinfo->name,
log_msg);
}
}
if ((ret != NOT_QUEUED) && cstat.strict_fifo)
{
update_jobs_cant_run(
sd,
jinfo->queue->jobs,
jinfo,
COMMENT_STRICT_FIFO,
START_AFTER_JOB);
}
}
}
if (cstat.fair_share)
update_last_running(sinfo);
free_server(sinfo, 1); /* free server and queues and jobs */
sched_log(PBSEVENT_DEBUG2, PBS_EVENTCLASS_REQUEST, "", "Leaving schedule\n");
return 0;
}
int qdel_main(
int argc,
char **argv,
char **envp)
{
int c;
int errflg = 0;
int any_failed = 0;
int purge_completed = FALSE;
int located = FALSE;
char *pc;
bool dash_t = false; /* for array submission job handling */
int past_failure = 0; /* for multiple job submission error message tracking */
char job_id[PBS_MAXCLTJOBID]; /* from the command line */
char job_id_out[PBS_MAXCLTJOBID];
char server_out[MAXSERVERNAME] = "";
char rmt_server[MAXSERVERNAME] = "";
char extend[1024];
job_data_container attr;
job_data *tmp_data = NULL;
int client_retry = 0;
#define GETOPT_ARGS "ab:cm:pW:t:"
set_env_opts(&attr, envp);
process_config_file(&attr);
if (hash_find(&attr, "PBS_CLIENTRETRY", &tmp_data))
{
client_retry = atoi(tmp_data->value.c_str());
}
extend[0] = '\0';
while ((c = getopt(argc, argv, GETOPT_ARGS)) != EOF)
{
switch (c)
{
case 'a': /* Async job deletion */
if (extend[0] != '\0')
{
errflg++;
break;
}
snprintf(extend, sizeof(extend), "%s", DELASYNC);
break;
case 'b':
client_retry = atoi(optarg);
break;
case 'c':
if (extend[0] != '\0')
{
errflg++;
break;
}
snprintf(extend,sizeof(extend),"%s%ld",PURGECOMP,(long)(time(NULL)));
purge_completed = TRUE;
break;
case 'm':
/* add delete message */
if (extend[0] != '\0')
{
/* extension option already specified */
errflg++;
break;
}
snprintf(extend, sizeof(extend), "%s", optarg);
break;
case 'p':
if (extend[0] != '\0')
{
errflg++;
break;
}
snprintf(extend, sizeof(extend), "%s1", DELPURGE);
break;
case 't':
dash_t = true;
if (extend[0] != '\0')
{
errflg++;
break;
}
pc = optarg;
if (strlen(pc) == 0)
{
fprintf(stderr, "qdel: illegal -t value (array range cannot be zero length)\n");
errflg++;
break;
}
snprintf(extend,sizeof(extend),"%s%s",
ARRAY_RANGE,
pc);
break;
case 'W':
if (extend[0] != '\0')
{
errflg++;
break;
}
pc = optarg;
if (strlen(pc) == 0)
{
fprintf(stderr, "qdel: illegal -W value\n");
errflg++;
break;
}
while (*pc != '\0')
{
if (!isdigit(*pc))
{
fprintf(stderr, "qdel: illegal -W value\n");
errflg++;
break;
}
pc++;
}
snprintf(extend, sizeof(extend), "%s%s", DELDELAY, optarg);
break;
default:
errflg++;
break;
}
} /* END while (c) */
if (purge_completed)
{
snprintf(server_out, sizeof(server_out), "%s", pbs_default());
goto cnt;
}
if ((errflg != 0) || (optind >= argc))
{
static char usage[] = "usage: qdel [{ -a | -c | -p | -t | -W delay | -m message}] [-b retry_seconds] [<JOBID>[<JOBID>]|'all'|'ALL']...\n";
fprintf(stderr, "%s", usage);
fprintf(stderr, " -a -c, -m, -p, -t, and -W are mutually exclusive\n");
exit(2);
}
if (client_retry > 0)
{
cnt2server_conf(client_retry); /* set number of seconds to retry */
}
for (;optind < argc;optind++)
{
int connect;
int stat;
/* check to see if user specified 'all' to delete all jobs */
snprintf(job_id, sizeof(job_id), "%s", argv[optind]);
if ((dash_t == true) &&
is_array(job_id) == false)
{
fprintf(stderr, "qdel: Error: job id '%s' isn't a job array but -t was specified.\n",
job_id);
any_failed = 1;
exit(any_failed);
}
if (get_server(job_id, job_id_out, sizeof(job_id_out), server_out, sizeof(server_out)))
{
fprintf(stderr, "qdel: illegally formed job identifier: %s\n",
job_id);
any_failed = 1;
exit(any_failed);
}
cnt:
connect = cnt2server(server_out);
if (connect <= 0)
{
any_failed = -1 * connect;
if(server_out[0] != 0)
fprintf(stderr, "qdel: cannot connect to server %s (errno=%d) %s\n",
server_out,
any_failed,
pbs_strerror(any_failed));
else
fprintf(stderr, "qdel: cannot connect to server %s (errno=%d) %s\n",
pbs_server,
any_failed,
pbs_strerror(any_failed));
continue;
}
int retries = 0;
do
{
stat = pbs_deljob_err(connect, job_id_out, extend, &any_failed);
if (any_failed == PBSE_TIMEOUT)
{
sleep(1);
fprintf(stdout, "Connection to server timed out. Trying again");
}
} while ((++retries < MAX_RETRIES) && (any_failed == PBSE_TIMEOUT));
if (past_failure == 0)
past_failure = any_failed;
if (stat &&
(any_failed != PBSE_UNKJOBID))
{
if (!located)
{
located = TRUE;
if (locate_job(job_id_out, server_out, rmt_server))
{
pbs_disconnect(connect);
strcpy(server_out, rmt_server);
goto cnt;
}
}
prt_job_err((char *)"qdel", connect, job_id_out);
}
if (!located && any_failed != 0)
{
fprintf(stderr, "qdel: nonexistent job id: %s\n", job_id);
}
pbs_disconnect(connect);
}
if ((past_failure != PBSE_NONE) &&
(any_failed == PBSE_NONE))
any_failed = past_failure;
exit(any_failed);
} /* END qdel_main() */
