#!/usr/bin/perl -w
#
# get geometry from mysql db and create svg for selected countries
# klaus.foerster@uibk.ac.at, v0.1b
########################################################################

use DBI;
use CGI;
use strict;

my $q = new CGI;

my (@domains, $geom);
my $width  = "480";
my $height = "360";

# check for query_string
if (!$q->param('query')) {
	print $q->header();
	print "Please select at least one country :(\n";
	exit (0);
}

# parse query
@_ = split(/_/, $q->param('query'));

for my $dom (@_) {
	$dom =~ m/^[a-z]{2}$/ or next;
	push @domains, "countrygeom.tld='$dom'";
}
if (!@domains) {
	print $q->header();
	print "Sorry, incorrect query string :(\n";
	exit (0);
}

# generate sql query, connect to database and execute query
my $sql  = qq{ select countrygeom.tld, countrygeom.geom, countrynames.cnameen };
	$sql .= qq{ from countrygeom, countrynames };
	$sql .= qq{ where countrygeom.tld = countrynames.tld and (};
	$sql .= join " or ", @domains;
	$sql .= ")";
	
my $dbh = DBI->connect("dbi:mysql:database=XXX;host=XXX","XXX","XXX");
if ( !defined $dbh ) {
	local $SIG{__DIE__} = sub {
		print STDERR "[" .scalar localtime (time) . "] [error] [client $ENV{REMOTE_HOST}] ";
		print STDERR $DBI::errstr . " ";
		print $q->header();
		print $DBI::errstr;
		print "<p>Sorry. Database could not be reached. Please try again later<br />\n";
	};
	die;
}
my $sth = $dbh->prepare($sql);
$sth->execute || execute_failed($DBI::errstr);

# get results and create svg-code
while (my @row = $sth->fetchrow) {
	$geom .= qq*<path id="$row[0]"*;
	$geom .= qq* onmouseover="showName('$row[0]','$row[2]')" onmouseout="clearName('$row[0]')"*;
	$geom .= qq* class="fil3 landpolygone" d="$row[1]" />\n*;
}

# anything found?
$geom or execute_failed("no geometry found for your query");

# write svg-code
print $q->header("image/svg+xml");
print qq*<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20010904//EN"
	"http://www.w3.org/TR/2001/REC-SVG-20010904/DTD/svg10.dtd">
<svg id="mainmap" xml:space="preserve" style="shape-rendering:geometricPrecision;
	text-rendering:geometricPrecision; image-rendering:optimizeQuality"
	width="$width" height="$height" viewBox="-6148 0 11425 8275" onload='init(evt)'>
<script>
<![CDATA[
	var svgDoc;
	var myX;
	var myY;
	var myScale;

function init(evt){
	svgDoc = evt.getTarget().getOwnerDocument();
	bbox = svgDoc.getElementById('countrygroup').getBBox();
	var viewboxvals=bbox.x+' '+bbox.y+' '+bbox.width+' '+bbox.height;
	svgDoc.getElementById('mainmap').setAttribute('viewBox',viewboxvals);
	if ((bbox.width/bbox.height) >= ($width/$height)) {
		myScale = $width/bbox.width;              // viewbox narrower than viewport
		myX = bbox.x;
		myY = bbox.y+(bbox.height/2)+((bbox.width\*$height )/(2\*$width));
	}
	else { // viewbox straiter as viewport
		myScale = $height/bbox.height;
		myX = bbox.x+(bbox.width/2)-((bbox.height\*$width)/(2\*$height));
		myY = bbox.y+bbox.height;
	}
}

function showName(tld,country) {
	var t = svgDoc.getElementById('tldtext');
	var p = svgDoc.getElementById(tld);
	var c = svgDoc.getElementById('tldtext');
	var i = svgDoc.getElementById('flag');

	t.setAttribute('x',myX+50/myScale);
	t.setAttribute('y',myY-10/myScale);
	t.setAttribute("style", "font-size:"+eval(30/myScale));
	p.setAttribute("style", "stroke-width:"+eval(1/myScale));

	c = c.getFirstChild();
	c.setData(country); 

	i.setAttribute('x',myX+10/myScale);
	i.setAttribute('y',myY-30/myScale);
	i.setAttribute('width',eval(30/myScale));
	i.setAttribute('height',eval(20/myScale));
	i.setAttribute('xlink:href','/srv/img/flags/'+tld+'.png');
}

function clearName(tld) {
	svgDoc.getElementById(tld).setAttribute("style", "stroke-width:0.1");
	t = svgDoc.getElementById('tldtext')
	t = t.getFirstChild();
	t.setData(''); 
}
function clearFlag() {
	var i = svgDoc.getElementById('flag');
	i.setAttribute('xlink:href','/srv/img/flags/white.png');
}
]]>
</script>     
     
<desc>This is a country selector</desc>
<defs>
 <style type="text/css">
  <![CDATA[
    .fil3 {fill:#009240;fill-opacity:0.15}
    .landpolygone {stroke:#999999;stroke-width:0.1} 
  ]]>
 </style>
</defs>
<rect id="background" x="-6148" y="0" width="11425" height="8275"
	onmouseover="clearFlag()" style="fill:white;stroke:none" />
<g id="countrygroup">
$geom
</g>
<image id="flag" xlink:href="flags/white.png" x="0" y="0" width="300" height="200" />
<text id="tldtext" x="0" y="0" style="font-size:0;">Names go here ...</text></svg>
*;

# error handling ...
sub execute_failed {
	print $q->header();
	my $error = shift;
	print "Error: $error<br />\n";
}