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

Annotation of /FigWebServices/serv_role.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : overbeek 1.1 #!/usr/bin/env /vol/ross/FIGdisk/bin/run_perl
2 :    
3 :     BEGIN {
4 :     unshift @INC, qw(
5 :     /home/overbeek/Ross/ServerUI/NewUI
6 :     /vol/ross/FIGdisk/dist/releases/dev/common/lib
7 :     /vol/ross/FIGdisk/dist/releases/dev/common/lib/FigKernelPackages
8 :     /vol/ross/FIGdisk/dist/releases/dev/common/lib/WebApplication
9 :     /vol/ross/FIGdisk/dist/releases/dev/common/lib/FortyEight
10 :     /vol/ross/FIGdisk/dist/releases/dev/common/lib/PPO
11 :     /vol/ross/FIGdisk/dist/releases/dev/common/lib/RAST
12 :     /vol/ross/FIGdisk/dist/releases/dev/common/lib/MGRAST
13 :     /vol/ross/FIGdisk/dist/releases/dev/common/lib/SeedViewer
14 :     /vol/ross/FIGdisk/dist/releases/dev/common/lib/ModelSEED
15 :     /vol/ross/FIGdisk/dist/anon/common/lib
16 :     /vol/ross/FIGdisk/dist/anon/common/lib/FigKernelPackages
17 :     /vol/ross/FIGdisk/config
18 :    
19 :     );
20 :     }
21 :     use Data::Dumper;
22 :     use Carp;
23 :     use FIG_Config;
24 :     $ENV{'BLASTMAT'} = "/vol/ross/FIGdisk/BLASTMAT";
25 :     $ENV{'FIG_HOME'} = "/vol/ross/FIGdisk";
26 :     # end of tool_hdr
27 :     ########################################################################
28 :     use CGI;
29 :    
30 :    
31 :     if (-f "$FIG_Config::data/Global/why_down")
32 :     {
33 :     local $/;
34 :     open my $fh, "<$FIG_Config::data/Global/why_down";
35 :     my $down_msg = <$fh>;
36 :    
37 :     print CGI::header();
38 :     print CGI::head(CGI::title("SEED Server down"));
39 :     print CGI::start_body();
40 :     print CGI::h1("SEED Server down");
41 :     print CGI::p("The seed server is not currently running:");
42 :     print CGI::pre($down_msg);
43 :     print CGI::end_body();
44 :     exit;
45 :     }
46 :    
47 :     if ($FIG_Config::readonly)
48 :     {
49 :     CGI::param("user", undef);
50 :     }
51 :     use SAPserver;
52 :     use ServRole;
53 :    
54 :     #
55 :     # This file is part of an application created with create-new-page.
56 :     # The implementation module is FigKernelScripts/ServRole.pm.
57 :     # The SeedViewer page module is SeedViewer/WebPage/SeedViewerServeRole.pm.
58 :     # The CGI script is FigWebServices/serv_role.cgi.
59 :     #
60 :     # The SeedViewer url is http://yourseed/seedviewer.cgi?page=SeedViewerServeRole
61 :     # The CGI url is http://yourseed/serv_role.cgi
62 :     #
63 :    
64 :    
65 :     use strict;
66 :     use FIG;
67 :     use CGI;
68 :    
69 :     my $cgi = CGI->new;
70 :     my $fig = FIG->new;
71 :     my $sap = SAPserver->new();
72 :    
73 :     my $user_name = $cgi->param("user");
74 :    
75 :     my $my_url = "serv_role.cgi";
76 :    
77 :     my($html, $title) = ServRole::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);
78 :    
79 :     print $cgi->header;
80 :     print "<title>$title</title>";
81 :     print $html;
82 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3