Mercurial > pidgin
view gaim2blt.pl @ 7186:0da869011d8a
[gaim-migrate @ 7754]
" This fixes issues some people in Linux, FreeBSD,
Solaris:1 reported to me, where gaim would reopen the
chat window after leaving if someone else joined before
the server decided to stop sending us stuff.
It also fixes a bug where it would say you left the
chat upon joining a chat while having another chat open.
Finally, it attempts to do a better job logging out of
chat, and fixes the bugs introduced by this change."
--Tim Ringenbach (marv_sf)
it doesn't appear to change any strings, and it fixes some bugs, so i'm
going to go ahead and commit this.
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Tue, 07 Oct 2003 15:55:26 +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