Mercurial > pidgin.yaz
view plugins/gaim.pl @ 13342:bd981bf1a663
[gaim-migrate @ 15712]
SF Patch #1439221 from Shawn Outman
"The fix that allowed the message window to blink with
the first message in the conversation also allowed it
to blink with system messages, including those from the
Buddy State Notification plugin.
This patch modifies winprefs to not flash for system
messages, which is how it is in 1.5 and 2.0beta1 & 2.
(The first message in the conversation still causes it
to blink, however)."
committer: Tailor Script <tailor@pidgin.im>
author | Richard Laager <rlaager@wiktel.com> |
---|---|
date | Tue, 28 Feb 2006 01:27:12 +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!"); }