to be more fully compliant with ActiveState's PerlScript
we need the following methods on Apache::ASP::Collection
object.
sub Count <-- # of keys in $Request->QueryString or $Request->Form
sub Key {
my ($self, $keynum) = @_;
}
attached are two test files & sample output under windows.
jr
--
------------------------------------------------------------------------
Joel W. Reed 412-257-3881
--------------All the simple programs have been written.----------------
Title: test page
test page
<%@ LANGUAGE=PerlScript %>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
<title>test page</title>
</head>
<body>
test page results<br>
<br>
<br>
<%
my $lname = $Request->Form("lname")->Item();
$Response->Write("lname from Request->Form(\"lname\")->Item(): " . $lname);
%>
<br>
<%
my $cnt = $Request->Form()->Count();
$Response->Write("lname from Request->Form()->Count(): " . $cnt);
%>
<br>
<%
for (my $i = 1; $i < $cnt; $i++)
{
$Response->Write("key $i is " . $Request->Form()->Key($i) . "<br>\n");
}
%>
</body>
</html>
Title: test page
test page resultslname from Request->Form("lname")->Item(): reed
lname from Request->Form()->Count(): 4
key 1 is fname
key 2 is mname
key 3 is lname
PGP signature