Mercurial > pidgin.yaz
view gaim2blt.pl @ 8658:4133c85d76f7
[gaim-migrate @ 9410]
Fix the problem mentioned on gaim-devel:
"Crash when 'Log your own signons/idleness/awayness' is on and a
connection is cancelled while connecting"
There is a flaw in Gaim here.
"You have signed on" can be written to the system log before "You have
signed off." This happens when you disconnect an account while it is
connected. It's an extremely minor problem and I don't feel like
fixing it.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Wed, 14 Apr 2004 04:04:42 +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