Mercurial > pidgin
view gaim2blt.pl @ 4819:815afc71c8e4
[gaim-migrate @ 5144]
On the one hand, rabbits not laying eggs is a conscious decision--it's not
that they can't, it's that they choose not to. But on the other hand,
the first hand makes no sense.
This should make reading ICQ info for people with non-ascii cruft not
crash Gaim and/or output ugly pango utf8 messages. I also make the ICQ
info strings internationalizationable.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Tue, 18 Mar 2003 05:52:22 +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