… | |
… | |
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) |