/src/sacctmgr/qos_functions.c
C | 1126 lines | 981 code | 93 blank | 52 comment | 306 complexity | 59cf7277ad9fb2cfe1d8b6952163d41d MD5 | raw file
Possible License(s): GPL-2.0, AGPL-1.0
- /*****************************************************************************\
- * qos_functions.c - functions dealing with qoss in the
- * accounting system.
- *****************************************************************************
- * Copyright (C) 2002-2008 The Regents of the University of California.
- * Produced at Lawrence Livermore National Laboratory (cf, DISCLAIMER).
- * Written by Danny Auble <da@llnl.gov>
- * CODE-OCEC-09-009. All rights reserved.
- *
- * This file is part of SLURM, a resource management program.
- * For details, see <http://www.schedmd.com/slurmdocs/>.
- * Please also read the included file: DISCLAIMER.
- *
- * SLURM is free software; you can redistribute it and/or modify it under
- * the terms of the GNU General Public License as published by the Free
- * Software Foundation; either version 2 of the License, or (at your option)
- * any later version.
- *
- * In addition, as a special exception, the copyright holders give permission
- * to link the code of portions of this program with the OpenSSL library under
- * certain conditions as described in each individual source file, and
- * distribute linked combinations including the two. You must obey the GNU
- * General Public License in all respects for all of the code used other than
- * OpenSSL. If you modify file(s) with this exception, you may extend this
- * exception to your version of the file(s), but you are not obligated to do
- * so. If you do not wish to do so, delete this exception statement from your
- * version. If you delete this exception statement from all source files in
- * the program, then also delete it here.
- *
- * SLURM is distributed in the hope that it will be useful, but WITHOUT ANY
- * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
- * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
- * details.
- *
- * You should have received a copy of the GNU General Public License along
- * with SLURM; if not, write to the Free Software Foundation, Inc.,
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
- \*****************************************************************************/
- #include "src/sacctmgr/sacctmgr.h"
- static uint16_t _parse_preempt_modes(char *names)
- {
- int i=0, start=0;
- char *name = NULL;
- char quote_c = '\0';
- int quote = 0;
- int count = 0;
- uint16_t preempt_mode = 0;
- uint16_t ret_mode = 0;
- if(names) {
- if (names[i] == '\"' || names[i] == '\'') {
- quote_c = names[i];
- quote = 1;
- i++;
- }
- start = i;
- while(names[i]) {
- //info("got %d - %d = %d", i, start, i-start);
- if(quote && names[i] == quote_c)
- break;
- else if (names[i] == '\"' || names[i] == '\'')
- names[i] = '`';
- else if(names[i] == ',') {
- name = xmalloc((i-start+1));
- memcpy(name, names+start, (i-start));
- //info("got %s %d", name, i-start);
- ret_mode = preempt_mode_num(name);
- if(ret_mode == (uint16_t)NO_VAL) {
- error("Unknown preempt_mode given '%s'",
- name);
- xfree(name);
- preempt_mode = (uint16_t)NO_VAL;
- break;
- }
- preempt_mode |= ret_mode;
- count++;
- xfree(name);
- i++;
- start = i;
- if(!names[i]) {
- info("There is a problem with "
- "your request. It appears you "
- "have spaces inside your list.");
- break;
- }
- }
- i++;
- }
- name = xmalloc((i-start+1));
- memcpy(name, names+start, (i-start));
- //info("got %s %d", name, i-start);
- ret_mode = preempt_mode_num(name);
- if(ret_mode == (uint16_t)NO_VAL) {
- error("Unknown preempt_mode given '%s'",
- name);
- xfree(name);
- preempt_mode = (uint16_t)NO_VAL;
- return preempt_mode;
- }
- preempt_mode |= ret_mode;
- count++;
- xfree(name);
- }
- return preempt_mode;
- }
- static int _set_cond(int *start, int argc, char *argv[],
- slurmdb_qos_cond_t *qos_cond,
- List format_list)
- {
- int i;
- int set = 0;
- int end = 0;
- int command_len = 0;
- if(!qos_cond) {
- error("No qos_cond given");
- return -1;
- }
- for (i=(*start); i<argc; i++) {
- end = parse_option_end(argv[i]);
- if(!end)
- command_len=strlen(argv[i]);
- else {
- command_len=end-1;
- if (argv[i][end] == '=') {
- end++;
- }
- }
- if (!strncasecmp (argv[i], "Set", MAX(command_len, 3))) {
- i--;
- break;
- } else if (!end && !strncasecmp (argv[i], "WithDeleted",
- MAX(command_len, 5))) {
- qos_cond->with_deleted = 1;
- } else if(!end && !strncasecmp(argv[i], "where",
- MAX(command_len, 5))) {
- continue;
- } else if(!end
- || !strncasecmp (argv[i], "Names",
- MAX(command_len, 1))
- || !strncasecmp (argv[i], "QOSLevel",
- MAX(command_len, 1))) {
- if(!qos_cond->name_list) {
- qos_cond->name_list =
- list_create(slurm_destroy_char);
- }
- if(slurm_addto_char_list(qos_cond->name_list,
- argv[i]+end))
- set = 1;
- } else if(!strncasecmp (argv[i], "Descriptions",
- MAX(command_len, 1))) {
- if(!qos_cond->description_list) {
- qos_cond->description_list =
- list_create(slurm_destroy_char);
- }
- if(slurm_addto_char_list(qos_cond->description_list,
- argv[i]+end))
- set = 1;
- } else if (!strncasecmp (argv[i], "Format",
- MAX(command_len, 1))) {
- if(format_list)
- slurm_addto_char_list(format_list, argv[i]+end);
- } else if(!strncasecmp (argv[i], "Ids", MAX(command_len, 1))) {
- ListIterator itr = NULL;
- char *temp = NULL;
- uint32_t id = 0;
- if(!qos_cond->id_list) {
- qos_cond->id_list =
- list_create(slurm_destroy_char);
- }
- if(slurm_addto_char_list(qos_cond->id_list,
- argv[i]+end))
- set = 1;
- /* check to make sure user gave ints here */
- itr = list_iterator_create(qos_cond->id_list);
- while ((temp = list_next(itr))) {
- if (get_uint(temp, &id, "QOS ID")
- != SLURM_SUCCESS) {
- exit_code = 1;
- list_delete_item(itr);
- }
- }
- list_iterator_destroy(itr);
- } else if (!strncasecmp (argv[i], "PreemptMode",
- MAX(command_len, 8))) {
- if(!qos_cond)
- continue;
- qos_cond->preempt_mode |=
- _parse_preempt_modes(argv[i]+end);
- if(qos_cond->preempt_mode == (uint16_t)NO_VAL) {
- fprintf(stderr,
- " Bad Preempt Mode given: %s\n",
- argv[i]);
- exit_code = 1;
- } else if (qos_cond->preempt_mode ==
- PREEMPT_MODE_SUSPEND) {
- printf("PreemptType and PreemptMode "
- "values incompatible\n");
- exit_code = 1;
- } else
- set = 1;
- } else {
- exit_code=1;
- fprintf(stderr, " Unknown condition: %s\n"
- " Use keyword 'set' to modify "
- "SLURM_PRINT_VALUE\n", argv[i]);
- }
- }
- (*start) = i;
- return set;
- }
- static int _set_rec(int *start, int argc, char *argv[],
- List name_list,
- slurmdb_qos_rec_t *qos)
- {
- int i, mins;
- int set = 0;
- int end = 0;
- int command_len = 0;
- int option = 0;
- for (i=(*start); i<argc; i++) {
- end = parse_option_end(argv[i]);
- if(!end)
- command_len=strlen(argv[i]);
- else {
- command_len=end-1;
- if(argv[i][end] == '=') {
- option = (int)argv[i][end-1];
- end++;
- }
- }
- if (!strncasecmp (argv[i], "Where", MAX(command_len, 5))) {
- i--;
- break;
- } else if(!end && !strncasecmp(argv[i], "set",
- MAX(command_len, 3))) {
- continue;
- } else if(!end
- || !strncasecmp (argv[i], "Name",
- MAX(command_len, 1))) {
- if(name_list)
- slurm_addto_char_list(name_list, argv[i]+end);
- } else if (!strncasecmp (argv[i], "Description",
- MAX(command_len, 1))) {
- if(!qos->description)
- qos->description =
- strip_quotes(argv[i]+end, NULL, 1);
- set = 1;
- } else if (!strncasecmp (argv[i], "Flags",
- MAX(command_len, 2))) {
- if(!qos)
- continue;
- qos->flags = str_2_qos_flags(argv[i]+end, option);
- if (qos->flags == QOS_FLAG_NOTSET) {
- char *tmp_char = NULL;
- qos->flags = INFINITE;
- qos->flags &= (~QOS_FLAG_NOTSET &
- ~QOS_FLAG_ADD &
- ~QOS_FLAG_REMOVE);
- tmp_char = slurmdb_qos_flags_str(qos->flags);
- printf(" Unknown QOS flag used in:\n '%s'\n"
- " Valid QOS flags are\n '%s'\n",
- argv[i]+end, tmp_char);
- xfree(tmp_char);
- exit_code = 1;
- } else
- set = 1;
- } else if (!strncasecmp (argv[i], "GraceTime",
- MAX(command_len, 3))) {
- if (!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->grace_time,
- "GraceTime") == SLURM_SUCCESS) {
- set = 1;
- }
- } else if (!strncasecmp (argv[i], "GrpCPUMins",
- MAX(command_len, 7))) {
- if(!qos)
- continue;
- if (get_uint64(argv[i]+end,
- &qos->grp_cpu_mins,
- "GrpCPUMins") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "GrpCPURunMins",
- MAX(command_len, 7))) {
- if(!qos)
- continue;
- if (get_uint64(argv[i]+end, &qos->grp_cpu_run_mins,
- "GrpCPURunMins") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "GrpCPUs",
- MAX(command_len, 7))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->grp_cpus,
- "GrpCPUs") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "GrpJobs",
- MAX(command_len, 4))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->grp_jobs,
- "GrpJobs") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "GrpMemory",
- MAX(command_len, 4))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->grp_mem,
- "GrpMemory") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "GrpNodes",
- MAX(command_len, 4))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->grp_nodes,
- "GrpNodes") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "GrpSubmitJobs",
- MAX(command_len, 4))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->grp_submit_jobs,
- "GrpSubmitJobs") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "GrpWall",
- MAX(command_len, 4))) {
- if(!qos)
- continue;
- mins = time_str2mins(argv[i]+end);
- if (mins != NO_VAL) {
- qos->grp_wall = (uint32_t) mins;
- set = 1;
- } else {
- exit_code=1;
- fprintf(stderr,
- " Bad GrpWall time format: %s\n",
- argv[i]);
- }
- } else if (!strncasecmp (argv[i], "MaxCPUMinsPerJob",
- MAX(command_len, 7))) {
- if(!qos)
- continue;
- if (get_uint64(argv[i]+end,
- &qos->max_cpu_mins_pj,
- "MaxCPUMins") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "MaxCPUsPerJob",
- MAX(command_len, 7))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->max_cpus_pj,
- "MaxCPUs") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "MaxCPUsPerUser",
- MAX(command_len, 11))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->max_cpus_pu,
- "MaxCPUsPerUser") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "MaxJobsPerUser",
- MAX(command_len, 4))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->max_jobs_pu,
- "MaxJobs") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "MaxNodesPerJob",
- MAX(command_len, 4))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end,
- &qos->max_nodes_pj,
- "MaxNodes") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "MaxNodesPerUser",
- MAX(command_len, 8))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end,
- &qos->max_nodes_pu,
- "MaxNodesPerUser") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "MaxSubmitJobsPerUser",
- MAX(command_len, 4))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->max_submit_jobs_pu,
- "MaxSubmitJobs") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "MaxWallDurationPerJob",
- MAX(command_len, 4))) {
- if(!qos)
- continue;
- mins = time_str2mins(argv[i]+end);
- if (mins != NO_VAL) {
- qos->max_wall_pj = (uint32_t) mins;
- set = 1;
- } else {
- exit_code=1;
- fprintf(stderr,
- " Bad MaxWall time format: %s\n",
- argv[i]);
- }
- } else if (!strncasecmp (argv[i], "PreemptMode",
- MAX(command_len, 8))) {
- if(!qos)
- continue;
- qos->preempt_mode = preempt_mode_num(argv[i]+end);
- if(qos->preempt_mode == (uint16_t)NO_VAL) {
- fprintf(stderr,
- " Bad Preempt Mode given: %s\n",
- argv[i]);
- exit_code = 1;
- } else if (qos->preempt_mode == PREEMPT_MODE_SUSPEND) {
- printf("PreemptType and PreemptMode "
- "values incompatible\n");
- exit_code = 1;
- } else
- set = 1;
- /* Preempt needs to follow PreemptMode */
- } else if (!strncasecmp (argv[i], "Preempt",
- MAX(command_len, 7))) {
- if(!qos)
- continue;
- if(!qos->preempt_list)
- qos->preempt_list =
- list_create(slurm_destroy_char);
- if(!g_qos_list)
- g_qos_list = acct_storage_g_get_qos(
- db_conn, my_uid, NULL);
- if(slurmdb_addto_qos_char_list(qos->preempt_list,
- g_qos_list, argv[i]+end,
- option))
- set = 1;
- else
- exit_code = 1;
- } else if (!strncasecmp (argv[i], "Priority",
- MAX(command_len, 3))) {
- if(!qos)
- continue;
- if (get_uint(argv[i]+end, &qos->priority,
- "Priority") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "UsageFactor",
- MAX(command_len, 6))) {
- if(!qos)
- continue;
- if (get_double(argv[i]+end, &qos->usage_factor,
- "UsageFactor") == SLURM_SUCCESS)
- set = 1;
- } else if (!strncasecmp (argv[i], "UsageThreshold",
- MAX(command_len, 6))) {
- if(!qos)
- continue;
- if (get_double(argv[i]+end, &qos->usage_thres,
- "UsageThreshold") == SLURM_SUCCESS)
- set = 1;
- } else {
- exit_code = 1;
- printf(" Unknown option: %s\n"
- " Use keyword 'where' to modify condition\n",
- argv[i]);
- }
- }
- (*start) = i;
- return set;
- }
- static bool _isdefault(List qos_list)
- {
- int rc = 0;
- slurmdb_association_cond_t assoc_cond;
- slurmdb_association_rec_t *assoc = NULL;
- ListIterator itr;
- List ret_list = NULL;
- char *name = NULL;
- if(!qos_list || !list_count(qos_list))
- return rc;
- /* this needs to happen before any removing takes place so we
- can figure out things correctly */
- xassert(g_qos_list);
- memset(&assoc_cond, 0, sizeof(slurmdb_association_cond_t));
- assoc_cond.without_parent_info = 1;
- assoc_cond.def_qos_id_list = list_create(slurm_destroy_char);
- itr = list_iterator_create(qos_list);
- while ((name = list_next(itr))) {
- uint32_t id = str_2_slurmdb_qos(g_qos_list, name);
- if(id == NO_VAL)
- continue;
- list_append(assoc_cond.def_qos_id_list,
- xstrdup_printf("%u", id));
- }
- list_iterator_destroy(itr);
- ret_list = acct_storage_g_get_associations(
- db_conn, my_uid, &assoc_cond);
- list_destroy(assoc_cond.def_qos_id_list);
- if(!ret_list || !list_count(ret_list))
- goto end_it;
- fprintf(stderr," Associations listed below have these "
- "as their Default QOS.\n");
- itr = list_iterator_create(ret_list);
- while((assoc = list_next(itr))) {
- name = slurmdb_qos_str(g_qos_list, assoc->def_qos_id);
- if (!assoc->user) {
- // see if this isn't a user
- fprintf(stderr,
- " DefQOS = %-10s C = %-10s A = %-20s\n",
- name, assoc->cluster, assoc->acct);
- } else if (assoc->partition) {
- // see if there is a partition name
- fprintf(stderr,
- " DefQOS = %-10s C = %-10s A = %-20s "
- "U = %-9s P = %s\n",
- name, assoc->cluster, assoc->acct,
- assoc->user, assoc->partition);
- } else {
- fprintf(stderr,
- " DefQOS = %-10s C = %-10s A = %-20s "
- "U = %-9s\n",
- name, assoc->cluster, assoc->acct, assoc->user);
- }
- }
- list_iterator_destroy(itr);
- rc = 1;
- end_it:
- if(ret_list)
- list_destroy(ret_list);
- return rc;
- }
- extern int sacctmgr_add_qos(int argc, char *argv[])
- {
- int rc = SLURM_SUCCESS;
- int i=0, limit_set=0;
- ListIterator itr = NULL;
- slurmdb_qos_rec_t *qos = NULL;
- slurmdb_qos_rec_t *start_qos = xmalloc(sizeof(slurmdb_qos_rec_t));
- List name_list = list_create(slurm_destroy_char);
- char *description = NULL;
- char *name = NULL;
- List qos_list = NULL;
- char *qos_str = NULL;
- slurmdb_init_qos_rec(start_qos, 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++;
- limit_set += _set_rec(&i, argc, argv, name_list, start_qos);
- }
- if(exit_code) {
- list_destroy(name_list);
- xfree(description);
- return SLURM_ERROR;
- } else if(!list_count(name_list)) {
- list_destroy(name_list);
- slurmdb_destroy_qos_rec(start_qos);
- exit_code=1;
- fprintf(stderr, " Need name of qos to add.\n");
- return SLURM_SUCCESS;
- }
- if(!g_qos_list) {
- g_qos_list = acct_storage_g_get_qos(db_conn, my_uid, NULL);
- if(!g_qos_list) {
- exit_code=1;
- fprintf(stderr, " Problem getting qos's "
- "from database. "
- "Contact your admin.\n");
- list_destroy(name_list);
- xfree(description);
- return SLURM_ERROR;
- }
- }
- qos_list = list_create(slurmdb_destroy_qos_rec);
- itr = list_iterator_create(name_list);
- while((name = list_next(itr))) {
- qos = NULL;
- if(!sacctmgr_find_qos_from_list(g_qos_list, name)) {
- qos = xmalloc(sizeof(slurmdb_qos_rec_t));
- slurmdb_init_qos_rec(qos, 0);
- qos->name = xstrdup(name);
- if(start_qos->description)
- qos->description =
- xstrdup(start_qos->description);
- else
- qos->description = xstrdup(name);
- qos->grace_time = start_qos->grace_time;
- qos->grp_cpu_mins = start_qos->grp_cpu_mins;
- qos->grp_cpus = start_qos->grp_cpus;
- qos->grp_jobs = start_qos->grp_jobs;
- qos->grp_mem = start_qos->grp_mem;
- qos->grp_nodes = start_qos->grp_nodes;
- qos->grp_submit_jobs = start_qos->grp_submit_jobs;
- qos->grp_wall = start_qos->grp_wall;
- qos->max_cpu_mins_pj = start_qos->max_cpu_mins_pj;
- qos->max_cpu_run_mins_pu =
- start_qos->max_cpu_run_mins_pu;
- qos->max_cpus_pj = start_qos->max_cpus_pj;
- qos->max_cpus_pu = start_qos->max_cpus_pu;
- qos->max_jobs_pu = start_qos->max_jobs_pu;
- qos->max_nodes_pj = start_qos->max_nodes_pj;
- qos->max_nodes_pu = start_qos->max_nodes_pu;
- qos->max_submit_jobs_pu = start_qos->max_submit_jobs_pu;
- qos->max_wall_pj = start_qos->max_wall_pj;
- qos->preempt_list =
- copy_char_list(start_qos->preempt_list);
- qos->preempt_mode = start_qos->preempt_mode;
- qos->priority = start_qos->priority;
- qos->usage_factor = start_qos->usage_factor;
- qos->usage_thres = start_qos->usage_thres;
- xstrfmtcat(qos_str, " %s\n", name);
- list_append(qos_list, qos);
- }
- }
- list_iterator_destroy(itr);
- list_destroy(name_list);
- if(!list_count(qos_list)) {
- printf(" Nothing new added.\n");
- goto end_it;
- }
- if(qos_str) {
- printf(" Adding QOS(s)\n%s", qos_str);
- printf(" Settings\n");
- if(description)
- printf(" Description = %s\n", description);
- else
- printf(" Description = %s\n", "QOS Name");
- sacctmgr_print_qos_limits(start_qos);
- xfree(qos_str);
- }
- notice_thread_init();
- if(list_count(qos_list))
- rc = acct_storage_g_add_qos(db_conn, my_uid, qos_list);
- else
- goto end_it;
- notice_thread_fini();
- if(rc == SLURM_SUCCESS) {
- 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 {
- exit_code=1;
- fprintf(stderr, " Problem adding QOS: %s\n",
- slurm_strerror(rc));
- rc = SLURM_ERROR;
- }
- end_it:
- list_destroy(qos_list);
- xfree(description);
- return rc;
- }
- extern int sacctmgr_list_qos(int argc, char *argv[])
- {
- int rc = SLURM_SUCCESS;
- slurmdb_qos_cond_t *qos_cond = xmalloc(sizeof(slurmdb_qos_cond_t));
- int i=0;
- ListIterator itr = NULL;
- ListIterator itr2 = NULL;
- slurmdb_qos_rec_t *qos = NULL;
- List qos_list = NULL;
- int field_count = 0;
- print_field_t *field = NULL;
- List format_list = list_create(slurm_destroy_char);
- List print_fields_list; /* types are of print_field_t */
- 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_cond(&i, argc, argv, qos_cond, format_list);
- }
- if(exit_code) {
- slurmdb_destroy_qos_cond(qos_cond);
- list_destroy(format_list);
- return SLURM_ERROR;
- } else if(!list_count(format_list)) {
- slurm_addto_char_list(format_list,
- "Name,Prio,GraceT,Preempt,PreemptM,"
- "Flags%40,UsageThres,UsageFactor,"
- "GrpCPUs,GrpCPUMins,GrpCPURunMins,"
- "GrpJ,GrpMEM,GrpN,GrpS,GrpW,"
- "MaxCPUs,MaxCPUMins,MaxN,MaxW,"
- "MaxCPUsPerUser,"
- "MaxJobsPerUser,MaxNodesPerUser,"
- "MaxSubmitJobsPerUser");
- }
- print_fields_list = sacctmgr_process_format_list(format_list);
- list_destroy(format_list);
- if(exit_code) {
- list_destroy(print_fields_list);
- return SLURM_ERROR;
- }
- qos_list = acct_storage_g_get_qos(db_conn, my_uid, qos_cond);
- slurmdb_destroy_qos_cond(qos_cond);
- if(!qos_list) {
- exit_code=1;
- fprintf(stderr, " Problem with query.\n");
- list_destroy(print_fields_list);
- return SLURM_ERROR;
- }
- itr = list_iterator_create(qos_list);
- itr2 = list_iterator_create(print_fields_list);
- print_fields_header(print_fields_list);
- field_count = list_count(print_fields_list);
- while((qos = list_next(itr))) {
- int curr_inx = 1;
- while((field = list_next(itr2))) {
- switch(field->type) {
- case PRINT_DESC:
- field->print_routine(
- field, qos->description,
- (curr_inx == field_count));
- break;
- case PRINT_FLAGS:
- {
- char *tmp_char = slurmdb_qos_flags_str(
- qos->flags);
- field->print_routine(
- field,
- tmp_char,
- (curr_inx == field_count));
- xfree(tmp_char);
- break;
- }
- case PRINT_UT:
- field->print_routine(
- field, qos->usage_thres,
- (curr_inx == field_count));
- break;
- case PRINT_GRACE:
- field->print_routine(
- field, (uint64_t)qos->grace_time,
- (curr_inx == field_count));
- break;
- case PRINT_GRPCM:
- field->print_routine(
- field,
- qos->grp_cpu_mins,
- (curr_inx == field_count));
- break;
- case PRINT_GRPCRM:
- field->print_routine(
- field,
- qos->grp_cpu_run_mins,
- (curr_inx == field_count));
- break;
- case PRINT_GRPC:
- field->print_routine(field,
- qos->grp_cpus,
- (curr_inx == field_count));
- break;
- case PRINT_GRPJ:
- field->print_routine(field,
- qos->grp_jobs,
- (curr_inx == field_count));
- break;
- case PRINT_GRPMEM:
- field->print_routine(field,
- qos->grp_mem,
- (curr_inx == field_count));
- break;
- case PRINT_GRPN:
- field->print_routine(field,
- qos->grp_nodes,
- (curr_inx == field_count));
- break;
- case PRINT_GRPS:
- field->print_routine(field,
- qos->grp_submit_jobs,
- (curr_inx == field_count));
- break;
- case PRINT_GRPW:
- field->print_routine(
- field,
- qos->grp_wall,
- (curr_inx == field_count));
- break;
- case PRINT_ID:
- field->print_routine(
- field, qos->id,
- (curr_inx == field_count));
- break;
- case PRINT_MAXCM:
- field->print_routine(
- field,
- qos->max_cpu_mins_pj,
- (curr_inx == field_count));
- break;
- case PRINT_MAXCRM:
- field->print_routine(
- field,
- qos->max_cpu_run_mins_pu,
- (curr_inx == field_count));
- break;
- case PRINT_MAXC:
- field->print_routine(field,
- qos->max_cpus_pj,
- (curr_inx == field_count));
- break;
- case PRINT_MAXCU:
- field->print_routine(field,
- qos->max_cpus_pu,
- (curr_inx == field_count));
- break;
- case PRINT_MAXJ:
- field->print_routine(field,
- qos->max_jobs_pu,
- (curr_inx == field_count));
- break;
- case PRINT_MAXN:
- field->print_routine(field,
- qos->max_nodes_pj,
- (curr_inx == field_count));
- break;
- case PRINT_MAXNU:
- field->print_routine(field,
- qos->max_nodes_pu,
- (curr_inx == field_count));
- break;
- case PRINT_MAXS:
- field->print_routine(field,
- qos->max_submit_jobs_pu,
- (curr_inx == field_count));
- break;
- case PRINT_MAXW:
- field->print_routine(
- field,
- qos->max_wall_pj,
- (curr_inx == field_count));
- break;
- case PRINT_NAME:
- field->print_routine(
- field, qos->name,
- (curr_inx == field_count));
- break;
- case PRINT_PREE:
- if(!g_qos_list)
- g_qos_list = acct_storage_g_get_qos(
- db_conn, my_uid, NULL);
- field->print_routine(
- field, g_qos_list, qos->preempt_bitstr,
- (curr_inx == field_count));
- break;
- case PRINT_PREEM:
- {
- char *tmp_char = "cluster";
- if(qos->preempt_mode)
- tmp_char = xstrtolower(
- preempt_mode_string(
- qos->preempt_mode));
- field->print_routine(
- field,
- tmp_char,
- (curr_inx == field_count));
- break;
- }
- case PRINT_PRIO:
- field->print_routine(
- field, qos->priority,
- (curr_inx == field_count));
- break;
- case PRINT_UF:
- field->print_routine(
- field, qos->usage_factor,
- (curr_inx == field_count));
- break;
- default:
- field->print_routine(
- field, NULL,
- (curr_inx == field_count));
- break;
- }
- curr_inx++;
- }
- list_iterator_reset(itr2);
- printf("\n");
- }
- list_iterator_destroy(itr2);
- list_iterator_destroy(itr);
- list_destroy(qos_list);
- list_destroy(print_fields_list);
- return rc;
- }
- extern int sacctmgr_modify_qos(int argc, char *argv[])
- {
- int rc = SLURM_SUCCESS;
- slurmdb_qos_cond_t *qos_cond = xmalloc(sizeof(slurmdb_qos_cond_t));
- slurmdb_qos_rec_t *qos = xmalloc(sizeof(slurmdb_qos_rec_t));
- int i=0;
- int cond_set = 0, rec_set = 0, set = 0;
- List ret_list = NULL;
- slurmdb_init_qos_rec(qos, 0);
- for (i=0; i<argc; i++) {
- int command_len = strlen(argv[i]);
- if (!strncasecmp (argv[i], "Where", MAX(command_len, 5))) {
- i++;
- cond_set += _set_cond(&i, argc, argv, qos_cond, NULL);
- } else if (!strncasecmp (argv[i], "Set", MAX(command_len, 3))) {
- i++;
- rec_set += _set_rec(&i, argc, argv, NULL, qos);
- } else {
- cond_set += _set_cond(&i, argc, argv, qos_cond, NULL);
- }
- }
- if(exit_code) {
- slurmdb_destroy_qos_cond(qos_cond);
- slurmdb_destroy_qos_rec(qos);
- return SLURM_ERROR;
- } else if(!rec_set) {
- exit_code=1;
- fprintf(stderr, " You didn't give me anything to set\n");
- slurmdb_destroy_qos_cond(qos_cond);
- slurmdb_destroy_qos_rec(qos);
- return SLURM_ERROR;
- } else if(!cond_set) {
- if(!commit_check("You didn't set any conditions with 'WHERE'.\n"
- "Are you sure you want to continue?")) {
- printf("Aborted\n");
- slurmdb_destroy_qos_cond(qos_cond);
- slurmdb_destroy_qos_rec(qos);
- return SLURM_SUCCESS;
- }
- }
- notice_thread_init();
- ret_list = acct_storage_g_modify_qos(db_conn, my_uid, qos_cond, qos);
- if(ret_list && list_count(ret_list)) {
- char *object = NULL;
- ListIterator itr = list_iterator_create(ret_list);
- printf(" Modified qos...\n");
- while((object = list_next(itr))) {
- printf(" %s\n", object);
- }
- list_iterator_destroy(itr);
- set = 1;
- } else if(ret_list) {
- printf(" Nothing modified\n");
- } else {
- exit_code=1;
- fprintf(stderr, " Error with request: %s\n",
- slurm_strerror(errno));
- rc = SLURM_ERROR;
- }
- if(ret_list)
- list_destroy(ret_list);
- notice_thread_fini();
- if(set) {
- 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);
- }
- }
- slurmdb_destroy_qos_cond(qos_cond);
- slurmdb_destroy_qos_rec(qos);
- return rc;
- }
- extern int sacctmgr_delete_qos(int argc, char *argv[])
- {
- int rc = SLURM_SUCCESS;
- slurmdb_qos_cond_t *qos_cond =
- xmalloc(sizeof(slurmdb_qos_cond_t));
- int i=0;
- List ret_list = NULL;
- int set = 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_cond(&i, argc, argv, qos_cond, NULL);
- }
- if(!set) {
- exit_code=1;
- fprintf(stderr,
- " No conditions given to remove, not executing.\n");
- slurmdb_destroy_qos_cond(qos_cond);
- return SLURM_ERROR;
- } else if(set == -1) {
- slurmdb_destroy_qos_cond(qos_cond);
- return SLURM_ERROR;
- }
- if (!g_qos_list)
- g_qos_list = acct_storage_g_get_qos(
- db_conn, my_uid, NULL);
- notice_thread_init();
- ret_list = acct_storage_g_remove_qos(db_conn, my_uid, qos_cond);
- notice_thread_fini();
- slurmdb_destroy_qos_cond(qos_cond);
- if(ret_list && list_count(ret_list)) {
- char *object = NULL;
- ListIterator itr = NULL;
- /* Check to see if person is trying to remove a default
- * qos of an association. _isdefault only works with the
- * output from acct_storage_g_remove_qos, and
- * with a previously got g_qos_list.
- */
- if (_isdefault(ret_list)) {
- exit_code=1;
- fprintf(stderr, " Please either remove the qos' listed "
- "above from list and resubmit,\n"
- " or change the default qos to "
- "remove the qos.\n"
- " Changes Discarded\n");
- acct_storage_g_commit(db_conn, 0);
- goto end_it;
- }
- itr = list_iterator_create(ret_list);
- printf(" Deleting QOS(s)...\n");
- while((object = list_next(itr))) {
- printf(" %s\n", object);
- }
- 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");
- } else {
- exit_code=1;
- fprintf(stderr, " Error with request: %s\n",
- slurm_strerror(errno));
- rc = SLURM_ERROR;
- }
- end_it:
- if(ret_list)
- list_destroy(ret_list);
- return rc;
- }