Apache::ASP - AS PerlScript compatibility request

2001-02-15 Thread Joel W. Reed 

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. Reed412-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"
  titletest page/title
/head
body
test page resultsbr
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 results


lname 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

Re: Apache::ASP - AS PerlScript compatibility request

2001-02-15 Thread Joshua Chamas 

"Joel W. Reed" wrote:
 
 On Feb 15, [EMAIL PROTECTED] contorted a few electrons to say...
 modperl to be more fully compliant with ActiveState's PerlScript
 modperl we need the following methods on Apache::ASP::Collection
 modperl object.
 modperl
 modperl sub Count -- # of keys in $Request-QueryString or $Request-Form
 modperl
 modperl sub Key {
 modperlmy ($self, $keynum) = @_;
 modperl }

I'll be happy to roll this functionality into 2.11 release
for Apache::ASP.  If you'd like an early test version, please
let me know.

-- Josh

_
Joshua Chamas   Chamas Enterprises Inc.
NodeWorks  free web link monitoring   Huntington Beach, CA  USA 
http://www.nodeworks.com1-714-625-4051