1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
require 5;
use strict; # Be strict !
use integer; # Be fast !
use vars qw(%config %text $exim);
# Helpers sub
sub display_error_page
{
header($text{error}, '', undef, 1, 1);
print '<hr/>', "\n";
print '<p>', text(@_), '</p>', "\n";
print '<br/>', "\n";
print '<hr/>', "\n";
footer('/', $text{index_return});
}
sub parse_CGI
{
my $cgi = shift;
my $length = shift;
my $valid_chars = shift;
my @in = @_;
my $valid_cgi = substr $cgi, 0, $length;
eval "\$valid_cgi =~ tr/$valid_chars//c";
if (@in) {
return (grep /^$valid_cgi$/, @in)?$valid_cgi:undef
}
return $valid_cgi;
}
1;
|
