int main(int argc, char **argv) {
/* lListElem *rep, *nxt_rep, *jep, *aep, *jrep, *idep; */
int ret = 0;
lListElem *aep, *idep;
lList *jlp = NULL, *alp = NULL, *pcmdline = NULL, *ref_list = NULL, *user_list=NULL;
u_long32 force = 0;
int wait;
unsigned long status = 0;
bool have_master_privileges;
cl_com_handle_t* handle = NULL;
sge_gdi_ctx_class_t *ctx = NULL;
DENTER_MAIN(TOP_LAYER, "qdel");
log_state_set_log_gui(1);
if (sge_gdi2_setup(&ctx, QDEL, MAIN_THREAD, &alp) != AE_OK) {
answer_list_output(&alp);
goto error_exit;
}
if (!sge_parse_cmdline_qdel(++argv, environ, &pcmdline, &alp)) {
/*
** high level parsing error! show answer list
*/
answer_list_output(&alp);
lFreeList(&pcmdline);
goto error_exit;
}
if (!sge_parse_qdel(&pcmdline, &ref_list, &force, &user_list, &alp)) {
/*
** low level parsing error! show answer list
*/
answer_list_output(&alp);
lFreeList(&pcmdline);
goto error_exit;
}
DPRINTF(("force = "sge_u32"\n", force));
if (user_list) {
lListElem *id;
if (lGetNumberOfElem(ref_list) == 0){
id = lAddElemStr(&ref_list, ID_str, "0", ID_Type);
lSetList(id, ID_user_list, user_list);
} else {
for_each(id, ref_list){
lSetList(id, ID_user_list, user_list);
}
}
}
int main(int argc, char *argv[])
{
qevent_options enabled_options;
dstring errors = DSTRING_INIT;
int i, gdi_setup;
lList *alp = NULL;
sge_gdi_ctx_class_t *ctx = NULL;
sge_evc_class_t *evc = NULL;
DENTER_MAIN(TOP_LAYER, "qevent");
/* sge_mt_init(); */
/* dump pid to file */
qevent_dump_pid_file();
/* parse command line */
enabled_options.error_message = &errors;
qevent_set_option_struct(&enabled_options);
qevent_parse_command_line(argc, argv, &enabled_options);
/* check if help option is set */
if (enabled_options.help_option) {
qevent_show_usage();
sge_dstring_free(enabled_options.error_message);
SGE_EXIT((void**)&ctx, 0);
}
/* are there command line parsing errors ? */
if (sge_dstring_get_string(enabled_options.error_message)) {
ERROR((SGE_EVENT, "%s", sge_dstring_get_string(enabled_options.error_message) ));
qevent_show_usage();
sge_dstring_free(enabled_options.error_message);
SGE_EXIT((void**)&ctx, 1);
}
log_state_set_log_gui(1);
sge_setup_sig_handlers(QEVENT);
/* setup event client */
gdi_setup = sge_gdi2_setup(&ctx, QEVENT, MAIN_THREAD, &alp);
if (gdi_setup != AE_OK) {
answer_list_output(&alp);
sge_dstring_free(enabled_options.error_message);
SGE_EXIT((void**)&ctx, 1);
}
/* TODO: how is the memory we allocate here released ???, SGE_EXIT doesn't */
if (false == sge_gdi2_evc_setup(&evc, ctx, EV_ID_ANY, &alp, NULL)) {
answer_list_output(&alp);
sge_dstring_free(enabled_options.error_message);
SGE_EXIT((void**)&ctx, 1);
}
/* ok, start over ... */
/* check for testsuite option */
if (enabled_options.testsuite_option) {
/* only for testsuite */
qevent_testsuite_mode(evc);
sge_dstring_free(enabled_options.error_message);
SGE_EXIT((void**)&ctx, 0);
}
/* check for subscribe option */
if (enabled_options.subscribe_option) {
/* only for testsuite */
qevent_subscribe_mode(evc);
sge_dstring_free(enabled_options.error_message);
SGE_EXIT((void**)&ctx, 0);
}
if (enabled_options.trigger_option_count > 0) {
lCondition *where =NULL;
lEnumeration *what = NULL;
sge_mirror_initialize(evc, EV_ID_ANY, "sge_mirror -trigger", true,
NULL, NULL, NULL, NULL, NULL);
evc->ec_set_busy_handling(evc, EV_BUSY_UNTIL_ACK);
/* put out information about -trigger option */
for (i=0;i<enabled_options.trigger_option_count;i++) {
INFO((SGE_EVENT, "trigger script for %s events: %s\n",
qevent_get_event_name((enabled_options.trigger_option_events)[i]),
(enabled_options.trigger_option_scripts)[i]));
switch((enabled_options.trigger_option_events)[i]) {
case QEVENT_JB_END:
/* build mask for the job structure to contain only the needed elements */
where = NULL;
what = lWhat("%T(%I %I %I %I %I %I %I %I)", JB_Type, JB_job_number, JB_ja_tasks,
JB_ja_structure, JB_ja_n_h_ids, JB_ja_u_h_ids,
JB_ja_s_h_ids,JB_ja_o_h_ids, JB_ja_template);
/* register for job events */
sge_mirror_subscribe(evc, SGE_TYPE_JOB, analyze_jatask_event, NULL, NULL, where, what);
evc->ec_set_flush(evc, sgeE_JOB_DEL,true, 1);
/* the mirror interface registers more events, than we need,
thus we free the ones, we do not need */
/* evc->ec_unsubscribe(evc, sgeE_JOB_LIST); */
evc->ec_unsubscribe(evc, sgeE_JOB_MOD);
evc->ec_unsubscribe(evc, sgeE_JOB_MOD_SCHED_PRIORITY);
evc->ec_unsubscribe(evc, sgeE_JOB_USAGE);
evc->ec_unsubscribe(evc, sgeE_JOB_FINAL_USAGE);
/* evc->ec_unsubscribe(evc, sgeE_JOB_ADD); */
/* free the what and where mask */
lFreeWhere(&where);
lFreeWhat(&what);
break;
case QEVENT_JB_TASK_END:
/* build mask for the job structure to contain only the needed elements */
where = NULL;
what = lWhat("%T(%I)", JAT_Type, JAT_status);
/* register for JAT events */
sge_mirror_subscribe(evc, SGE_TYPE_JATASK, analyze_jatask_event, NULL, NULL, where, what);
evc->ec_set_flush(evc, sgeE_JATASK_DEL,true, 1);
/* the mirror interface registers more events, than we need,
thus we free the ones, we do not need */
evc->ec_unsubscribe(evc, sgeE_JATASK_ADD);
evc->ec_unsubscribe(evc, sgeE_JATASK_MOD);
/* free the what and where mask */
lFreeWhere(&where);
lFreeWhat(&what);
break;
}
}
while(!shut_me_down) {
sge_mirror_error error = sge_mirror_process_events(evc);
if (error == SGE_EM_TIMEOUT && !shut_me_down ) {
sleep(10);
continue;
}
}
sge_mirror_shutdown(evc);
sge_dstring_free(enabled_options.error_message);
sge_prof_cleanup();
SGE_EXIT((void**)&ctx, 0);
return 0;
}
ERROR((SGE_EVENT, "no option selected\n" ));
qevent_show_usage();
sge_dstring_free(enabled_options.error_message);
sge_prof_cleanup();
SGE_EXIT((void**)&ctx, 1);
return 1;
}
int main(int argc, char **argv) {
lList *pcmdline = NULL;
lList *alp = NULL;
sge_gdi_ctx_class_t *ctx = NULL;
lList *ar_lp = NULL;
lListElem *ar = NULL;
DENTER_MAIN(TOP_LAYER, "qrsub");
/* Set up the program information name */
sge_setup_sig_handlers(QRSUB);
log_state_set_log_gui(1);
if (sge_gdi2_setup(&ctx, QRSUB, MAIN_THREAD, &alp) != AE_OK) {
answer_list_output(&alp);
goto error_exit;
}
/*
** stage 1 of commandline parsing
*/
{
dstring file = DSTRING_INIT;
const char *user = ctx->get_username(ctx);
const char *cell_root = ctx->get_cell_root(ctx);
/* arguments from SGE_ROOT/common/sge_ar_request file */
get_root_file_path(&file, cell_root, SGE_COMMON_DEF_AR_REQ_FILE);
if ((alp = parse_script_file(QRSUB, sge_dstring_get_string(&file), "", &pcmdline, environ,
FLG_HIGHER_PRIOR | FLG_IGN_NO_FILE)) == NULL) {
/* arguments from $HOME/.sge_ar_request file */
if (get_user_home_file_path(&file, SGE_HOME_DEF_AR_REQ_FILE, user, &alp)) {
lFreeList(&alp);
alp = parse_script_file(QRSUB, sge_dstring_get_string(&file), "", &pcmdline, environ,
FLG_HIGHER_PRIOR | FLG_IGN_NO_FILE);
}
}
sge_dstring_free(&file);
if (alp) {
answer_list_output(&alp);
lFreeList(&pcmdline);
goto error_exit;
}
}
alp = cull_parse_cmdline(QRSUB, argv+1, environ, &pcmdline, FLG_USE_PSEUDOS);
if (answer_list_print_err_warn(&alp, NULL, "qrsub: ", MSG_WARNING) > 0) {
lFreeList(&pcmdline);
goto error_exit;
}
if (!pcmdline) {
/* no command line option is present: print help to stderr */
sge_usage(QRSUB, stderr);
fprintf(stderr, "%s\n", MSG_PARSE_NOOPTIONARGUMENT);
goto error_exit;
}
/*
** stage 2 of command line parsing
*/
ar = lCreateElem(AR_Type);
if (!sge_parse_qrsub(ctx, pcmdline, &alp, &ar)) {
answer_list_output(&alp);
lFreeList(&pcmdline);
goto error_exit;
}
ar_lp = lCreateList(NULL, AR_Type);
lAppendElem(ar_lp, ar);
alp = ctx->gdi(ctx, SGE_AR_LIST, SGE_GDI_ADD | SGE_GDI_RETURN_NEW_VERSION, &ar_lp, NULL, NULL);
lFreeList(&ar_lp);
answer_list_on_error_print_or_exit(&alp, stdout);
if (answer_list_has_error(&alp)) {
sge_gdi2_shutdown((void**)&ctx);
sge_prof_cleanup();
if (answer_list_has_status(&alp, STATUS_NOTOK_DOAGAIN)) {
DRETURN(25);
} else {
DRETURN(1);
}
}
sge_gdi2_shutdown((void**)&ctx);
sge_prof_cleanup();
DRETURN(0);
error_exit:
sge_gdi2_shutdown((void**)&ctx);
sge_prof_cleanup();
SGE_EXIT((void**)&ctx, 1);
DRETURN(1);
}
int main(int argc, char **argv) {
int ret = 0;
lList *pcmdline = NULL;
lList *answer_list = NULL;
sge_gdi_ctx_class_t *ctx = NULL;
qrstat_env_t qrstat_env;
DENTER_MAIN(TOP_LAYER, "qrsub");
/* Set up the program information name */
sge_setup_sig_handlers(QRSTAT);
log_state_set_log_gui(1);
if (sge_gdi2_setup(&ctx, QRSTAT, MAIN_THREAD, &answer_list) != AE_OK) {
answer_list_output(&answer_list);
goto error_exit;
}
qrstat_filter_init(&qrstat_env);
qrstat_filter_set_ctx(&qrstat_env, ctx);
/*
* stage 1: commandline parsing
*/
{
dstring file = DSTRING_INIT;
const char *user = ctx->get_username(ctx);
const char *cell_root = ctx->get_cell_root(ctx);
/* arguments from SGE_ROOT/common/sge_qrstat file */
get_root_file_path(&file, cell_root, SGE_COMMON_DEF_QRSTAT_FILE);
if (sge_parse_from_file_qrstat(sge_dstring_get_string(&file), &pcmdline, &answer_list) == true) {
/* arguments from $HOME/.sge_qrstat file */
if (get_user_home_file_path(&file, SGE_HOME_DEF_QRSTAT_FILE, user, &answer_list)) {
sge_parse_from_file_qrstat(sge_dstring_get_string(&file), &pcmdline, &answer_list);
}
}
sge_dstring_free(&file);
if (answer_list) {
answer_list_output(&answer_list);
lFreeList(&pcmdline);
sge_prof_cleanup();
SGE_EXIT((void**)&ctx, 1);
}
}
answer_list = cull_parse_cmdline(QRSTAT, argv+1, environ, &pcmdline, FLG_USE_PSEUDOS);
if (answer_list != NULL) {
answer_list_output(&answer_list);
lFreeList(&pcmdline);
goto error_exit;
}
/*
* stage 2: evalutate switches and modify qrstat_env
*/
if (!sge_parse_qrstat(ctx, &answer_list, &qrstat_env, &pcmdline)) {
answer_list_output(&answer_list);
lFreeList(&pcmdline);
goto error_exit;
}
/*
* stage 3: fetch data from master
*/
{
answer_list = ctx->gdi(ctx, SGE_AR_LIST, SGE_GDI_GET, &qrstat_env.ar_list,
qrstat_env.where_AR_Type, qrstat_env.what_AR_Type, false);
if (answer_list_has_error(&answer_list)) {
answer_list_output(&answer_list);
goto error_exit;
}
}
/*
* stage 4: create output in correct format
*/
{
qrstat_report_handler_t *handler = NULL;
if (qrstat_env.is_xml) {
handler = qrstat_create_report_handler_xml(&qrstat_env, &answer_list);
} else {
handler = qrstat_create_report_handler_stdout(&qrstat_env, &answer_list);
}
if (!qrstat_print(&answer_list, handler, &qrstat_env)) {
ret = 1;
}
if (qrstat_env.is_xml) {
qrstat_destroy_report_handler_xml(&handler, &answer_list);
} else {
qrstat_destroy_report_handler_stdout(&handler, &answer_list);
}
}
sge_gdi2_shutdown((void**)&ctx);
sge_prof_cleanup();
DRETURN(ret);
error_exit:
sge_gdi2_shutdown((void**)&ctx);
sge_prof_cleanup();
SGE_EXIT((void**)&ctx, 1);
DRETURN(1);
}
int main(int argc, char **argv) {
int ret = STATUS_OK;
lList *alp = NULL;
lList *request_list = NULL;
lList *cmdline = NULL;
lListElem *aep;
int all_jobs = 0;
int all_users = 0;
u_long32 gdi_cmd = SGE_GDI_MOD;
int tmp_ret;
int me_who;
sge_gdi_ctx_class_t *ctx = NULL;
DENTER_MAIN(TOP_LAYER, "qalter");
prof_mt_init();
/*
** get command name: qalter or qresub
*/
if (!strcmp(sge_basename(argv[0], '/'), "qresub")) {
DPRINTF(("QRESUB\n"));
me_who = QRESUB;
} else if (!strcmp(sge_basename(argv[0], '/'), "qhold")) {
DPRINTF(("QHOLD\n"));
me_who = QHOLD;
} else if (!strcmp(sge_basename(argv[0], '/'), "qrls")) {
DPRINTF(("QRLS\n"));
me_who = QRLS;
} else {
DPRINTF(("QALTER\n"));
me_who = QALTER;
}
log_state_set_log_gui(1);
sge_setup_sig_handlers(me_who);
if (sge_gdi2_setup(&ctx, me_who, MAIN_THREAD, &alp) != AE_OK) {
answer_list_output(&alp);
SGE_EXIT((void**)&ctx, 1);
}
/*
** begin to work
*/
opt_list_append_opts_from_qalter_cmdline(me_who, &cmdline, &alp, argv + 1, environ);
tmp_ret = answer_list_print_err_warn(&alp, MSG_QALTER, MSG_QALTER, MSG_QALTERWARNING);
if (tmp_ret > 0) {
SGE_EXIT((void**)&ctx, tmp_ret);
}
/* handling the case that no command line parameter was specified */
if ((me_who == QHOLD || me_who == QRLS) && lGetNumberOfElem(cmdline) == 1) {
/* -h option is set implicitly for QHOLD and QRLS */
sge_usage(me_who, stderr);
fprintf(stderr, "%s\n", MSG_PARSE_NOOPTIONARGUMENT);
SGE_EXIT((void**)&ctx, 1);
} else if ((me_who == QRESUB || me_who == QALTER) && lGetNumberOfElem(cmdline) == 0) {
/* qresub and qalter have nothing set */
sge_usage(me_who, stderr);
fprintf(stderr, "%s\n", MSG_PARSE_NOOPTIONARGUMENT);
SGE_EXIT((void**)&ctx, 1);
} else if (opt_list_has_X(cmdline, "-help")) {
/* -help was specified */
sge_usage(me_who, stdout);
SGE_EXIT((void**)&ctx, 0);
}
alp = qalter_parse_job_parameter(me_who, cmdline, &request_list, &all_jobs,
&all_users);
DPRINTF(("all_jobs = %d, all_user = %d\n", all_jobs, all_users));
if (request_list && verify) {
/*
got a request list containing one element
for each job to be modified
save jobid all fields contain the same fields
so we may use show_job() with the first job
in our list
The jobid's in our request list get printed before
show_job()
*/
cull_show_job(lFirst(request_list), FLG_QALTER, false);
sge_prof_cleanup();
SGE_EXIT((void**)&ctx, 0);
}
tmp_ret = answer_list_print_err_warn(&alp, NULL, NULL, MSG_WARNING);
if (tmp_ret > 0) {
SGE_EXIT((void**)&ctx, tmp_ret);
}
if ((me_who == QALTER) ||
(me_who == QHOLD) ||
(me_who == QRLS)
) {
DPRINTF(("QALTER\n"));
gdi_cmd = SGE_GDI_MOD;
} else if (me_who == QRESUB){
DPRINTF(("QRESUB\n"));
gdi_cmd = SGE_GDI_COPY;
} else {
printf("unknown binary name.\n");
SGE_EXIT((void**)&ctx, 1);
}
if (all_jobs)
gdi_cmd |= SGE_GDI_ALL_JOBS;
if (all_users)
gdi_cmd |= SGE_GDI_ALL_USERS;
alp = ctx->gdi(ctx, SGE_JB_LIST, gdi_cmd, &request_list, NULL, NULL);
for_each (aep, alp) {
printf("%s\n", lGetString(aep, AN_text));
if (ret == STATUS_OK) {
ret = lGetUlong(aep, AN_status);
}
}