tcl/TK question

[Jerry Feldman]

One possible solution that seems to work. In my wrapper script:
<command> --arg1 --arg2.... 2>&1

And in the tcl script:

if [catch {open "|$command"} input] {

I still get my zombie on the start command, but I query the open file list in tcl (file channels) and close any open files other than stdxxx. 

It's fun trying to write production code when you don't know the language :-)



On 06/16/2011 11:16 AM, Michael ODonnell wrote:
>
>> if [catch {open "|$command |& cat"} input] {
> Curiosity: why do you pipe it through cat?
>


-- 
Jerry Feldman <gaf at gapps.blu.org>
Boston Linux and Unix
PGP key id: 537C5846
PGP Key fingerprint: 3D1B 8377 A3C0 A5F2 ECBB  CA3B 4607 4319 537C 5846


-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 253 bytes
Desc: OpenPGP digital signature
Url : http://mail.gnhlug.org/mailman/private/gnhlug-discuss/attachments/20110616/016ddd2d/attachment.bin