… | |
… | |
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 | $ns->ext_msg (nonces => map { join "", map { chr rand 256 } 0..63 } 1..2); |
412 | $ns->ext_msg (nonces => map { join "", map { chr rand 256 } 0..63 } 1..2); |
413 | |
|
|
414 | fatal ($ns,"oops");#d# |
|
|
415 | }, |
413 | }, |
416 | ); |
414 | ); |
417 | |
415 | |
418 | #cf::register_async_exticmd create_login => sub { |
416 | #cf::register_async_exticmd create_login => sub { |
419 | # my ($ns, $reply, $user, $pass) = @_; |
417 | # my ($ns, $reply, $user, $pass) = @_; |