From 31b917545416d27459661b1b52c15a08e55925eb Mon Sep 17 00:00:00 2001 From: Aaron Weeden Date: Fri, 13 Mar 2026 16:27:38 -0400 Subject: [PATCH] Fix XDMoD expect scripts. --- xdmod/scripts/helper-functions.tcl | 6 +++--- xdmod/scripts/xdmod-setup-jobs.tcl | 1 + 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/xdmod/scripts/helper-functions.tcl b/xdmod/scripts/helper-functions.tcl index 7b4d527..4c6a63d 100644 --- a/xdmod/scripts/helper-functions.tcl +++ b/xdmod/scripts/helper-functions.tcl @@ -66,10 +66,10 @@ proc confirmDropDb { response } { proc ignoreNewVersion {} { expect { "Do you want to continue" { - send "yes" - exp_continue + send "yes\n" + exp_continue } - "Open XDMoD Setup" { + "Open XDMoD Setup" { } } } diff --git a/xdmod/scripts/xdmod-setup-jobs.tcl b/xdmod/scripts/xdmod-setup-jobs.tcl index 3032d16..e6280ad 100644 --- a/xdmod/scripts/xdmod-setup-jobs.tcl +++ b/xdmod/scripts/xdmod-setup-jobs.tcl @@ -26,6 +26,7 @@ set timeout 240 spawn "xdmod-setup" # Enter config settings for each resource +ignoreNewVersion selectMenuOption 4 foreach resource $resources { selectMenuOption 1