extern int sacctmgr_delete_res(int argc, char *argv[])
{
int rc = SLURM_SUCCESS;
slurmdb_res_cond_t *res_cond = xmalloc(sizeof(slurmdb_res_cond_t));
int i=0;
List ret_list = NULL;
ListIterator itr = NULL;
int set = 0;
char *name = NULL;
slurmdb_init_res_cond(res_cond, 0);
for (i=0; i<argc; i++) {
int command_len = strlen(argv[i]);
if (!strncasecmp(argv[i], "Where", MAX(command_len, 5))
|| !strncasecmp(argv[i], "Set", MAX(command_len, 3)))
i++;
set += _set_res_cond(&i, argc, argv, res_cond, NULL);
}
if (!set) {
exit_code=1;
fprintf(stderr,
" No conditions given to remove, not executing.\n");
slurmdb_destroy_res_cond(res_cond);
return SLURM_ERROR;
} else if (set == -1) {
slurmdb_destroy_res_cond(res_cond);
return SLURM_ERROR;
}
notice_thread_init();
ret_list = acct_storage_g_remove_res(db_conn, my_uid, res_cond);
notice_thread_fini();
slurmdb_destroy_res_cond(res_cond);
if (ret_list && list_count(ret_list)) {
itr = list_iterator_create(ret_list);
printf(" Deleting resource(s)...\n");
while ((name = list_next(itr))) {
printf(" %s\n", name);
}
list_iterator_destroy(itr);
if (commit_check("Would you like to commit changes?")) {
acct_storage_g_commit(db_conn, 1);
} else {
printf(" Changes Discarded\n");
acct_storage_g_commit(db_conn, 0);
}
} else if (ret_list) {
printf(" Nothing deleted\n");
rc = SLURM_ERROR;
} else {
exit_code=1;
fprintf(stderr, " Error with request: %s\n",
slurm_strerror(errno));
rc = SLURM_ERROR;
}
FREE_NULL_LIST(ret_list);
xfree(name);
return rc;
}
/*
* remove res from accounting system
* IN: slurmdb_res_cond_t *res
* RET: List containing (char *'s) else NULL on error
* note List needs to be freed with slurm_list_destroy() when called
*/
extern List slurmdb_res_remove(void *db_conn,
slurmdb_res_cond_t *res_cond)
{
return acct_storage_g_remove_res(db_conn, getuid(), res_cond);
}
