Mercurial > pidgin
view gaim2blt.pl @ 10147:a485dedd6ba2
[gaim-migrate @ 11224]
Minor privacy dialog changes from Bleeter.
1. Force-save blist.xml when privacy stuff changes instead of when Gaim
shutdowns (or when something else triggers a blist-save)
2. Don't redraw stuff in the dialog if you select the same privacy option
that was previously selected.
Someone can commit this to oldstatus, if you really want. I'm not
going to because I don't want to test it and I don't want to be
responsible if it breaks something there, and I don't consider the
changes to be that dire.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Wed, 27 Oct 2004 22:24:51 +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