Mercurial > pidgin.yaz
view gaim2blt.pl @ 4185:e52b0571ca95
[gaim-migrate @ 4416]
Vincent van Adrighem (valium) writes:
"This is an updated version of the dutch translation.
It's not complete (yet), but it is better than the last
one. It contains some new translations and the old one
have been reviewed and updated. This file is intended
for the HEAD branch. It can probably be used for the
GTK-1-2 branch, but I don't know if the translations
are 100% the same.."
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Fri, 03 Jan 2003 14:55:11 +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