Check-in [cb291d298a]
Overview
SHA1:cb291d298aac995c817ed6b9572c14e3f38e32e0
Date: 2016-09-15 03:39:44
User: rkeene
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
Timelines: family | ancestors | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2016-09-15
03:39
[cb291d298a] Leaf: 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, tags: trunk)
03:18
[c19d78c4de] Fixed missing update (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]