| … | |
… | |
| 3042 | |
3042 | |
| 3043 | =head3 cf::client |
3043 | =head3 cf::client |
| 3044 | |
3044 | |
| 3045 | =over 4 |
3045 | =over 4 |
| 3046 | |
3046 | |
| 3047 | =item $client->send_drawinfo ($text, $flags) |
|
|
| 3048 | |
|
|
| 3049 | Sends a drawinfo packet to the client. Circumvents output buffering so |
|
|
| 3050 | should not be used under normal circumstances. |
|
|
| 3051 | |
|
|
| 3052 | =cut |
|
|
| 3053 | |
|
|
| 3054 | sub cf::client::send_drawinfo { |
|
|
| 3055 | my ($self, $text, $flags) = @_; |
|
|
| 3056 | |
|
|
| 3057 | utf8::encode $text; |
|
|
| 3058 | $self->send_packet (sprintf "drawinfo %d %s", $flags || cf::NDI_BLACK, $text); |
|
|
| 3059 | } |
|
|
| 3060 | |
|
|
| 3061 | =item $client->send_big_packet ($pkt) |
3047 | =item $client->send_big_packet ($pkt) |
| 3062 | |
3048 | |
| 3063 | Like C<send_packet>, but tries to compress large packets, and fragments |
3049 | Like C<send_packet>, but tries to compress large packets, and fragments |
| 3064 | them as required. |
3050 | them as required. |
| 3065 | |
3051 | |
| … | |
… | |
| 3083 | $self->send_packet ($pkt); |
3069 | $self->send_packet ($pkt); |
| 3084 | } |
3070 | } |
| 3085 | |
3071 | |
| 3086 | =item $client->send_msg ($channel, $msg, $color, [extra...]) |
3072 | =item $client->send_msg ($channel, $msg, $color, [extra...]) |
| 3087 | |
3073 | |
| 3088 | Send a drawinfo or msg packet to the client, formatting the msg for the |
3074 | Send a msg packet to the client, formatting the msg for the client if |
| 3089 | client if neccessary. C<$type> should be a string identifying the type of |
3075 | necessary. C<$type> should be a string identifying the type of the |
| 3090 | the message, with C<log> being the default. If C<$color> is negative, suppress |
3076 | message, with C<log> being the default. If C<$color> is negative, suppress |
| 3091 | the message unless the client supports the msg packet. |
3077 | the message unless the client supports the msg packet. |
| 3092 | |
3078 | |
| 3093 | =cut |
3079 | =cut |
| 3094 | |
3080 | |
| 3095 | # non-persistent channels (usually the info channel) |
3081 | # non-persistent channels (usually the info channel) |
| … | |
… | |
| 3538 | my ($name, $type, $data) = @_; |
3524 | my ($name, $type, $data) = @_; |
| 3539 | |
3525 | |
| 3540 | my $idx = cf::face::find $name; |
3526 | my $idx = cf::face::find $name; |
| 3541 | |
3527 | |
| 3542 | if ($idx) { |
3528 | if ($idx) { |
| 3543 | delete $HASH{cf::face::get_chksum $idx}; |
3529 | delete $HASH{cf::face::get_csum $idx}; |
| 3544 | } else { |
3530 | } else { |
| 3545 | $idx = cf::face::alloc $name; |
3531 | $idx = cf::face::alloc $name; |
| 3546 | } |
3532 | } |
| 3547 | |
3533 | |
| 3548 | my $hash = cf::face::mangle_csum Digest::MD5::md5 $data; |
3534 | my $hash = cf::face::mangle_csum Digest::MD5::md5 $data; |
