Mercurial > pidgin.yaz
view plugins/gaim.pl @ 4161:c79961f48063
[gaim-migrate @ 4390]
David Brigada (jsi) writes:
"User <youssef> claims that there were a couple of bad
translations of the word "account" into French. I
don't speak French and therefore cannot verify the
translation. However, the patch is here."
if the translations are bad, be aware that the gaim developers are pretty much
just accepting patches for them, the only way to get them fixed is to submit
more patches, as we can't really tell the difference between a good patch and a
bad one in languages we don't know.
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Tue, 31 Dec 2002 18:21:32 +0000 |
parents | e120097bbd72 |
children |
line wrap: on
line source
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!"); }