static bool
sge_parse_from_file_qrstat(const char *file, lList **ppcmdline, lList **alpp)
{
bool ret = true;
DENTER(TOP_LAYER, "sge_parse_from_file_qrstat");
if (ppcmdline == NULL) {
ret = false;
} else {
if (!sge_is_file(file)) {
/*
* This is no error
*/
DPRINTF(("file "SFQ" does not exist\n", file));
} else {
char *file_as_string = NULL;
int file_as_string_length;
file_as_string = sge_file2string(file, &file_as_string_length);
if (file_as_string == NULL) {
answer_list_add_sprintf(alpp, STATUS_EUNKNOWN,
ANSWER_QUALITY_ERROR,
MSG_ANSWER_ERRORREADINGFROMFILEX_S, file);
ret = false;
} else {
char **token = NULL;
token = stra_from_str(file_as_string, " \n\t");
*alpp = cull_parse_cmdline(QRSTAT, token, environ, ppcmdline, FLG_USE_PSEUDOS);
}
}
}
DRETURN(ret);
}
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);
}