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

View of /FigWebServices/serv_feature.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (download) (annotate)
Sat Dec 3 23:39:13 2011 UTC (8 years ago) by overbeek
Branch: MAIN
CVS Tags: mgrast_release_3_1_2, mgrast_dev_12152011
Changes since 1.3: +0 -1 lines
get rid of debugging message

use Data::Dumper;
use Carp;
use FIG_Config;
use CGI;


if (-f "$FIG_Config::data/Global/why_down")
{
    local $/;
    open my $fh, "<$FIG_Config::data/Global/why_down";
    my $down_msg = <$fh>;
    
    print CGI::header();
    print CGI::head(CGI::title("SEED Server down"));
    print CGI::start_body();
    print CGI::h1("SEED Server down");
    print CGI::p("The seed server is not currently running:");
    print CGI::pre($down_msg);
    print CGI::end_body();
    exit;
}

if ($FIG_Config::readonly)
{
    CGI::param("user", undef);
}
use SAPserver;
use ServFeature;

#
# This file is part of an application created with create-new-page.
# The implementation module is FigKernelScripts/ServFeature.pm.
# The SeedViewer page module is SeedViewer/WebPage/SeedViewerServeFeature.pm.
# The CGI script is FigWebServices/serv_feature.cgi.
#
# The SeedViewer url is http://yourseed/seedviewer.cgi?page=SeedViewerServeFeature
# The CGI url is http://yourseed/serv_feature.cgi
#


use strict;
use FIG;
use CGI;

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

my $user_name = $cgi->param("user");

my $my_url = "serv_feature.cgi?";

my($html, $title) = ServFeature::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);

print $cgi->header;
print "<title>$title</title>";
print $html;
    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3