#!/v/openpkg/sw/bin/perl

use IO::All;
use DBI;
use DBD::SQLite;
use DBIx::Simple;

my $db = DBIx::Simple->connect(
    "dbi:SQLite:dbname=browser.db", "", "",
    { RaiseError => 0, AutoCommit => 0 }
);

my $map = {};
my $txt < io("map.txt");
$txt =~ s/^\s*#.*$//mg;
$txt =~ s/\n(\s*\n)+/\n/sg;
$txt =~ s/^\n//s;
map {
    my @x = split(/\s+/, $_);
    $map->{$x[0]} = { -old => $x[1], -new => $x[2] };
} split(/\n/, $txt);
foreach my $name (sort keys %{$map}) {
    printf("%-20s %-20s -> %s\n", $name, $map->{$name}->{-old}, $map->{$name}->{-new} || "?");
}

$db->commit();
$db->disconnect();