#! /usr/local/bin/perl

$rem_host = $ENV{"REMOTE_ADDR"};
$is_local = ($rem_host =~ /^128.52/);

print <<EOF;
Content-type: text/html

<TITLE>Submit a new Stalemate Document</TITLE>

<H1>Submit a new Stalemate Document</H1>

This document automates submission of a new document to the Stalemate
project.   Fill out the forms, and hit the "Submit" button.

<FORM method=POST action="submit-engine">
Your name: <INPUT name="author" size=40> <BR>
Title of your document: <INPUT name="title" size=40> <BR>
EOF

if ($is_local) {
print <<EOF;
File containing the document: <INPUT name="file" size=40> <p>
Abstract: <br><textarea name="abstract" cols=60 rows=8></textarea> <p>
EOF
} else {
print <<EOF;
Abstract: <br><textarea name="abstract" cols=60 rows=4></textarea> <p>
EOF
}

print <<EOF;

Project documents must be approved by two affiliated grandmasters.
Please recommend two (different!) grandmasters to referee your document:
<SELECT name="gm1">
<OPTION> polgar
<OPTION> spassky
<OPTION> fisher
<OPTION> karpov
<OPTION> levy
</SELECT>
and
<SELECT name="gm2">
<OPTION> polgar
<OPTION selected> spassky
<OPTION> fisher
<OPTION> karpov
<OPTION> levy
</SELECT>.   <P>
EOF

print <<EOF unless ($is_local);
Contents: <br><textarea name="contents" cols=60 rows=8></textarea> <p>
EOF

print <<EOF;
<INPUT type="submit" value="Submit Document">
</FORM>
EOF