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

Annotation of /FigWebServices/serv_feature.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (view) (download)

1 : overbeek 1.2 use Data::Dumper;
2 :     use Carp;
3 :     use FIG_Config;
4 :     use CGI;
5 :    
6 :    
7 :     if (-f "$FIG_Config::data/Global/why_down")
8 :     {
9 :     local $/;
10 :     open my $fh, "<$FIG_Config::data/Global/why_down";
11 :     my $down_msg = <$fh>;
12 :    
13 :     print CGI::header();
14 :     print CGI::head(CGI::title("SEED Server down"));
15 :     print CGI::start_body();
16 :     print CGI::h1("SEED Server down");
17 :     print CGI::p("The seed server is not currently running:");
18 :     print CGI::pre($down_msg);
19 :     print CGI::end_body();
20 :     exit;
21 :     }
22 :    
23 :     if ($FIG_Config::readonly)
24 :     {
25 :     CGI::param("user", undef);
26 :     }
27 : disz 1.1 use SAPserver;
28 :     use ServFeature;
29 :    
30 :     #
31 :     # This file is part of an application created with create-new-page.
32 :     # The implementation module is FigKernelScripts/ServFeature.pm.
33 :     # The SeedViewer page module is SeedViewer/WebPage/SeedViewerServeFeature.pm.
34 :     # The CGI script is FigWebServices/serv_feature.cgi.
35 :     #
36 :     # The SeedViewer url is http://yourseed/seedviewer.cgi?page=SeedViewerServeFeature
37 :     # The CGI url is http://yourseed/serv_feature.cgi
38 :     #
39 :    
40 :    
41 :     use strict;
42 :     use FIG;
43 :     use CGI;
44 :    
45 :     my $cgi = CGI->new;
46 :     my $fig = FIG->new;
47 :     my $sap = SAPserver->new();
48 :    
49 :     my $user_name = $cgi->param("user");
50 :    
51 : disz 1.3 my $my_url = "serv_feature.cgi?";
52 : disz 1.1
53 :     my($html, $title) = ServFeature::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);
54 :    
55 :     print $cgi->header;
56 :     print "<title>$title</title>";
57 :     print $html;
58 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3