Mercurial > pidgin.yaz
view gaim2blt.pl @ 8243:217643616a74
[gaim-migrate @ 8966]
a yahoo patch from Daniel (datallah) Atallah that i wish we didn't need,
and another:
"When the auto-reconnect plugin is unloaded, it doesn't
unregister the "signed-off" account event listener,
causing it to continue to try to reconnect you even if
it isn't loaded. This unregisters the listener when the
plugin is unloaded and also prevents any pending
reconnect events from being attempted when the timeout
fires."
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Thu, 12 Feb 2004 19:17:54 +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