#!/usr/bin/perl

# use Term::ReadKey;
use CGI qw(:standard);

print header;
print start_html('A Chess Board Analyzer'),
	h1('A Chess Board Analyzer'),
	start_form,
	"Copy in your board position string identifier (see examples below)<br> ",
	textfield(-name=>'combi',-default=>'8/8/8/8/8/8/8/8',-size=>70,-maxlength=>140),
	submit,
	end_form,
	hr,
	"Examples of valid input:<br><ul>",
	"<li>rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR",
	"<li>r2r2k1/1bq2ppp/p2b1n2/1pp5/5N2/1PP1QP2/P1BN2PP/3R1RK1",
	"<li>3b1k2/5p2/1p3p2/2pnrN1p/P3N1P1/4PP1P/P3K3/R7",
	"<li>8/4k3/5p2/1p1p1P2/1P3KP1/8/8/8",
	"<li>8/8/8/8/8/8/8/8</ul>",
	hr;

if (param()) {
	print
		"<applet ARCHIVE=\"cbdiag.jar\" CODE=\"cbdiag\" WIDTH=335 HEIGHT=335>",
		p,
		"<param name=viewer_credits value=\"www.chessbrain.net\">",
		p,
		"<param name=epd value=\"", em(param('combi')), "- 0 1\">",
		"</applet>",
		hr;
}

print
	"<i>See the source <a href = \"chess.txt\">here</a> or go back to the <a href = \"index.html\">main site</a>.<br>",
	"<img src=\"../cgi-bin/Count.cgi?df=fyre_main.dat\&dd=cdr\&ft=4\&cache=F\&expires=0\&reload=Y\" align=\"absmiddle\">";


print end_html;