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

Annotation of /FigWebServices/ShowPage.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download)

1 : parrello 1.1 #!/usr/bin/perl -w
2 :    
3 :     # This module simply displays a page. The page location is given by the directory location
4 :     # in the form variable "Path", and the file name in the form variable "DocMenu".
5 :    
6 :     use strict;
7 :     use CGI;
8 :    
9 :     # Get the form parameters.
10 :     my $query = new CGI;
11 :     # Form the target URL.
12 :     my $target = $query->param('Path') . $query->param('DocMenu');
13 :     # Redirect to it.
14 :     print "CONTENT-TYPE: text/html\n";
15 :     print "LOCATION: $target\n\n";
16 :    
17 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3