Card Declined
Click your Browser's BACK button
and make sure the information is correct
or use a different credit card.") ;
}
}
if ($Action eq "CONTINUE") {
$Form{chipcode} =~ s/ //g;
$Form{chipcode} =~ s/-//g;
$Form{chipcode} =~ tr [a-z] [A-Z] ;
if ($Step == 0) {
&form_begin("form1","$FORM1");
if($STYLE eq "PAYMENT" && $NoPaymentPassword ne "YES"){
print "Enter Your Payment ID and Password
";
}else{
# if($CompanyID eq "cigna"){&AskSigningUp;}
print "If you have a Comfort Signups
";
print "participant profile enter information
";
}
print "ID: ";
&FORM_input("text","ProfileID","",10);
print "Password: "; &FORM_input("password","ProfilePassword","",10);
if($STYLE ne "PAYMENT"){
# print "
NOTE: Due to error, all profiles saved before";
# print "
April 13th 2007, were lost. Sorry! ";
print "
";
print "If you DO NOT have a profile, you can save one
";
print "at the end of the registration process.
";
}
&form_end("1") ;
&html_footer;
exit;
}
}
if ($Action eq "COMPLETE") {
&add_to_file;
# &mail_ack ;
exit ;
}
if ($Action eq "CONTINUE") {
if ($Step == 1) {
if ($isProfile) {
print "Welcome back $firstname $lastname
\n";
}
&help_script;
&form_begin("form1","$FORM1");
&get_waiver_ok;
# $CorpSignup ="checked";
# if($SeriesID ne "") { &ShowSeries ;}
if($CorpSignup eq "checked") { &AskSigningUp; }
&form_end($Step+1);
&html_footer;
}
if ($Step == 2) {
&Table_End;
&form_begin("form1","$FORM1");
if ($Form{signup_type} eq "GROUP") {
$Group = "YES" ;
print "";
}
&FORM_input("hidden","PaperEntry","$Form{PaperEntry}");
if ($isProfile) {print ""; }
if($Form{CorporInd} eq "CorpTeam"){
print"Please Enter Company Contact/Captian Information\n";
print "
Company Name\n";
print "Team Name \n";
if(-f "$incdir/$Event/TeamList.csv"){$TEAMNAMES.=" $incdir/$Event/TeamList.csv";}
# if($CompanyID eq "cigna"){$TEAMNAMES.=" $incdir/Corporate/TeamList.csv";}
&teamnames;
$CorpBypassOn = "";
}
print"";
if($Form{CorporInd} eq "CorpTeam"){
print"Team Contact Information\n";
}
$Country_List ='';
$Country_List ="";
$State_List ="";
$State_List = '';
if(-f "/var/www/custom/html/State_list.html"){
$State_List = `$CAT /var/www/custom/html/State_list.html`;
if(-f "$incdir/$Event/state_list.txt"){@Add_States=` $CAT $incdir/$Event/state_list.txt`;}
foreach $newState (@Add_States) {
chomp($newState);
($st_opt,$st_desc) = split(/\=/,$newState);
$State_List .= ""
}
$State_List .= ""
}
$State_List ="";
if ($STYLE eq "TICKETS" || $STYLE eq "CONCERT"){
$CorpBypassOn = "";
}
if ($STYLE ne "PAYMENT"){
print &getTemplate('/var/www/custom/html/racereg.html');
print &getTemplate('/var/www/custom/html/racereg2.html');
print &getTemplate('/var/www/custom/html/racereg3.html');
} else {
print &getTemplate('/var/www/custom/html/payments.html');
}
print '';
if($SeriesID ne "") { &ShowSeries ;}
# if($WaveStart ne "") {
$EvCatCnt = 0;
# foreach (`$CAT $incdir/$Event/category.txt`) {
# if($EvCatCnt == 0){
# print "Please Select Your Event Category | ";
print "Please Select Your Event Category \n"; print " | ||
| \n"; print "$CatName | "; print "$CatExtra | \n"; print "\$$CatFee\n |
Please enter
LAST NAME,FIRST NAME,AGE(on Race Day),GENDER(M or F)";
if ($FreeShirt) {print ",Shirt Size(as listed above)"; }
print " seperated by commas:
| Last Name | First Name | Age (Event Day) | Gender | \n"; if ($FreeShirt) {print "Shirt Size | \n";} print "|
|---|---|---|---|---|---|
| "; print " | "; print " | "; print " | M "; print "F | "; if ($FreeShirt) { print ""; } print " |
"; &Table_Start; $ChipRace =~ tr [a-z] [A-Z]; if($ChipRace eq "CHECKED"){$ChipRace = "YES";} $MODE1 = "DISPLAY"; if($ChipRace eq "YES" && $Form{CorporInd} ne "CorpTeam"){&pr_chipinfo;} if ($ClyFyl eq "YES") { print "
Clydesdale/Filly ";
print "Check here only if you are male 190+ pounds or female 140+ pounds. $RACE\n" ;
if($FEE > 0){
print "\$ ";
print sprintf ("%5.2f",$FEE);
}
print " Check here to";
print " remember above the information as a ";
print "Comfort Signup Profile.
\n";
}
if($UseTeams eq "checked" && $Form{CorporInd} ne "CorpTeam"){ &teamnames; }
if ($Form{signup_type} eq "BYPASS"){
open (ST2,"/$incdir/$Event/bypassoptions.htm");
while (";
# print sprintf(" ";
&Table_End;
if($EvCatCnt == 0){
if($STYLE eq "TICKETS"){$rpalign="center";}else{$rpalign="left";}
print "\$%9.2f ",$EventFee );
# print "
\n";
print "Click the browser BACK BUTTON to go back and make any corrections
\n";
}
$require="lastname,firstname";
if($STYLE ne "PAYMENT" && $STYLE ne "TICKETS"){$require=$require.",gender,DOBmonth,DOBday,DOByear";}
$require= $require.",city,state,zip,email,email2,Phone,shirt_size";
if($AskCountry ne "") {$require = $require.",country";}
# $require="lastname,firstname,gender,DOBmonth,DOBday,DOByear,city,state,zip,email,email2,Phone,shirt_size";
$sdlname = $Form{lastname};
$sdfname = $Form{firstname};
$sdfname =~ s/ //g;
$sdfname =~ s/\.//g;
$sdlname =~ s/ //g;
$sdlname =~ s/\.//g;
$sdtos = substr($sdlname,0,1);
$sdtos .= substr($sdlname,length($sdlname)-1,1);
$sdtos .= substr($sdfname,0,1);
# $sdtos .= substr($dtos,6);
$control = "$dtos-$ttos-$sdtos" ;
$control =~ tr [a-z] [A-Z] ;
# print "";
&form_end($Step+1,"$NEXT");
}
}
if ($Action eq "FINISH") {
if ($Step == 5) {
# $TYPE="ON-LINE";
# &FORMinput("hidden","RaceDayAge","0");
$FEE = $ONLINEFEE;
$FEE = $EventFee;
if ($Form{team_name} eq "NONE") { $Form{team-name} == "" ;}
if ($Form{Group} eq "YES" || $Form{Group} eq "ON") {
$Group = "YES";
$FEE = $MAILINFEE;
$TYPE="MAIL-IN";
}
# if ($TYPE eq "ON-LINE") {
# &CC_Verify;
# $last4 = "XXXX-XXXX-XXXX-".substr($cardnumber,length($cardnumber)-4,4) ;
# }else {$FEE = $MAILINFEE; }
&calcage;
$MODE1 = "DISPLAY";
&Step3A ;
if ($Form{lastname} eq "BOULTON" && $Form{firstname} eq "BENN") {
print "$Form{EventID}
--";
&return_html ;
}
&html_footer;
# if ($TYPE eq "ON-LINE") { &ccgetinfo; }
# if ($TYPE eq "MAIL-IN") { $Step = 4; }
if ($Adjustment eq "INCLUDED") {
if($Address_VCode eq "Y"){ $PercentMore = 0;}
$TeamMemberAdd = 0;
$DiVisor = $PercentAdd+$PercentMore ;
$ServiceCharge = int($TOTAL * $DiVisor * 100)/100 + $FlatAdd ;
if ($CompanyID eq "prponh" && $ServiceCharge == 2.05){
# $ServiceCharge = 2.00 ;
}
if ($TotalTeam > 1) {
$ServiceCharge = int($TOTAL*$DiVisor * 100)/100 + ($FlatAdd*$TotalTeam) ;
}
if($ServiceCharge < $MinServiceCharge) {$ServiceCharge = $MinServiceCharge;}
$FEE = $TOTAL - $ServiceCharge ;
$FEE =~ s/ //g;
$TOTAL = $FEE ;
$FEE = sprintf("%9.2f",$FEE ) ;
}
$CSVFILE = "$incdir/$Event/regfiles/$Config{control}";
if (-f "$CSVFILE") {
}else {
$RunnerFirst = $Form{firstname};
$RunnerLast = $Form{lastname};
if($SeriesAdd > 0) {
$X_Event = $Event;
# (@Series)=split(/\, /,$Form{SeriesEvent});
foreach (@Series){
(@SerEV)=split(/\|/,$_);$Event = "$SerEV[0]/$SerEV[1]";
$TOTAL = $SerEV[2];
$RACE = $SerEV[3];
if ($SerEV[4] eq "ADD"){
$ServiceCharge = (($TOTAL +$FlatAdd) * $PercentAdd)+$FlatAdd ;
}else{
$DiVisor = $PercentAdd+$PercentMore ;
$ServiceCharge = int($TOTAL * $DiVisor * 100)/100 + $FlatAdd ;
}
if($ServiceCharge < $MinServiceCharge) {$ServiceCharge = $MinServiceCharge;}
if($TYPE eq "ON-LINE"){&make_ccdata ;&add_to_cc_file ; }
if ($CompanyID eq 'nedin'){ print " Ta ";}
&do_file_stuff;
}
$TOTAL = $EventFee;
}
if($TYPE eq "ON-LINE"){&make_ccdata ;&add_to_cc_file ; }
if($TotalTeam > 0) {
$X_TOTAL = $TOTAL ;
$X_SERVICECHARGE = $ServiceCharge;
$T_COMPANY = $Form{CompanyName} ;
$T_ADDRESS = $Form{address} ;
$T_CSZ = "$Form{city} $Form{state} $Form{zip}" ;
$T_CONTACT = "$Form{firstname} $Form{lastname}";
$T_EMAIL = $Config{email} ;
$T_PHONE = "$Phone $Form{phone2}" ;
foreach (@TeamMember){
if ($Adjustment eq "INCLUDED") {
$TOTAL = $FEE;
$FlatAdd = $TeamMemberAdd;
if($Address_VCode eq "Y"){ $PercentMore = 0;}
$DiVisor = $PercentAdd+$PercentMore ;
$ServiceCharge = int($TOTAL * $DiVisor * 100)/100 + $FlatAdd ;
$FEE = $TOTAL - $ServiceCharge ;
$FEE =~ s/ //g;
$TOTAL = $FEE ;
$FEE = sprintf("%9.2f",$FEE ) ;
}else {
$TOTAL= $EventFee;
$ServiceCharge = (($TOTAL +$TeamMemberAdd) * $PercentAdd)+$TeamMemberAdd ;
# $TOTAL = $TOTAL - $ServiceCharge ;
}
(@tmemberinfo) = split(/\^/,$_);
$Form{firstname}=$tmemberinfo[0];
$Form{lastname}=$tmemberinfo[1];
$Form{gender}=$tmemberinfo[2];
$Form{RaceDayAge} = $tmemberinfo[3];
$Form{city}=$tmemberinfo[4];
$Form{state}=$tmemberinfo[5];
$Form{shirt_size}=$tmemberinfo[6];
$Form{Chipcode}= $tmemberinfo[7];
#$Form{team_name} .= $Form{CompanyTeam};
$Form{zip}= "";
if ($CompanyID eq 'nedin'){ print " Tb ";}
&do_file_stuff;
}
}else{
if ($CompanyID eq 'nedin'){ print " Tc ";}
&do_file_stuff;
}
#if($Form{PaperEntry} eq "YES"){ print "";exit;}
&send_ack;
if ($Form{Save_Me} eq "SAVE_ME") { &SaveMe; }
# &do_alert;
}
}
}
exit ;
sub do_file_stuff {
if ($CompanyID eq 'nedin'){ print " T1 ";}
&make_filedata;
if ($CompanyID eq 'nedin'){ print " T3 ";}
&add_to_file;
if ($CompanyID eq 'nedin'){ print " T2 ";}
&save_data;
if ($CompanyID eq 'nedin'){ print " T4 ";}
}
sub form_begin {
local($formname,$formaction) = @_;
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 ($require eq 'cardemail' && !&check_email($Form{$require})) {
push(@error,$require);
}
# 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 .= "
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 at the event.";}
if($CloseLink ne ""){ $error="$error
More Information";}
}
if ($error eq 'NoEvent') {
$error = " NOT a valid Event.";
}
print "$error";
&error_footer;
print "$isNow - $EventStart - $EventStop";
exit;
}
sub error_header {
&html_header("","bgcolor=#FFFFFF text=#000000");
print <<"(END ERROR HTML)";
$racetitle1