Never mind, got my !~ and =~ mixed up.
>The following code does not seem to allow multiple variables passed
>by checkbox multiple variables. The test always evaluates true and
>prints my error msg. Help is much appreciated.
>
>#TEST FOR BAD CHARS
>my ($name, $value);
>
>foreach $name ($q->param())
>{foreach $value ($q->param( $name ))
> {if ($value=~/^([\w\s\:\/\@\,\.\'-]+)$/i)
> {
> print <<"PrintTag";
> <html>
><head>
><STYLE type="text/css">
><!--
>BODY {
>background-color: #ffffcc;
>font-size: 12pt;
>color: #000066;
>text-align: center
>}
>H1 {
>font-size: 14pt
>}
>-->
></STYLE>
></head>
><body>
><center>
><h3>Alert!</h3>
><p align="center">I'm sorry but only letters, numbers, underscores,
><b>@</b>, hyphens, commas, single apostrophes, and periods. are
>allowed in your form fields.</p>
><p align="center">Please hit the back button of your browser and try
>again.</p>
></center>
></body>
></html>
>PrintTag
>exit(0);
> }
> }
>}
>
>
>-------------------------------
>- Teresa Raymond -
>- [EMAIL PROTECTED] -
>- http://www.mariposanet.com -
>-------------------------------
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
-------------------------------
- Teresa Raymond -
- [EMAIL PROTECTED] -
- http://www.mariposanet.com -
-------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
