[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.4 - (download) (annotate)
Sun Nov 20 01:29:59 2011 UTC (8 years, 4 months ago) by golsen
Branch: MAIN
Changes since 1.3: +15 -1005 lines
Minor improvements in the classic SEED wrapper.

# -*- 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;

use Data::Dumper;

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 = $cgi->hidden( -name => 'user', -value => $user ) . "\n";

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