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.
29 lines
821 B
29 lines
821 B
package NetDemo; |
|
|
|
use Milkbone; |
|
|
|
use strict; |
|
use warnings; |
|
|
|
register_hook "protocol_signon", sub { |
|
hook("after", -time => 10, -code => sub { hook("signed_in") }); |
|
|
|
register_hook "protocol_add_buddy", sub { hook("buddy_in", -buddy => |
|
$ARGS{-buddy}, -group => $ARGS{-group}); }; |
|
|
|
register_hook "protocol_get_groups", sub { return ["Buddies", "You"] }; |
|
register_hook "protocol_get_realname", sub { return uc $ARGS{-user} }; |
|
register_hook "protocol_request_info", sub { |
|
hook("protocol_info_received_$ARGS{-user}", |
|
-profile => 'test', -away => 'test'); |
|
}; |
|
|
|
hook("after", -time => 1000, -code => sub { |
|
hook("buddy_in", -group => 'Buddies', -buddy => $_); }) |
|
for qw(althor57 perlmonk86); |
|
hook("after", -time => 1000, -code => sub { |
|
hook("msg_in", -user => 'thatguy', -msg => '<b>hey</b>'); |
|
}); |
|
}; |
|
|
|
1;
|
|
|