#!/usr/bin/perl -w
#!/usr/local/bin/perl5 -w

# ----- Installer Modifiable Variables -------------------------------------
# You may wish to modify the following variables to suit
# your installation.


# URL that will process the data from this screen.
$PROCESS_INPUT_URL = 'firstef_www_results.cgi';

# ----- End Installer Modifiable Variables ---------------------------------

BEGIN{
    print "Content-type: text/html\n\n";
    # Ensure that errors go to the web browser.
    open(STDERR, ">&STDOUT");
    $| = 1;
    print '';
}

use Carp;

use CGI;
# The CGI module is available from 
# http://www.genome.wi.mit.edu/ftp/distribution/software/WWW/

main();

sub main {

  $LIGHT_COLOR="#CCCCFF";
  $C_ROW = "<tr bgcolor=$LIGHT_COLOR>";
  $OLIGO_INPUT_SIZE=30;
  $SOURCE_SEQUENCE_WIDTH = 3 * ($OLIGO_INPUT_SIZE + 1) + 2;
  $SEQUENCE = "";
  $query = new CGI;
  input_screen($query);
}

sub input_screen {
    my ($query) = @_;
    print $query->start_html("FirstEF Input");

    my $input_buttons = qq{
        <input type="submit" name="Pick Primers" value="Run FirstEF">
        <input type="reset" value="Reset Form"><br>
        };
    
    print qq{
<form action="$PROCESS_INPUT_URL" 
      method="post" 
      enctype="x-www-form-urlencoded">
Paste FASTA sequence below

<textarea name="SEQUENCE" rows=22 cols=$SOURCE_SEQUENCE_WIDTH value="$SEQUENCE"></textarea>

<table border=0>
$C_ROW
<tr>
</table>

$input_buttons

<center>
<br>
    Problems?  <a href="mailto:flong\@skcc.org">flong\@skcc.org</a>
</center>

    };

}