Mercurial > pidgin
view gaim2blt.pl @ 5021:00b6af528964
[gaim-migrate @ 5357]
Jesse Farmer (vann) writes:
"If one enabled "Quote window title" in the message away
plugin, receiving multiple messages would cause the
plugin to mangle the title. It turns out the parts of
code used to modify the number between the brackets
([1],[2], etc.) assumed quoting was off. This patch
should fix the problem."
normally i'd wait for deryni to look at a notify.c patch, but we are trying
to get thigns release-ready
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Sat, 05 Apr 2003 04:00:03 +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