Mercurial > pidgin.yaz
view gaim2blt.pl @ 5231:b5f912af996e
[gaim-migrate @ 5601]
i missed that rant when i looked at this the first 2 times. it was MY fault
that the original es.po patch, submitted to debian, was not committed. i was
not yet on the debian Gaim PTS, and had committed a translation update that
broke the one submitted to debian just before i was notified that the debian
submitted patch existed. any rant about that patch not being accepted should
be directed to/at me not robot101. i addressed this once in a reply to the
aforementioned patch, but apparently the submitter is too dense to figure it
out.
hopefully this is the last time i will have to address the fact that
because i get translation patches from a number of different sources, i
sometimes break one patch by applying a different one.
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Sat, 26 Apr 2003 18:13:06 +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