view plugins/gaim.pl @ 2344:19ea44f74a88

[gaim-migrate @ 2357] well, it still needs some work, but I did promise that I'd commit it tonight. I need to make it check to make sure the file exists, and need to make it display the current buddy icon. I'll do this tomorrow and will commit it. If there's any errors, I'll grab them then. I've had a couple drinks tonight, so it's very possible that I did something dumb or extremely brilliant. ;-) 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!");
}