Last single page example : perl handling.
the GSP source page : perl.gsp |
<html>
<%@ language="perl"
mime type = "text/html"
%>
<%!
#
# a comment to test the ! tag
#
%>
<body>
<%
$hello="Hello world";
$a=20;
$b=22;
$c=$a+$b;
%>
<h1><%=$hello%></h1>
<p>The answer is <%=$c%></p>
</body>
</html>
Invoking GSP to produce the cgi perl script |
bash# gsp -o gsp-perl.pl -m perl.gsp
This command will produce one file :
gsp-perl.pl : the cgi shell script
gsp-perl.pl
#!/usr/bin/perl
#
# a comment to test the ! tag
#
sub perl_gsp {
print "Content-Type: ";
print "text/html";
print "\n\n";
print "<html>\n";
print "\n";
print "\n<body>\n";
$hello="Hello world";
$a=20;
$b=22;
$c=$a+$b;
print "\n<h1>";
print $hello;
print "</h1>\n<p>The answer is ";
print $c;
print "</p>\n</body>\n</html>\n";
}
$defaultPage="perl.gsp";
$requestedPage=$ENV{PATH_INFO};
if ($requestedPage eq "") { $requestedPage=$defaultPage; }
$firstChar=substr $requestedPage,0,1;
if ($firstChar eq "/") { $requestedPage=substr $requestedPage,1; }
GSPPAGESELECT: {
if ($requestedPage eq "perl.gsp") {perl_gsp; last GSPPAGESELECT;}
}
Just copy it to your http server cgi-bin folder.
|
last update 01/18/2004 - 17:27 |