| | 86 | |
| | 87 | # These parameters are strictly numeric; invalid request if they |
| | 88 | # are given and are not |
| | 89 | foreach my $param ( qw( blog_id limit offset SearchMaxResults ) ) { |
| | 90 | my $val = $q->param($param); |
| | 91 | next unless defined $val && ($val ne ''); |
| | 92 | return $app->errtrans( 'Invalid [_1] parameter.', $param ) |
| | 93 | if $val !~ m/^\d+$/; |
| | 94 | } |
| | 95 | foreach my $param ( qw( IncludeBlogs ExcludeBlogs ) ) { |
| | 96 | my $val = $q->param($param); |
| | 97 | next unless defined $val && ($val ne ''); |
| | 98 | return $app->errtrans( 'Invalid [_1] parameter.', $param ) |
| | 99 | if $val !~ m/^(\d+,?)+$/; |
| | 100 | } |