| … | |
… | |
| 3053 | |
3053 | |
| 3054 | sub cf::client::send_drawinfo { |
3054 | sub cf::client::send_drawinfo { |
| 3055 | my ($self, $text, $flags) = @_; |
3055 | my ($self, $text, $flags) = @_; |
| 3056 | |
3056 | |
| 3057 | utf8::encode $text; |
3057 | utf8::encode $text; |
| 3058 | $self->send_packet (sprintf "drawinfo %d %s", $flags || cf::NDI_BLACK, $text); |
3058 | $self->send_packet (sprintf "msg %d 0 %s", $flags || cf::NDI_BLACK, $text); |
| 3059 | } |
3059 | } |
| 3060 | |
3060 | |
| 3061 | =item $client->send_big_packet ($pkt) |
3061 | =item $client->send_big_packet ($pkt) |
| 3062 | |
3062 | |
| 3063 | Like C<send_packet>, but tries to compress large packets, and fragments |
3063 | Like C<send_packet>, but tries to compress large packets, and fragments |
| … | |
… | |
| 3083 | $self->send_packet ($pkt); |
3083 | $self->send_packet ($pkt); |
| 3084 | } |
3084 | } |
| 3085 | |
3085 | |
| 3086 | =item $client->send_msg ($channel, $msg, $color, [extra...]) |
3086 | =item $client->send_msg ($channel, $msg, $color, [extra...]) |
| 3087 | |
3087 | |
| 3088 | Send a drawinfo or msg packet to the client, formatting the msg for the |
3088 | 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 |
3089 | 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 |
3090 | message, with C<log> being the default. If C<$color> is negative, suppress |
| 3091 | the message unless the client supports the msg packet. |
3091 | the message unless the client supports the msg packet. |
| 3092 | |
3092 | |
| 3093 | =cut |
3093 | =cut |
| 3094 | |
3094 | |
| 3095 | # non-persistent channels (usually the info channel) |
3095 | # non-persistent channels (usually the info channel) |
