Tcl Source Code

Artifact fec01f5b482233bd768f75465028469c966dc003:

Attachment "script" to ticket [413100ffff] added by lewandowski 2001-04-03 14:34:58.

---

#
# Thread script
#

load /usr/local/lib/libthread2.1.so
load /usr/local/lib/setuid.so

setuid 20

fileevent $channel readable "AA $channel"
after 1000 "puts {after OK}"

proc AA {channel} {
    if {[gets $channel line] < 0} {
	after idle "close $channel"
    } else {    
	puts $channel "Thread OK"
	flush $channel
    }
}