Differences From Artifact [9c15122980]:
- File ircd.tcl — part of check-in [c19d78c4de] at 2016-09-15 03:18:13 on branch trunk — Fixed missing update (user: rkeene, size: 16229) [annotate] [blame] [check-ins using]
To Artifact [e7c9435743]:
- File ircd.tcl — part of check-in [cb291d298a] at 2016-09-15 03:39:44 on branch trunk — Updated to use the IP address for users instead of their "hostname" as their hostname is often wrong, as well as log new connections (user: rkeene, size: 16335) [annotate] [blame] [check-ins using]
| ︙ | |||
43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | 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]
|
| ︙ |