Mercurial > pidgin
view gaim2blt.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 | 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