Mercurial > pidgin
view gaim2blt.pl @ 8975:574393ccd705
[gaim-migrate @ 9749]
"
Cleans up some formatting oddnes in gtkblist.c, and somewhat standardizes
the way the dialogs are specified as to their being type hint DIALOG
windows. This still could use some more cleaning up, but that'd ideally
involve moving the Join a Chat, Add Buddy, and Add Chat dialogs to the
request api and that's more work then I cared to do right now." --deryni
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Wed, 19 May 2004 03:54:49 +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