174 |
|
global rifname rvview rpview radvar bfname batch_pid \ |
175 |
|
curmess scname mywin alldone batch_fmt hostname |
176 |
|
if {"$w" == "done"} { |
177 |
< |
unset rpview bfname batch_pid mywin |
177 |
> |
unset rvview rpview bfname batch_pid mywin |
178 |
|
return |
179 |
|
} |
180 |
|
set bfname [file rootname [file tail $rifname]].err |
225 |
|
helplink $w.rbce trad action checkerr |
226 |
|
if [file exists $bfname] { |
227 |
|
set fi [open $bfname r] |
228 |
< |
scan [gets $fi] $batch_fmt batch_pid batch_host |
229 |
< |
gets $fi radcom |
228 |
> |
if {[scan [gets $fi] $batch_fmt batch_pid batch_host] != 2} { |
229 |
> |
set batch_host unknown |
230 |
> |
set radcom {} |
231 |
> |
} else { |
232 |
> |
gets $fi radcom |
233 |
> |
} |
234 |
|
close $fi |
235 |
|
if [string match "rad -v *" $radcom] { |
236 |
|
set rpview [lindex $radcom 2] |