sub getUserEntry {
print header( "text/html" ),
start_html( "User Validation" ),
$header,
h3( "Entry Validation" ),
start_form,
hr,
p("Please enter the characters in the image at the bottom of the page"),
textfield(
-name => "UserEntry",
-size => 15
),
br,
br,
submit(
-name => "CodeValidation",
-value => " Enter the Code "
),
br,
br,
hr;
print end_form;
print "\";
print $footer;
print end_html;
return;
}
####
If the param( 'CategoryRequest' ) exists:
create the captcha;
get the user's response;
If the user's response exists: <-- but this is never true
check it against the real answer;
do other things based on results of check