@@ -45,12 +45,15 @@ puts $msg } } proc handleNewConnection {fd host port} { + debug "($fd) New connection from $host ;; peer= [fconfigure $fd -peername]" + clientState $fd UNREGISTERED clientHost $fd [lindex [fconfigure $fd -peername] 1] + clientHost $fd $host clientPort $fd $port clientNick $fd {} clientUser $fd {} clientVirtualHost $fd {} clientRealName $fd {}