Mercurial > pidgin.yaz
view gaim2blt.pl @ 3413:ccf479022081
[gaim-migrate @ 3432]
It'd be one thing if they used autopoint all throughout 0.11.x, but
0.11.0, 0.11.1, and 0.11.2 (maybe even .3!) don't include it! So,
back go the hacks, except now it's all much bigger because of the
existance of autopoint.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Mon, 19 Aug 2002 05:25:16 +0000 |
parents | 7cd904828d3d |
children | 66bf7ecefedd |
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