#!/usr/bin/perl
use strict;
my $lat = 0;
my $lon = 0;
my $zoom = 13;
my $text = '';
my $name = '';
my $address = '';
my $parameter_error = 0;
my $map_width = 350;
my $map_heigth = 500;
my $body_style = 'margin:0; padding:0;';
sub url_decode {
my $uri = shift;
$uri =~ s/%[cC]2%([a-bA-B][0-9a-fA-F])/pack("c",hex($1))/ge; # UTF-8 Umlaute dekodieren (1)
$uri =~ s/%[cC]3%([8-9a-bA-B][0-9a-fA-F])/pack("c",hex($1)+0x40)/ge; # UTF-8 Umlaute dekodieren (2)
$uri =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge; # ISO Umlaute dekodieren
$uri =~ s/\\x([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
$uri =~ s/\+/ /g; # decode space
return $uri;
}
# use pathinfo
my $uri = $ENV{REQUEST_URI};
$uri = url_decode($uri);
# /map2/lat/lon/ad_code/zoom/name/address
$uri =~ s#^/route/##;
$uri =~ s#\.html$##;
my $ad_code; # 1 = ads, 2 = adlinks, 3 = both
($lat, $lon, $ad_code, $zoom, $name, $address) = split(/\//, $uri);
$lat = 0 if (!defined($lat));
$lon = 0 if (!defined($lon));
$zoom = 13 if (!defined($zoom));
$name = '' if (!defined($name));
$address = '' if (!defined($address));
$name = url_decode($name);
$address = url_decode($address);
$text = "$name
$address";
$parameter_error = 1 if (length($address) == 0);
# clean up parameters
$lat =~ s/[^\-\.\d]//g;
$lon =~ s/[^\-\.\d]//g;
$zoom =~ s/[^\.\d]//g;
$text =~ s/"/"/g;
$parameter_error = 1 if (!defined($lat) || ($lat !~ /^\-*\d+\.\d+$/) || ($lat == 0));
$parameter_error = 1 if (!defined($lon) || ($lon !~ /^\-*\d+\.\d+$/) || ($lon == 0));
$parameter_error = 1 if (length($text) == 0);
if ($parameter_error) {
print "Content-Type: text/html\nStatus: 404\n\n";
print "Route: Not FoundHomepage\n";
exit;
}
my $domain = $ENV{HTTP_HOST} || $ENV{SERVER_NAME};
my $locale = 'de';
my $start_label = 'Von';
my $button_label = 'Route berechnen';
my $drucktext = 'Drucken';
print "Content-Type: text/html\nStatus: 200 OK\nCache-Control: max-age=" . 7*24*60*60 ."\n\n";
print<$name - $address
END_HEAD
print "
Routenplaner zur Spur der Steine
";
print <$start_label $drucktext
END_MAP