Added support for remote shell invocation from MS Windows

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/host.tcl b/host.tcl
index b043b3b5a1bf876304dc37ec20d458c730bfe920..c06fd3e5c6eb5ccf1df39c94ae239906bc37ace0 100755 (executable)
--- a/host.tcl
+++ b/host.tcl
@@ -80,7 +80,11 @@ proc $MODULE.bootcmd { node } {
 
 proc $MODULE.shellcmd { node } {
     global env
-    return "$env(SHELL)"
+    if { [catch {set s $env(SHELL)}] } {
+        return "/bin/sh"
+    } else {
+        return "$s"
+    }
 }
 
 

diff --git a/pc.tcl b/pc.tcl
index 6a01f7f4386e0b7e295f7a23cbf34fd3d1f10dc9..704a1158a4ee48cc9d5204729bf95140e3364582 100755 (executable)
--- a/pc.tcl
+++ b/pc.tcl
@@ -77,7 +77,11 @@ proc $MODULE.bootcmd { node } {
 
 proc $MODULE.shellcmd { node } {
     global env
-    return "$env(SHELL)"
+    if { [catch {set s $env(SHELL)}] } {
+        return "/bin/sh"
+    } else {
+        return "$s"
+    }
 }