/*
* scontrol_update_res - update the slurm reservation configuration per the
* supplied arguments
* IN argc - count of arguments
* IN argv - list of arguments
* RET 0 if no slurm error, errno otherwise. parsing error prints
* error message and returns 0.
*/
extern int
scontrol_update_res(int argc, char *argv[])
{
resv_desc_msg_t resv_msg;
int err, ret = 0;
int free_user_str = 0, free_acct_str = 0, free_tres_license = 0,
free_tres_bb = 0, free_tres_corecnt = 0, free_tres_nodecnt = 0;
slurm_init_resv_desc_msg (&resv_msg);
err = scontrol_parse_res_options(argc, argv, "No reservation update.",
&resv_msg, &free_user_str,
&free_acct_str, &free_tres_license,
&free_tres_bb, &free_tres_corecnt,
&free_tres_nodecnt);
if (err)
goto SCONTROL_UPDATE_RES_CLEANUP;
if (resv_msg.name == NULL) {
exit_code = 1;
error("Reservation must be given. No reservation update.");
goto SCONTROL_UPDATE_RES_CLEANUP;
}
err = slurm_update_reservation(&resv_msg);
if (err) {
exit_code = 1;
slurm_perror("Error updating the reservation");
ret = slurm_get_errno();
} else {
printf("Reservation updated.\n");
}
SCONTROL_UPDATE_RES_CLEANUP:
if (free_user_str)
xfree(resv_msg.users);
if (free_acct_str)
xfree(resv_msg.accounts);
if (free_tres_license)
xfree(resv_msg.licenses);
if (free_tres_bb)
xfree(resv_msg.burst_buffer);
if (free_tres_corecnt)
xfree(resv_msg.core_cnt);
if (free_tres_nodecnt)
xfree(resv_msg.node_cnt);
return ret;
}
/*
* convert perl HV to resv_desc_msg_t.
*/
int
hv_to_update_reservation_msg(HV *hv, resv_desc_msg_t *resv_msg)
{
slurm_init_resv_desc_msg(resv_msg);
FETCH_FIELD(hv, resv_msg, accounts, charp, FALSE);
FETCH_FIELD(hv, resv_msg, duration, uint32_t, FALSE);
FETCH_FIELD(hv, resv_msg, end_time, time_t, FALSE);
FETCH_FIELD(hv, resv_msg, features, charp, FALSE);
FETCH_FIELD(hv, resv_msg, flags, uint16_t, FALSE);
FETCH_FIELD(hv, resv_msg, licenses, charp, FALSE);
FETCH_FIELD(hv, resv_msg, name, charp, FALSE);
FETCH_PTR_FIELD(hv, resv_msg, node_cnt, "SLURM::uint32_t", FALSE);
FETCH_FIELD(hv, resv_msg, node_list, charp, FALSE);
FETCH_FIELD(hv, resv_msg, partition, charp, FALSE);
FETCH_FIELD(hv, resv_msg, start_time, time_t, FALSE);
FETCH_FIELD(hv, resv_msg, users, charp, FALSE);
return 0;
}
extern void create_create_popup(GtkAction *action, gpointer user_data)
{
GtkWidget *popup = gtk_dialog_new_with_buttons(
"Create",
GTK_WINDOW(user_data),
GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT,
NULL);
int i, response = 0;
GtkWidget *label = NULL;
GtkWidget *entry = NULL;
GtkTreeModel *model = NULL;
GtkTreeIter iter;
const gchar *name = gtk_action_get_name(action);
sview_search_info_t sview_search_info;
job_desc_msg_t *job_msg = NULL;
submit_response_msg_t *slurm_alloc_msg = NULL;
update_part_msg_t *part_msg = NULL;
resv_desc_msg_t *resv_msg = NULL;
char *res_name, *temp;
sview_search_info.gchar_data = NULL;
sview_search_info.int_data = NO_VAL;
sview_search_info.int_data2 = NO_VAL;
label = gtk_dialog_add_button(GTK_DIALOG(popup),
GTK_STOCK_OK, GTK_RESPONSE_OK);
gtk_window_set_default(GTK_WINDOW(popup), label);
gtk_dialog_add_button(GTK_DIALOG(popup),
GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL);
gtk_window_set_default_size(GTK_WINDOW(popup), 400, 600);
if (!strcmp(name, "batch_job")) {
sview_search_info.search_type = CREATE_BATCH_JOB;
entry = create_entry();
label = gtk_label_new(
"Batch job submission specifications\n\n"
"Specify size (task and/or node count) plus the\n"
"script. All other fields are optional.\n\n"
"More fields will be made available later.");
job_msg = xmalloc(sizeof(job_desc_msg_t));
slurm_init_job_desc_msg(job_msg);
job_msg->group_id = getgid();
job_msg->user_id = getuid();
job_msg->work_dir = xmalloc(1024);
if (!getcwd(job_msg->work_dir, 1024))
goto end_it;
entry = create_job_entry(job_msg, model, &iter);
} else if (!strcmp(name, "partition")) {
sview_search_info.search_type = CREATE_PARTITION;
entry = create_entry();
label = gtk_label_new(
"Partition creation specifications\n\n"
"Specify Name. All other fields are optional.");
part_msg = xmalloc(sizeof(update_part_msg_t));
slurm_init_part_desc_msg(part_msg);
entry = create_part_entry(part_msg, model, &iter);
} else if (!strcmp(name, "reservation")) {
sview_search_info.search_type = CREATE_RESERVATION;
label = gtk_label_new(
"Reservation creation specifications\n\n"
"Specify Time_Start and either Duration or Time_End.\n"
#ifdef HAVE_BG
"Specify either Node_Count or Midplane_List.\n"
#else
"Specify either Node_Count or Node_List.\n"
#endif
"Specify either Accounts or Users.\n\n"
"Supported Flags include: Maintenance, Overlap,\n"
"Ignore_Jobs, Daily and Weekly, License_Only\n"
"and Static_Alloc.\n"
"All other fields are optional.");
resv_msg = xmalloc(sizeof(resv_desc_msg_t));
slurm_init_resv_desc_msg(resv_msg);
entry = create_resv_entry(resv_msg, model, &iter);
} else {
sview_search_info.search_type = 0;
goto end_it;
}
gtk_box_pack_start(GTK_BOX(GTK_DIALOG(popup)->vbox),
label, FALSE, FALSE, 0);
gtk_box_pack_start(GTK_BOX(GTK_DIALOG(popup)->vbox),
entry, TRUE, TRUE, 0);
gtk_widget_show_all(popup);
response = gtk_dialog_run (GTK_DIALOG(popup));
if (response == GTK_RESPONSE_OK) {
if (!sview_search_info.search_type)
goto end_it;
switch(sview_search_info.search_type) {
case CREATE_BATCH_JOB:
response = slurm_submit_batch_job(job_msg,
&slurm_alloc_msg);
if (response == SLURM_SUCCESS) {
temp = g_strdup_printf(
"Job %u submitted",
slurm_alloc_msg->job_id);
} else {
temp = g_strdup_printf(
"Problem submitting job: %s",
slurm_strerror(slurm_get_errno()));
}
display_edit_note(temp);
g_free(temp);
break;
case CREATE_PARTITION:
response = slurm_create_partition(part_msg);
if (response == SLURM_SUCCESS) {
temp = g_strdup_printf("Partition %s created",
part_msg->name);
} else {
temp = g_strdup_printf(
"Problem creating partition: %s",
slurm_strerror(slurm_get_errno()));
}
display_edit_note(temp);
g_free(temp);
break;
case CREATE_RESERVATION:
res_name = slurm_create_reservation(resv_msg);
if (res_name) {
temp = g_strdup_printf(
"Reservation %s created",
res_name);
free(res_name);
} else {
temp = g_strdup_printf(
"Problem creating reservation: %s",
slurm_strerror(slurm_get_errno()));
}
display_edit_note(temp);
g_free(temp);
break;
default:
break;
}
}
end_it:
gtk_widget_destroy(popup);
if (slurm_alloc_msg)
slurm_free_submit_response_response_msg(slurm_alloc_msg);
if (job_msg) {
for (i = 0; i < job_msg->argc; i++)
xfree(job_msg->argv[i]);
xfree(job_msg->argv);
xfree(job_msg->name);
xfree(job_msg->script);
xfree(job_msg->work_dir);
xfree(job_msg);
}
xfree(part_msg);
if (resv_msg)
slurm_free_resv_desc_msg(resv_msg);
return;
}
/*
* scontrol_create_res - create the slurm reservation configuration per the
* supplied arguments
* IN argc - count of arguments
* IN argv - list of arguments
* RET 0 if no slurm error, errno otherwise. parsing error prints
* error message and returns 0.
*/
extern int
scontrol_create_res(int argc, char *argv[])
{
resv_desc_msg_t resv_msg;
char *new_res_name = NULL;
int free_user_str = 0, free_acct_str = 0, free_tres_license = 0,
free_tres_bb = 0, free_tres_corecnt = 0, free_tres_nodecnt = 0;
int err, ret = 0;
slurm_init_resv_desc_msg (&resv_msg);
err = scontrol_parse_res_options(argc, argv, "No reservation created.",
&resv_msg, &free_user_str,
&free_acct_str, &free_tres_license,
&free_tres_bb, &free_tres_corecnt,
&free_tres_nodecnt);
if (err)
goto SCONTROL_CREATE_RES_CLEANUP;
if (resv_msg.start_time == (time_t)NO_VAL) {
exit_code = 1;
error("A start time must be given. No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.end_time == (time_t)NO_VAL &&
resv_msg.duration == (uint32_t)NO_VAL) {
exit_code = 1;
error("An end time or duration must be given. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.end_time != (time_t)NO_VAL &&
resv_msg.duration != (uint32_t)NO_VAL &&
resv_msg.start_time + resv_msg.duration*60 != resv_msg.end_time) {
exit_code = 1;
error("StartTime + Duration does not equal EndTime. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.start_time > resv_msg.end_time &&
resv_msg.end_time != (time_t)NO_VAL) {
exit_code = 1;
error("Start time cannot be after end time. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
/*
* If "ALL" is specified for the nodes and a partition is specified,
* only allocate all of the nodes the partition.
*/
if ((resv_msg.partition != NULL) && (resv_msg.node_list != NULL) &&
(strcasecmp(resv_msg.node_list, "ALL") == 0)) {
if (resv_msg.flags == NO_VAL)
resv_msg.flags = RESERVE_FLAG_PART_NODES;
else
resv_msg.flags |= RESERVE_FLAG_PART_NODES;
}
/*
* If "ALL" is specified for the nodes and RESERVE_FLAG_PART_NODES
* flag is set make sure a partition name is specified.
*/
if ((resv_msg.partition == NULL) && (resv_msg.node_list != NULL) &&
(strcasecmp(resv_msg.node_list, "ALL") == 0) &&
(resv_msg.flags != NO_VAL) &&
(resv_msg.flags & RESERVE_FLAG_PART_NODES)) {
exit_code = 1;
error("Part_Nodes flag requires specifying a Partition. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
/*
* If the following parameters are null, but a partition is named, then
* make the reservation for the whole partition.
*/
if ((resv_msg.core_cnt == 0) &&
(resv_msg.burst_buffer == NULL ||
resv_msg.burst_buffer[0] == '\0') &&
(resv_msg.node_cnt == NULL || resv_msg.node_cnt[0] == 0) &&
(resv_msg.node_list == NULL || resv_msg.node_list[0] == '\0') &&
(resv_msg.licenses == NULL || resv_msg.licenses[0] == '\0') &&
(resv_msg.resv_watts == NO_VAL)) {
if (resv_msg.partition == NULL) {
exit_code = 1;
error("CoreCnt, Nodes, NodeCnt, BurstBuffer, Licenses"
"or Watts must be specified. No reservation "
"created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.flags == (uint16_t) NO_VAL)
resv_msg.flags = RESERVE_FLAG_PART_NODES;
else
resv_msg.flags |= RESERVE_FLAG_PART_NODES;
resv_msg.node_list = "ALL";
}
if ((resv_msg.users == NULL || resv_msg.users[0] == '\0') &&
(resv_msg.accounts == NULL || resv_msg.accounts[0] == '\0')) {
exit_code = 1;
error("Either Users or Accounts must be specified. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.resv_watts != NO_VAL &&
(!(resv_msg.flags & RESERVE_FLAG_ANY_NODES) ||
(resv_msg.core_cnt != 0) ||
(resv_msg.node_cnt != NULL && resv_msg.node_cnt[0] != 0) ||
(resv_msg.node_list != NULL && resv_msg.node_list[0] != '\0') ||
(resv_msg.licenses != NULL && resv_msg.licenses[0] != '\0'))) {
exit_code = 1;
error("A power reservation must be empty and set the "
"LICENSE_ONLY flag. No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
new_res_name = slurm_create_reservation(&resv_msg);
if (!new_res_name) {
exit_code = 1;
slurm_perror("Error creating the reservation");
ret = slurm_get_errno();
} else {
printf("Reservation created: %s\n", new_res_name);
free(new_res_name);
}
SCONTROL_CREATE_RES_CLEANUP:
if (free_user_str)
xfree(resv_msg.users);
if (free_acct_str)
xfree(resv_msg.accounts);
if (free_tres_license)
xfree(resv_msg.licenses);
if (free_tres_bb)
xfree(resv_msg.burst_buffer);
if (free_tres_corecnt)
xfree(resv_msg.core_cnt);
if (free_tres_nodecnt)
xfree(resv_msg.node_cnt);
return ret;
}
static void _admin_resv(GtkTreeModel *model, GtkTreeIter *iter, char *type)
{
resv_desc_msg_t *resv_msg = xmalloc(sizeof(resv_desc_msg_t));
reservation_name_msg_t resv_name_msg;
char *resvid = NULL;
char tmp_char[100];
char *temp = NULL;
int edit_type = 0;
int response = 0;
GtkWidget *label = NULL;
GtkWidget *entry = NULL;
GtkWidget *popup = gtk_dialog_new_with_buttons(
type,
GTK_WINDOW(main_window),
GTK_DIALOG_MODAL | GTK_DIALOG_DESTROY_WITH_PARENT,
NULL);
gtk_window_set_transient_for(GTK_WINDOW(popup), NULL);
gtk_tree_model_get(model, iter, SORTID_NAME, &resvid, -1);
slurm_init_resv_desc_msg(resv_msg);
memset(&resv_name_msg, 0, sizeof(reservation_name_msg_t));
resv_msg->name = xstrdup(resvid);
if (!strcasecmp("Remove Reservation", type)) {
resv_name_msg.name = resvid;
label = gtk_dialog_add_button(GTK_DIALOG(popup),
GTK_STOCK_YES, GTK_RESPONSE_OK);
gtk_window_set_default(GTK_WINDOW(popup), label);
gtk_dialog_add_button(GTK_DIALOG(popup),
GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL);
snprintf(tmp_char, sizeof(tmp_char),
"Are you sure you want to remove "
"reservation %s?",
resvid);
label = gtk_label_new(tmp_char);
edit_type = EDIT_REMOVE;
} else {
label = gtk_dialog_add_button(GTK_DIALOG(popup),
GTK_STOCK_OK, GTK_RESPONSE_OK);
gtk_window_set_default(GTK_WINDOW(popup), label);
gtk_dialog_add_button(GTK_DIALOG(popup),
GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL);
gtk_window_set_default_size(GTK_WINDOW(popup), 200, 400);
snprintf(tmp_char, sizeof(tmp_char),
"Editing reservation %s think before you type",
resvid);
label = gtk_label_new(tmp_char);
edit_type = EDIT_EDIT;
entry = _admin_full_edit_resv(resv_msg, model, iter);
}
gtk_box_pack_start(GTK_BOX(GTK_DIALOG(popup)->vbox),
label, FALSE, FALSE, 0);
if (entry)
gtk_box_pack_start(GTK_BOX(GTK_DIALOG(popup)->vbox),
entry, TRUE, TRUE, 0);
gtk_widget_show_all(popup);
response = gtk_dialog_run (GTK_DIALOG(popup));
if (response == GTK_RESPONSE_OK) {
switch(edit_type) {
case EDIT_REMOVE:
if (slurm_delete_reservation(&resv_name_msg)
== SLURM_SUCCESS) {
temp = g_strdup_printf(
"Reservation %s removed successfully",
resvid);
} else {
temp = g_strdup_printf(
"Problem removing reservation %s.",
resvid);
}
display_edit_note(temp);
g_free(temp);
break;
case EDIT_EDIT:
if (got_edit_signal)
goto end_it;
if (!global_send_update_msg) {
temp = g_strdup_printf("No change detected.");
} else if (slurm_update_reservation(resv_msg)
== SLURM_SUCCESS) {
temp = g_strdup_printf(
"Reservation %s updated successfully",
resvid);
} else {
temp = g_strdup_printf(
"Problem updating reservation %s.",
resvid);
}
display_edit_note(temp);
g_free(temp);
break;
default:
break;
}
}
end_it:
g_free(resvid);
global_entry_changed = 0;
slurm_free_resv_desc_msg(resv_msg);
gtk_widget_destroy(popup);
if (got_edit_signal) {
type = got_edit_signal;
got_edit_signal = NULL;
_admin_resv(model, iter, type);
xfree(type);
}
return;
}
extern void admin_edit_resv(GtkCellRendererText *cell,
const char *path_string,
const char *new_text,
gpointer data)
{
GtkTreeStore *treestore = GTK_TREE_STORE(data);
GtkTreePath *path = gtk_tree_path_new_from_string(path_string);
GtkTreeIter iter;
resv_desc_msg_t *resv_msg = xmalloc(sizeof(resv_desc_msg_t));
char *temp = NULL;
char *old_text = NULL;
const char *type = NULL;
int column = GPOINTER_TO_INT(g_object_get_data(G_OBJECT(cell),
"column"));
if (!new_text || !strcmp(new_text, ""))
goto no_input;
gtk_tree_model_get_iter(GTK_TREE_MODEL(treestore), &iter, path);
slurm_init_resv_desc_msg(resv_msg);
gtk_tree_model_get(GTK_TREE_MODEL(treestore), &iter,
SORTID_NAME, &temp,
column, &old_text,
-1);
resv_msg->name = xstrdup(temp);
g_free(temp);
type = _set_resv_msg(resv_msg, new_text, column);
if (global_edit_error)
goto print_error;
if (got_edit_signal) {
temp = got_edit_signal;
got_edit_signal = NULL;
_admin_resv(GTK_TREE_MODEL(treestore), &iter, temp);
xfree(temp);
goto no_input;
}
if (old_text && !strcmp(old_text, new_text)) {
temp = g_strdup_printf("No change in value.");
} else if (slurm_update_reservation(resv_msg)
== SLURM_SUCCESS) {
gtk_tree_store_set(treestore, &iter, column, new_text, -1);
temp = g_strdup_printf("Reservation %s %s changed to %s",
resv_msg->name,
type,
new_text);
} else if (errno == ESLURM_DISABLED) {
temp = g_strdup_printf(
"Can only edit %s on reservations not yet started.",
type);
} else {
print_error:
temp = g_strdup_printf("Reservation %s %s can't be "
"set to %s",
resv_msg->name,
type,
new_text);
}
display_edit_note(temp);
g_free(temp);
no_input:
slurm_free_resv_desc_msg(resv_msg);
gtk_tree_path_free (path);
g_free(old_text);
g_mutex_unlock(sview_mutex);
}
/*
* scontrol_create_res - create the slurm reservation configuration per the
* supplied arguments
* IN argc - count of arguments
* IN argv - list of arguments
* RET 0 if no slurm error, errno otherwise. parsing error prints
* error message and returns 0.
*/
extern int
scontrol_create_res(int argc, char *argv[])
{
resv_desc_msg_t resv_msg;
char *new_res_name = NULL;
int free_user_str = 0, free_acct_str = 0;
int err, ret = 0;
slurm_init_resv_desc_msg (&resv_msg);
err = scontrol_parse_res_options(argc, argv, "No reservation created.",
&resv_msg, &free_user_str,
&free_acct_str);
if (err)
goto SCONTROL_CREATE_RES_CLEANUP;
if (resv_msg.start_time == (time_t)NO_VAL) {
exit_code = 1;
error("A start time must be given. No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.end_time == (time_t)NO_VAL &&
resv_msg.duration == (uint32_t)NO_VAL) {
exit_code = 1;
error("An end time or duration must be given. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.end_time != (time_t)NO_VAL &&
resv_msg.duration != (uint32_t)NO_VAL &&
resv_msg.start_time + resv_msg.duration*60 != resv_msg.end_time) {
exit_code = 1;
error("StartTime + Duration does not equal EndTime. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.start_time > resv_msg.end_time &&
resv_msg.end_time != (time_t)NO_VAL) {
exit_code = 1;
error("Start time cannot be after end time. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.node_cnt == NO_VAL &&
(resv_msg.node_list == NULL || resv_msg.node_list[0] == '\0') &&
(resv_msg.licenses == NULL || resv_msg.licenses[0] == '\0')) {
exit_code = 1;
error("Nodes, NodeCnt or Licenses must be specified. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if ((resv_msg.users == NULL || resv_msg.users[0] == '\0') &&
(resv_msg.accounts == NULL || resv_msg.accounts[0] == '\0')) {
exit_code = 1;
error("Either Users or Accounts must be specified. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
new_res_name = slurm_create_reservation(&resv_msg);
if (!new_res_name) {
exit_code = 1;
slurm_perror("Error creating the reservation");
ret = slurm_get_errno();
} else {
printf("Reservation created: %s\n", new_res_name);
free(new_res_name);
}
SCONTROL_CREATE_RES_CLEANUP:
if (free_user_str)
xfree(resv_msg.users);
if (free_acct_str)
xfree(resv_msg.accounts);
return ret;
}
/*
* scontrol_create_res - create the slurm reservation configuration per the
* supplied arguments
* IN argc - count of arguments
* IN argv - list of arguments
* RET 0 if no slurm error, errno otherwise. parsing error prints
* error message and returns 0.
*/
extern int
scontrol_create_res(int argc, char *argv[])
{
resv_desc_msg_t resv_msg;
char *new_res_name = NULL;
int free_user_str = 0, free_acct_str = 0;
int free_node_cnt = 0;
uint32_t node_count = 0;
int err, ret = 0;
slurm_init_resv_desc_msg (&resv_msg);
err = scontrol_parse_res_options(argc, argv, "No reservation created.",
&resv_msg, &free_user_str,
&free_acct_str);
if (err)
goto SCONTROL_CREATE_RES_CLEANUP;
if (resv_msg.start_time == (time_t)NO_VAL) {
exit_code = 1;
error("A start time must be given. No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.end_time == (time_t)NO_VAL &&
resv_msg.duration == (uint32_t)NO_VAL) {
exit_code = 1;
error("An end time or duration must be given. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.end_time != (time_t)NO_VAL &&
resv_msg.duration != (uint32_t)NO_VAL &&
resv_msg.start_time + resv_msg.duration*60 != resv_msg.end_time) {
exit_code = 1;
error("StartTime + Duration does not equal EndTime. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
if (resv_msg.start_time > resv_msg.end_time &&
resv_msg.end_time != (time_t)NO_VAL) {
exit_code = 1;
error("Start time cannot be after end time. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
/*
* If "all" is specified for the nodes and a partition is specified,
* only allocate all of the nodes the partition.
*/
if ((resv_msg.partition != NULL) && (resv_msg.node_list != NULL) &&
(strcasecmp(resv_msg.node_list, "ALL") == 0)) {
node_count = _partition_node_count(resv_msg.partition);
if (node_count == NO_VAL) {
exit_code = 1;
error("Can not determine node count for partition. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
} else {
free_node_cnt = 1;
resv_msg.node_cnt = xmalloc(sizeof(uint32_t) * 2);
*resv_msg.node_cnt = node_count;
resv_msg.node_list = NULL;
}
}
/*
* If "all" is specified for the nodes and RESERVE_FLAG_PART_NODES
* flag is set make sure a partition name is specified.
*/
if ((resv_msg.partition == NULL) && (resv_msg.node_list != NULL) &&
(strcasecmp(resv_msg.node_list, "ALL") == 0) &&
(resv_msg.flags != (uint16_t) NO_VAL) &&
(resv_msg.flags & RESERVE_FLAG_PART_NODES)) {
exit_code = 1;
error("Part_Nodes flag requires specifying a Partition. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
/*
* If the following parameters are null, but a partition is named, then
* make the reservation for the whole partition.
*/
if ((resv_msg.core_cnt == 0) &&
(resv_msg.node_cnt == NULL || resv_msg.node_cnt[0] == 0) &&
(resv_msg.node_list == NULL || resv_msg.node_list[0] == '\0') &&
(resv_msg.licenses == NULL || resv_msg.licenses[0] == '\0')) {
if (resv_msg.partition == NULL) {
exit_code = 1;
error("CoreCnt, Nodes, NodeCnt or Licenses must be "
"specified. No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
} else if ((node_count = _partition_node_count(resv_msg.partition))
== NO_VAL) {
exit_code = 1;
error("Can not determine node count for partition. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
} else {
free_node_cnt = 1;
resv_msg.node_cnt = xmalloc(sizeof(uint32_t) * 2);
*resv_msg.node_cnt = node_count;
}
}
if ((resv_msg.users == NULL || resv_msg.users[0] == '\0') &&
(resv_msg.accounts == NULL || resv_msg.accounts[0] == '\0')) {
exit_code = 1;
error("Either Users or Accounts must be specified. "
"No reservation created.");
goto SCONTROL_CREATE_RES_CLEANUP;
}
new_res_name = slurm_create_reservation(&resv_msg);
if (!new_res_name) {
exit_code = 1;
slurm_perror("Error creating the reservation");
ret = slurm_get_errno();
} else {
printf("Reservation created: %s\n", new_res_name);
free(new_res_name);
}
SCONTROL_CREATE_RES_CLEANUP:
if (free_user_str)
xfree(resv_msg.users);
if (free_acct_str)
xfree(resv_msg.accounts);
if (free_node_cnt)
xfree(resv_msg.node_cnt);
return ret;
}
