102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
-
-
+
-
|
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]
}
|