#!/usr/bin/perl
#
# $Id: map.perl 24 2008-10-25 17:21:27Z klaus $
#
# create a simple SVG map for Tasmania
#
# Klaus Förster <klaus.foerster@svg.cc>
########################################

use strict;
use CGI;
use DBI;

my $q = new CGI;
$q->import_names('q');

# content will be collected within
my $result;

# predefine styles
my $styles = {
    'lake' => 'fill="lightskyblue" stroke="deepskyblue" stroke-width="30"',
    'stream' => 'fill="none" stroke="deepskyblue" stroke-width="120"',
    'town' => 'fill="crimson" stroke="black" stroke-width="50"',
    'towntext' => 'font-family="Arial" font-size="3500" fill="white"',
    'roadsec' => 'fill="none" stroke="gray" stroke-width="100"',
    'roadprim' => 'fill="none" stroke="gray" stroke-width="300" ',
    'rail' => 'fill="none" stroke="brown" stroke-width="200" stroke-dasharray="1000 500"',
};

# connect to database
my $dbh = DBI->connect("DBI:Pg:dbname=database;host=hostname", "username", "password");

# build query, take styles into account, set precision to 0
my $sql = qq*
SELECT 'poly','lake',gid,nam,AsSvg(the_geom,1,0), -1 AS zindex FROM tasmania.inwatera
UNION SELECT 'line','stream',gid,nam,AsSvg(the_geom,1,0), -0.5 AS zindex FROM tasmania.watercl WHERE hyc=8
UNION SELECT 'poly','town',gid,nam,AsSvg(the_geom,1,0), 0 AS zindex FROM tasmania.builtupa
UNION SELECT 'line','rail',gid,' ',AsSvg(the_geom,1,0), 0 AS zindex FROM tasmania.railrdl
UNION SELECT 'line','roadsec',gid,' ',AsSvg(the_geom,1,0), 0 AS zindex FROM tasmania.roadl WHERE rtt=15
UNION SELECT 'line','roadprim',gid,' ',AsSvg(the_geom,1,0), 0 AS zindex FROM tasmania.roadl WHERE rtt=14
UNION SELECT 'symbol','aero',gid,nam,AsSvg(the_geom,1,0), 0 AS zindex FROM tasmania.aerofacp
UNION SELECT 'text','towntext',gid,nam,AsSvg(the_geom,1,0), 0 AS zindex FROM tasmania.builtupp
ORDER BY zindex
*;

# perpare query and execute
my $sth = $dbh->prepare($sql);
$sth->execute;

# parse results and create svg-code
while (my @row =  $sth->fetchrow) {
    if ($row[0] eq "poly") {
        $result .= qq*<path $styles{$row[1]} tas:id="$row[2]" tas:name="$row[3]" d="$row[4]" />\n*;
    }
    elsif ($row[0] eq "line") {
        $result .= qq*<path $styles{$row[1]} tas:id="$row[2]" tas:name="$row[3]" d="$row[4]" />\n*;
    }
    elsif ($row[0] eq "text") {
        $result .= qq*<text $styles{$row[1]} tas:id="$row[2]" $row[4]>$row[3]</text>\n*;
    }
    elsif ($row[0] eq "symbol") {
        $result .= qq*<use xlink:href="#$row[1]" tas:id="$row[2]" tas:name="$row[3]" $row[4] width="5000" height="5000" />\n*;
    }
    else {
        # enough for now ;-)
    }
}

# say good bye to database
$sth->finish();
$dbh->disconnect();

# print header if needed
if (!$q::noheader) {
    print $q->header("image/svg+xml");
}

# print out code
print qq*<?xml-stylesheet href="tasmania.css" type="text/css"?>
<svg viewBox="220000 -5660000 420000 500000" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:tas="http://svg.cc/tasmania">
<symbol id="aero" viewBox="0 -10 10 10" overflow="visible">
 <path d="M4.770,-4.299 4.720,-4.310 4.689,-4.293 4.698,-4.064 4.706,-3.893 4.702,-3.721 4.690,-3.595 4.679,-3.443 4.667,-3.304 4.656,-3.146 4.638,-3.007 4.620,-2.855 4.596,-2.663 4.565,-2.445 4.553,-2.325 4.529,-2.160 4.485,-1.961 4.466,-1.882 4.448,-1.796 4.425,-1.651 5.482,-0.528 5.482,0.000 4.161,-0.760 2.840,0.000 2.840,-0.528 3.897,-1.651 3.891,-1.718 3.832,-1.984 3.793,-2.244 3.755,-2.504 3.716,-2.705 3.703,-2.841 3.670,-3.107 3.644,-3.302 3.644,-3.439 3.631,-3.620 3.618,-3.757 3.618,-3.893 3.618,-4.016 3.631,-4.205 3.638,-4.244 3.633,-4.293 3.605,-4.308 3.560,-4.295 0.000,-2.180 0.000,-2.906 3.633,-6.671 3.612,-7.323 3.612,-7.839 3.584,-8.328 3.593,-8.600 3.593,-8.751 3.603,-8.863 3.612,-8.985 3.650,-9.183 3.678,-9.324 3.706,-9.446 3.744,-9.549 3.772,-9.643 3.828,-9.775 3.885,-9.850 3.950,-9.925 4.025,-9.972 4.091,-9.991 4.157,-10.000 4.216,-9.990 4.249,-9.997 4.329,-9.978 4.395,-9.920 4.463,-9.821 4.510,-9.723 4.558,-9.611 4.598,-9.532 4.633,-9.394 4.654,-9.262 4.682,-9.163 4.703,-9.078 4.725,-8.854 4.728,-8.629 4.738,-8.365 4.733,-8.180 4.723,-7.955 4.689,-6.671 8.322,-2.906 8.322,-2.180 z " />
</symbol>

<image xlink:href="../images/elev100re3c800.png" x="220000" y="-5660000" width="420000" height="500000" />
$result
</svg>
*;