|
|
|---|
| |
set tfck [ info exists trace_file ] | set tfck [ info exists trace_file ] |
| |
if { $tfck == 0 } { set trace_file "/tmp/xpvm.trace.$user" } |
if { $tfck == 0 } { |
|
if {$tcl_platform(platform) != "unix"} { |
|
puts stderr "fatal error, secure temp file creation not available" |
|
exit 1 |
|
} |
|
catch {exec /bin/tempfile} trace_file |
|
if {[file exist $trace_file] != 1} { |
|
puts stderr "fatal error, secure temp file creation not available" |
|
exit 1 |
|
} |
|
} |
| |
$CTRL.file_entry insert 0 $trace_file | $CTRL.file_entry insert 0 $trace_file |
| |
