Associated article: Event-Based Servers in Tcl
Tags: Open Source
Published source code accompanying the article by Stephen Uhler in which he Stephen implements a web server in Tcl that is based on events and callbacks. Also see TCLSERV.ZIP.
Event-Based Servers in Tcl by Stephen Uhler Listing One set port 8080 ;# the port to listen on set timeout 60000 ;# max seconds to wait for client request set root [pwd] ;# our document root socket -server [list DDJaccept $root $timeout] $port vwait forever ...