test/invoke

   1 #! /usr/bin/tclsh
   2
   3 package require Tclx
   4
   5 proc spawn-secnet {which} {
   6     upvar #0 pids($which) pid
   7     set argl [list ./secnet -dvnc test-example/$which.conf]
   8     set pid [fork]
   9     if {!$pid} {
  10         execl really $argl
  11     }
  12 }
  13
  14 spawn-secnet inside
  15 spawn-secnet outside