Mercurial > pidgin.yaz
view gaim2blt.pl @ 7715:9f6dc7b4fc57
[gaim-migrate @ 8360]
I didn't do this earlier, because I figured people would still want to add
their own HTML tags using CVS, but I strongly doubt anyone will be hit with
the overwhelming desire to manually change the font size in an IM until that
gets implemented. I'm escaping HTML now. This will only happen with protocols
that support HTML, other protocols will receive just the text in the box.
When the toolbar gets widgetized, it will become desensitive when the current
account does not support HTML.
Also, because it's been asked of me, your default outgoing font will be set
in the wysiwyg entry widget, and ctrl-up will show the correct formatting.
committer: Tailor Script <tailor@pidgin.im>
author | Sean Egan <seanegan@gmail.com> |
---|---|
date | Wed, 03 Dec 2003 04:29: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