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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
#!/usr/bin/perl /usr/bin/asp-perl
<%
# This code was ripped almost straight out of CGI.pm, by Lincoln Stein.
# The code was the bulk of the SYNOPSIS section of CGI.pm v2.46
;
use strict;
use CGI qw(:standard);
my $query = new CGI;
my $cookie;
my $name;
if($name = param('name')) {
$cookie = cookie(-name=>'name',
-value=>$name,
-expires=>'+1h',
);
}
$name ||= cookie('name');
print header(-cookie=>$cookie);
%>
<!--#include file=header.inc-->
<% print
h1('A Simple Example'),
start_form,
"What's your name? ",textfield('name'),p,
"What's the combination?", p,
checkbox_group(-name=>'words',
-values=>['eenie','meenie','minie','moe'],
-defaults=>['eenie','minie']), p,
"What's your favorite color? ",
popup_menu(-name=>'color',
-values=>['red','green','blue','chartreuse']),p,
submit,
end_form,
hr;
if (param()) {
print "Your name is ",em($name),p,"\n",
"The keywords are: ",em(join(", ",param('words'))),p,"\n",
"Your favorite color is ",em(param('color')),"\n",
hr;
}
%>
This script is a demonstration of using the CGI.pm library
in an ASP script. Please remember that using CGI.pm will
probably NOT be portable with PScript and PerlScript.
<p>
As of version 0.09, you may use CGI for reading form input
without any change to regular use of CGI. Before, you couldn't
do a <pre> use CGI; </pre> by itself, as it would try to read
form input that had already been loaded into $Request->Form().
Form input is now cached, and may be loaded into CGI as well.
In short, use of CGI.pm is now transparent in Apache::ASP,
as both output and input have been merged seemlessly.
<p>
<a href="source.asp?file=<%=$Request->ServerVariables("SCRIPT_NAME")%>">
view this file's source
<%
print end_html;
%>
|
