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

Diff of /FigWebServices/serv_role.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Mon Nov 28 17:37:45 2011 UTC revision 1.2, Tue Nov 29 21:17:15 2011 UTC
# Line 1  Line 1 
1  #!/usr/bin/env /vol/ross/FIGdisk/bin/run_perl  #!/usr/bin/env/perl -w
   
 BEGIN {  
     unshift @INC, qw(  
               /home/overbeek/Ross/ServerUI/NewUI  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/FigKernelPackages  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/WebApplication  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/FortyEight  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/PPO  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/RAST  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/MGRAST  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/SeedViewer  
               /vol/ross/FIGdisk/dist/releases/dev/common/lib/ModelSEED  
               /vol/ross/FIGdisk/dist/anon/common/lib  
               /vol/ross/FIGdisk/dist/anon/common/lib/FigKernelPackages  
               /vol/ross/FIGdisk/config  
   
 );  
 }  
 use Data::Dumper;  
 use Carp;  
 use FIG_Config;  
 $ENV{'BLASTMAT'} = "/vol/ross/FIGdisk/BLASTMAT";  
 $ENV{'FIG_HOME'} = "/vol/ross/FIGdisk";  
 # end of tool_hdr  
 ########################################################################  
 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);  
 }  
2  use SAPserver;  use SAPserver;
3  use ServRole;  use ServRole;
4    
5  #  #
6  # This file is part of an application created with create-new-page.  # This file is part of an application created with create-new-page.
7  # The implementation module is FigKernelScripts/ServRole.pm.  # The implementation module is FigKernelPackages/ServRole.pm.
8  # The SeedViewer page module is SeedViewer/WebPage/SeedViewerServeRole.pm.  # The SeedViewer page module is SeedViewer/WebPage/SV_ServRole.pm.
9  # The CGI script is FigWebServices/serv_role.cgi.  # The CGI script is FigWebServices/serv_role.cgi.
10  #  #
11  # The SeedViewer url is http://yourseed/seedviewer.cgi?page=SeedViewerServeRole  # The SeedViewer url is http://yourseed/seedviewer.cgi?page=SV_ServRole
12  # The CGI url is http://yourseed/serv_role.cgi  # The CGI url is http://yourseed/serv_role.cgi
13  #  #
14    
# Line 65  Line 16 
16  use strict;  use strict;
17  use FIG;  use FIG;
18  use CGI;  use CGI;
19    use Data::Dumper;
20    use Carp;
21    use FIG_Config;
22    
23    
24  my $cgi = CGI->new;  my $cgi = CGI->new;
25  my $fig = FIG->new;  my $fig = FIG->new;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3