annotate plugins/gaim.pl @ 1771:213607e89598

[gaim-migrate @ 1781] plug mem leak. don't show evil level if it decreased. mid's utf8 patch for jabber. my girlfriend got an accounting calculator today, you know, with the paper and the printing and things. it's kinda loud. she's really happy about having it. she had bought a different one yesterday but it didn't work so we returned it today. we also went to Albertson's and bought groceries. we bought 72 cans of soda for $15. That's 20 cents per soda. Not bad. we also bought a cow; i'm going to cook it tonight. ben&jerry's ice cream is good. committer: Tailor Script <[e-mail]>

GAIM::register("gaim test", "0.0.1", "goodbye", "");

$ver = GAIM::get_info(0);
$nam = GAIM::get_info(1);
$pro = GAIM::get_info(2, $nam);

GAIM::print("Perl Says", "Gaim $ver, $nam using $pro");

GAIM::command("idle", 60000);

GAIM::add_event_handler("event_buddy_signon", "say_hello");
GAIM::add_timeout_handler(600, "notify");

sub echo_reply {
	$args = @_;
	$args =~ s/\"//g;
	GAIM::print_to_conv($args, "Hello");
}

sub notify {
	GAIM::print("10 minutes", "gaim test has been loaded for 10 minutes");
}

sub goodbye {
	GAIM::print("You Bastard!", "You killed Kenny!");
}