Mercurial > pidgin.yaz
view gaim2blt.pl @ 2789:e8a2f3b92348
[gaim-migrate @ 2802]
I don't think anyone is being pleased with the way it is now.
So I'll put in this fix. Maybe this will make more people happy.
That comment pissed me off so much.
I'll put it back to the way it was originally tomorrow when I get home.
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Sat, 24 Nov 2001 19:15:32 +0000 |
parents | 7506587a394d |
children | 7cd904828d3d |
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 " $args {\n"; $in_group = 1; } elsif ($type eq 'b') { my ($buddy, $alias) = split /:/, $args; print qq( "$buddy"\n); } } print <<"EOF"; } } } EOF