view gaim2blt.pl @ 9188:b6e3dcb23de0

[gaim-migrate @ 9983] " This patch adds "Show Timestamps" to the Options menu in the conversation window, and makes both the menu option and the F2 shortcut per-conversation in-line with the other options in the Options menu. This adds translateable strings so should not be applied during string freeze :)" --Stu Tomlinson for the record, Mark objects to this: "For the record, I don't think this pref should be per-conversation. But I also don't think Enable Logging, Enable Sounds and the toolbar thing should be per-conversation, either." --Mark Doliner I however think that while his arguement may have merit, rfe 967008 lends credence to it, that the 4 options should be handled consistently, ie either all should have both a global and a per-conversation or none of them should. This makes thinks consistent, and so i think it should go in while Mark's point should get further discussion. committer: Tailor Script <[e-mail]>

#!/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