[Bio] / FigWebServices / genome_statistics.cgi Repository:
ViewVC logotype

View of /FigWebServices/genome_statistics.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (download) (annotate)
Sat Oct 23 21:28:54 2004 UTC (15 years, 5 months ago) by overbeek
Branch: MAIN
Changes since 1.1: +1 -1 lines
minor fix

#### start ####
use FIG;
my $fig = new FIG;

use HTML;
use strict;
use CGI;
my $cgi = new CGI;

if (0)
{
    my $VAR1;
    eval(join("",`cat /tmp/statistics_parms`));
    $cgi = $VAR1;
#   print STDERR &Dumper($cgi);
}

if (0)
{
    print $cgi->header;
    my @params = $cgi->param;
    print "<pre>\n";
    foreach $_ (@params)
    {
	print "$_\t:",join(",",$cgi->param($_)),":\n";
    }

    if (0)
    {
	if (open(TMP,">/tmp/statistics_parms"))
	{
	    print TMP &Dumper($cgi);
	    close(TMP);
	}
    }
    exit;
}

my $html = [];
unshift @$html, "<TITLE>The SEED Statics Page</TITLE>\n";

my $genome = $cgi->param('genome');
if ((! $genome) || (! -d "$FIG_Config::organisms/$genome"))
{
    unshift @$html, "<TITLE>The SEED Statics Page</TITLE>\n";
    push(@$html,"<h1>Sorry, you need to specify a valid genome</h1>\n");
    &HTML::show_page($cgi,$html);
    exit;
}

my $gs = $fig->genus_species($genome);
push(@$html,$cgi->h1("Statistics for $genome: $gs"));
&HTML::show_page($cgi,$html);
exit;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3