CGI Paramater Validation

Where To Now?

28 of 32 : [PREV] [NEXT]

The Next Step

sub ParseParams {
  # load the basic rules
  my $rules = LoadRules($_[0]);

  # load the tainted CGI params
  my $cgi = new CGI();
  my @params = map { $_,$cgi->param($_) } $cgi->param;

  use Params::Validate qw(:all);
  my $profile = _convert2paramsvalidate($rules);
  my %params = validate( @params, $profile );

  use Params::Check qw[check];
  $profile = _convert2paramscheck($rules);
  my $params = check( $profile, \%params, $VERBOSE )
    or die [Could not parse arguments!];

  use Data::FormValidator;
  $profile = _convert2formvalidator($rules);
  my $results = Data::FormValidator->check($params, $profile);
}

Home

http://birmingham.pm.org/