[Bio] / SeedViewer / kegg_map_image.cgi Repository:
ViewVC logotype

View of /SeedViewer/kegg_map_image.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.9 - (download) (annotate)
Tue Aug 17 08:25:27 2010 UTC (9 years, 3 months ago) by paczian
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, mgrast_dev_05262011, mgrast_dev_04082011, rast_rel_2010_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2011_0119, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, rast_rel_2010_0827, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, mgrast_dev_10262011, HEAD
Changes since 1.8: +1 -1 lines
changed path

use strict;
use warnings;
no warnings 'once';

use CGI;
use Tracer;

use FIG_Config;

my $cgi = new CGI;
ETracing($cgi);
my $kegg_base_path = $FIG_Config::kegg || "$FIG_Config::data/KEGG";
$kegg_base_path .= "/pathway/map/";
my $img = "$kegg_base_path/map".$cgi->param('map').".png";
print $cgi->header(-content_type => 'image/png');
Trace("Kegg file at $img.") if T(3);
Open(\*FH, "<$img");
while (<FH>) {
    print;
}
close FH;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3