From: miljenko <miljenko>
Date: Mon, 5 Dec 2005 11:37:45 +0000 (+0000)
Subject: Added support for remote shell invocation from MS Windows
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=678fb1369d8fce15329a92519a454a105bd567de;p=imunes.git

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 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"
+    }
 }