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

View of /FigWebServices/ShowPage.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (annotate)
Fri Jan 21 15:56:19 2005 UTC (14 years, 10 months ago) by parrello
Branch: MAIN
CVS Tags: merge-trunktag-bobdev_news-2, Root-bobdev_news, merge-bobdev_news-1, merge-trunktag-bobdev_news-1, merge-bodev_news-3, caBIG-00-00-00, merge-bobdev_news-2, merge-trunktag-bodev_news-3
Branch point for: Branch-bobdev_news
no message

#!/usr/bin/perl -w

# This module simply displays a page. The page location is given by the directory location
# in the form variable "Path", and the file name in the form variable "DocMenu".

use strict;
use CGI;

# Get the form parameters.
my $query = new CGI;
# Form the target URL.
my $target = $query->param('Path') . $query->param('DocMenu');
# Redirect to it.
print "CONTENT-TYPE: text/html\n";
print "LOCATION: $target\n\n";

1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3