Posted to tcl by Bradipo at Thu Sep 27 17:28:25 GMT 2018view raw

  1. # Callback handler
  2. proc service_control_handler {control {name ""} {seq 0} args} {
  3. global echo
  4. if {![catch {open $::env(TEMP)/my-log.txt w} fd]} {
  5. puts $fd "$control $name $seq $args"
  6. catch {close $fd}
  7. }