set eid_base i[format %04x [pid]]
# debug output to shell
-set debug false
+set imunes_debug false
while { [string index [lindex $argv 0] 0] == "-" } {
switch -exact -- [lindex $argv 0] {
"-d" -
"--debug" {
# debug output to shell
- set debug "true"
+ set imunes_debug "true"
set argv [lrange $argv 1 end]
- if { $debug } {
- puts "DEBUG == $debug"
+ if { $imunes_debug } {
+ puts "DEBUG == $imunes_debug"
}
}
default {
#*****
set remote_exec true
-if { $debug } {
+if { $imunes_debug } {
puts "user is $tcl_platform(user)"
}
if { $gui_unix && $tcl_platform(user) == "root" } {