Mercurial > pidgin.yaz
view gaim2blt.pl @ 8461:16485e87b7bb
[gaim-migrate @ 9191]
Fix a problem displaying AIM tooltips with the dude or chick has an
away message containing an unmatched <
This breaks the string freeze horrendously. I'm afraid every string
for every language will have to be retranslated. Sorry.
Just kidding.
Really.
Don't hate me because I'm beautiful.
This commit brought to you by the follow quote:
"Chewie, take the professor in the back and plug him into the hyperdrive."
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Wed, 17 Mar 2004 02:25:03 +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