#!/usr/bin/perl
print "Content-type: text/html\n\n";
while (($key, $val) = each %ENV) {
#	print $key.": ".$val."<BR>\n";
	if($key eq 'QUERY_STRING'){$FORM1{$key} = $val;}  #Only store 1 EV
}

#foreach $key (sort keys %ENV){
#	print "$key=$ENV{$key}<BR>\n;
#}


# Split the name-value pairs of the EVs obtained above
@pairs = split(/&/, $FORM1{QUERY_STRING});

foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);

	# Convert the HTML encoding
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ s/<!--(.|\n)*-->//g;

	# Convert HTML stuff as necessary.
	$value =~ s/<([^>]|\n)*>//g;

	$FORM{$name} = $value;
	print "$name: $value<BR>\n";
}

if($FORM{'validate'} ne 'G'){ exit(1);}
if(!$FORM{'accum_nr'}){$FORM{'accum_nr'} = 9;}
if($FORM{'accum_nr'} > 9){$FORM{'accum_nr'} = 9;}

if(!$FORM{'countfilefix'}) {$FORM{'countfilefix'} = "count_gm.txt";}

$countfile = $FORM{'countfilefix'};

@country = qw(UK FR ES DE IT CA GE -- Other);
$nr_countries = @country;

open (COUNTFILE, "$countfile") || &create_count_file;
@COUNTERLINE=<COUNTFILE>;
close (COUNTFILE);

$accumulater = 0;
for($i=0, $j=1;$i<$nr_countries;$i++, $j++){
	chomp(@COUNTERLINE[$i]);
	if($FORM{'accum_nr'} eq $j){@COUNTERLINE[$i] = sprintf "%7i %s", ++@COUNTERLINE[$i], @country[$i];}
	$accumulater = $accumulater + @COUNTERLINE[$i];
}

open (COUNTFILE, ">$countfile") || die "Can't open $countfile: $!<BR>";
for($i=0;$i<$nr_countries;$i++){print COUNTFILE "@COUNTERLINE[$i]\n";}
print COUNTFILE "-------\n";
printf COUNTFILE "%7i Total\n", $accumulater;
close (COUNTFILE);
exit(0);

sub create_count_file{
	open (COUNTFILE, ">$countfile") || die "Can't open $countfile: $!<BR>";
	for($i=0;$i<$nr_countries;$i++){$counter = 0; printf COUNTFILE "%7i %s\n", $counter, @country[$i];}
	print COUNTFILE "-------\n";
	$counter = 0;printf COUNTFILE "%7i Total\n", $counter;
	close (COUNTFILE);
open (COUNTFILE, "$countfile");
}