may be something like: rename ::exit ::__exit; proc exit args { proc twapi::eventlog_log msg { #define own logging after exit... #set f [open my-log-file.log w]; puts $f $msg; close $f } ::__exit {*}$args }
Comments
Posted by sebres at Thu Sep 27 17:53:13 GMT 2018 [text] [code]
may be something like: rename ::exit ::__exit; proc exit args { proc twapi::eventlog_log msg { #define own logging after exit... #set f [open my-log-file.log w]; puts $f $msg; close $f } ::__exit {*}$args }