#! /usr/bin/perl

use CGI;
use strict;

my $query = new CGI;

my $width = $query->param('width');
my $length = $query->param('length');
my $height = $query->param('height');
my $county = $query->param('county');

$width =~ s/"/"/g;
$width =~ s/>/>/g;
$width =~ s/</&lt;/g;

$length =~ s/"/&quot;/g;
$length =~ s/>/&gt;/g;
$length =~ s/</&lt;/g;

$height =~ s/"/&quot;/g;
$height =~ s/>/&gt;/g;
$height =~ s/</&lt;/g;

$county =~ s/"/&quot;/g;
$county =~ s/>/&gt;/g;
$county =~ s/</&lt;/g;

print "Content-type: text/html\n\n";

if(open(TMPL, "get-quote.html")) {
	while(<TMPL>) {
		s,name="county" value="",name="county" value="$county",;

		if(/name="Building width"/) {
			print;
			while(<TMPL>) {
				if(/\/select/) {
					print;
					last;
				}
				if(/<option value="(.*?)"/) {
					my $val = $1;
					if($val eq $width) {
						s/<option(.*?)>/<option$1 selected>/;
					}
					else {
						s/selected//;
					}
					print;
				}
			}
		}
		elsif(/name="Building length"/) {
			print;
			while(<TMPL>) {
				if(/\/select/) {
					print;
					last;
				}
				if(/<option value="(.*?)"/) {
					my $val = $1;
					if($val eq $length) {
						s/<option(.*?)>/<option$1 selected>/;
					}
					else {
						s/selected//;
					}
					print;
				}
			}
		}
		elsif(/name="Building height"/) {
			print;
			while(<TMPL>) {
				if(/\/select/) {
					print;
					last;
				}
				if(/<option value="(.*?)"/) {
					my $val = $1;
					if($val eq $height) {
						s/<option(.*?)>/<option$1 selected>/;
					}
					else {
						s/selected//;
					}
					print;
				}
			}
		}



		else {
			print;
		}
	}
	close(TMPL);
}

print "width=$width\n";
print "length=$length\n";
print "height=$height\n";
print "county=$county\n";