From 23146b0d5a28ff491165ad65c0cc6808c7540cfd Mon Sep 17 00:00:00 2001
From: "Leigh B. Stoller" <stoller@flux.utah.edu>
Date: Wed, 25 May 2005 16:10:29 +0000
Subject: [PATCH] Slight mod to tb-set-node-tarfiles and rpms; If there is just
 a single argument, treat it as a string and first split it apart. This is a
 common error that many people make.

---
 tbsetup/ns2ir/tb_compat.tcl.in | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tbsetup/ns2ir/tb_compat.tcl.in b/tbsetup/ns2ir/tb_compat.tcl.in
index ffe945573..515563299 100644
--- a/tbsetup/ns2ir/tb_compat.tcl.in
+++ b/tbsetup/ns2ir/tb_compat.tcl.in
@@ -116,6 +116,7 @@ namespace eval TBCOMPAT {
     variable elabinelab_fixnodes
     variable elabinelab_nodeos
     variable elabinelab_source_tarfile ""
+    variable elabinelab_tarfiles
 
     # Mapping of "resource classes" and "reservation types" to bootstrap
     # values, where a resource class is a symbolic string provided by the user
@@ -384,6 +385,10 @@ proc tb-set-node-rpms {node args} {
 	perror "\[tb-set-node-rpms] No rpms given."
 	return
     }
+    # Lets assume that a single argument is a string and break it up.
+    if {[llength $args] == 1} {
+	set args [split [lindex $args 0] " "]
+    }
     $node set rpms [join $args ";"]
 }
 proc tb-set-node-startup {node cmd} {
@@ -394,6 +399,10 @@ proc tb-set-node-tarfiles {node args} {
 	perror "\[tb-set-node-tarfiles] tb-set-node-tarfiles <node> (<dir> <tar>)+"
 	return
     }
+    # Lets assume that a single argument is a string and break it up.
+    if {[llength $args] == 1} {
+	set args [split [lindex $args 0] " "]
+    }
     if {[expr [llength $args] % 2] != 0} {
 	perror "\[tb-set-node-tarfiles] Arguments should be node and series of pairs."
 	return
-- 
GitLab