Posted to tcl by Colin at Sun Apr 22 00:26:21 GMT 2007view pretty

	after idle [list ::Httpd::transfer $tid $sock $args $config]

----


    # transfer - transfer control to a worker thread
    proc transfer {tid sock request vars} {
	if {[catch {
	    Debug.socket "Transferring $sock to $tid"
	    ::thread::transfer $tid $sock
	    ::thread::send -async $tid [list connect $request $vars $sock]
	} result eo]} {
	    Debug.error {Transfer Error: $result ($eo)}
	} else {
	    Debug.socket {Transferred: $result $eo}
	}
    }