view plugins/gaim.pl @ 13765:13b7e59a0759

[gaim-migrate @ 16177] SF Bug #1485718 "At Solaris ARC review, the architect committee noticed that gaim installs two files to /usr/bin with the *.py extension. These include: gaim-notifications-example.py gaim-remote.py ARC also noticed that there are no other applications in /usr/bin with this extension, and questioned whether it makes sense to add applications to the default user PATH like this. Does it make more sense to remove the .py from the filenames if you are planning to install them into PATH? They recommend changing the name for consistancy. Also, not sure it is a good idea to install example programs to /usr/bin. Perhaps gaim-notifications-example should be installed to a /usr/demo directory, or elsewhere?" I've renamed gaim-remote.py to gaim-remote and moved gaim-notifications-example to /usr/share/gaim/doc/examples. committer: Tailor Script <[e-mail]>

sub description {
        my($a, $b, $c, $d, $e, $f) = @_;
        ("Example", "1.0", "An example Gaim perl script that does nothing particularly useful:\n\t-Show a dialog on load\n\t-Set user idle for 6,000 seconds\n\t-Greets people signing on with \"Hello\"\n\t-Informs you when script has been loaded for one minute.", "Eric Warmenhoven <eric\@warmenhoven.org>", "http://gaim.sf.net", "/dev/null");
}

$handle = GAIM::register("Example", "1.0", "goodbye", "");

GAIM::print("Perl Says", "Handle $handle");
		
$ver = GAIM::get_info(0);
@ids = GAIM::get_info(1);

$msg = "Gaim $ver:";
foreach $id (@ids) {
	$pro = GAIM::get_info(7, $id);
	$nam = GAIM::get_info(3, $id);
	$msg .= "\n$nam using $pro";
}


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

GAIM::add_event_handler($handle, "event_buddy_signon", "echo_reply");
GAIM::add_timeout_handler($handle, 60, "notify");

sub echo_reply {
	$index = $_[0];
	$who = $_[1];
	GAIM::print_to_conv($index, $who, "Hello", 0);
}

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

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