Willis — Thu, 16 Dec 1999 02:08:00 +0000

Ok, thanks.

Rob Pengelly — Thu, 16 Dec 1999 00:29:00 +0000

I will give you an example of what I do.

Than at the start of the script I have:

Code Sample:
&GetFormInput; sub GetFormInput { (*fval) = @_ if @_ ; local ($buf); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN,$buf,$ENV{'CONTENT_LENGTH'}); } else { $buf=$ENV{'QUERY_STRING'}; } if ($buf eq "") { return 0 ; } else { @fval=split(/&/,$buf); foreach $i (0 .. $#fval){ ($name,$val)=split (/=/,$fval[$i],2); $val=~tr/+/ /; $val=~ s/%(..)/pack("c",hex($1))/ge; $name=~tr/+/ /; $name=~ s/%(..)/pack("c",hex($1))/ge; if (!defined($field{$name})) { $field{$name}=$val; } else { $field{$name} .= ",$val"; } } } return 1; } $inputemail = $field{'email'} ; $inputname = $field{'name'} ;

Than whatever was inside the email <input box> would be in the variable $inputemail, and whatever was in the name <input box> would be in $inputname

------------------
A 'jiffy' is an actual unit of time for 1/100th of a second.