| … | |
… | |
| 407 | |
407 | |
| 408 | cf::client->attach ( |
408 | cf::client->attach ( |
| 409 | on_version => sub { |
409 | on_version => sub { |
| 410 | my ($ns, $arg) = @_; |
410 | my ($ns, $arg) = @_; |
| 411 | |
411 | |
| 412 | srand 1;#d# |
|
|
| 413 | $ns->{nonces} = [map { join "", map { chr rand 256 } 0..63 } 1..2]; |
412 | $ns->{nonces} = [map { join "", map { chr rand 256 } 0..63 } 1..2]; |
| 414 | $ns->ext_msg (nonces => @{ $ns->{nonces} }); |
413 | $ns->ext_msg (nonces => @{ $ns->{nonces} }); |
| 415 | }, |
414 | }, |
| 416 | ); |
415 | ); |
| 417 | |
416 | |
| … | |
… | |
| 479 | $pl->message ( |
478 | $pl->message ( |
| 480 | "The password can currently only changed by a DM.", |
479 | "The password can currently only changed by a DM.", |
| 481 | cf::NDI_UNIQUE | cf::NDI_REPLY); |
480 | cf::NDI_UNIQUE | cf::NDI_REPLY); |
| 482 | return; |
481 | return; |
| 483 | } |
482 | } |
|
|
483 | |
|
|
484 | $pl->message (#d# |
|
|
485 | "Passwords cannot currently be changed.",#d# |
|
|
486 | cf::NDI_UNIQUE | cf::NDI_REPLY);#d# |
|
|
487 | return;#d# |
| 484 | |
488 | |
| 485 | my (@args) = split /\s+/, $arg; |
489 | my (@args) = split /\s+/, $arg; |
| 486 | my ($player, $new_pw) = @args; |
490 | my ($player, $new_pw) = @args; |
| 487 | |
491 | |
| 488 | if ($pl->flag (cf::FLAG_WIZ) && $player eq '') { |
492 | if ($pl->flag (cf::FLAG_WIZ) && $player eq '') { |
