\n";
}
if ($Caption eq "Finish") { print "CLICK FINISH ONLY ONCE "; }
}
print "\n";
}
sub parse_form {
# Define the configuration associative array. #
%Config = ('recipient','', 'subject','',
'email','', 'realname','',
'redirect','', 'Step','',
'background','', 'control','',
'vlink_color','', 'NextStep','',
'alink_color','', 'title','',
'sort','', 'print_config','',
'required','', 'env_report','',
'return_link_title','', 'return_link_url','',
'print_blank_fields','', 'missing_fields_redirect','',
'Action','', 'ContactEmail','',
'email2','', 'XontactEmail','');
# print " METHOD = $ENV{'REQUEST_METHOD'}" ;
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
# Split the name-value pairs
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$buffer .= "&RaceDayAge=0";
# Split the name-value pairs
@pairs = split(/&/, $buffer);
}
else {
# &Login ;
&error('request_method');
}
# For each name-value pair: #
foreach $pair (@pairs) {
# Split the pair up into individual variables. #
local($name, $value) = split(/=/, $pair);
# Decode the form encoding on the name and value variables. #
# v1.92: remove null bytes #
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ tr/\0//d;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/\0//d;
# $value =~ s/\,//g;
# If the field name has been specified in the %Config array, it will #
# return a 1 for defined($Config{$name}}) and we should associate #
# this value with the appropriate configuration variable. If this #
# is not a configuration form field, put it into the associative #
# array %Form, appending the value with a ', ' if there is already a #
# value present. We also save the order of the form fields in the #
# @Field_Order array so we can use this order for the generic sort. #
if (defined($Config{$name})) {
$Config{$name} = $value;
}
else {
if ($Form{$name} ne '') {
$Form{$name} = "$Form{$name}, $value";
}
else {
push(@Field_Order,$name);
if($name eq "TeamMembers"){
$value =~ tr [a-z] [A-Z] ;
$value =~ s/\,/^/g;}
if($name ne "KidsNames"){
$value =~ s/\,/ /g;
}
# $value =~ tr [a-z] [A-Z] ;
$Form{$name} = $value;
}
}
}
# The next six lines remove any extra spaces or new lines from the #
# configuration variables, which may have been caused if your editor #
# wraps lines after a certain length or if you used spaces between field #
# names or environment variables. #
$Config{'required'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'required'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'env_report'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'env_report'} =~ s/(\s+)?\n+(\s+)?//g;
$Config{'print_config'} =~ s/(\s+|\n)?,(\s+|\n)?/,/g;
$Config{'print_config'} =~ s/(\s+)?\n+(\s+)?//g;
# Split the configuration variables into individual field names. #
@Env_Report = split(/,/,$Config{'env_report'});
@Print_Config = split(/,/,$Config{'print_config'});
# ACCESS CONTROL FIX: Only allow ENV variables in @valid_ENV in #
# @Env_Report for security reasons. #
foreach $env_item (@Env_Report) {
foreach $valid_item (@valid_ENV) {
if ( $env_item eq $valid_item ) { push(@temp_array, $env_item) }
}
}
@Env_Report = @temp_array;
}
sub check_required {
# Localize the variables used in this subroutine. #
local($require, @error);
# The following insures that there were no newlines in any fields which #
# will be used in the header. #
@Required = split(/,/,$Config{'required'});
if ($Config{'subject'} =~ /(\n|\r)/m || $Config{'email'} =~ /(\n|\r)/m ||
$Config{'realname'} =~ /(\n|\r)/m || $Config{'recipient'} =~ /(\n|\r)/m) {
&error('invalid_headers');
}
if (!$Config{'recipient'}) {
if (!defined(%Form)) { &error('bad_referer') }
else { &error('no_recipient') }
}
else {
# This block of code requires that the recipient address end with #
# a valid domain or e-mail address as defined in @recipients. #
$valid_recipient = 0;
foreach $send_to (split(/,/,$Config{'recipient'})) {
foreach $recipient (@recipients) {
if ($send_to =~ /$recipient$/i) {
push(@send_to,$send_to); last;
}
}
}
if ($send_to < 0) { &error('no_recipient') }
$Config{'recipient'} = join(',',@send_to);
}
# For each require field defined in the form: #
foreach $require (@Required) {
# If the required field is the email field, the syntax of the email #
# address if checked to make sure it passes a valid syntax. #
if ($require eq 'email' && !&check_email($Config{$require})) {
push(@error,$require);
}
# Otherwise, if the required field is a configuration field and it #
# has no value or has been filled in with a space, send an error. #
elsif (defined($Config{$require})) {
if ($Config{$require} eq '') { push(@error,$require); }
}
# If it is a regular form field which has not been filled in or #
# filled in with a space, flag it as an error field. #
elsif (!defined($Form{$require}) || $Form{$require} eq '') {
push(@error,$require);
}
}
# If any error fields have been found, send error message to the user. #
if (@error) { &error('missing_fields', @error) }
}
sub notnow {
# Localize variables and assign subroutine input. #
local($error,@error_fields) = @_;
&html_header;
&error_header;
if ($error eq 'NotYet') {
$error = " Sorry $EventName Registrations Are Not Activated Yet.";
$error .= " ";
# $error .= " Please come back after ";
# if($TimeOn >1159) {
# $error .= substr($TimeOn,0,2) -12;
# }else{
# $error .= substr($TimeOn,0,2);
# }
# $error .= ":".substr($TimeOn,2,2);
# if($TimeOn <1159) {$error .= "am";}else{$error .= "pm";}
$error .= " on ";
$error .= substr($EventOn,4,2)."/";
$error .= substr($EventOn,6,2)."/";
$error .= substr($EventOn,0,4);
}
if ($error eq 'TooLate') {
$error = " Sorry $EventName Online Registrations Are CLOSED. ";
if($RaceDayReg eq "YES"){ $error="$error You can still register on race day.";}
if($CloseLink ne ""){ $error="$error More Information";}
}
if ($error eq 'NoEvent') {
$error = " NOT a valid Event.";
}
print "$error";
&error_footer;
print " 22 $isNow - $EventStart - $EventStop";
exit;
}
sub error_header {
&html_header("","bgcolor=#FFFFFF text=#000000");
print <<"(END ERROR HTML)";
$racetitle1
(END ERROR HTML)
}
sub error_footer{
print <<"(END ERROR HTML)";
