#!/usr/bin/perl
#order.plx
use strict;
use warnings;

use CGI::Pretty;
use CGI::Carp;

$CGI::POST_MAX = 1024;

my $cgi = new CGI;

if (not defined $cgi->param('route') or not -e "routes/".$cgi->param('route').".xml") {
	print $cgi->redirect("http://www.maffoo.net/maps");
} else {
	my $rt = $cgi->param('route');
	
	print $cgi->header();
	
	open(INFILE, "routeMap.txt");
	
	while (<INFILE>) {
		s/%%ROUTE%%/$rt/;
		print $_;
	}
}