Mercurial > pidgin
view gaim2blt.pl @ 4681:efa194b5caaf
[gaim-migrate @ 4992]
Set the title of the conversation window to be the same as the tab label,
because that's the cool thing to do.
For the moment, this will suffer from the same problem as the tabs that are
red when they shouldn't be. I hope to get all of that fixed this weekend.
I define "this weekend" as "before I go to class on Monday", just like Sean
defines "tonight" as "before he goes to bed" ;-)
committer: Tailor Script <tailor@pidgin.im>
author | Nathan Walp <nwalp@pidgin.im> |
---|---|
date | Sun, 09 Mar 2003 08:20: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