#!/usr/bin/perl -w
use CGI;
my $cgi = new CGI;
print $cgi->header;
my $message = $cgi->param('message');
my $figlet = "";
# Do not try to pull out "bad" characters, like ";".
# Instead, only allow the minimal needed set of "good" characters.
if ($message =~ /[^a-zA-Z0-9 ]/) {
$figlet =
"OOPS
" .
"Your message contains illegal characters
" .
"Please use only letters and numbers without puncuation.";
}
elsif ($message) {
$figlet =
"" .
`cd figlet/figlet22; ./figlet $message` .
"\n";
}
print <<"END_HTML";
cgi figlet two
cgi figlet two
only allowed characters are a-z A-Z 0-9
END_HTML