Check-in [658b5cfcc1]
Overview
Comment:Added additional NICK syntax support
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 658b5cfcc1e64d232a464dd1d82bb63a9d6f5860
User & Date: rkeene on 2016-09-15 03:13:28
Other Links: manifest | tags
Context
2016-09-15
03:18
Better implementation of NICK cleaning check-in: ea4794eca7 user: rkeene tags: trunk
03:13
Added additional NICK syntax support check-in: 658b5cfcc1 user: rkeene tags: trunk
2016-09-13
20:35
A few changes to tclircd more usable check-in: f0e00464c6 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 {}} {