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

Annotation of /FigWebServices/serv_feature.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.6 - (view) (download)

1 : overbeek 1.2 use Data::Dumper;
2 :     use Carp;
3 :     use FIG_Config;
4 :     use CGI;
5 :    
6 :    
7 : disz 1.1 use SAPserver;
8 :     use ServFeature;
9 :    
10 :     #
11 :     # This file is part of an application created with create-new-page.
12 :     # The implementation module is FigKernelScripts/ServFeature.pm.
13 :     # The SeedViewer page module is SeedViewer/WebPage/SeedViewerServeFeature.pm.
14 :     # The CGI script is FigWebServices/serv_feature.cgi.
15 :     #
16 :     # The SeedViewer url is http://yourseed/seedviewer.cgi?page=SeedViewerServeFeature
17 :     # The CGI url is http://yourseed/serv_feature.cgi
18 :     #
19 :    
20 :    
21 :     use strict;
22 :     use FIG;
23 :     use CGI;
24 : disz 1.5 use Sapling;
25 : disz 1.1
26 :     my $cgi = CGI->new;
27 :     my $fig = FIG->new;
28 : disz 1.5 my $my_url = "serv_feature.cgi?";
29 :    
30 : disz 1.6 #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 $sap = SAPserver->new();
34 :     my $sapdb;
35 : disz 1.1
36 :     my $user_name = $cgi->param("user");
37 :    
38 : disz 1.5 my $env = {fig => $fig,
39 :     cgi => $cgi,
40 :     sap => $sap,
41 :     sapdb => $sapdb,
42 :     user => $user_name,
43 :     url => $my_url,
44 :     hidden_form_variable => "",
45 :     seedviewer_page_obj => ""
46 :     };
47 :    
48 :     my($html, $title) = ServFeature::run($env);
49 :    
50 : disz 1.1
51 : disz 1.5 #my($html, $title) = ServFeature::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);
52 : disz 1.1
53 :     print $cgi->header;
54 :     print "<title>$title</title>";
55 :     print $html;
56 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3