Mercurial > pidgin.yaz
view gaim2blt.pl @ 8645:47f647dd2ac3
[gaim-migrate @ 9397]
From out of nowhere comes a zephyr fix from yours truely.
If zephyr is the only account you sign on with, then the Gaim
login window never disappears because previously there was no
connection status dialog thingy. This fixes that.
It would probably be good if this wasn't necessary. I might
fix that a bit later. Like, maybe make sure the login window
is hidden before the buddy list is drawn.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Tue, 13 Apr 2004 03:53:37 +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