Hi people,

I know this isn't the Perl mailling list but I hoped that someone who knows
it well enough and has possibly done something similar to this may be able
to help me quickly and if they wish, off the list.

I am submitting a FORM on a web page and want to make sure noone tries to
exploit commands submitted to the POST action, so PerlDocs showed something
like this...

   if ($data =~ /^([-\@\w.]+)$/) {
        $data = $1;                     # $data now untainted
    } else {
        die "Bad data in $data";        # log this somewhere
    }  

I tried this and it seemed to work in a test.cgi program but on the live one
it keeps saying the data is bad even when the dat submitted contained only
TEXT characters..

I really don't understand the test line above but it says that it only
allows text,@,-,.,0-9 characters only.

any help would be great.
thanks,
George Vieira
Systems Manager
Citadel Computer Systems P/L

-- 
SLUG - Sydney Linux User Group Mailing List - http://slug.org.au/
More Info: http://lists.slug.org.au/listinfo/slug

Reply via email to