Mercurial > pidgin.yaz
view gaim2blt.pl @ 4064:b188b93ebf48
[gaim-migrate @ 4274]
(23:01:14) LSchiere: okay, this patch fixes at least some of the problems saving sound, away, and font preferences. it makes spin buttons and entry
widgets save prefs on loss of focus or dialog close instead of on change.
(23:01:17) LSchiere: anything else it does?
(23:01:44) faceprint: it makes nothing save unless you hit close. however, everything saves when you hit close.
(23:02:06) LSchiere: they still apply before close?
(23:02:09) faceprint: it should right most of the wrongs of prefs
(23:02:25) faceprint: they apply before close, but aren't written to disk every time you check or uncheck a checkbox or something
(23:02:27) Paco-Paco: it looks OK
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Thu, 12 Dec 2002 04:03:53 +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