Mercurial > pidgin
view gaim2blt.pl @ 5556:8ab1875e6d09
[gaim-migrate @ 5957]
This is mostly some small changes to oscar to make it faster and more
portable (like, to 64 bit platforms). It's pretty much all from The
Ryan McCabe (odin). He's the man.
I didn't actually test this, but CVS is probably broken right now anyway.
Fear not--if it doesn't work I'll be sure to fix it real good now, ya hear.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Fri, 30 May 2003 02:35:44 +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