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

Diff of /FigWebServices/serv_feature.cgi

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

revision 1.4, Sat Dec 3 23:39:13 2011 UTC revision 1.5, Tue Dec 13 21:22:30 2011 UTC
# Line 4  Line 4 
4  use CGI;  use CGI;
5    
6    
 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);  
 }  
7  use SAPserver;  use SAPserver;
8  use ServFeature;  use ServFeature;
9    
# Line 41  Line 21 
21  use strict;  use strict;
22  use FIG;  use FIG;
23  use CGI;  use CGI;
24    use Sapling;
25    
26  my $cgi = CGI->new;  my $cgi = CGI->new;
27  my $fig = FIG->new;  my $fig = FIG->new;
28  my $sap = SAPserver->new();  my $my_url = "serv_feature.cgi?";
29    
30    my $sapdb = Sapling->new(dbName => 'pubseed_sapling_08', dbhost => 'oak.mcs.anl.gov');
31    my $sap = SAPserver->new(sapDB => $sapdb, url => 'localhost');
32    
33  my $user_name = $cgi->param("user");  my $user_name = $cgi->param("user");
34    
35  my $my_url = "serv_feature.cgi?";  my $env = {fig => $fig,
36               cgi => $cgi,
37               sap => $sap,
38               sapdb => $sapdb,
39               user => $user_name,
40               url => $my_url,
41               hidden_form_variable => "",
42               seedviewer_page_obj => ""
43    };
44    
45    my($html, $title) = ServFeature::run($env);
46    
47    
48  my($html, $title) = ServFeature::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);  #my($html, $title) = ServFeature::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);
49    
50  print $cgi->header;  print $cgi->header;
51  print "<title>$title</title>";  print "<title>$title</title>";

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3