#!/usr/bin/perl -T

my $version = "0.1";

use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
$CGI::POST_MAX = 1024 * 1024 * 20;  # maximum upload filesize is 20M

$| = 1;

my $q = CGI->new;

print $q->header;
print $q->start_html(-title=>"mysite",
                     -style=>{-src=>'/plasma/style.css'});
print $q->start_multipart_form(-method=>'POST',
                               -action=>'/cgi-bin/start_analysis.cgi');
print $q->filefield(-name=>"uf_core",
                    -size=>20);
print "\tFile type: ";
print $q->popup_menu(-name=>"urt",
                     -values=>['fasta','genbank'],
                     -default=>'fasta');
print "<br><br>";
print qq{<input type="file" name="uf_qry" size="20" multiple="true" />};
print "<br>";
print $q->submit(-value=>"ANALYZE!");
print $q->end_multipart_form;
print $q->end_html;