diff --git a/shellbox.tcl b/shellbox.tcl index c5349e1..467e468 100755 --- a/shellbox.tcl +++ b/shellbox.tcl @@ -24,8 +24,6 @@ #\ source /etc/profile #\ -unset LANG -#\ exec tclsh "$0" "$@" package req Expect @@ -34,8 +32,8 @@ set timeout -1 regsub -all {\$} {shellbox by Dirk Zimoch $Source: /cvs/G/EPICS/App/scripts/shellbox.tcl,v $ -$Revision: 1.7 $ -$Date: 2009/03/12 16:51:31 $} {} version +$Revision: 1.8 $ +$Date: 2009/05/28 14:22:32 $} {} version proc usage {} { puts "usage: shellbox \[options\] port command args" @@ -108,7 +106,7 @@ proc inputHandler {channel} { fff4fffd06 {closeChannel $channel} ffedfffd06 {closeChannel $channel} ff* {puts "ignored $data"} - default {puts $hex; send -- $data} + default {send -- $data} } }