Introduce recv timeout controlled by '-T' option in http.c This should prevent a DDoS attack where attacker and keeps the connection open but send no data.

fun zero () = return 0

fun main () : transaction page =
    z <- rpc (zero ());
    return <xml>{[z]}</xml>