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

Annotation of /FigWebServices/serv_index.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : olson 1.1 #!/usr/bin/env/perl -w
2 :     use SAPserver;
3 :     use ServIndex;
4 :    
5 :     #
6 :     # This file is part of an application created with create-new-page.
7 :     # The implementation module is FigKernelPackages/ServIndex.pm.
8 :     # The SeedViewer page module is SeedViewer/WebPage/SVServIndex.pm.
9 :     # The CGI script is FigWebServices/serv_index.cgi.
10 :     #
11 :     # The SeedViewer url is http://yourseed/seedviewer.cgi?page=SVServIndex
12 :     # The CGI url is http://yourseed/serv_index.cgi
13 :     #
14 :    
15 :    
16 :     use strict;
17 :     use FIG;
18 :     use CGI;
19 :     use Data::Dumper;
20 :     use Carp;
21 :     use FIG_Config;
22 :    
23 :    
24 :     my $cgi = CGI->new;
25 :     my $fig = FIG->new;
26 :     my $sap = SAPserver->new();
27 :    
28 :     my $user_name = $cgi->param("user");
29 :    
30 :     my $my_url = "serv_index.cgi";
31 :    
32 :     my($html, $title) = ServIndex::run($fig, $cgi, $sap, $user_name, $my_url, '', undef);
33 :    
34 :     print $cgi->header;
35 :     print "<title>$title</title>";
36 :     print $html;
37 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3