Mercurial > pidgin.yaz
annotate plugins/gaim.pl @ 4171:858822a27529
[gaim-migrate @ 4400]
Alex Converse (alex4):
"Gaim had a nasty habbit of not converting prefrenced
colors from 48-bit to 24-bit for outputting as html.
(causing malformed colors like #00FFFF00) I fixed this
by doing all the conversions at the time of outputting."
he further wrote, when i failed to see a need for this patch at first:
"The issue is GdkColors are 48-bit (16 of Red, green, and
blue) HTML colors are 24-bit (bit of Red, Green, and Blue)
gaim stores colors as GdkColors but when sends the color as
HTML. The problem is colors that were stored inb gaimrc
never got downsampled to 24bit."
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Thu, 02 Jan 2003 16:24:53 +0000 |
parents | e120097bbd72 |
children |
rev | line source |
---|---|
3563 | 1 sub description { |
2 my($a, $b, $c, $d, $e, $f) = @_; | |
3 ("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"); | |
4 } | |
806 | 5 |
3563 | 6 $handle = GAIM::register("Example", "1.0", "goodbye", ""); |
7 | |
8 GAIM::print("Perl Says", "Handle $handle"); | |
9 | |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
10 $ver = GAIM::get_info(0); |
2355
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
11 @ids = GAIM::get_info(1); |
806 | 12 |
2355
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
13 $msg = "Gaim $ver:"; |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
14 foreach $id (@ids) { |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
15 $pro = GAIM::get_info(7, $id); |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
16 $nam = GAIM::get_info(3, $id); |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
17 $msg .= "\n$nam using $pro"; |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
18 } |
806 | 19 |
2355
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
20 |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
21 GAIM::command("idle", 6000); |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
22 |
3563 | 23 GAIM::add_event_handler($handle, "event_buddy_signon", "echo_reply"); |
24 GAIM::add_timeout_handler($handle, 60, "notify"); | |
806 | 25 |
26 sub echo_reply { | |
2511
a83b4a5ffcd6
[gaim-migrate @ 2524]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
2355
diff
changeset
|
27 $index = $_[0]; |
a83b4a5ffcd6
[gaim-migrate @ 2524]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
2355
diff
changeset
|
28 $who = $_[1]; |
a83b4a5ffcd6
[gaim-migrate @ 2524]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
2355
diff
changeset
|
29 GAIM::print_to_conv($index, $who, "Hello", 0); |
806 | 30 } |
31 | |
32 sub notify { | |
2355
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
33 GAIM::print("1 minute", "gaim test has been loaded for 1 minute"); |
806 | 34 } |
35 | |
36 sub goodbye { | |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
37 GAIM::print("You Bastard!", "You killed Kenny!"); |
806 | 38 } |
3551 | 39 |