1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
<html>
<head>
<title>Embperl Examples - If Metacommands</title>
</head>
<body background="../images/jazzbkgd.gif">
<h1>Embperl Examples - If Metacommands</h1>
<hr><h3>The following displays an sentence depending on the method (GET, POST, other)</h3>
[$ if $ENV{REQUEST_METHOD} eq 'GET' $]
This is a GET request
[$ elsif $ENV{REQUEST_METHOD} eq 'POST' $]
This is a POST request
[$ else $]
This is not GET and not POST
[$ endif $]
<hr><h3>The following displays an different sentence depending on the show parameter</h3>
[$ if $fdat{show} eq 'yes' $]
The show parameter is 'yes'
[$ elsif $fdat{show} eq 'no' $]
Nothing to show
[$ else $]
Request with if.htm?show=yes<BR>
of with if.htm?show=no<BR>
[$ endif $]
<p><hr>
<small>HTML::Embperl (c) 1997-1998 G.Richter</small>
</body>
</html>
|
