Check-in [cb291d298a]
Overview
Comment:Updated to use the IP address for users instead of their "hostname" as their hostname is often wrong, as well as log new connections
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA1: cb291d298aac995c817ed6b9572c14e3f38e32e0
User & Date: rkeene on 2016-09-15 03:39:44
Other Links: manifest | tags
Context
2016-09-15
03:39
Updated to use the IP address for users instead of their "hostname" as their hostname is often wrong, as well as log new connections Leaf check-in: cb291d298a user: rkeene tags: trunk
03:18
Fixed missing update check-in: c19d78c4de user: rkeene tags: trunk
Changes

Modified ircd.tcl from [9c15122980] to [e7c9435743].

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]