perl-asp mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Steve Lilley <slil...@vaultranet.com>
Subject MailErrors.inc expansion for array refs found in Form and QueryString
Date Tue, 09 Dec 2003 18:45:54 GMT
During the maintenance of our web application, Stuart Johnston and 
myself noticed the email error report was nice but did not expand the 
array references. Here is the diff for the adjustments we thought would 
help.

#MailErrors.inc
14c14
<          map { "$_= ".$Server->HTMLEncode(substr($Query->{$_}, 0, 100)) }
---
 >          map { "$_= ".$Server->HTMLEncode(substr((ref $Query->{$_} eq 
'ARRAY')?'['.join(', ', @{$Query->{$_}}).']':$Query->{$_}, 0, 100)) }
18c18
<         map { "$_= ".$Server->HTMLEncode(substr($Form->{$_}, 0, 100)) }
---
 >         map { "$_= ".$Server->HTMLEncode(substr((ref $Form->{$_} eq 
'ARRAY')?'['.join(', ', @{$Form->{$_}}).']':$Form->{$_}, 0, 100)) }

Just our 2 cents.

Steve Lilley, CISSP
slilley@VaultraNet.com
Direct - 972.661.9456
Toll Free - 866.447.2203
www.VaultraNet.com


---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org


Mime
View raw message