#!/usr/bin/perl

open(TPL, $tpl = "golf-js.tpl") || die("Can not open template: ($tpl)");
open(HTM, ">golf-js.html");

while(<TPL>) {
	if(/<CLUB\s+(\w+)\s*>/) {
		$fname = $1;
		&out_club($fname);
		next;
	}
	print HTM;
}

sub out_club {
	local($fname) = @_;

	open(C, "$fname.data") || die("File not found: ($fname)");
	$in_block = 0;
	while(<C>) {
		next if(/^\s*$/);

		if(/^End/i) {
			$in_block = 0;
			next;
		}
		if($in_block) {
			($flag, $part_id, @desc) = split;
			print "$array: ($flag, $part_id, @desc)\n";
			push(@$array, join($;, $flag, $part_id, "@desc"));

			$inits{$block} = $part_id
					if(!$inits{$block});
			next;
		}
		if(/^Name:\s*(.*)/i) {
			$name = $1;
			next;
		}
		if(/^Price:\s*(.*)/i) {
			$price = $1;
			next;
		}
		if(/^Base:\s*(.*)/i) {
			$base = $1;
			next;
		}
		if(/^Start\s*(.*)/i) {
			$block = $1;
			$block =~ tr/[A-Z]/[a-z]/;
			$array = "ar_$block";
			push(@vars, $array);
			$in_block = 1;
			next;
		}
	}

	# Arrays:
	#	Part base number: $base
	#	@ar_flex
	#	@ar_head
	#	@ar_hand

	print HTM <<END;
<SCRIPT LANGUAGE="JavaScript">
<!--
       fields["$base flex"] = "$inits{'flex'}";
       fields["$base head"] = "$inits{'head'}";
       fields["$base hand"] = "$inits{'hand'}";
// --> 
</SCRIPT>

<b>$name</b> - $price<br>
<FORM name=form_$base>
END
	&out_value("flex", @ar_flex);
	&out_value("head", @ar_head);
	&out_value("hand", @ar_hand);
	print HTM <<END;
<a href="#" onClick="goto_url('$base');">
<img src=add_off.gif></a>
</FORM>
END

	for $vars (@vars) {
		undef @$vars;
		print "Undef: ($vars)\n";
	}
	undef @inits;
}

sub out_value {
	local($field, @values) = @_;

	print HTM <<END;
<SELECT name=$field onChange='set_field("$base", "$field", form_$base.$field);'  >
<OPTION value=''>Pick $field
END
	for $value (@values) {
		($flag, $part_id, $desc) = split(/$;/, $value);
		print HTM qq!<OPTION value="$flag $part_id">$desc\n!;
	}

	print HTM <<END;
</SELECT>
END
}