Posted to tcl by Bradipo at Thu Sep 27 17:28:25 GMT 2018view raw
- # Callback handler
- proc service_control_handler {control {name ""} {seq 0} args} {
- global echo
- if {![catch {open $::env(TEMP)/my-log.txt w} fd]} {
- puts $fd "$control $name $seq $args"
- catch {close $fd}
- }