117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
registerClient $fd
}
} elseif {[regexp -nocase {USER +([^ ]+) +([^ ]+) +([^ ]+) +(.+)$} \
$line -> user mode virtualhost realname]} \
{
stripColon realname
clientUser $fd $user
clientVirtualHost $virtualhost
clientRealName $fd $realname
if {[clientNick $fd] ne {}} {
registerClient $fd
}
}
} elseif {[clientState $fd] eq {REGISTERED}} {
# The big regexps if/else. This are the commands supported currently.
|
|
|
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
registerClient $fd
}
} elseif {[regexp -nocase {USER +([^ ]+) +([^ ]+) +([^ ]+) +(.+)$} \
$line -> user mode virtualhost realname]} \
{
stripColon realname
clientUser $fd $user
clientVirtualHost $fd $virtualhost
clientRealName $fd $realname
if {[clientNick $fd] ne {}} {
registerClient $fd
}
}
} elseif {[clientState $fd] eq {REGISTERED}} {
# The big regexps if/else. This are the commands supported currently.
|