| … | |
… | |
| 230 | $ns->send_drawinfo ( |
230 | $ns->send_drawinfo ( |
| 231 | "That username is currently used in another login session. " |
231 | "That username is currently used in another login session. " |
| 232 | . "Chose another, or wait till the other session has ended.", |
232 | . "Chose another, or wait till the other session has ended.", |
| 233 | cf::NDI_RED |
233 | cf::NDI_RED |
| 234 | ); |
234 | ); |
| 235 | } elsif ($user =~ /^[a-zA-Z0-9][a-zA-Z0-9\-_]{2,17}\z/) { |
235 | } elsif ($user =~ /^[a-zA-Z0-9][a-zA-Z0-9\-_]{2,19}\z/) { |
| 236 | last; |
236 | last; |
| 237 | } else { |
237 | } else { |
| 238 | $ns->send_drawinfo ( |
238 | $ns->send_drawinfo ( |
| 239 | "Your username contains illegal characters " |
239 | "Your username contains illegal characters " |
| 240 | . "(only a-z, A-Z and 0-9 are allowed), " |
240 | . "(only a-z, A-Z and 0-9 are allowed), " |
| 241 | . "or is not between 3 and 18 characters in length.", |
241 | . "or is not between 3 and 20 characters in length.", |
| 242 | cf::NDI_RED |
242 | cf::NDI_RED |
| 243 | ); |
243 | ); |
| 244 | } |
244 | } |
| 245 | Coro::Timer::sleep 0.4; |
245 | Coro::Timer::sleep 0.4; |
| 246 | } |
246 | } |
| … | |
… | |
| 433 | Coro::Timer::sleep 0.2; |
433 | Coro::Timer::sleep 0.2; |
| 434 | } |
434 | } |
| 435 | |
435 | |
| 436 | $ob->reply (undef, "Welcome to Deliantra!"); |
436 | $ob->reply (undef, "Welcome to Deliantra!"); |
| 437 | |
437 | |
|
|
438 | # XXX: Workaround for delayed client ext protocol handshake |
|
|
439 | $pl->esrv_new_player; |
|
|
440 | |
| 438 | delete $pl->{deny_save}; |
441 | delete $pl->{deny_save}; |
| 439 | |
442 | |
| 440 | last; |
443 | last; |
| 441 | } |
444 | } |
| 442 | }); |
445 | }); |
