#!/usr/bin/perl
my $wdb = scalar @ARGV > 0 ? $ARGV[0] : 'wdb';
my $wdb2 = scalar @ARGV > 3 ? $ARGV[3] : undef;
my $map = scalar @ARGV > 4 ? $ARGV[4] : 'map.jpg';
my $check_map = scalar @ARGV > 2 ? ($ARGV[2] & 2) == 2 : 0;
my $html = scalar @ARGV > 1 ? $ARGV[1] : 'index.html';
my $printtz = scalar @ARGV > 2 ? $ARGV[2] & 1 == 1 : 0;
open WDB, '<', $wdb || die "can't read wdb";
open HTML, '>', $html || die "can't write map viewer";
my $scale = 6;
my $height = 919 * $scale;
my $width = 1500 * $scale;
my $fsize = 1 * $scale;
$fsize .= 'px';
print HTML "
Maemo Clock Reviewer: $wdb
";
sub dumpDB {
my $line;
while ($line = ) {
my ($id, $city, $ccode, $country, $tz, $lat, $long, $x, $y) = split /\|/, $line;
$city =~ s/qtn_clk_city_//;
$country =~ s/qtn_clk_country_//;
$x *= $width;
$x .= 'px';
$y *= $height;
$y .= 'px';
my $detail = $printtz ? "#$tz" : "$city-$country";
if ($check_map) {
print HTML "$id $detail
";
} else {
print HTML "$id $detail
";
}
}
}
dumpDB();
if (defined $wdb2) {
close WDB;
print HTML "
";
dumpDB() if (open WDB, '<', $wdb2);
print HTML "
";
}
print HTML "
";
close HTML;
close WDB;