| … | |
… | |
| 189 | |
189 | |
| 190 | if (ref ($prfx) eq 'HASH') { |
190 | if (ref ($prfx) eq 'HASH') { |
| 191 | $prfx = $prfx->{prefix}; |
191 | $prfx = $prfx->{prefix}; |
| 192 | } |
192 | } |
| 193 | |
193 | |
|
|
194 | # this splitting does indeed use the servername as nickname, but there |
|
|
195 | # is no way for a client to distinguish. |
| 194 | $prfx =~ m/^\s*([^!]*)!([^@]*)@(.*?)\s*$/; |
196 | $prfx =~ m/^\s*([^!]*)(?:!([^@]*))?(?:@(.*?))?\s*$/; |
| 195 | return ($1, $2, $3); |
197 | return ($1, $2, $3); |
| 196 | } |
198 | } |
| 197 | |
199 | |
| 198 | =item B<prefix_nick ($prefix)> |
200 | =item B<prefix_nick ($prefix)> |
| 199 | |
201 | |
