#! /usr/bin/perl -w

use CGI qw/:standard/;

$query = new CGI;

@genomefiles = ("a_fulgidus.fa" ,
		"a_pernix.fa" ,
		"b_burgdorferi.fa" ,
		"b_subtilis.fa" ,
		"h_influenzae.fa" ,
		"h_pylori.fa" ,
		"h_sapiens_chr22.fa" ,
		"m_genitalium.fa" );
$printednames{"a_fulgidus.fa"} = "A. Fulgidus" ;
$printednames{"a_pernix.fa"} = "A. Pernix" ;
$printednames{"b_burgdorferi.fa"} = "B. Burgdorferi" ;
$printednames{"b_subtilis.fa"} = "B. Subtilis" ;
$printednames{"h_influenzae.fa"} = "H. Influenzae" ;
$printednames{"h_pylori.fa"} = "H. Pylori" ;
$printednames{"h_sapiens_chr22.fa"} = "H. Sapiens chr22" ;
$printednames{"m_genitalium.fa"} = "M. Genitalium" ;

print header(),
  start_html(-title=>'Sequence input form'),"\n",
  h1('Sequence Input Form'),"\n";

print $query->startform('POST','align.cgi', CGI::MULTIPART()),"\n";
print $query->textarea(-name=>'seq',
		       -default=>'',
		       -rows=>10,
		       -columns=>50),"\n";

print "<br>",$query->filefield(-name=>'upload',-size=>50, -maxlength=>512),"\n";

@buttons = $query->radio_group(-name=>'genomedb',
			     -values=>\@genomefiles,
			     -labels=>\%printednames);

print "<br>Genome Selection<br>";
print "<table border=4>\n";
for ($i = 0; $#buttons >= 0; ++$i) {
  print "<tr>\n";
  for ($j = 0; ($j < 4) and ($#buttons >=0); ++$j) {
    print "<td>", shift(@buttons),"</td>\n";
  }
  print "</tr>\n";
}
print "</table>\n";

print "<p>",$query->submit(-name=>'button',
		     -value=>'submit');
print $query->endform;

print end_html();