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

Annotation of /FigWebServices/blank_svp.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : olson 1.1
2 :     use SAPserver;
3 :     use BlankSVP;
4 :    
5 :     use strict;
6 :     use FIG;
7 :     use CGI;
8 :    
9 :     my $cgi = CGI->new;
10 :     my $fig = FIG->new;
11 :     my $sap = SAPserver->new();
12 :    
13 :     my $user_name = $cgi->param("user");
14 :    
15 :     my $my_url = "blank_svp.cgi";
16 :    
17 :     my($html, $title) = BlankSVP::run($fig, $cgi, $sap, $user_name, $my_url, '');
18 :    
19 :     print $cgi->header;
20 :     print "<title>$title</title>";
21 :     print $html;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3