ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/lib/cf.pm
(Generate patch)

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.342 by root, Sun Aug 26 15:31:02 2007 UTC vs.
Revision 1.344 by root, Mon Aug 27 02:43:38 2007 UTC

21use Coro::Semaphore; 21use Coro::Semaphore;
22use Coro::AIO; 22use Coro::AIO;
23use Coro::Storable; 23use Coro::Storable;
24use Coro::Util (); 24use Coro::Util ();
25 25
26use JSON::XS 1.4 (); 26use JSON::XS ();
27use BDB (); 27use BDB ();
28use Data::Dumper; 28use Data::Dumper;
29use Digest::MD5; 29use Digest::MD5;
30use Fcntl; 30use Fcntl;
31use YAML::Syck (); 31use YAML::Syck ();
2558=cut 2558=cut
2559 2559
2560sub cf::client::ext_msg($$@) { 2560sub cf::client::ext_msg($$@) {
2561 my ($self, $type, @msg) = @_; 2561 my ($self, $type, @msg) = @_;
2562 2562
2563 my $extcmd = $self->extcmd;
2564
2565 if ($extcmd == 2) { 2563 if ($self->extcmd == 2) {
2566 $self->send_packet ("ext " . $self->{json_coder}->encode ([$type, @msg])); 2564 $self->send_packet ("ext " . $self->{json_coder}->encode ([$type, @msg]));
2567 } elsif ($extcmd == 1) { # TODO: remove 2565 } elsif ($self->extcmd == 1) { # TODO: remove
2568 push @msg, msgtype => "event_$type"; 2566 push @msg, msgtype => "event_$type";
2569 $self->send_packet ("ext " . $self->{json_coder}->encode ({@msg})); 2567 $self->send_packet ("ext " . $self->{json_coder}->encode ({@msg}));
2570 } 2568 }
2571} 2569}
2572 2570
2579sub cf::client::ext_reply($$@) { 2577sub cf::client::ext_reply($$@) {
2580 my ($self, $id, @msg) = @_; 2578 my ($self, $id, @msg) = @_;
2581 2579
2582 if ($self->extcmd == 2) { 2580 if ($self->extcmd == 2) {
2583 $self->send_packet ("ext " . $self->{json_coder}->encode (["reply-$id", @msg])); 2581 $self->send_packet ("ext " . $self->{json_coder}->encode (["reply-$id", @msg]));
2584 } elsif ($self->ns->extcmd == 1) { 2582 } elsif ($self->extcmd == 1) {
2585 #TODO: version 1, remove 2583 #TODO: version 1, remove
2586 unshift @msg, msgtype => "reply", msgid => $id; 2584 unshift @msg, msgtype => "reply", msgid => $id;
2587 $self->send_packet ("ext " . $self->{json_coder}->encode ({@msg})); 2585 $self->send_packet ("ext " . $self->{json_coder}->encode ({@msg}));
2588 } 2586 }
2589} 2587}
2834# the server's init and main functions 2832# the server's init and main functions
2835 2833
2836sub load_facedata($) { 2834sub load_facedata($) {
2837 my ($path) = @_; 2835 my ($path) = @_;
2838 2836
2839 my $enc = JSON::XS->new->utf8->canonical; 2837 my $enc = JSON::XS->new->utf8->canonical->relaxed;
2840 2838
2841 warn "loading facedata from $path\n"; 2839 warn "loading facedata from $path\n";
2842 2840
2843 my $facedata; 2841 my $facedata;
2844 0 < aio_load $path, $facedata 2842 0 < aio_load $path, $facedata

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines