Mercurial > pidgin
view plugins/gaim.pl @ 871:75b05911234a
[gaim-migrate @ 881]
backing out fflew's fix. it isn't correct. the only thing that should need to be drawn is what's prior to it. the way it is with fflew's fix, text gets overwritten with the background color.
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Sun, 10 Sep 2000 21:38:43 +0000 |
parents | 67bdecdecbb7 |
children | 190cef255530 |
line wrap: on
line source
AIM::register("gaim test", "0.0.1", "goodbye", ""); $ver = AIM::get_info(0); $nam = AIM::get_info(1); $pro = AIM::get_info(2); AIM::print("Perl Says", "Gaim $ver, $nam using $pro"); # i should probably do something with these to actually test them, huh @bud = AIM::buddy_list(); @onl = AIM::online_list(); @den = AIM::deny_list(); AIM::command("idle", "60000") if ($pro ne "Offline"); AIM::add_event_handler("event_buddy_signon", "say_hello"); AIM::add_timeout_handler(600, "notify"); sub echo_reply { $args = @_; $args =~ s/\"//g; AIM::print_to_conv($args, "Hello"); } sub notify { AIM::print("10 minutes", "gaim test has been loaded for 10 minutes"); } sub goodbye { AIM::print("You Bastard!", "You killed Kenny!"); }