CGI::Untaint
|
use CGI::Untaint; my $q = new CGI; my $handler = CGI::Untaint->new( $q->Vars ); my $handler2 = CGI::Untaint->new({ INCLUDE_PATH => 'MyRecipes', }, $apr->parms); my $name = $handler->extract(-as_printable => 'name'); my $homepage = $handler->extract(-as_url => 'homepage'); my $postcode = $handler->extract(-as_postcode => 'address6'); # Create your own handler... package MyRecipes::CGI::Untaint::legal_age; use base 'CGI::Untaint::integer'; sub is_valid { shift->value > 21; } package main; my $age = $handler->extract(-as_legal_age => 'age'); |