From 678fb1369d8fce15329a92519a454a105bd567de Mon Sep 17 00:00:00 2001
From: miljenko <miljenko>
Date: Mon, 5 Dec 2005 11:37:45 +0000
Subject: [PATCH] Added support for remote shell invocation from MS Windows

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 host.tcl | 6 +++++-
 pc.tcl   | 6 +++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/host.tcl b/host.tcl
index b043b3b..c06fd3e 100755
--- 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 6a01f7f..704a115 100755
--- 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"
+    }
 }
 
 
-- 
2.39.5