43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
proc debug msg {
if {[config debugmessages]} {
puts $msg
}
}
proc handleNewConnection {fd host port} {
clientState $fd UNREGISTERED
clientHost $fd [lindex [fconfigure $fd -peername] 1]
clientPort $fd $port
clientNick $fd {}
clientUser $fd {}
clientVirtualHost $fd {}
clientRealName $fd {}
fconfigure $fd -blocking 0
fileevent $fd readable [list handleClientInputWrapper $fd]
|
>
>
>
|
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
proc debug msg {
if {[config debugmessages]} {
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 {}
fconfigure $fd -blocking 0
fileevent $fd readable [list handleClientInputWrapper $fd]
|