You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
1.1 KiB
44 lines
1.1 KiB
package TkChat; |
|
|
|
use warnings; |
|
use strict; |
|
|
|
use Milkbone; |
|
use Milkbone::Chat; |
|
|
|
register_hook("protocol_chat_invited", sub { |
|
if(hook("tk_getmain")->messageBox(-title => "Join Chat?", |
|
-message => "$ARGS{-user} has invited you to join a chat. Would you like to accept?", -type => 'YesNo', |
|
-icon => 'question', -default => 'no') =~ m/yes/i) |
|
{ |
|
hook("protocol_chat_accept", -url => $ARGS{-url}); |
|
} |
|
else |
|
{ |
|
hook("protocol_chat_decline", -url => $ARGS{-url}); |
|
} |
|
}); |
|
|
|
register_hook("protocol_chat_joined", sub { |
|
my $chat = hook("tk_getmain")->MBChat; |
|
|
|
$chat->init($ARGS{-name}); |
|
|
|
register_hook("protocol_chat_buddy_in_$ARGS{-url}", sub { |
|
$ARGS{-self}->on_buddy_in($ARGS{-user}); |
|
}, {-self => $chat}); |
|
|
|
register_hook("protocol_chat_buddy_out_$ARGS{-url}", sub { |
|
$ARGS{-self}->on_buddy_out($ARGS{-user}); |
|
}, {-self => $chat}); |
|
|
|
register_hook("protocol_chat_msg_in_$ARGS{-url}", sub { |
|
$ARGS{-self}->on_msg_in($ARGS{-user}); |
|
}, {-self => $chat}); |
|
|
|
register_hook("protocol_chat_closed_$ARGS{-url}", sub { |
|
$ARGS{-self}->destroy; |
|
}, {-self => $chat}); |
|
}); |
|
|
|
1;
|
|
|