Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub invite {
- my ($self, $cl, $msg) = @_;
- my (undef, $from, $channel) = @{$msg->{params}};
- utf8::decode($_) for ($from, $channel);
- $self->broadcast({
- type => "action",
- event => "announce",
- body => "$from has invited you to $channel",
- });
- }
Add Comment
Please, Sign In to add comment