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

Annotation of /FigWebServices/serv_feature.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : disz 1.1 use SAPserver;
2 :     use ServFeature;
3 :    
4 :     #
5 :     # This file is part of an application created with create-new-page.
6 :     # The implementation module is FigKernelScripts/ServFeature.pm.
7 :     # The SeedViewer page module is SeedViewer/WebPage/SeedViewerServeFeature.pm.
8 :     # The CGI script is FigWebServices/serv_feature.cgi.
9 :     #
10 :     # The SeedViewer url is http://yourseed/seedviewer.cgi?page=SeedViewerServeFeature
11 :     # The CGI url is http://yourseed/serv_feature.cgi
12 :     #
13 :    
14 :    
15 :     use strict;
16 :     use FIG;
17 :     use CGI;
18 :    
19 :     my $cgi = CGI->new;
20 :     my $fig = FIG->new;
21 :     my $sap = SAPserver->new();
22 :    
23 :     my $user_name = $cgi->param("user");
24 :    
25 :     my $my_url = "serv_feature.cgi";
26 :    
27 :     my($html, $title) = ServFeature::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);
28 :    
29 :     print $cgi->header;
30 :     print "<title>$title</title>";
31 :     print $html;
32 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3