unset LANG to prevent UTF8 problem (EPICS cannot do UTF)

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