Mercurial > pidgin
view gaim2blt.pl @ 9180:c16b81557679
[gaim-migrate @ 9975]
"I saw, that someone has detected the misspelled word [commmand] with 3 m's
in
src/gaim-remote.c and corrected it already:
$ cvs diff -u -r 1.16 -r 1.17 src/gaim-remote.c
Index: src/gaim-remote.c
===================================================================
RCS file: /cvsroot/gaim/gaim/src/gaim-remote.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -3 -p -u -r1.16 -r1.17
--- src/gaim-remote.c 20 Apr 2004 22:39:38 -0000 1.16
+++ src/gaim-remote.c 27 May 2004 04:09:14 -0000 1.17
@@ -69,7 +69,7 @@ void show_remote_usage(char *name)
" quit Close running copy of
Gaim\n\n"
" OPTIONS:\n"
- " -h, --help [commmand] Show help for command\n"),
name);
+ " -h, --help [command] Show help for command\n"),
name);
message(text,1);
g_free(text);
Unfortunately this breaks the string freeze. Especially the 0.78
translations
already commited are affected. Because there is no much time for the
translators to re-translate, I suggest the following patch (i18n61.patch).
i18n61.patch contains:
----------------------
- replaces [commmand] with [command] in all msgid's
- replaces only msgid's with translated msgstr's
- replaces wrong translated msgstr's (commmand with 3 m's) in en_GB,fr and
zh_TW " -- Bjoern Voigt
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Sat, 05 Jun 2004 17:25:13 +0000 |
parents | 66bf7ecefedd |
children |
line wrap: on
line source
#!/usr/bin/perl -w # Original by Andy Harrison, # Rewrite by Decklin Foster, # Available under the GPL. package Gaim2Blt; use strict; use Getopt::Std; use vars qw(%opts $in_group); getopts('s:', \%opts); die "usage: $0 -s 'screen name' gaim.buddy\n" unless $opts{s}; print <<"EOF"; Config { version 1 } User { screenname "$opts{s}" } Buddy { list { EOF while (<>) { chomp; my ($type, $args) = split ' ', $_, 2; next unless $type; if ($type eq 'g') { print " }\n" if ($in_group); print qq( "$args" {\n); $in_group = 1; } elsif ($type eq 'b') { my ($buddy, $alias) = split /:/, $args; print qq( "$buddy"\n); } } print <<"EOF"; } } } EOF