Mercurial > pidgin.yaz
annotate plugins/gaim.pl @ 7724:613b20c69d2c
[gaim-migrate @ 8369]
this didn't cause me any problems yesterday, and it compiles, and bug fixing is a good thing.
"Some month ago I introduced translatable texts for "gaim --help" and
"gaim-remote --help".
Unfortunately the output of the translated text is often unreadable.
The problem is, that Gaim's *.po files have the UTF-8 locale (because
this is the default charset for GTK+ 2.0). But the users may have
configured other locales. For instance my SuSE Linux 9.0 system is
configured with LANG=de_DE@euro. "euro" is ISO-8859-1 (Western
character set, 8 Bit, with the Euro currency symbol). Lots of UTF-8
characters are unreadable if they are displayed in a 8 Bit charset
without conversion. Only the 7 Bit chars are displayed right.
There are two possible solutions:
1) Make the console texts untranslatable. This isn't very clever.
2) Convert the texts from UTF-8 to user's locale.
I choose the second solution.
The conversion cannot be made during the translation, because gettext
does not allow a mix of different character sets in one po-file.
My patch converts the console strings from UTF-8 to users locale.
Normally this works right, because most users have a locale which is
compatible with their language.
The case where a user uses a language (for instance German:
LANG=de_DE) with an incompatible character set (for instance the 7Bit
charset LC_CTYPE=C) is also handled. The user then sees a warning and
the original UTF-8 message.
At first I tried to make a new UTF-8 function in src/util.c. But the
function is needed 5 times in src/gaim-remote.c and 2 times in
src/main.c. gaim-remote is not linked against util.o. Also there are a
lot of dependencies from util.o to other files, so I will introduce a
lot of trouble to link gaim-remote against util.o.
So I only wrote a function in src/gaim-remote.c and used the UTF-8
conversion inline in src/main.c." --Bjoern Voigt
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Wed, 03 Dec 2003 13:21:55 +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 |