Check-in [658b5cfcc1]
Overview
SHA1:658b5cfcc1e64d232a464dd1d82bb63a9d6f5860
Date: 2016-09-15 03:13:28
User: rkeene
Comment:Added additional NICK syntax support
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2016-09-15
03:18
[ea4794eca7] Better implementation of NICK cleaning (user: rkeene, tags: trunk)
03:13
[658b5cfcc1] Added additional NICK syntax support (user: rkeene, tags: trunk)
2016-09-13
20:35
[f0e00464c6] A few changes to tclircd more usable (user: rkeene, tags: trunk)
Changes

Modified ircd.tcl from [1144d83de8] to [9fa24bb136].

102
103
104
105
106
107
108



109
110
111
112
113
114
115
	return
    }
    if {$line eq {}} return
    set line [string trim $line]
    debug "([clientState $fd]:$fd) [clientNick $fd] -> '$line'"
    if {[clientState $fd] eq {UNREGISTERED}} {
	if {[regexp -nocase {NICK +([^ ]+)$} $line -> nick]} {



	    if {[nickToFd $nick] ne {}} {
		rawMsg $fd "433 * $nick :Nickname is already in use."
		return
	    }
	    clientNick $fd $nick
	    nickToFd $nick $fd
	    if {[clientUser $fd] ne {}} {







>
>
>







102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
	return
    }
    if {$line eq {}} return
    set line [string trim $line]
    debug "([clientState $fd]:$fd) [clientNick $fd] -> '$line'"
    if {[clientState $fd] eq {UNREGISTERED}} {
	if {[regexp -nocase {NICK +([^ ]+)$} $line -> nick]} {
            if {[string index $nick 0] eq ":"} {
                set nick [string range $nick 1 end]
            }
	    if {[nickToFd $nick] ne {}} {
		rawMsg $fd "433 * $nick :Nickname is already in use."
		return
	    }
	    clientNick $fd $nick
	    nickToFd $nick $fd
	    if {[clientUser $fd] ne {}} {