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

View of /FigWebServices/align_and_tree.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (download) (annotate)
Mon Dec 5 00:06:52 2011 UTC (7 years, 11 months ago) by golsen
Branch: MAIN
CVS Tags: rast_rel_2014_0912, rast_rel_2014_0729, mgrast_release_3_1_2, mgrast_version_3_2, mgrast_dev_12152011, HEAD
Changes since 1.5: +1 -1 lines
Fix issue with user name under the SEED.

# -*- perl -*-
#
# Copyright (c) 2003-2011 University of Chicago and Fellowship
# for Interpretations of Genomes. All Rights Reserved.
#
# This file is part of the SEED Toolkit.
#
# The SEED Toolkit is free software. You can redistribute
# it and/or modify it under the terms of the SEED Toolkit
# Public License.
#
# You should have received a copy of the SEED Toolkit Public License
# along with this program; if not write to the University of Chicago
# at info@ci.uchicago.edu or the Fellowship for Interpretation of
# Genomes at veronika@thefig.info or download a copy from
# http://www.theseed.org/LICENSE.TXT.
#

use strict;
use FIG;
use CGI;
use SAPserver;
use CGIAlignTreeViewer;

my $fig             = FIG->new();
my $cgi             = CGI->new();
my $sapObject       = SAPserver->new();

my $user            = $cgi->param( 'user' ) || '';
my $url             = "align_and_tree.cgi";
my $hidden_form_var = '';

print $cgi->header;
my ( $html, $title ) = CGIAlignTreeViewer::run( $fig, $cgi, $sapObject, $user, $url, $hidden_form_var );
$title ||= "$url";
$html  ||= $cgi->h2( 'No HTML returned by script.' ) . "\n";

print "<TITLE>$title</TITLE>\n";
print $html;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3