|   | ![[ Previous ]](navbprev.gif)  ![[ Contents ]](navbhome.gif)  ![[ Index ]](navbhelp.gif)  ![[ Next ]](navbnext.gif)  | 
Register a socket callback script
ns_sockcallback sockid script when
ns_sockcallback registers a socket callback script. The script should accept the arguments sockid and when. The script will be called according to the value of the when argument as follows:
    set sock [ns_socklisten * 9000]
    ns_sockcallback $sock newconn r
    # Keep $sock from closing after connection ends
    detach $sock
    # When a connection arrives, newconn will be called as:
    # newconn $sock r
    proc newconn {sock when} {
    set fds [ns_sockaccept $sock]
    set rfd [lindex $fds 0]
    set wfd [lindex $fds 1]
    puts $wfd "Hello!"
    close $rfd
    close $wfd