[SLUG] tcl script help part II

[Ken Foskey]

Struggling through the undocumented samples in the demos directory I
have got most of what I need.  I need to work out one more thing
though,  I need the return code from the execute below:


    $log insert end $PjmCmd\n
    if [catch {open "| $PjmCmd 2>&1 "} input] {
        $log insert end $input\n
        $log see end
    } else {
        fileevent $input readable Log
        $log see end
    }

-- 
Thanks
KenF
OpenOffice.org developer

-- 
SLUG - Sydney Linux User's Group Mailing List - http://slug.org.au/
Subscription info and FAQs: http://slug.org.au/faq/mailinglists.html