#!/usr/bin/perl -T

###################################################
$program_name = "comp.cgi";
# COMPosition
$program_path = "/web/genome/tmstat/";
#$program_path = "/csb/dme/granule/web/tmstat/cgi-bin/";
$program_ver = "v.1.00";
$program_date = "000720";
$program_author = "Alessandro Senes";
$program_description .= 
"
";
      
###################################################

###################################################
# VARIABLES
###################################################


############################
# 4 letter codes of genomes 
############################
@genomeCodes = (
	aaeo,
	aful,
	bbur,
	bsub,
	cele,
	cpne,
	ctra,
	ecol,
	hinf,
	hpyl,
	mgen,
	mjan,
	mpne,
	mthe,
	mtub,
	phor,
	rpro,
	scer,
	syne,
	tpal
	);

############################
# codes of the 3 Sprot databases
# all, single-span and multi-span
############################
@sprotCodes = (
	sprot,
	sprotsingle,
	sprotmulti
	);



############################
# Name of database
############################
$database_string{aaeo} = "A.aeolicus";
$database_string{aful} = "A.fulgidus";
$database_string{bbur} = "B.burgdorferi";
$database_string{bsub} = "B.subtilis";
$database_string{cele} = "C.elegans";
$database_string{cpne} = "C.pneumoniae";
$database_string{ctra} = "C.trachomatis";
$database_string{ecol} = "E.coli";
$database_string{hinf} = "H.influenzae";
$database_string{hpyl} = "H.pylori";
$database_string{mgen} = "M.genitalium";
$database_string{mjan} = "M.jannaschii";
$database_string{mpne} = "M.pneumoniae";
$database_string{mthe} = "M.thermoautotrophicum";
$database_string{mtub} = "M.tuberculosis";
$database_string{phor} = "P.horikoshii";
$database_string{rpro} = "R.prowazekii";
$database_string{scer} = "S.cerevisiae";
$database_string{syne} = "Synechocystis sp.";
$database_string{tpal} = "T.pallidum";

############################
# Name of database
############################
$database_tm_string{aaeo} = "A.aeolicus (1227 TMs)";
$database_tm_string{aful} = "A.fulgidus (2122 TMs)";
$database_tm_string{bbur} = "B.burgdorferi (864 TMs)";
$database_tm_string{bsub} = "B.subtilis (5044 TMs)";
$database_tm_string{cele} = "C.elegans (21197 TMs)";
$database_tm_string{cpne} = "C.pneumoniae (1000 TMs)";
$database_tm_string{ctra} = "C.trachomatis (840 TMs)";
$database_tm_string{ecol} = "E.coli (5525 TMs)";
$database_tm_string{hinf} = "H.influenzae (1747 TMs)";
$database_tm_string{hpyl} = "H.pylori (1268 TMs)";
$database_tm_string{mgen} = "M.genitalium (490 TMs)";
$database_tm_string{mjan} = "M.jannaschii (1089 TMs)";
$database_tm_string{mpne} = "M.pneumoniae (616 TMs)";
$database_tm_string{mthe} = "M.thermoautotrophicum (1398 TMs)";
$database_tm_string{mtub} = "M.tuberculosis (3114 TMs)";
$database_tm_string{phor} = "P.horikoshii (1703 TMs)";
$database_tm_string{rpro} = "R.prowazekii (972 TMs)";
$database_tm_string{scer} = "S.cerevisiae (4520 TMs)";
$database_tm_string{syne} = "Synechocystis sp. (2891 TMs)";
$database_tm_string{tpal} = "T.pallidum (749 TMs)";

############################
# Links to genome pages
############################
$database_url{aaeo} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Aaeo/\" ONMOUSEOVER=\'infoBox(\"Click here for the Aaeo genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Aaeo</A>]";
$database_url{aful} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Aful/\" ONMOUSEOVER=\'infoBox(\"Click here for the Aful genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Aful</A>]";
$database_url{bbur} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Bbur/\" ONMOUSEOVER=\'infoBox(\"Click here for the Bbur genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Bbur</A>]";
$database_url{bsub} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Bsub/\" ONMOUSEOVER=\'infoBox(\"Click here for the Bsub genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Bsub</A>]";
$database_url{cele} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Cele/\" ONMOUSEOVER=\'infoBox(\"Click here for the Cele genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Cele</A>]";
$database_url{cpne} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Cpne/\" ONMOUSEOVER=\'infoBox(\"Click here for the Cpne genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Cpne</A>]";
$database_url{ctra} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Ctra/\" ONMOUSEOVER=\'infoBox(\"Click here for the Ctra genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Ctra</A>]";
$database_url{ecol} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Ecol/\" ONMOUSEOVER=\'infoBox(\"Click here for the Ecol genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Ecol</A>]";
$database_url{hinf} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Hinf/\" ONMOUSEOVER=\'infoBox(\"Click here for the Hinf genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Hinf</A>]";
$database_url{hpyl} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Hpyl/\" ONMOUSEOVER=\'infoBox(\"Click here for the Hpyl genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Hpyl</A>]";
$database_url{mgen} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Mgen/\" ONMOUSEOVER=\'infoBox(\"Click here for the Mgen genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Mgen</A>]";
$database_url{mjan} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Mjan/\" ONMOUSEOVER=\'infoBox(\"Click here for the Mjan genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Mjan</A>]";
$database_url{mpne} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Mpne/\" ONMOUSEOVER=\'infoBox(\"Click here for the Mpne genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Mpne</A>]";
$database_url{mthe} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Mthe/\" ONMOUSEOVER=\'infoBox(\"Click here for the Mthe genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Mthe</A>]";
$database_url{mtub} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Mtub/\" ONMOUSEOVER=\'infoBox(\"Click here for the Mtub genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Mtub</A>]";
$database_url{phor} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Phor/\" ONMOUSEOVER=\'infoBox(\"Click here for the Phor genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Phor</A>]";
$database_url{rpro} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Rpro/\" ONMOUSEOVER=\'infoBox(\"Click here for the Rpro genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Rpro</A>]";
$database_url{scer} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Scer/\" ONMOUSEOVER=\'infoBox(\"Click here for the Scer genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Scer</A>]";
$database_url{syne} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Syne/\" ONMOUSEOVER=\'infoBox(\"Click here for the Syne genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Syne</A>]";
$database_url{tpal} = " [<A HREF=\"http://bioinfo.mbb.yale.edu/genome/orgs/Tpal/\" ONMOUSEOVER=\'infoBox(\"Click here for the Tpal genome page\");return true\' ONMOUSEOUT=\'resetBox();return true\'>Tpal</A>]";

############################
# Links to gif
############################
$data_path = $program_path."data/comp/";
$orf_gif_location{aaeo} = $data_path."aaeo_comp.gif";
$orf_gif_location{aful} = $data_path."aful_comp.gif";
$orf_gif_location{bbur} = $data_path."bbur_comp.gif";
$orf_gif_location{bsub} = $data_path."bsub_comp.gif";
$orf_gif_location{cele} = $data_path."cele_comp.gif";
$orf_gif_location{cpne} = $data_path."cpne_comp.gif";
$orf_gif_location{ctra} = $data_path."ctra_comp.gif";
$orf_gif_location{ecol} = $data_path."ecol_comp.gif";
$orf_gif_location{hinf} = $data_path."hinf_comp.gif";
$orf_gif_location{hpyl} = $data_path."hpyl_comp.gif";
$orf_gif_location{mgen} = $data_path."mgen_comp.gif";
$orf_gif_location{mjan} = $data_path."mjan_comp.gif";
$orf_gif_location{mpne} = $data_path."mpne_comp.gif";
$orf_gif_location{mthe} = $data_path."mthe_comp.gif";
$orf_gif_location{mtub} = $data_path."mtub_comp.gif";
$orf_gif_location{phor} = $data_path."phor_comp.gif";
$orf_gif_location{rpro} = $data_path."rpro_comp.gif";
$orf_gif_location{scer} = $data_path."scer_comp.gif";
$orf_gif_location{syne} = $data_path."syne_comp.gif";
$orf_gif_location{tpal} = $data_path."tpal_comp.gif";
$orf_gif_location{null} = $data_path."null_comp.gif";

$tm_gif_location{aaeo} = $data_path."aaeo_tm_comp.gif";
$tm_gif_location{aful} = $data_path."aful_tm_comp.gif";
$tm_gif_location{bbur} = $data_path."bbur_tm_comp.gif";
$tm_gif_location{bsub} = $data_path."bsub_tm_comp.gif";
$tm_gif_location{cele} = $data_path."cele_tm_comp.gif";
$tm_gif_location{cpne} = $data_path."cpne_tm_comp.gif";
$tm_gif_location{ctra} = $data_path."ctra_tm_comp.gif";
$tm_gif_location{ecol} = $data_path."ecol_tm_comp.gif";
$tm_gif_location{hinf} = $data_path."hinf_tm_comp.gif";
$tm_gif_location{hpyl} = $data_path."hpyl_tm_comp.gif";
$tm_gif_location{mgen} = $data_path."mgen_tm_comp.gif";
$tm_gif_location{mjan} = $data_path."mjan_tm_comp.gif";
$tm_gif_location{mpne} = $data_path."mpne_tm_comp.gif";
$tm_gif_location{mthe} = $data_path."mthe_tm_comp.gif";
$tm_gif_location{mtub} = $data_path."mtub_tm_comp.gif";
$tm_gif_location{phor} = $data_path."phor_tm_comp.gif";
$tm_gif_location{rpro} = $data_path."rpro_tm_comp.gif";
$tm_gif_location{scer} = $data_path."scer_tm_comp.gif";
$tm_gif_location{syne} = $data_path."syne_tm_comp.gif";
$tm_gif_location{tpal} = $data_path."tpal_tm_comp.gif";
$tm_gif_location{null} = $data_path."null_tm_comp.gif";


############################
# Links to data
############################
$data_path = $program_path."data/comp/";
$orf_data_location{aaeo} = $data_path."aaeo_comp.dat";
$orf_data_location{aful} = $data_path."aful_comp.dat";
$orf_data_location{bbur} = $data_path."bbur_comp.dat";
$orf_data_location{bsub} = $data_path."bsub_comp.dat";
$orf_data_location{cele} = $data_path."cele_comp.dat";
$orf_data_location{cpne} = $data_path."cpne_comp.dat";
$orf_data_location{ctra} = $data_path."ctra_comp.dat";
$orf_data_location{ecol} = $data_path."ecol_comp.dat";
$orf_data_location{hinf} = $data_path."hinf_comp.dat";
$orf_data_location{hpyl} = $data_path."hpyl_comp.dat";
$orf_data_location{mgen} = $data_path."mgen_comp.dat";
$orf_data_location{mjan} = $data_path."mjan_comp.dat";
$orf_data_location{mpne} = $data_path."mpne_comp.dat";
$orf_data_location{mthe} = $data_path."mthe_comp.dat";
$orf_data_location{mtub} = $data_path."mtub_comp.dat";
$orf_data_location{phor} = $data_path."phor_comp.dat";
$orf_data_location{rpro} = $data_path."rpro_comp.dat";
$orf_data_location{scer} = $data_path."scer_comp.dat";
$orf_data_location{syne} = $data_path."syne_comp.dat";
$orf_data_location{tpal} = $data_path."tpal_comp.dat";
$orf_data_location{null} = $data_path."null_comp.dat";

$tm_data_location{aaeo} = $data_path."aaeo_tm_comp.dat";
$tm_data_location{aful} = $data_path."aful_tm_comp.dat";
$tm_data_location{bbur} = $data_path."bbur_tm_comp.dat";
$tm_data_location{bsub} = $data_path."bsub_tm_comp.dat";
$tm_data_location{cele} = $data_path."cele_tm_comp.dat";
$tm_data_location{cpne} = $data_path."cpne_tm_comp.dat";
$tm_data_location{ctra} = $data_path."ctra_tm_comp.dat";
$tm_data_location{ecol} = $data_path."ecol_tm_comp.dat";
$tm_data_location{hinf} = $data_path."hinf_tm_comp.dat";
$tm_data_location{hpyl} = $data_path."hpyl_tm_comp.dat";
$tm_data_location{mgen} = $data_path."mgen_tm_comp.dat";
$tm_data_location{mjan} = $data_path."mjan_tm_comp.dat";
$tm_data_location{mpne} = $data_path."mpne_tm_comp.dat";
$tm_data_location{mthe} = $data_path."mthe_tm_comp.dat";
$tm_data_location{mtub} = $data_path."mtub_tm_comp.dat";
$tm_data_location{phor} = $data_path."phor_tm_comp.dat";
$tm_data_location{rpro} = $data_path."rpro_tm_comp.dat";
$tm_data_location{scer} = $data_path."scer_tm_comp.dat";
$tm_data_location{syne} = $data_path."syne_tm_comp.dat";
$tm_data_location{tpal} = $data_path."tpal_tm_comp.dat";
$tm_data_location{null} = $data_path."null_tm_comp.dat";


###################################################
# Done with variables
###################################################


$time = localtime();


###################################################
# Call the subroutine that parses the web input
###################################################
$errorCode = &ReadParse;

if ($errorCode) {
	&Error($errorCode);
	exit;
}

$field{db} =~ tr/A-Z/a-z/;
$field{dbtype} =~ tr/A-Z/a-z/;
$field{opt} =~ tr/A-Z/a-z/;

$dbOK = 0;
for ($i=0;$i<@genomeCodes;$i++) {
	
	if ($field{db} eq $genomeCodes[$i]) {
		$dbOK = 1;
		$selected_option{$field{db}} = "SELECTED";
		$i = @genomeCodes;
	}
}

if ($field{dbtype} ne "tm") {
	$field{dbtype} = "orfs";
}
if ($field{opt} ne "gif") {
	$field{opt} = "page";
}

if (!$dbOK) {
	$field{db} = "null";
}

if ($field{opt} eq "gif") {
	if ($field{dbtype} eq "tm") {
		open GIF, "$tm_gif_location{$field{db}}"; 
	} else {
		open GIF, "$orf_gif_location{$field{db}}"; 
	}
	@gif = <GIF>;
	close GIF;
	$gif = join("", @gif);
	
	print "Content-type: image/gif\n\n";
	print $gif;
	
	exit;
} else {
	if ($field{dbtype} eq "tm") {
		open DATA, "$tm_data_location{$field{db}}"; 
		open GIF, "$tm_gif_location{$field{db}}"; 
		$tm_checked = "CHECKED";
		$title = "Composition of all transmembrane domains in $database_tm_string{$field{db}} $database_url{$field{db}}";
	} else {
		open DATA, "$orf_data_location{$field{db}}"; 
		open GIF, "$orf_gif_location{$field{db}}";
		$orf_checked = "CHECKED";
		$title = "Composition of all ORFs in $database_string{$field{db}} $database_url{$field{db}}";
	}
	@data = <DATA>;
	close DATA;
	@gif = <GIF>;
	close GIF;
	$gif = join("", @gif);
	
	if ($dbOK) {
		for ($i=1;$i<21;$i++) {

			$line = $data[$i];
			$line =~ s/\n//g;
			($res[$i-1], $count[$i-1]) = split("\t", $line);
			$total += $count[$i-1];
		}

		for ($i=0;$i<20;$i++) {

			$frac[$i] = 100 * $count[$i] / $total;
			$frac[$i] = &RoundNumber($frac[$i], 1);
		}
	}
	

	print "Content-type: text/html\n\n";
	print "<HTML>\n";
	print "<HEAD>\n";
	print "<TITLE>TMSTAT - Composition</TITLE>\n";
	print "<META NAME=\"GENERATOR\" CONTENT=\"$program_name $program_ver $time\">\n";
	print "</HEAD>\n";
	print "\n";
	print "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#00006A\" LINK=\"#A14030\" VLINK=\"#A14030\">\n";
	print "<FORM METHOD=\"GET\" ACTION=\"http://bioinfo.mbb.yale.edu/genome/search/superlink.cgi\">\n";
	print "<TABLE WIDTH=\"100%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\" BGCOLOR=#000077>\n";
	print "<TR><TD NOWRAP ALIGN=LEFT><A HREF=\"http://www.yale.edu\"><IMG SRC=\"http://bioinfo.mbb.yale.edu/genecensus/header/picture/yale.jpg\" alt=\"Yale\" HEIGHT=\"29\" WIDTH=\"53\" BORDER=\"0\"></A><A HREF=\"http://bioinfo.mbb.yale.edu\"><IMG SRC=\"http://bioinfo.mbb.yale.edu//genecensus/header/picture/gerstein.jpg\" HEIGHT=\"29\" WIDTH=\"139\" ALT=\"Gerstein Lab\" BORDER=\"0\"></A></TD>\n";
	print "<TD BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"2\" ALIGN=\"RIGHT\" VALIGN=\"CENTER\" NOWRAP>\n";
	print "<input size=15 maxlength=200 VALUE=\"search\" VALIGN=\"CENTER\" NAME=\"id\"><input type=\"image\" border=\"0 HEIGHT=\"23\" WIDTH=\"24\" src=\"http://bioinfo.mbb.yale.edu/genecensus/header/picture/icon-go.gif\"  alt=\"go\">\n";
	print "<A HREF=\"http://bioinfo.mbb.yale.edu/partslist/\"><IMG SRC=\"http://bioinfo.mbb.yale.edu/genecensus/header/picture/icon-cycle.gif\" alt=\"Parts List\" HEIGHT=\"23\" WIDTH=\"24\" BORDER=\"0\"></A><A HREF=\"http://bioinfo.mbb.yale.edu/genecensus/\"><IMG HEIGHT=\"23\" WIDTH=\"24\"  SRC=\"http://bioinfo.mbb.yale.edu/genecensus/header/picture/icon-tree.gif\" alt=\"GeneCensus\" BORDER=\"0\">\n";
	print "</A><A HREF=\"http://bioinfo.mbb.yale.edu/genecensus/help/#pbrow\"><IMG SRC=\"http://bioinfo.mbb.yale.edu/genecensus/header/picture/help.gif\" HEIGHT=\"23\" WIDTH=\"24\" alt=\"help\" BORDER=\"0\"></A><A HREF=\"http://bioinfo.mbb.yale.edu/genecensus/download/#pbrow\"><IMG HEIGHT=\"23\" WIDTH=\"24\" SRC=\"http://bioinfo.mbb.yale.edu/genecensus/header/picture/download.gif\" alt=\"download\" BORDER=\"0\"></A></TD></TR></TABLE></FORM>\n";

	print "<FONT FACE=\"arial, helvetica\" SIZE=3><B>Composition of genome ORFs and transmebrane domains</B></FONT><BR>\n";
	print "<BR>\n";
	print "<FONT FACE=\"arial, helvetica\" SIZE=2><B>$title</B></FONT><BR>\n";
	print "<FORM NAME=\"select\" METHOD=\"GET\" ACTION=\"$program_name\">\n";
	print "<INPUT TYPE=\"hidden\" NAME=\"opt\" VALUE=\"page\">\n";
	print "<FONT FACE=\"arial, helvetica\" SIZE=2>Genome: </FONT><SELECT NAME=\"db\"><OPTION VALUE=\"\" $selected_option{null}>Select a genome database<OPTION VALUE=\"aaeo\" $selected_option{aaeo}>$database_string{aaeo}<OPTION VALUE=\"aful\" $selected_option{aful}>$database_string{aful}<OPTION VALUE=\"bbur\" $selected_option{bbur}>$database_string{bbur}<OPTION VALUE=\"bsub\" $selected_option{bsub}>$database_string{bsub}<OPTION VALUE=\"cele\" $selected_option{cele}>$database_string{cele}<OPTION VALUE=\"cpne\" $selected_option{cpne}>$database_string{cpne}<OPTION VALUE=\"ctra\" $selected_option{ctra}>$database_string{ctra}<OPTION VALUE=\"ecol\" $selected_option{ecol}>$database_string{ecol}<OPTION VALUE=\"hinf\" $selected_option{hinf}>$database_string{hinf}<OPTION VALUE=\"hpyl\" $selected_option{hpyl}>$database_string{hpyl}<OPTION VALUE=\"mgen\" $selected_option{mgen}>$database_string{mgen}<OPTION VALUE=\"mjan\" $selected_option{mjan}>$database_string{mjan}<OPTION VALUE=\"mpne\" $selected_option{mpne}>$database_string{mpne}<OPTION VALUE=\"mthe\" $selected_option{mthe}>$database_string{mthe}<OPTION VALUE=\"mtub\" $selected_option{mtub}>$database_string{mtub}<OPTION VALUE=\"phor\" $selected_option{phor}>$database_string{phor}<OPTION VALUE=\"rpro\" $selected_option{rpro}>$database_string{rpro}<OPTION VALUE=\"scer\" $selected_option{scer}>$database_string{scer}<OPTION VALUE=\"syne\" $selected_option{syne}>$database_string{syne}<OPTION VALUE=\"tpal\" $selected_option{tpal}>$database_string{tpal}</SELECT>  <INPUT TYPE=\"submit\" NAME=\"\" VALUE=\"Send\"><BR>\n";
	print "<FONT FACE=\"arial, helvetica\" SIZE=2>\n";
	print "<INPUT TYPE=\"radio\" NAME=\"dbtype\" VALUE=\"orfs\" $orf_checked> Composition of ORFs<BR>\n";
	print "<INPUT TYPE=\"radio\" NAME=\"dbtype\" VALUE=\"tm\" $tm_checked> Composition of transmembrane domains<BR>\n";
	print "</FONT>\n";
	print "</FORM>\n";


	print "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=10 WIDTH=500>\n";
	print "<TR BGCOLOR=\"#AAAAFF\">\n";
	print "<TD>\n";
	print "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=200>\n";
	print "<TR>\n";
	print "<TD><FONT FACE=\"arial, helvetica\" SIZE=2><B>Residue</B></FONT></TD><TD ALIGN=\"right\"><FONT FACE=\"arial, helvetica\" SIZE=2><B>Total</B></FONT></TD><TD ALIGN=\"right\"><FONT FACE=\"arial, helvetica\" SIZE=2><B>%</B></FONT></TD>\n";
	print "</TR>\n";
	if ($dbOK) {
		for ($i=0;$i<20;$i++) {
			print "<TR>\n";
			print "<TD><FONT FACE=\"arial, helvetica\" SIZE=2>$res[$i]</FONT></TD><TD ALIGN=\"right\"><FONT FACE=\"arial, helvetica\" SIZE=2>$count[$i]</FONT></TD><TD ALIGN=\"right\"><FONT FACE=\"arial, helvetica\" SIZE=2>$frac[$i]</FONT></TD>\n";
			print "</TR>\n";
		}
	}
	print "</TABLE>\n";
	print "</TD>\n";
	print "<TD><IMG SRC=\"comp.cgi?db=$field{db}&dbtype=$field{dbtype}&opt=gif\" BORDER=0 WIDTH=274 HEIGHT=221></TD>\n";
	print "</TR>\n";
	print "</TABLE>\n";
	
}





sub ReadParse {
	
	my $buffer;
	my $pair;
	my @pairs;
	my $name;
	my $value;
	my $ErrorCode;

	if ($ENV{'REQUEST_METHOD'} eq 'POST') {
		if ($ENV{'CONTENT_LENGTH'} > 1000) {
			$ErrorCode = "24";
			return ($ErrorCode);
		}
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

	} else {
		
		if (length($ENV{'QUERY_STRING'}) < 1000) {
			$buffer = $ENV{'QUERY_STRING'};
		} else {
			$ErrorCode = "25";
			return ($ErrorCode);
		}
	}
	
	@pairs = split (/&/, $buffer);
	foreach $pair (@pairs) {
		($name, $value) = split (/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$value =~ s/\r\n/\n/g;
		$field{$name} .= $value;
	}
	return (0);
}


sub RoundNumber {
	
	my $number = shift;
	my $decimals = shift;
	my $pos;

	
	$number *= (10 ** int($decimals));
	
	if ($number > 0) {
		$number += 0.5;
	} else {
		$number -= 0.5;
	}
	
	$number = int($number);
	
	$number /= (10 ** int($decimals));
	
	
	if ($number =~ /\./g) {
		$pos = pos($number);
		while (length($number) <  $pos + $decimals) {
			$number .= "0";
		}
	} else {
		$number .= ".";
		$number =~ /\./g;
		$pos = length($number);
		while (length($number) <  $pos + $decimals) {
			$number .= "0";
		}
	}
		
	
	return $number;
	
}





sub Error() {
	
	my $code = shift;
	
	print "Error $code<BR>\n";
	
}