Mercurial > pidgin.yaz
view gaim2blt.pl @ 8928:755d7f8907c6
[gaim-migrate @ 9698]
" This patch creates a custom sort function that will
sort the "none" theme, if found, at the top of the
Smiley Themes list. Luke and I thought it was good
idea to do so.
I also had to add just the theme name to the tree list
since the other field had the name, author, and
description all marked up, which would be stupid to try
and sort. This way I can just look for "none"" --Don Seiler
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Fri, 14 May 2004 05:04:28 +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