#!/usr/bin/perl

# "Dansie Shopping Cart"
$version = "3.21";
# A Perl Shopping Cart
# By Dansie Website Design
# Copyright © Dec 10, 1997-2001
# www.dansie.net
# cart@dansie.net
# May not be used without purchasing a license. Do not attempt to run this
# script on a site other than which it was licensed for. 
# Modification of this script other than:
# 1. Adjusting the perl path in the first line above.
# 2. Or setting the $vars variable below.
# May void your right to technical support and subject you to legal action.

# In some cases the first line above may need to be set to: #!/usr/local/bin/perl
# Or: #!/usr/bin/perl5

# Set this $vars variable to the system path location of your vars.dat file if this
# script can't auto detect it's location or if you wish to rename or relocate
# the vars.dat file. See section 7 in the ReadMe for details.
# http://www.dansie.net/cart_readme.html

$vars = "";

#####################################################################
### END OF ALL VARIABLES. DO NOT ATTEMPT TO RUN THIS SCRIPT ON A  ###
### SITE OTHER THAN WHICH IT WAS LICENSED FOR. DO NOT MODIFY THE  ###
### SCRIPT EXCEPT FOR THE $vars VARIABLE OR PERL PATH ABOVE.      ###
### MODIFYING THE SCRIPT MAY TERMINATE YOUR RIGHT TO TECHNICAL    ###
### SUPPORT AND SUBJECT YOU TO LEGAL ACTION.                      ###
#####################################################################

 if ( (!$vars) && ($ENV{'REMOTE_ADDR'} eq "127.0.0.1") ) { $vars = "C:/Dansie/Dansie_Cart/cgi-bin/vars.dat"; } $flock = 1; if (!$ENV{'DOCUMENT_ROOT'}) { $flock = 0; } $delimiter = "|"; $delimiter2 = "\\" . "$delimiter"; $merchant_security = 1; $diagnostics = 0; $vars_variable_set = "$vars"; if (!$vars && $ENV{'OS'} !~ /Windows_NT/i && $ENV{'DOCUMENT_ROOT'} ) { $vars = `pwd`; chop($vars); $script_root = "$vars"; $vars .= "/vars.dat"; $script_root2 = "$ENV{'SCRIPT_NAME'}"; $script_root2 = reverse($script_root2); until ($script_root2 !~ /\//) { chop($script_root2); } $script_root2 = reverse($script_root2); $script_root2 = "$script_root/$script_root2"; if (!-e"$vars") { $script_root = $ENV{'SCRIPT_NAME'}; $script_root2 = "$ENV{'DOCUMENT_ROOT'}$ENV{'SCRIPT_NAME'}"; $a = ""; until ($a eq "/" || $script_root eq "") { $a = chop($script_root); } $script_root = "$ENV{'DOCUMENT_ROOT'}$script_root"; $vars = "$script_root/vars.dat"; } if (!-e"$vars") { $script_root = $ENV{'SCRIPT_FILENAME'}; $script_root2 = $ENV{'SCRIPT_FILENAME'}; $a = ""; until ($a eq "/" || $script_root eq "") { $a = chop($script_root); } $vars = "$script_root/vars.dat"; } } if (!$vars && $ENV{'OS'} =~ /Windows_NT/i ) { if ($ENV{'PATH_TRANSLATED'}) { $script_root = $ENV{'PATH_TRANSLATED'}; $script_root2 = $ENV{'PATH_TRANSLATED'}; } if ($ENV{'DOCUMENT_ROOT'}) { $temp = "$ENV{'DOCUMENT_ROOT'}"; while ($temp =~ /[\\|\/]$/) { chop($temp); } if (!-e "$temp$ENV{'SCRIPT_NAME'}") { $a = ""; until ($a eq "/" || $a eq "\\" || $temp eq "") { $a = chop($temp); } } $script_root = "$temp$ENV{'SCRIPT_NAME'}"; $script_root2 = "$temp$ENV{'SCRIPT_NAME'}"; } $script_root =~ s/\\/\//g; $script_root2 =~ s/\\/\//g; $a = ""; until ($a eq "/" || $script_root eq "") { $a = chop($script_root); } $vars = "$script_root/vars.dat"; } if ( ((!-e "$vars") || (!$vars)) && (!$ENV{'OS'}) ) { if ($ENV{'DOCUMENT_ROOT'}) { $vars = `pwd`; } chop($vars); $script_root = "$vars"; $vars .= "/vars.dat"; $script_root2 = "$ENV{'SCRIPT_NAME'}"; $script_root2 = reverse($script_root2); until ($script_root2 !~ /\//) { chop($script_root2); } $script_root2 = reverse($script_root2); $script_root2 = "$script_root/$script_root2"; } if ((!-e "$vars") && !$ENV{'DOCUMENT_ROOT'} && !$ENV{'OS'} ) { $script_root = "$ENV{'PATH'}"; while ( $script_root =~ /;/ ) { chop($script_root); } $script_root .= "$ENV{'SCRIPT_NAME'}"; $script_root2 = "$script_root"; $script_root =~ s/\\/\//g; $script_root2 =~ s/\\/\//g; $a = ""; until ($a eq "/" || $script_root eq "") { $a = chop($script_root); } $vars = "$script_root/vars.dat"; } if ( ( (!-e "$vars") || (!$vars) ) && (!$ENV{'OS'}) ) { $vars = `pwd`; chop($vars); $script_root = "$vars"; $vars .= "/vars.dat"; $script_root2 = "$ENV{'SCRIPT_NAME'}"; $script_root2 = reverse($script_root2); until ($script_root2 !~ /\//) { chop($script_root2); } $script_root2 = reverse($script_root2); $script_root2 = "$script_root/$script_root2"; } if ( ((!-e "$script_root2") && (!-e "$vars")) || (( $script_root2 !~ /cart/i ) && (!-e "$vars"))  ) { if (!$script_root2) { $script_root2 = "$vars"; $a = ""; until ($a eq "/" || $script_root2 eq "") { $a = chop($script_root2); } } &diagnostics; print "Content-type: text/html\n\n"; print "<CENTER><H3>Congratulations! You've successfully uploaded the Dansie Shopping Cart and chmoded the permissions 755 or better, but the cart script can't auto detect it's system path at: <B>\"$script_root2\"</B> because your host has unusual environment variables.</H3></CENTER><BR>"; print "<UL><LI>First, Make sure that your <B>vars.dat</B> file is in the same directory as the cart.pl script. <LI>You may need to set one variable manually at the top of the cart.pl script. See the <B>ReadMe</B> section 7 for detailed instructions.</UL><BR>"; print "<B>Ways to determine your system paths:</B><BR>"; print "<UL><LI>The system path found in the location window at the top of your FTP browser may give you the system path of the <B>cart.pl</B> script.<BR>"; print "<LI>Your <A HREF=\"http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}?env\">System's Environment Variables</A> may be of help determining your system paths.<BR>"; print "<LI>Try the cart script's <A HREF=\"http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}?path\">path detection tool</A>.<BR>"; print "<LI>If you still can't figure it out, ask your host what the system path to the <B>cart.pl</B> script would be.</UL><BR>"; &footer; } &cant_find_vars; $br_sub = "kd9f3"; if ( $ENV{'CONTENT_TYPE'} !~ /multipart\/form\-data/i ) { &parse_form_data; } &merchant; if ( $version !~ /(Mall Version)/ ) { $FORM{'merchant'} = ""; } open(VARS,"$vars"); if ($flock) { flock(VARS, 2); } @vars = <VARS>; if ($flock) { flock(VARS, 8); } close(VARS); if ( $vars[0] =~ /Location:/ ) { &redirect_mall_merchant; } foreach $line (@vars) { chop($line); if ($line =~ /\n$/) { chop($line); } if ($line =~ /\r$/) { chop($line); } if ($line =~ /\s$/) { chop($line); } $line =~ s/(.+)(-->)( )(.+)/$1$2$4/; $line =~ s/'/`/g; $line =~ s/\\`/'/g; } while ( $vars_variable_set =~ /\/$/ ) { chop($vars_variable_set); } $vars_size = @vars; if ($vars_size < 90 || $vars_size > 200) { if ( ($vars_variable_set) && (-d "$vars_variable_set") ) { print "Content-type: text/html\n\n<H3>Dansie Shopping Cart configuration warning!<BR>If you want to define the \$vars variable near the top of the cart.pl script, make sure that the system path you set ends with \"vars.dat\".<BR>Example:<BR>$vars_variable_set/vars.dat</H3>"; &diagnostics; &footer; } else { print "Content-type: text/html\n\n<H3>Dansie Shopping Cart configuration warning!<BR>Your vars.dat file appears to be corrupt. Check to make sure that you only have one line break per variable line. No more and no less. You can get a new vars.dat file in the latest <A HREF=\"http://www.dansie.net/cart_readme.html\">ReadMe package</A>.</H3>"; &diagnostics; &footer; } } $n = 0; $n2 = 0; $vn = 0; foreach $line (@vars) { if (!$skip_to_next_section) { if ( ($line =~ /^\#\#\#/) ) { push(@vars2,"$line"); $n2++; $vn = 0; } elsif ( ($line =~ /-->/) ) { $line =~ /^(\d{1,2})(\D)(.*)/; $line_number = $1; if ($vars[$n+1] =~ /-->/) { $vars[$n+1] =~ /^(\d{1,2})(\D)(.*)/; $next_line_number = $1; $missing_line_breaks = ($next_line_number - ($line_number + 1) ); } $line_number2 = $line_number + 1; if ($line =~ /($line_number)(.*)(-->)(.*)($line_number2)(.*)(-->)(.*)/) { $line = "$1$2$3$4"; $line2 = "$5$6$7$8"; } push(@vars2,"$line"); $n2++; $vn++; if ($line2) { push(@vars2,"$line2"); $n2++; $vn++; $line2 = ""; $missing_line_breaks--; } if ($missing_line_breaks) { for($i=0;$i<$missing_line_breaks;$i++) { push(@vars2,""); $n2++; $vn++; } } } else { if ($n2>0) { $vars2[$n2-1] = "$vars2[$n2-1] $line"; if (!$line) { $skip_to_next_section = 1; } } } } elsif ($line =~ /^\#\#\#/) { $skip_to_next_section = 0; push(@vars2,"$line"); $n2++; $vn = 0; } $n++; } (@vars) = (@vars2); $a = ""; shift(@vars); until ( $a =~ /^\#\#\#/ ) { $a = shift(@vars); if ( $a !~ /^\#\#\#/ ) { push(@host_vars,$a); } } $a = ""; until ( $a =~ /^\#\#\#/ ) { $a = shift(@vars); if ( $a !~ /^\#\#\#/ ) { push(@personal_vars,$a); } } $a = ""; until ( $a =~ /^\#\#\#/ ) { $a = shift(@vars); if ( $a !~ /^\#\#\#/ ) { push(@cambist_vars,$a); } } $a = ""; until ( $a =~ /^\#\#\#/ ) { $a = shift(@vars); if ( $a !~ /^\#\#\#/ ) { push(@database_vars,$a); } } if ( ($host_vars[0] !~ /http/i) && ($host_vars[0] !~ /https/i) ) { @host_vars = ("$host_vars[4]","$host_vars[5]","$host_vars[6]","$host_vars[8]","$host_vars[9]","$host_vars[0]","$host_vars[1]","$host_vars[2]","$host_vars[3]","$host_vars[10]","$host_vars[7]"); } if ( $FORM{'merchant'} && $merchant_security ) { open(VARS,"$default_master_vars"); if ($flock) { flock(VARS, 2); } @default_master_vars = <VARS>; if ($flock) { flock(VARS, 8); } close(VARS); ($trash,$temp) = split(/--\>/,"$host_vars[0]"); ($trash,$temp2) = split(/--\>/,"$default_master_vars[1]"); if ( $temp =~ /\n$/ ) { chop($temp); } if ( $temp2 =~ /\n$/ ) { chop($temp2); } if ( $temp =~ /^(http)(s)(.+)$/ ) { $temp = "$1$3"; if ( $temp eq "$temp2" ) { $do_not_use_master_hv1 = 1; } } $host_vars[0] = $default_master_vars[1] if (!$do_not_use_master_hv1); $host_vars[5] = $default_master_vars[6]; $host_vars[6] = $default_master_vars[7]; while ($host_vars[0] =~ /(\n|\r|\s)$/) { chop($host_vars[0]); } while ($host_vars[5] =~ /(\n|\r|\s)$/) { chop($host_vars[5]); } while ($host_vars[6] =~ /(\n|\r|\s)$/) { chop($host_vars[6]); } $host_vars[7] = ""; $host_vars[8] = ""; $host_vars[9] = ""; $personal_vars[22] = "3"; $database_vars[0] = ""; } ($trash,$path3) = split(/-->/,shift(@host_vars)); if ( ($ENV{'HTTP_HOST'} eq "www.dansie.net") && $FORM{'merchant'} ) { $path3 = "http://www.dansie.net/cgi-bin/scripts/cart.pl"; } ($trash,$path4) = split(/-->/,shift(@host_vars)); if ( $path4 !~ /\/{2}(.+)\/{1}/ ) { $path4 = "$path4/"; } ($trash,$base_img_url) = split(/-->/,shift(@host_vars)); $base_img_url =~ s/(.*)(\/)$/$1/; ($trash,$image) = split(/-->/,shift(@host_vars)); ($trash,$wp) = split(/-->/,shift(@host_vars)); ($trash,$mailprog) = split(/-->/,shift(@host_vars)); if ( $mailprog =~ /$delimiter2/ ) { ($mailprog,$blat_server) = split(/$delimiter2/,$mailprog); $blat_server = " -server " . "$blat_server"; } if (!$mailprog) { @common_sendmail_paths = ("/usr/sbin/sendmail", "/usr/lib/sendmail", "/usr/bin/sendmail", "/bin/sendmail", "/var/qmail/bin/qmail-inject", "/usr/home/stormer/bin/sendmail", "/bin/cgimail", "C:/winnt/system32/windmail.exe", "C:/winnt/system32/blat.exe", "c:/windmail/windmail.exe", 'C:\httpd\windmail\windmail.exe', 'C:\httpd\Blat\Blat.exe'); foreach (@common_sendmail_paths) { if (-e "$_") { $mailprog = "$_"; last; } } } if ( ($ENV{'HTTP_HOST'} eq "www.dansie.net") && $FORM{'merchant'} ) { $mailprog = "/bin/sendmail"; } ($trash,$date_command) = split(/-->/,shift(@host_vars)); if ( ($ENV{'HTTP_HOST'} eq "www.dansie.net") && $FORM{'merchant'} ) { $date_command = "/bin/date"; } ($trash,$path1) = split(/-->/,shift(@host_vars)); $path1 =~ s/\\/\//g; if ( (!$path1) ) { $path1 = "$vars"; $a = ""; until ($a eq "/" || $path1 eq "") { $a = chop($path1); } $path1_backup = "$path1/carts"; $path1 = "$path1/temp"; if (-e "$path1_backup") { $path1 = "$path1_backup"; } } if (!$path1) { $path1 = "$script_root/carts"; } if ($path1 eq $script_root) { &diagnostics; print "Content-type: text/html\n\n<H3>Dansie Shopping Cart configuration warning!<BR>Your \"temp\" directory is the same as the directory your cart.pl script is in!<BR>May I suggest \"$path1/temp\" as the directory for Host Variable #8 ?<BR>Please see the ReadMe about Host Variable #8.</H3>"; &footer; } if ($path1 =~ /^http/i) { &diagnostics; print "Content-type: text/html\n\n<H3>Dansie Shopping Cart configuration message:<BR>Please leave Host Variable #8 in your vars.dat file blank.</H3>"; &footer; } if (!-e "$path1") { &diagnostics; $path1 = &untaint("$path1"); mkdir("$path1",0777); if ( $ENV{'OS'} !~ /Windows_NT/i ) { `chmod 777 $path1`; } } if ( (!-w "$path1") || (!-e "$path1") ) { $path1 = "$path1_backup"; } if ( (!-w "$path1") || (!-e "$path1") ) { &diagnostics; print "Content-type: text/html\n\n"; print "<CENTER><H3>Congratulations! You've successfully uploaded the Dansie Shopping Cart and chmoded the permissions 755 or better, but you forgot to create your <b>\"$path1\"</B> directory and set permissions as globally writable (chmod it 777 on Unix).</H3></CENTER><BR>"; print "You need to create a directory called \"temp\" in the same directory your vars.dat file is located in and set permissions as globally writable (chmod this directory \"temp\" 777 if you are on a Unix host).<BR><BR>"; &footer; } ($trash,$path2) = split(/-->/,shift(@host_vars)); $path2 =~ s/\\/\//g; if ( (!$path2) ) { $path2 = "$vars"; $a = ""; until ($a eq "/" || $path2 eq "") { $a = chop($path2); } $path2_backup = "$path2/invoice.dat"; $path2 = "$path2/shopperid.dat"; if (-e "$path2_backup") { $path2 = "$path2_backup"; } } if ($path2 =~ /^http/i) { &diagnostics; print "Content-type: text/html\n\n<H3>Dansie Shopping Cart configuration message:<BR>Please leave Host Variable #9 in your vars.dat file blank.</H3>"; &footer; } if (!-e "$path2") { &diagnostics; $path2 = &untaint("$path2"); open(FILE, ">$path2"); print FILE "0"; close(FILE); if ( $ENV{'OS'} !~ /Windows_NT/i ) { `chmod 777 $path2`; } } if ( (!-w "$path2") || (!-e "$path2") ) { $path2 = "$path2_backup"; } if ( (!-w "$path2") || (!-e "$path2") ) { &diagnostics; print "Content-type: text/html\n\n"; print "<CENTER><H3>Congratulations! You've successfully uploaded the Dansie Shopping Cart and chmoded the permissions 755 or better, but you forgot to create your <b>\"$path2\"</B> file and set permissions as globally writable (chmod it 777 on Unix).</H3></CENTER><BR>"; print "The script needs to be able to keep a count file called \"shopperid.dat\" in order to assign shopper ID numbers to your customers. The default location for this is in the same directory your vars.dat file is located in. Create an empty file named \"shopperid.dat\" and upload it with your FTP program into the same directory that your vars.dat file is located in and set permissions on \"shopperid.dat\" as globally writable (chmod 777 on Unix).<BR><BR>"; &footer; } ($trash,$lang_path) = split(/-->/,shift(@host_vars)); $lang_path =~ s/\\/\//g; &find_lang; ($trash,$target_name) = split(/-->/,shift(@host_vars)); if (!$target_name) { $target_name = ""; } ($trash,$ssl_target_page) = split(/-->/,shift(@host_vars)); while ( $ssl_target_page =~ /\s$/ ) { chop($ssl_target_page); } if ( $ssl_target_page && $ssl_target_page !~ /\/{2}(.+)\/{1}/ ) { $ssl_target_page = "$ssl_target_page/"; } if (!$ssl_target_page) { $ssl_target_page = "$path4"; } ($trash,$merchant_passwords) = split(/-->/,shift(@host_vars)); while ( $merchant_passwords =~ /\s$/ ) { chop($merchant_passwords); } ($trash,$login_ssl_url) = split(/-->/,shift(@host_vars)); while ( $login_ssl_url =~ /\s$/ ) { chop($login_ssl_url); } if (!$login_ssl_url) { $login_ssl_url = "$path3"; } ($trash,$customs) = split(/-->/,shift(@personal_vars)); ($trash,$myemail) = split(/-->/,shift(@personal_vars)); $myemail =~ s/ /\,/g; $myemail =~ s/\,\,/\,/g; $myemail =~ s/\,\,/\,/g; @myemail = split(/\,/,$myemail); ($trash,$ext) = split(/-->/,shift(@personal_vars)); $ext = "." . "$ext"; ($trash,$bizname) = split(/-->/,shift(@personal_vars)); ($trash,$payable) = split(/-->/,shift(@personal_vars)); ($trash,$guarantee) = split(/-->/,shift(@personal_vars)); ($trash,$add1) = split(/-->/,shift(@personal_vars)); ($trash,$add2) = split(/-->/,shift(@personal_vars)); ($trash,$add3) = split(/-->/,shift(@personal_vars)); ($trash,$add4) = split(/-->/,shift(@personal_vars)); ($trash,$add5) = split(/-->/,shift(@personal_vars)); ($trash,$tax_allow) = split(/-->/,shift(@personal_vars)); ($trash,$temp) = split(/-->/,shift(@personal_vars)); @state = split(/\,/,$temp); if (!$state[0]) { $state[0] = "Calif"; } ($trash,$temp) = split(/-->/,shift(@personal_vars)); $temp =~ s/\%//g; @tax = split(/\,/,$temp); if ( $tax_allow == 2 || $tax_allow == 4 ) { @state = $state[0]; @tax = $tax[0]; } if ( !$tax[0] ) { $tax[0] = 1; } while ( @state > @tax ) { push(@tax,"0"); } ($trash,$bgcolor) = split(/-->/,shift(@personal_vars)); ($trash,$font2) = split(/-->/,shift(@personal_vars)); ($trash,$font_face2) = split(/-->/,shift(@personal_vars)); ($trash,$font_size2) = split(/-->/,shift(@personal_vars)); ($trash,$font1) = split(/-->/,shift(@personal_vars)); ($trash,$font_face1) = split(/-->/,shift(@personal_vars)); ($trash,$font_size1) = split(/-->/,shift(@personal_vars)); ($trash,$img_borders) = split(/-->/,shift(@personal_vars)); ($trash,$expire) = split(/-->/,shift(@personal_vars)); if (!$expire) { $expire = "1"; } ($trash,$option1) = split(/-->/,shift(@personal_vars)); ($trash,$option2) = split(/-->/,shift(@personal_vars)); ($trash,$option3) = split(/-->/,shift(@personal_vars)); ($trash,$ship_allow) = split(/-->/,shift(@personal_vars)); ($trash,$show_ship) = split(/-->/,shift(@personal_vars)); ($trash,$temp) = split(/-->/,shift(@personal_vars)); @method = split(/\,/,$temp); ($trash,$temp) = split(/-->/,shift(@personal_vars)); @method_init_price = split(/\,/,$temp); ($trash,$temp) = split(/-->/,shift(@personal_vars)); @method_price = split(/\,/,$temp); ($trash,$wt) = split(/-->/,shift(@personal_vars)); ($trash,$map_domain) = split(/-->/,shift(@personal_vars)); ($trash,$temp) = split(/-->/,shift(@personal_vars)); @shipping_locations = split(/\,/,$temp); ($trash,$temp) = split(/-->/,shift(@personal_vars)); @shipping_via_amount = split(/$delimiter2/,$temp); ($trash,$symbol) = split(/-->/,shift(@personal_vars)); if ($symbol =~ /$delimiter2/) { ($symbol,$decimals,$currency_sep) = split(/$delimiter2/,$symbol); } else { if (!$decimals) { $decimals = "2"; } if (!$currency_sep) { $currency_sep = ","; } } if (!$symbol) { $symbol = "\$"; } if ($symbol =~ /\n$/) { chop($symbol); } if ($decimals =~ /\n$/) { chop($decimals); } if ($currency_sep =~ /\n$/) { chop($currency_sep); } if ($decimals < 0) { $decimals = 0; } $decimals2 = $decimals; $decimals = '%9.' . "$decimals" . 'f'; ($trash,$customer_mail) = split(/-->/,shift(@personal_vars)); if (!$customer_mail) { $customer_mail = 0; } ($trash,$address_table_bgcolor) = split(/-->/,shift(@personal_vars)); if (!$address_table_bgcolor) { $address_table_bgcolor = "#FFFFFF"; } ($trash,$ip_or_cookie) = split(/-->/,shift(@personal_vars)); ($trash,$borders2) = split(/-->/,shift(@personal_vars)); if ($borders2<1) { $borders2 = 0; } ($trash,$table_width) = split(/-->/,shift(@personal_vars)); if (!$table_width) { $table_width = "90\%"; } if ( $table_width < 400 && $table_width !~ /\%/ ) { $table_width = $table_width . "\%"; } ($trash,$option4) = split(/-->/,shift(@personal_vars)); if ($option4 =~ /$delimiter2/ ) { ($option4,$icheck_currency) = split(/$delimiter2/,$option4); } if ( @personal_vars < 1 ) { $use_state = 1; } else { ($trash,$use_state) = split(/-->/,shift(@personal_vars)); } if ( @personal_vars < 1 ) { $show_bizname = 1; } else { ($trash,$show_bizname) = split(/-->/,shift(@personal_vars)); } ($trash,$option5) = split(/-->/,shift(@personal_vars)); if ( $symbol ne "\\") { $option5 =~ s/($symbol)//; } ($trash,$comments) = split(/-->/,shift(@personal_vars)); ($trash,$reqired_field_prefs) = split(/-->/,shift(@personal_vars)); ($trash,$force_no_script) = split(/-->/,shift(@personal_vars)); ($trash,$add_and_redirect) = split(/-->/,shift(@personal_vars)); ($trash,$i_check_id) = split(/-->/,shift(@personal_vars)); if ($i_check_id =~ /$delimiter2/ ) { ($i_check_id,$exchange_rate) = split(/$delimiter2/,$i_check_id); } ($trash,$check_wp) = split(/-->/,shift(@personal_vars)); if (!$check_wp) { $check_wp = "$address_table_bgcolor"; } ($trash,$webstore_discount) = split(/-->/,shift(@personal_vars)); ($trash,$signature) = split(/-->/,shift(@personal_vars)); if ( $signature eq "default" ) { $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; $signature = "$biz_temp\|" . "$ssl_target_page" . "\|$myemail[0]"; } ($trash,$paper_font_color) = split(/-->/,shift(@personal_vars)); if ( $paper_font_color =~ /$delimiter2/ ) { ($paper_font_color,$paper_wp) = split(/$delimiter2/,$paper_font_color); } ($trash,$vars_security) = split(/-->/,shift(@personal_vars)); ($trash,$meta_tag) = split(/-->/,shift(@personal_vars)); $meta_temp = "$meta_tag"; while ( $meta_temp ) { $a = chop($meta_temp); if ($a =~ /"/) { $meta_temp2++; } } if ( ($meta_temp2 / 2) != ( int($meta_temp2 / 2) )  ) { $meta_tag = ""; } $meta_tag =~ s/\&lt\;/\</g; $meta_tag =~ s/\&gt\;/\>/g; ($trash,$email_content_type) = split(/-->/,shift(@personal_vars)); ($trash,$email_encoding) = split(/-->/,shift(@personal_vars)); ($trash,$coupon_discount) = split(/-->/,shift(@personal_vars)); ($trash,$check_draft_image) = split(/-->/,shift(@personal_vars)); ($trash,$fix_int_quantity) = split(/-->/,shift(@personal_vars)); ($trash,$option6) = split(/-->/,shift(@personal_vars)); ($trash,$suppress_desc) = split(/-->/,shift(@personal_vars)); ($trash,$add_top_or_bottom) = split(/-->/,shift(@personal_vars)); ($trash,$invoice_prefix) = split(/-->/,shift(@personal_vars)); if ($invoice_prefix =~ / $/) { chop($invoice_prefix); } ($trash,$authorized_referrers) = split(/-->/,shift(@personal_vars)); while ($authorized_referrers =~ /(\n|\r|\s|\,)$/) { chop($authorized_referrers); } $authorized_referrers =~ s/\,\,/\,/; $authorized_referrers =~ s/^\,//; (@authorized_referrers) = split(/\,/,$authorized_referrers); foreach (@authorized_referrers) { $_ =~ s/^ //; $_ =~ s/ $//; $_ =~ s/^(www\.)//; } ($trash,$empty_entire_cart) = split(/-->/,shift(@personal_vars)); ($trash,$minimum_order) = split(/-->/,shift(@personal_vars)); while ($minimum_order =~ /(\n|\r|\s)$/) { chop($minimum_order); } $minimum_order =~ s/\$//g; ($trash,$tracking_file) = split(/-->/,shift(@personal_vars)); while ($tracking_file =~ /(\n|\r|\s|\,)$/) { chop($tracking_file); } if ( $tracking_file =~ /\|/ ) { ($ssl_tracking_dir,$tracking_file) = split(/\|/,"$tracking_file"); } if ( $FORM{'merchant'} && $merchant_security && $tracking_file ) { $tracking_file2 = "$vars"; $a = ""; until ($a eq "/" || $tracking_file2 eq "") { $a = chop($tracking_file2); } if ( $tracking_file !~ /($tracking_file2)/i ) { $tracking_file = "$tracking_file2/tracking.dat"; } $tracking_file =~ s/\.\.\///g; $tracking_file =~ s/\.\.//g; } if ( ($tracking_file) && (-e "$tracking_file") && (!-w "$tracking_file") ) { &diagnostics; print "Content-type: text/html\n\n"; print "<CENTER><H3>Congratulations! You've successfully uploaded the Dansie Shopping Cart and chmoded the permissions 755 or better, but you forgot to create your tracking.dat file at this location: <b>\"$tracking_file\"</B> and set permissions as globally writable (chmod it 777 on Unix).</H3></CENTER><BR>"; print "The script needs to be able to write to this file in order to do perform the order tracking feature described in Personal Variable #69 of the <A HREF=\"http://www.dansie.net/cart_readme.html\" TARGET=\"ReadMe\">ReadMe</A>. Create this file and upload it with your FTP program and set permissions on it as globally writable (chmod 777 on Unix). If you do not wish to use this feature, then leave PV#69 in your vars.dat file blank.<BR><BR>"; &footer; } if ( $FORM{'merchant'} ) { $ssl_tracking_dir = ""; } ($trash,$use_company_name_field) = split(/-->/,shift(@personal_vars)); while ($use_company_name_field =~ /(\n|\r|\s|\,)$/) { chop($use_company_name_field); } ($trash,$aux_processor_payment_option) = split(/-->/,shift(@personal_vars)); while ($aux_processor_payment_option =~ /(\n|\r|\s|\,)$/) { chop($aux_processor_payment_option); } ($trash,$email_receipt_tables) = split(/-->/,shift(@personal_vars)); while ($email_receipt_tables =~ /(\n|\r|\s|\,)$/) { chop($email_receipt_tables); } (@email_receipt_tables) = split(/\|/,"$email_receipt_tables"); ($trash,$shipping_weight_total) = split(/-->/,shift(@personal_vars)); ($trash,$state_list) = split(/-->/,shift(@personal_vars)); ($trash,$country_list) = split(/-->/,shift(@personal_vars)); while ($country_list =~ /(\n|\r|\s|\,)$/) { chop($country_list); } ($trash,$sales_tax_state_verification) = split(/-->/,shift(@personal_vars)); while ($sales_tax_state_verification =~ /(\n|\r|\s|\,)$/) { chop($sales_tax_state_verification); } ($trash,$htpasswd) = split(/-->/,shift(@personal_vars)); while ($htpasswd =~ /(\n|\r|\s|\,)$/) { chop($htpasswd); } if ( ( $FORM{'merchant'} && !$merchant_security ) || ( !$FORM{'merchant'} && $merchant_security ) || ( !$FORM{'merchant'} && !$merchant_security ) ) { if ( $htpasswd && ( (!-w "$htpasswd") || (!-e "$htpasswd") ) ) { &diagnostics; print "Content-type: text/html\n\n"; print "<CENTER><H3>It appears you have set Personal Variable #77 so that you can have random passwords appended to to your .htpasswd file. Make sure to create your <b>\"$htpasswd\"</B> file and set writable permissions. For more details on this, see \"Sell Passwords\" in section 14 of the <A HREF=\"http://www.dansie.net/cart_readme.html\" TARGET=ReadMe>ReadMe</A>.</H3></CENTER><BR>"; &footer; } } else { $htpasswd = ""; } ($trash,$deny_email_domains) = split(/-->/,shift(@personal_vars)); while ($deny_email_domains =~ /(\n|\r|\s|\,)$/) { chop($deny_email_domains); } @deny_email_domains = split(/\,/,"$deny_email_domains"); ($trash,$referral_id) = split(/-->/,shift(@personal_vars)); while ($referral_id =~ /(\n|\r|\s|\,)$/) { chop($referral_id); } ($trash,$pending_file) = split(/-->/,shift(@personal_vars)); while ($pending_file =~ /(\n|\r|\s|\,)$/) { chop($pending_file); } if ( $FORM{'merchant'} && $merchant_security && $pending_file ) { $pending_file2 = "$vars"; $a = ""; until ($a eq "/" || $pending_file2 eq "") { $a = chop($pending_file2); } if ( $pending_file !~ /($pending_file2)/i ) { $pending_file = "$pending_file2/tracking.dat"; } $pending_file =~ s/\.\.\///g; $pending_file =~ s/\.\.//g; } if ( ($pending_file) && (-e "$pending_file") && (!-w "$pending_file") ) { &diagnostics; print "Content-type: text/html\n\n"; print "<CENTER><H3>Congratulations! You've successfully uploaded the Dansie Shopping Cart and chmoded the permissions 755 or better, but you forgot to create your pending.dat file at this location: <b>\"$pending_file\"</B> and set permissions as globally writable (chmod it 777 on Unix).</H3></CENTER><BR>"; print "The script needs to be able to write to this file in order to do perform the order tracking feature described in Personal Variable #80 of the <A HREF=\"http://www.dansie.net/cart_readme.html\" TARGET=\"ReadMe\">ReadMe</A>. Create this file and upload it with your FTP program and set permissions on it as globally writable (chmod 777 on Unix). If you do not wish to use this feature, then leave PV#80 in your vars.dat file blank.<BR><BR>"; &footer; } ($trash,$aux_processor2_payment_option) = split(/-->/,shift(@personal_vars)); while ($aux_processor2_payment_option =~ /(\n|\r|\s|\,)$/) { chop($aux_processor2_payment_option); } ($trash,$path5) = split(/-->/,shift(@cambist_vars)); ($trash,$MerchantID) = split(/-->/,shift(@cambist_vars)); ($trash,$MerchantFont) = split(/-->/,shift(@cambist_vars)); ($trash,$MerchantFontColor) = split(/-->/,shift(@cambist_vars)); ($trash,$MerchantBgrdColor) = split(/-->/,shift(@cambist_vars)); ($trash,$unique_MAU) = split(/-->/,shift(@cambist_vars)); if ($unique_MAU =~ /[^a-zA-Z0-9]/) { &diagnostics; print "Content-type: text/html\n\n<H3>Dansie Shopping Cart configuration message:<BR>Please see Secure Server Variable #6 in the ReadMe. Letters and numbers in SSV#6 only. No special characters of any kind.</H3>"; &footer; } if (!$unique_MAU) { $unique_MAU = "unique_MAU"; } $unique_MAU =~ s/ //g; ($trash,$instant_trans) = split(/-->/,shift(@cambist_vars)); if ( $instant_trans eq "" ) { $instant_trans = "Your order will be shipped pending credit card approval."; } ($trash,$append_datafile) = split(/-->/,shift(@cambist_vars)); $append_datafile =~ s/\\/\//g; if ( $FORM{'merchant'} && $merchant_security && $append_datafile ) { $append_datafile2 = "$vars"; $a = ""; until ($a eq "/" || $append_datafile2 eq "") { $a = chop($append_datafile2); } if ( $append_datafile !~ /($append_datafile2)/i ) { $append_datafile = "$append_datafile2/orders.dat"; } $append_datafile =~ s/\.\.\///g; $append_datafile =~ s/\.\.//g; } if ( ($append_datafile) && ( $append_datafile !~ /\// ) ) { $append_datafile = "$script_root/$append_datafile"; } $temp_path = $append_datafile; if ( $temp_path =~ /(.+)(\s)(.+)/ ) { ($temp_path2,$temp_path) = split(/\s/,$temp_path); } if ( $temp_path =~ /(.+)(\|)(.+)/ ) { ($temp_path2,$temp_path) = split(/\|/,$temp_path); } $a = ""; until ($a eq "/" || $temp_path eq "") { $a = chop($temp_path); } ($trash,$card_types) = split(/-->/,shift(@cambist_vars)); ($trash,$pgp) = split(/-->/,shift(@cambist_vars)); ($trash,$email_cc_numbers) = split(/-->/,shift(@cambist_vars)); while ($email_cc_numbers =~ /\s$/) { chop($email_cc_numbers); } if ( !$email_cc_numbers && !$append_datafile ) { $email_cc_numbers = "$myemail[0]"; } ($trash,$ssl_frames) = split(/-->/,shift(@cambist_vars)); while ($ssl_frames =~ /\s$/) { chop($ssl_frames); } if (!$ssl_frames) { $ssl_target_top = "TARGET=\"_top\""; } ($trash,$pending_order) = split(/-->/,shift(@cambist_vars)); while ($pending_order =~ /\s$/) { chop($pending_order); } if ( ($pending_order) && ($pending_order !~ /(.+)(\@)(.+)(\.)(.+)/) ) { print "Content-type: text/html\n\n<H3>Dansie Shopping Cart configuration warning!<BR>See Secure Server Variable #13 in the <A HREF=\"http://www.dansie.net/cart_readme.html\" TARGET=new>ReadMe</A>. Either put an email address in it or leave it blank.</H3>"; &diagnostics; &footer; } ($trash,$database_dir) = split(/-->/,shift(@database_vars)); $database_dir =~ s/\\/\//g; if ( !$database_dir ) { $database_dir = "$vars"; $a = ""; until ($a eq "/" || $database_dir eq "") { $a = chop($database_dir); } } if (!$database_dir) { $database_dir = "$script_root"; } if ($database_dir =~ /^http/i) { &diagnostics; print "Content-type: text/html\n\n<H3>Dansie Shopping Cart configuration message:<BR>Please leave Database Variable #1 in your vars.dat file blank or set it to a system path. Do not put a URL in there. URLs start with either \"http://\" or \"https://\" and system path start with either \"/\" (Unix) or \"c:/\" (Windows NT).</H3>"; &footer; } ($trash,$view_url) = split(/-->/,shift(@database_vars)); if (($view_url) && ($view_url !~ /http/i)) { $view_url = "$base_img_url" . "/" . "$view_url"; } ($trash,$separator) = split(/-->/,shift(@database_vars)); if (!$separator) { $separator = "|"; } if ( $separator eq '\t' || $separator =~ /tab/i ) { $separator = "t"; } $separator = "\\" . "$separator"; ($trash,$options_separator) = split(/-->/,shift(@database_vars)); if (!$options_separator) { $options_separator = "^"; } $options_separator = "\\" . "$options_separator"; if (!$query_separator) { $query_separator = "|"; } $query_separator = "\\" . "$query_separator"; $query_separator2 = $query_separator; $query_separator2 =~ s/^\\//; ($trash,$temp) = split(/-->/,shift(@database_vars)); ($item_align,$image_align,$desc_align,$price_align) = split(/\|/,"$temp"); if (!$item_align) { $item_align = "center"; } if (!$image_align) { $item_align = "center"; } if (!$desc_align) { $item_align = "left"; } if (!$price_align) { $item_align = "center"; } ($trash,$item_cat_pos) = split(/-->/,shift(@database_vars)); ($trash,$stock_pos) = split(/-->/,shift(@database_vars)); ($trash,$name_pos) = split(/-->/,shift(@database_vars)); ($trash,$description_pos) = split(/-->/,shift(@database_vars)); ($trash,$price_pos) = split(/-->/,shift(@database_vars)); ($trash,$sh_pos) = split(/-->/,shift(@database_vars)); ($trash,$image_pos) = split(/-->/,shift(@database_vars)); ($trash,$temp) = split(/-->/,shift(@database_vars)); @additionals = split (/\,/,$temp); ($trash,$image_statement) = split(/-->/,shift(@database_vars)); ($trash,$button) = split(/-->/,shift(@database_vars)); if (!$lang[148]) { $lang[148] = "$button"; } ($trash,$home) = split(/-->/,shift(@database_vars)); ($trash,$items_per_page) = split(/-->/,shift(@database_vars)); if (!$items_per_page) { $items_per_page = 10;} ($trash,$uniform_images) = split(/-->/,shift(@database_vars)); if ($uniform_images) { ($uni_width,$uni_height) = split(/\,/,$uniform_images); if ($uni_width) { $uni_width = "WIDTH=$uni_width"; } if ($uni_height) { $uni_height = "HEIGHT=$uni_height"; } } ($trash,$database_logo) = split(/-->/,shift(@database_vars)); ($trash,$db_select_alignment) = split(/-->/,shift(@database_vars)); if (!$db_select_alignment) { $db_select_alignment = "center"; } ($trash,$db_select_stack_or_across) = split(/-->/,shift(@database_vars)); if (!$db_select_stack_or_across) { $db_select_stack_or_across = "across"; } ($trash,$navigation_bar) = split(/-->/,shift(@database_vars)); if ( $navigation_bar =~ /\n$/ ) { chop($navigation_bar); } $navigation_bar =~ s/\\/\//g; if ( $navigation_bar && $navigation_bar !~ /\// ) { $temp_navigation_bar = "$vars"; $a = ""; until ($a eq "/" || $temp_navigation_bar eq "") { $a = chop($temp_navigation_bar); } $navigation_bar = "$temp_navigation_bar/$navigation_bar"; } ($trash,$database_return_url) = split(/-->/,shift(@database_vars)); ($trash,$navigation_bar_position) = split(/-->/,shift(@database_vars)); if (!$navigation_bar_position) { $navigation_bar_position = "left"; } ($trash,$db_version) = split(/-->/,shift(@database_vars)); ($trash,$db_next_link_method) = split(/-->/,shift(@database_vars)); ($trash,$navigation_bar2) = split(/-->/,shift(@database_vars)); if ( $navigation_bar2 =~ /\n$/ ) { chop($navigation_bar2); } $navigation_bar2 =~ s/\\/\//g; if ( $navigation_bar2 && $navigation_bar2 !~ /\// ) { $temp_navigation_bar2 = "$vars"; $a = ""; until ($a eq "/" || $temp_navigation_bar2 eq "") { $a = chop($temp_navigation_bar2); } $navigation_bar2 = "$temp_navigation_bar2/$navigation_bar2"; } ($trash,$database_button_location) = split(/-->/,shift(@database_vars)); if ( $ENV{'CONTENT_TYPE'} =~ /multipart\/form\-data/i ) { &parse_form_data2; } &diagnostics; if ( $date_command ) { $date_command =~ /(.+)/; $date_command = $1; if ( $date_command !~ /\%/ ) { $date = `$date_command +"%D %T %Z"`; } else { $date = `$date_command`; } if ( $date =~ /\n$/ ) { chop($date); } } else { &SetCookieExpDate2; $date = "$Cookie_Exp_Date"; } if ( $mailprog =~ /(blat\.exe)/i ) { $blat = 1; } if ( $mailprog =~ /(windmail\.exe)/i ) { $windmail = 1; } $signio_echeck_url = "https://payflowlink.signio.com/paylinks.dll"; $verisign_telecheck_url = "https://payflowlink.verisign.com/payflowlink.cfm"; $i_check = "https://paybycheck.com/payment.pl"; $i_check = "https://paybycheck.com/"; $ValidCheck = "https://www.ValidCheck.com/PayWizard.asp"; $i_checkApprovedURL = "$path3?icheck$unique_MAU"; if ($FORM{'merchant'}) { $i_checkApprovedURL .= "%26" . "merchant" . "%3D" . "$FORM{'merchant'}"; } if ( ($FORM{'return'}) && ($FORM{'return'} !~ /\/{2}(.+)\/{1}/) ) { $FORM{'return'} = "$FORM{'return'}/"; } $atemp = @additionals; if ( $customs < ($atemp+2) ) { $customs = $atemp+2; } if ($ship_allow == 2) { $show_ship = 0; } $borders = 0; $security = 0; $compat = "4.0"; $discount_sep = ":"; if (!$ENV{'REMOTE_HOST'}) { $ENV{'REMOTE_HOST'} = "$ENV{'REMOTE_ADDR'}"; } $mail_ext = "mail"; $cambist_book_transaction = 0; if ( $card_types =~ /book/i ) { $cambist_book_transaction = 1; } if ( $card_types =~ /AVSVerify/i ) { $cambist_AVSVerify = 1; } $use_zipcode_fields = 1; $shipping_roundup = 1; $quantity_digits = 5; $ns3bugtime = .0000115 * 10 * 0; $max_secure_field_array = 20; $max_secure_field_array += 19; if ($email_content_type =~ /(text\/html)/i) { $html_br = "<BR>"; } if ( $FORM{'merchant'} ) { if ($ssl_target_page eq "$path4") { $cambist_back = "$path3?look\|$FORM{'merchant'}"; } else { $cambist_back = "$ssl_target_page"; } } else { if ($ssl_target_page eq "$path4") { $cambist_back = "$path3"; } else { $cambist_back = "$ssl_target_page"; } } $MerchantApprovedURL = "$path3?$unique_MAU"; $MerchantApprovedURL_aux_processor = "$path3?". "aux_processor" . "$unique_MAU"; $MerchantApprovedURL_aux_processor2 = "$path3?". "aux_processor2" . "$unique_MAU"; $MerchantUnApprovedURL = "$path3?failure"; if ( $FORM{'purpose2'} eq "check_transfer" ) { $MerchantApprovedURL = "$path3" . "?check$unique_MAU";   } if ($FORM{'merchant'}) { $MerchantApprovedURL .= "$delimiter" . "merchant$delimiter$FORM{'merchant'}"; $MerchantApprovedURL_aux_processor .= "$delimiter" . "merchant$delimiter$FORM{'merchant'}"; $MerchantApprovedURL_aux_processor2 .= "$delimiter" . "merchant$delimiter$FORM{'merchant'}"; $MerchantUnApprovedURL .= "$delimiter" . "merchant$delimiter$FORM{'merchant'}"; } $Cookie_Exp_Date = ''; $Cookie_Path = '/'; $Cookie_Domain = ''; $Secure_Cookie = '0'; @Cookie_Encode_Chars = ('\%', '\+', '\;', '\,', '\=', '\&', '\:\:', '\s'); %Cookie_Encode_Chars = ('\%',   '%25', '\+',   '%2B', '\;',   '%3B', '\,',   '%2C', '\=',   '%3D', '\&',   '%26', '\:\:', '%3A%3A', '\s',   '+'); @Cookie_Decode_Chars = ('\+', '\%3A\%3A', '\%26', '\%3D', '\%2C', '\%3B', '\%2B', '\%25'); %Cookie_Decode_Chars = ('\+',       ' ', '\%3A\%3A', '::', '\%26',     '&', '\%3D',     '=', '\%2C',     ',', '\%3B',     ';', '\%2B',     '+', '\%25',     '%'); $cookie_name2 = "shopper_id"; if ( $FORM{'merchant'} ) { $cookie_name2 = "$FORM{'merchant'}_$cookie_name2"; } $require_address = 1; $require_city = 1; $require_state = 1; $require_zip = 1; $require_country = 1; $state_length = 25; $change_remove_buttons = "side_by_side"; $change_remove_buttons = "stacked"; if ( ( $FORM{'return'} =~ /(.+)(\?)(.+)/ ) || ( (!$FORM{'return'}) && $path4 =~ /(.+)(\?)(.+)/ ) ) { $post_get_method = "METHOD=POST"; } else { $post_get_method = "METHOD=GET"; } if ($referral_id) { $referral_id_code = "cgi-bin/referral.pl?id=" . "$referral_id"; } $custom_description_currency_symbol_feature = 1; if ( $diagnostics ) { $temp = ""; foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $temp .= "$name = $value<BR>"; } $lang[114] = "REQUEST_METHOD: $ENV{'REQUEST_METHOD'}<BR>QUERY_STRING: $ENV{'QUERY_STRING'}<BR>POST:<BR>$temp<BR>" . "$lang[114]"; } $assess_tax_on_shipping_or_billing_state = "shipping"; if ( ($ENV{'HTTP_HOST'} eq "www.dansie.net") && (!$FORM{'merchant'}) && ($path3 eq "http://www.dansie.net/cgi-bin/scripts/cart.pl") ) { $special_security_message = "1"; if ( $ENV{'HTTP_REFERER'} =~ /^(http:\/\/dansie\.net)/i ) { $special_security_message = ""; } if ( $ENV{'HTTP_REFERER'} =~ /^(http:\/\/www\.dansie\.net)/i ) { $special_security_message = ""; } if ( $ENV{'HTTP_REFERER'} =~ /^(http:\/\/dansiecart\.com)/i ) { $special_security_message = ""; } if ( $ENV{'HTTP_REFERER'} =~ /^(http:\/\/www\.dansiecart\.com)/i ) { $special_security_message = ""; } if ($special_security_message) { $lang[114] = "<TABLE WIDTH=80%><TR><TD><FONT SIZE=+3>This Demo Cart will allow you to POST any item and price to it so you may run tests with <A HREF=\"http://www.dansie.net/cart_form_source.html\" TARGET=form>HTML forms</A> that you create. However, the cart has a security feature where you can prevent people from posting to your cart from other than the domains you specifically authorize. See Personal Variable #66 in the <A HREF=\"http://www.dansie.net/cart_readme.html\" TARGET=readme>ReadMe</A> for details.</FONT></TD></TR></TABLE>"; } } $demo = 0; if ($demo) { if ( $FORM{'purpose'} eq "credit" || $FORM{'purpose'} eq "credit_phone" || $FORM{'purpose'} eq "check" || $FORM{'purpose'} eq "check_transfer" || $FORM{'purpose'} eq "cod" ) { print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>$bizname - Dansie Shopping Cart DEMO</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\"> <CENTER> <FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">This is just a demo version</FONT><BR> <A HREF=\"http://www.dansie.net\">Order Dansie Shopping Cart</A><BR> <A HREF=\"mailto:cart\@dansie.net\">Email: cart\@dansie.net</A><BR> </CENTER> </BODY></HTML>"; exit; } } if (!$map_domain) { $temp = $ENV{'REMOTE_HOST'}; @numbers = split(/\./, $ENV{'REMOTE_HOST'}); $ip_number = pack("C4", @numbers); ($ENV{'REMOTE_HOST'}) = (gethostbyaddr($ip_number, 2))[0]; if (!$ENV{'REMOTE_HOST'}) { $ENV{'REMOTE_HOST'} = $temp; } } if ( $ENV{'QUERY_STRING'} =~ /^db$query_separator/i ) { ($trash,$FORM{'db'},$FORM{'category'},$trash,$trash,$trash,$trash,$FORM{'merchant'},) = split(/$query_separator/,$ENV{'QUERY_STRING'}); if ( $FORM{'category'} eq "All%20Items" ) { $FORM{'category'} = ""; } &database3; exit; } if ( $FORM{'file'} || $FORM{'search_categories'} ) { $FORM{'db'} = "$FORM{'file'}"; $FORM{'category'} = "$FORM{'search_categories'}"; &database3; exit; } if ( $FORM{'db'} ) { &database3; exit; } if ( $ENV{'QUERY_STRING'} =~ /^db=/i ) { &database3; exit; } if ( ($FORM{'add'}) || ($FORM{'add2'}) || ($FORM{'ADD'}) || ($FORM{'Add'}) || ($FORM{'purpose'} eq "add") || ($FORM{'purpose'} eq "ADD") ) { if ( ($ENV{'HTTP_HOST'} eq "www.dansie.net") && ($FORM{'name'} =~ /(piece of crap)/i)  ) { $FORM{'name'} = "This is a Demo Cart that will allow you to post anything to it for testing purposes."; $FORM{'custom1'} = "This Demo Cart will allow you to POST any item and price to it so you may run tests with HTML forms that you create. However, the cart has a security feature where you can prevent people from posting to your cart from other than the domains you specifically authorize. See Personal Variable #66 in the <A HREF=http://www.dansie.net/cart_readme.html TARGET=_blank>ReadMe</A> for details."; } if ( $FORM{'redirect'} ) { $add_and_redirect = $FORM{'redirect'}; } if ( $FORM{'redirect'} eq "0.00" ) { $add_and_redirect = "0"; } if ( $FORM{'redirect'} eq "no" ) { $add_and_redirect = "0"; } &delete_old_carts; &fix_quantity; &get_shoppers_items; &authorized_referrers; if ( -e "$path1/$shopper_id$ext" ) { if ( ($ns3bugtime) && ((-M "$path1/$shopper_id$ext" ) < $ns3bugtime) ) { if($add_and_redirect) { &add_and_redirect; } &list_items; exit; } $untainted = &untaint("$path1/$shopper_id$ext"); open(CART,">$untainted"); $n = 0; foreach $item (@items) { if ( ($n == 2) && ( $add_top_or_bottom !~ /(bottom)/i ) ) { &add_new_item_to_cart; } print CART "$item"; $n++; } if ( ($n == 2) && ( $add_top_or_bottom !~ /(bottom)/i ) ) { &add_new_item_to_cart; } if ( $add_top_or_bottom =~ /(bottom)/i ) { &add_new_item_to_cart; } close CART; if($add_and_redirect) { &add_and_redirect; } &list_items; exit; } if ( !(-e "$path1/$shopper_id$ext" ) ) { if ($FORM{'referrer'}) { $FORM{'referrer'} .= " - "; } $untainted = &untaint("$path1/$shopper_id$ext"); open(CART,">$untainted"); print CART "$date$delimiter$FORM{'referrer'}$invoice_prefix$invoice\n"; print CART "Shipping address info goes here later\n"; &add_new_item_to_cart; close CART; if($add_and_redirect) { &add_and_redirect; } &list_items; exit; } exit; } if ( $FORM{'purpose'} eq "look" || $ENV{'QUERY_STRING'} =~ /^look/i  || ( !$ENV{'QUERY_STRING'} && $ENV{'REQUEST_METHOD'} =~ /get/i )  ) { &list_items; exit; } if ( $FORM{'purpose'} eq "$lang[35]" ) { if (!&GetCookies("$cookie_name2") && ($ip_or_cookie == 1) ) { &cookie_failure; } &get_shoppers_items; $untainted = &untaint("$path1/$shopper_id$ext"); open(CART,">$untainted"); $n = 0; foreach $item (@items) { if ( $n == $FORM{'item'} ) { &change_quantity; } else { print CART "$item"; } $n++; } close CART; if ( @items <= 3 && $FORM{'quantity'} == 0 ) { $untainted = &untaint("$path1/$shopper_id$ext"); unlink("$untainted"); } &list_items; exit; } if ( $FORM{'purpose'} eq "$lang[38]" ) { if (!&GetCookies("$cookie_name2") && ($ip_or_cookie == 1) ) { &cookie_failure; } &get_shoppers_items; $untainted = &untaint("$path1/$shopper_id$ext"); open(CART,">$untainted"); $n = 0; foreach $item (@items) { unless ( $n == $FORM{'item'} ) { print CART "$item"; } $n++; } close CART; &list_items; exit; } if ( ($FORM{'purpose'} eq "check") && ($option3 == 1) ) { &check_cookie; &check_tax; if ($paper_font_color) { &paper_font_color; } print "Content-type: text/html\n\n"; $purpose_temp = "$lang[1]"; $purpose_temp_title = "$purpose_temp"; $purpose_temp_title =~ s/<([^>]|\n)*>//g; $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "<HTML><HEAD><TITLE>$biz_temp - $purpose_temp_title</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=$image ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[1]</FONT></CENTER>"; $purchase_method2 = "$lang[26]"; &show_invoice; &address_table; print "<BR><CENTER><TABLE WIDTH=\"$table_width\" BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD>"; print "<FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[10] </FONT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\"> \"$payable\"</FONT><BR>"; print "<FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[11]</FONT><BR><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add1</FONT><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add2</FONT><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add3</FONT><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add4</FONT><BR>" if ( $add4 ); print "\n\n<BR><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$guarantee</FONT><BR>\n\n"; print "<BR><A HREF=\"$ssl_target_page\" TARGET=\"_top\"><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\">$lang[12] $bizname</FONT></A><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add5</FONT><BR>"; print"<A HREF=\"mailto:$myemail[0]\"><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$myemail[0]</FONT></A><BR>"; print "</TD></TR></TABLE></CENTER>"; &print_button; print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; print "</BODY></HTML>"; exit; } if ( ($FORM{'purpose'} eq "credit") || ($FORM{'purpose'} eq "aux_processor") || ($FORM{'purpose'} eq "aux_processor2") || ($FORM{'purpose'} eq "check_transfer") ) { &get_shoppers_items; $spam_net_check = "@items"; if ( ($ENV{'HTTP_HOST'} eq "www.dansie.net") && ($FORM{'merchant'} eq "dansiecart") && ( $FORM{'purpose'} eq "credit" ) && ( $spam_net_check =~ /(Dansie Spam Net)/ ) ) { $FORM{'purpose'} = "aux_processor"; } if ( ($ENV{'HTTP_HOST'} eq "www.dansie.net") && ($FORM{'merchant'} eq "dansiecart") && ( $FORM{'purpose'} eq "credit" ) ) { &non_post_secure_server; } &check_cookie; &check_tax; if ( $items[1] =~ /$delimiter2/ ) { ($field1,$field2,$field3,$field4,$field5,$field6,$field7,$field8,$field9) = split(/$delimiter2/, $items[1]); } if ( $FORM{'purpose'} eq "credit" ) { $purpose_temp = "$lang[14]"; if ( $path5 !~ /paypal.com/ ) { $ssl_target_top = ""; } } if ( $FORM{'purpose'} eq "check_transfer" ) { $purpose_temp = "$lang[71]"; } if ( $FORM{'purpose'} eq "aux_processor" ) { $purpose_temp = "$lang[154]"; } if ( $FORM{'purpose'} eq "aux_processor2" ) { $purpose_temp = "$lang[165]"; } print "Content-type: text/html\n\n"; $purpose_temp_title = $purpose_temp; $purpose_temp_title =~ s/<([^>]|\n)*>//g; $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "<HTML><HEAD><TITLE>$biz_temp - $purpose_temp_title</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$purpose_temp</FONT></CENTER>"; print "<CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[15]</FONT></CENTER><BR>"; &get_shipping_cookie; &print_ship_address; $show_copy_button = 1; &print_ship_address2; &comments if($comments); print "<CENTER><BR>"; if ( $lang[19] =~ /^http/i ) { print "<INPUT TYPE=IMAGE NAME=\"\" SRC=\"$lang[19]\" VALUE=\"$lang[19]\" BORDER=0>"; } else { print "<INPUT TYPE=SUBMIT VALUE=\"$lang[19]\">"; } print "</CENTER> <INPUT TYPE=HIDDEN NAME=merchant VALUE=\"$FORM{'merchant'}\">"; if ( $FORM{'purpose'} eq "check_transfer" ) { print "<INPUT TYPE=HIDDEN NAME=purpose2 VALUE=\"check_transfer\">\n"; } if ( $FORM{'purpose'} eq "aux_processor" ) { print "<INPUT TYPE=HIDDEN NAME=purpose2 VALUE=\"aux_processor\">\n"; } if ( $FORM{'purpose'} eq "aux_processor2" ) { print "<INPUT TYPE=HIDDEN NAME=purpose2 VALUE=\"aux_processor2\">\n"; } print "</FORM>"; print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; print "</BODY></HTML>"; exit; } if ( ( $FORM{'purpose'} eq "ship_info" && (!$FORM{'purpose2'})  ) || ( $FORM{'purpose2'} eq "check_transfer" ) || ( $FORM{'purpose2'} eq "aux_processor" ) || ( $FORM{'purpose2'} eq "aux_processor2" ) ) { &get_shoppers_items; if ($comments) { chop($items[0]) if ( $items[0] =~ /\n$/ ); ($a,$b,$c,$d,$e,$f,$coupon_number) = split(/$delimiter2/,$items[0]); $items[0] = "$a$delimiter$b$delimiter$c$delimiter$d$delimiter$FORM{'comments'}$delimiter$f$delimiter$coupon_number\n"; } $items[1] = "$FORM{'name'}$delimiter$FORM{'company'}$delimiter$FORM{'address'}$delimiter$FORM{'city'}$delimiter$FORM{'state'}$delimiter$FORM{'zip'}$delimiter$FORM{'country'}$delimiter$FORM{'phone'}$delimiter$FORM{'email'}$delimiter$FORM{'name2'}$delimiter$FORM{'company2'}$delimiter$FORM{'address2'}$delimiter$FORM{'city2'}$delimiter$FORM{'state2'}$delimiter$FORM{'zip2'}$delimiter$FORM{'country2'}$delimiter$FORM{'phone2'}$delimiter$FORM{'email2'}\n"; $untainted = &untaint("$path1/$shopper_id$ext"); open(CART,">$untainted"); foreach $item (@items) { print CART "$item"; } close CART; if ($ip_or_cookie == 1) { &SetCookieExpDate; &SetCompressedCookies('shipping_address','name',"$FORM{'name'}",'company',"$FORM{'company'}",'address',"$FORM{'address'}",'city',"$FORM{'city'}",'state',"$FORM{'state'}",'zip',"$FORM{'zip'}",'country',"$FORM{'country'}",'phone',"$FORM{'phone'}",'email',"$FORM{'email'}",'name2',"$FORM{'name2'}",'company2',"$FORM{'company2'}",'address2',"$FORM{'address2'}",'city2',"$FORM{'city2'}",'state2',"$FORM{'state2'}",'zip2',"$FORM{'zip2'}",'country2',"$FORM{'country2'}",'phone2',"$FORM{'phone2'}",'email2',"$FORM{'email2'}"); } $required_fields = &required_fields; $required_fields2 = &required_fields2; if ( $FORM{'purpose'} eq "credit" ) { $purpose_temp = "$lang[14]"; } if ( $FORM{'purpose'} eq "check_transfer" ) { $purpose_temp = "$lang[71]"; } if ( $FORM{'purpose'} eq "aux_processor" ) { $purpose_temp = "$lang[154]"; } if ( $FORM{'purpose'} eq "aux_processor2" ) { $purpose_temp = "$lang[165]"; } if ( !$required_fields || !$required_fields2 || $no_valid_email_address || $no_valid_email_address2 ) { $purpose_temp_title = $purpose_temp; $purpose_temp_title =~ s/<([^>]|\n)*>//g; $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>$biz_temp - $purpose_temp_title</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[20]<BR>$lang[21]\n"; if ($no_valid_email_address || $no_valid_email_address2) { print "<BR>$lang[166]\n"; } print "<BR><BR>\n"; print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; exit; } &deny_email_domains; &sales_tax_state_verification; if ($pending_file) { $purchase_method2 = "$lang[152]"; $tracking_file = "$pending_file"; &order_tracking; } if ( $FORM{'purpose2'} eq "check_transfer" ) { if ( $option4 =~ /^(http)/i ) { $path5 = "$option4". '?' . "check"; } elsif ( $option4 =~ /^(signio)/i ) { $path5 = "$signio_echeck_url"; } elsif ( $option4 =~ /^(telecheck)/i ) { $path5 = "$verisign_telecheck_url"; $MerchantID = "$i_check_id"; } elsif ( $option4 =~ /(chexpedite)/i ) { $path5 = "$option4"; $MerchantID = "$i_check_id"; } else { &i_check; } } &calculate_fulltotal; if ( ( ($path5 =~ /(html)$/) || ($path5 =~ /(htm)$/) ) && ( ($path5 !~ /(\.pl)/) && ($path5 !~ /(\.cgi)/) ) ) { } if ( $FORM{'purpose2'} eq "aux_processor" ) { if ( $aux_processor_payment_option !~ /\|/ ) { $path5 = "http://216.184.194.135/encrypt.cfm"; $MerchantID = "$aux_processor_payment_option"; } else { ($path5,$MerchantID) = split(/\|/,"$aux_processor_payment_option"); } $MerchantApprovedURL = "$MerchantApprovedURL_aux_processor"; &cambist_or_authorize_net_names; } if ( $FORM{'purpose2'} eq "aux_processor2" ) { ($path5,$MerchantID) = split(/\|/,"$aux_processor2_payment_option"); $MerchantApprovedURL = "$MerchantApprovedURL_aux_processor2"; &cambist_or_authorize_net_names; } if ( $FORM{'purpose2'} ne "aux_processor" && $FORM{'purpose2'} ne "aux_processor2" ) { $processor_path = "$vars"; $a = ""; until ($a eq "/" || $processor_path eq "") { $a = chop($processor_path); } $processor_path = "$processor_path/processor.dat"; if ( (-e "$processor_path") && ( $FORM{'purpose2'} ne "check_transfer" )) { &custom_processor; } else { &cambist_or_authorize_net_names; } } $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>$biz_temp - $purpose_temp</TITLE>\n$meta_tag\n</HEAD>"; if (!$force_no_script) { print "\n<SCRIPT LANGUAGE=\"JavaScript\">\n function AutoSubmit()\n {\n document.form1.submit()\n }\n </SCRIPT>\n"; } if (!$force_no_script) { print "<NOSCRIPT>\n"; } print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">\n"; if (!$force_no_script) { print "\n</NOSCRIPT>\n"; } if (!$force_no_script) { print "<SCRIPT LANGUAGE=\"JavaScript\">\n document.write('<BODY BGCOLOR=\"$bgcolor\" ONLOAD=\"AutoSubmit()\">')\n </SCRIPT>\n"; } if (!$force_no_script) { print "<NOSCRIPT>\n"; } print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$purpose_temp</FONT></CENTER><BR>"; print "<CENTER><TABLE BORDER=0 WIDTH=80%><TR><TD ALIGN=CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[16]</FONT></TD></TR></TABLE></CENTER><BR>"; if (!$force_no_script) { print "\n</NOSCRIPT>\n"; } if ( !$processor_post_method ) { $processor_post_method = "POST"; } print "<CENTER><TABLE><TR><TD>\n\n\n<FORM NAME=\"form1\" METHOD=$processor_post_method ACTION=\"$path5\" $ssl_target_top >\n"; &pass_standard_secure_variables; &pass_ssl_variables; &pass_shipping_secure_variables; if (!$force_no_script) { print "<NOSCRIPT>"; } print "   <INPUT TYPE=SUBMIT VALUE=\"$lang[86]\">\n"; if (!$force_no_script) { print "</NOSCRIPT>"; } print "</FORM>\n\n\n </TD></TR></TABLE>"; if (!$force_no_script) { print "<NOSCRIPT>"; } print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; if (!$force_no_script) { print "</NOSCRIPT>"; } print "</BODY></HTML>\n"; print "<NOSCRIPT>\n <SCRIPT>\n /*\n"; if ( $pending_order ) { if ($bizname_backup) { $bizname = "$bizname_backup"; } $purchase_method = "$lang[152]"; &get_shoppers_items; $pending_order =~ s/ /\,/g; $pending_order =~ s/\,\,/\,/g; $pending_order =~ s/\,\,/\,/g; (@pending_order) = split(/\,/,"$pending_order"); foreach $myemail (@pending_order) { &send_email2('merchant'); } } exit; } if ( ( $ENV{'QUERY_STRING'} =~ /^failure/ ) || ( ( $path5 =~ /www.aba.net.au/i ) && ( $ENV{'QUERY_STRING'} =~ /refused/i ) || ( $ENV{'QUERY_STRING'} =~ /timeout/i ) ) || ( ( $path5 =~ /www.1internetave.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(approve)(\=)(0)(.*)/ ) ) || ( ( $path5 =~ /commercepay\.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(MStatus\=Decline)(.*)/ || $ENV{'QUERY_STRING'} =~ /(.*)(MStatus\=failure)(.*)/ ) ) || ( ( $path5 =~ /(eplastic)$/ ) && ( $FORM{'accepted'} eq "NO" ) ) || ( ( $path5 =~ /(eplastic)$/ ) && ( $FORM{'accepted'} eq "YES" ) && ( $ENV{'HTTP_REFERER'} && $ENV{'HTTP_REFERER'} !~ /(https\:\/\/www\.e-plastic\.com)/ ) ) || ( ( $path5 =~ /authorize\.net/i ) && ( ($FORM{'RESPONSECODE'} eq "D") || ($FORM{'RESPONSECODE'} eq "R") || ($FORM{'RESPONSECODE'} eq "E") ) ) || ( ( $path5 =~ /secpay\.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(valid\=false)(.*)/ ) ) || ( ( $path5 =~ /signio\.com/i && $ENV{'QUERY_STRING'} =~ /^($unique_MAU)/ ) && ( $ENV{'QUERY_STRING'} =~ /(RESPMSG)/ ) && ( $ENV{'QUERY_STRING'} !~ /(.*)(RESPMSG\=Approved)(.*)/ ) ) || ( ( $path5 =~ /anacom\.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(approval\=)/i ) && ( $ENV{'QUERY_STRING'} !~ /(.*)(approval\=)(\d{1,})(.*)/i && $ENV{'QUERY_STRING'} !~ /(.*)(approval\=)(SimulatedApproval)(.*)/i ) ) || ( ( $path5 =~ /payready.net/i ) && ( $ENV{'QUERY_STRING'} =~ /txtApprovalStatus/i ) && ( $ENV{'QUERY_STRING'} !~ /txtApprovalStatus\=0/i ) ) || ( ( $path5 =~ /iongate.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(RESPONSECODE)(\=)(.*)/i ) && ( $ENV{'QUERY_STRING'} !~ /(.*)(RESPONSECODE)(\=)(AA)(.*)/i ) ) || ( ( $path5 =~ /intellipay.net/i ) && ( $ENV{'QUERY_STRING'} =~ /^($unique_MAU)/ ) && ( ( $FORM{'RESPONSECODE'} ne "A" ) && ( $ENV{'QUERY_STRING'} !~ /(.*)(RESPONSECODE)(\=)(A)(.*)/i ) ) ) || ( ( $path5 =~ /arvic.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(ASC_POSRes)(\=)(.*)/i ) && ( $ENV{'QUERY_STRING'} !~ /(.*)(ASC_POSRes)(\=)(0000)(.*)/i ) ) ) { &check_duplicate_order2; $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>$biz_temp - $lang[22]</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[23]</FONT></CENTER><BR>"; print "<CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">"; &get_shoppers_items; chop($items[0]); @info = split(/$delimiter2/, $items[0]); $tax = $info[2]; $ship_method = $info[3]; print "<FORM METHOD=POST ACTION=$path3>"; print "<INPUT TYPE=HIDDEN NAME=ship_method VALUE=\"$ship_method\">"; print "<INPUT TYPE=HIDDEN NAME=tax VALUE=\"$tax\">"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\"><B>$lang[24] </B></FONT><BR>"; print "<SELECT NAME=purpose size=1>"; print "<OPTION VALUE=\"credit\">$lang[14]" if ($option1); print "<OPTION VALUE=\"aux_processor\">$lang[154]" if ($aux_processor_payment_option); print "<OPTION VALUE=\"aux_processor2\">$lang[165]" if ($aux_processor2_payment_option); print "<OPTION VALUE=\"check_transfer\">$lang[71]" if ($option4); print "<OPTION VALUE=\"credit_phone\">$lang[25]" if ($option2); print "<OPTION VALUE=\"check\">$lang[26]" if ($option3); print "<OPTION VALUE=\"cod\">$lang[97]" if ($option5); print "<OPTION VALUE=\"auxiliary\"> $option6" if ($option6); print "</SELECT><BR><BR>"; if ( $lang[148] =~ /^http/i ) { print "<INPUT TYPE=IMAGE NAME=\"\" SRC=\"$lang[148]\" VALUE=\"$lang[148]\" BORDER=0>"; } else { print "<INPUT TYPE=SUBMIT VALUE=\"$lang[148]\">"; } print "<INPUT TYPE=HIDDEN NAME=merchant VALUE=\"$FORM{'merchant'}\"> </FORM><BR>"; if ( !$ssl_frames ) { $path4 = "$ssl_target_page"; } &home; print "<BR><BR>\n"; print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; print "</FONT></CENTER>"; print "</BODY></HTML>"; exit; } if (  ( $ENV{'QUERY_STRING'} =~ /^($unique_MAU)/ ) || ( $ENV{'QUERY_STRING'} =~ /^(check$unique_MAU)/ ) || ( $ENV{'QUERY_STRING'} =~ /^(icheck$unique_MAU)/ ) || ( $ENV{'QUERY_STRING'} =~ /^(ValidCheck$unique_MAU)/ ) || ( $ENV{'QUERY_STRING'} =~ /^(aux_processor$unique_MAU)/ ) || ( $ENV{'QUERY_STRING'} =~ /^(aux_processor2$unique_MAU)/ ) || ( ( $path5 =~ /www.1internetave.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(approve)(\=)(1)(.*)/ ) ) || ( ( $path5 =~ /anacom\.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(approval\=)(\d{1,})(.*)/i || $ENV{'QUERY_STRING'} =~ /(.*)(approval\=)(SimulatedApproval)(.*)/i ) ) || ( ( $path5 =~ /bamart.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(Ecom_transaction_complete)(\=)(TRUE)(.*)/ ) ) || ( ( $path5 =~ /payready.net/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(txtApprovalStatus)(\=)(0)(.*)/i ) ) || ( ( $path5 =~ /iongate.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(RESPONSECODE)(\=)(AA)(.*)/i ) ) || ( ( $path5 =~ /intellipay.net/i ) && ( $FORM{'RESPONSECODE'} eq "A" ) ) || ( ( $path5 =~ /arvic.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(ASC_POSRes)(\=)(0000)(.*)/i ) ) ) { &check_duplicate_order2; if ($paper_font_color) { &paper_font_color; } if ( $ENV{'QUERY_STRING'} =~ /^($unique_MAU)/ ) { $purpose_temp = "$lang[14]<BR>$instant_trans"; } if ( ( $ENV{'QUERY_STRING'} =~ /^(check$unique_MAU)/ ) || ( $ENV{'QUERY_STRING'} =~ /^(icheck$unique_MAU)/ ) || ( $ENV{'QUERY_STRING'} =~ /^(ValidCheck$unique_MAU)/ ) ) { $purpose_temp = "$lang[71]"; } if ( ( $ENV{'QUERY_STRING'} =~ /^(aux_processor$unique_MAU)/ ) ) { $purpose_temp = "$lang[154]"; } if ( ( $ENV{'QUERY_STRING'} =~ /^(aux_processor2$unique_MAU)/ ) ) { $purpose_temp = "$lang[165]"; } if ( ( $path5 =~ /anacom\.com/i ) && ( $ENV{'QUERY_STRING'} =~ /(.*)(approval\=)(\d{1,})(.*)/i || $ENV{'QUERY_STRING'} =~ /(.*)(approval\=)(SimulatedApproval)(.*)/i ) ) { $ENV{'QUERY_STRING'} = "$unique_MAU" .  "$ENV{'QUERY_STRING'}"; } $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "Content-type: text/html\n\n"; print "<!--BEGIN-->\n"; print "<HTML><HEAD><TITLE>$biz_temp - $lang[28]</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$purpose_temp<BR>$lang[28]</FONT></CENTER><BR>"; print "<CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[29] </FONT></CENTER><BR>"; $purchase_method2 = "$purpose_temp"; if ( $ENV{'QUERY_STRING'} =~ /^($unique_MAU)/ ) { $purchase_method2 = "$lang[14]"; } &order_tracking; $affiliate = 1; &show_invoice; if ( $items[1] =~ /$delimiter2/ ) { ($field1,$field2,$field3,$field4,$field5,$field6,$field7,$field8,$field9,$field10,$field11,$field12,$field13,$field14,$field15,$field16,$field17,$field18) = split(/$delimiter2/, $items[1]); } print "<BR><CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[30]</FONT></CENTER><BR>"; &print_ship_address3; &print_ship_address4; &comments2 if($comments); print "<BR></FORM>"; print "<BR><CENTER><TABLE WIDTH=\"$table_width\" BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD>\n\n <FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$guarantee</FONT><BR><BR>\n\n"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add1</FONT><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add2</FONT><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add3</FONT><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add4</FONT><BR>" if ( $add4 ); print"<BR><A HREF=\"$ssl_target_page\" TARGET=\"_top\"><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[12] $bizname</FONT></A><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add5</FONT><BR>"; print"<A HREF=\"mailto:$myemail[0]\"><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$myemail[0]</FONT></A><BR>"; print "</TD></TR></TABLE></CENTER>"; &print_button; &check_mailprog; print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; print "</BODY></HTML>\n"; print "<!--BEGIN-->\n"; print "<NOSCRIPT>\n <SCRIPT>\n /*\n"; if ( $ENV{'QUERY_STRING'} =~ /^($unique_MAU)/ ) { $purpose_temp = "$lang[14]"; } if ( ( $ENV{'QUERY_STRING'} =~ /^(check$unique_MAU)/ ) || ( $ENV{'QUERY_STRING'} =~ /^(icheck$unique_MAU)/ ) ) { $purpose_temp = "$lang[71]"; } $purchase_method = "$purpose_temp"; &send_email; $untainted = &untaint("$path1/$shopper_id$ext"); unlink("$untainted"); exit; } if ( $FORM{'purpose'} eq "credit_phone" ||  $FORM{'purpose'} eq "cod" || ( $FORM{'purpose'} eq "check" && ($option3 == 2) ) || $FORM{'purpose'} eq "auxiliary" ) { &check_cookie; &check_tax; &get_shoppers_items; if ( $items[1] =~ /$delimiter2/ ) { ($field1,$field2,$field3,$field4,$field5,$field6,$field7,$field8,$field9,$field10,$field11,$field12,$field13,$field14,$field15,$field16,$field17,$field18) = split(/$delimiter2/, $items[1]); } print "Content-type: text/html\n\n"; if ( $FORM{'purpose'} eq "credit_phone" ) { $purpose_temp = "$lang[25]"; } if ( $FORM{'purpose'} eq "cod" ) { $purpose_temp = "$lang[97]"; } if ( $FORM{'purpose'} eq "check" ) { $purpose_temp = "$lang[1]"; } if ( $FORM{'purpose'} eq "auxiliary" ) { $purpose_temp = "$option6"; } $purpose_temp_title = "$purpose_temp"; $purpose_temp_title =~ s/<([^>]|\n)*>//g; $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "<HTML><HEAD><TITLE>$biz_temp - $purpose_temp_title</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$purpose_temp</FONT></CENTER>"; print "<CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[15]</FONT></CENTER><BR>"; &get_shipping_cookie; &print_ship_address; if ( ($FORM{'purpose'} eq "credit_phone") || ( $FORM{'purpose'} eq "auxiliary" ) ) { $show_copy_button = 1; &print_ship_address2; } &comments if ($comments); print "<INPUT TYPE=HIDDEN NAME=purpose2 VALUE=\"$FORM{'purpose'}\">"; print "<CENTER><BR>"; if ( $lang[19] =~ /^http/i ) { print "<INPUT TYPE=IMAGE NAME=\"\" SRC=\"$lang[19]\" VALUE=\"$lang[19]\" BORDER=0>"; } else { print "<INPUT TYPE=SUBMIT VALUE=\"$lang[19]\">"; } print "</CENTER> <INPUT TYPE=HIDDEN NAME=merchant VALUE=\"$FORM{'merchant'}\"> </FORM>"; print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; print "</BODY></HTML>"; exit; } if ( $FORM{'purpose2'} eq "credit_phone" || $FORM{'purpose2'} eq "cod" || ( $FORM{'purpose2'} eq "check" && ($option3 == 2) ) || $FORM{'purpose2'} eq "auxiliary" ) { &check_duplicate_order; &get_shoppers_items; &calculate_fulltotal; &get_shoppers_items; if ($comments) { chop($items[0]) if ( $items[0] =~ /\n$/ ); ($a,$b,$c,$d,$e,$f,$coupon_number) = split(/$delimiter2/,$items[0]); $items[0] = "$a$delimiter$b$delimiter$c$delimiter$d$delimiter$FORM{'comments'}$delimiter$f$delimiter$coupon_number\n"; } $items[1] = "$FORM{'name'}$delimiter$FORM{'company'}$delimiter$FORM{'address'}$delimiter$FORM{'city'}$delimiter$FORM{'state'}$delimiter$FORM{'zip'}$delimiter$FORM{'country'}$delimiter$FORM{'phone'}$delimiter$FORM{'email'}$delimiter$FORM{'name2'}$delimiter$FORM{'company2'}$delimiter$FORM{'address2'}$delimiter$FORM{'city2'}$delimiter$FORM{'state2'}$delimiter$FORM{'zip2'}$delimiter$FORM{'country2'}$delimiter$FORM{'phone2'}$delimiter$FORM{'email2'}\n"; $untainted = &untaint("$path1/$shopper_id$ext"); open(CART,">$untainted"); foreach $item (@items) { print CART "$item"; } close CART; if ($ip_or_cookie == 1) { &SetCookieExpDate; &SetCompressedCookies('shipping_address','name',"$FORM{'name'}",'company',"$FORM{'company'}",'address',"$FORM{'address'}",'city',"$FORM{'city'}",'state',"$FORM{'state'}",'zip',"$FORM{'zip'}",'country',"$FORM{'country'}",'phone',"$FORM{'phone'}",'email',"$FORM{'email'}",'name2',"$FORM{'name2'}",'company2',"$FORM{'company2'}",'address2',"$FORM{'address2'}",'city2',"$FORM{'city2'}",'state2',"$FORM{'state2'}",'zip2',"$FORM{'zip2'}",'country2',"$FORM{'country2'}",'phone2',"$FORM{'phone2'}",'email2',"$FORM{'email2'}"); } $required_fields = &required_fields; $required_fields2 = &required_fields2; if (  (!$required_fields || $no_valid_email_address) || ( ($FORM{'purpose2'} eq "credit_phone") && (!$required_fields2 || $no_valid_email_address2) ) || ( ($FORM{'purpose2'} eq "auxiliary") && (!$required_fields2 || $no_valid_email_address2) ) ) { $purpose_temp_title = "$purpose_temp"; $purpose_temp_title =~ s/<([^>]|\n)*>//g; $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>$biz_temp - $purpose_temp_title</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[20]<BR>$lang[21]\n"; if ($no_valid_email_address || $no_valid_email_address2) { print "<BR>$lang[166]\n"; } print "<BR><BR>\n"; print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; exit; } &deny_email_domains; &sales_tax_state_verification; if ( $FORM{'purpose2'} eq "credit_phone" ) { $purpose_temp = "$lang[25]"; } if ( $FORM{'purpose2'} eq "cod" ) { $purpose_temp = "$lang[97]"; } if ( $FORM{'purpose2'} eq "check" ) { $purpose_temp = "$lang[1]"; } if ( $FORM{'purpose2'} eq "auxiliary" ) { $purpose_temp = "$option6"; } if ($paper_font_color) { &paper_font_color; } $purpose_temp_title = "$purpose_temp"; $purpose_temp_title =~ s/<([^>]|\n)*>//g; $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>$biz_temp - $purpose_temp_title</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">"; if ( $FORM{'purpose2'} eq "credit_phone" ) { print "$lang[25]<BR>$lang[31]<BR>$add4"; } if ( $FORM{'purpose2'} eq "cod" ) { print "$lang[97]<BR>$lang[98]"; } if ( $FORM{'purpose2'} eq "check" ) { print "$lang[1]"; } if ( $FORM{'purpose2'} eq "auxiliary" ) { print "$lang[83]"; } print "</FONT></CENTER>"; print "<CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[29]</FONT></CENTER><BR>"; $purchase_method2 = "$purpose_temp"; &order_tracking; &show_invoice; if ( $items[1] =~ /$delimiter2/ ) { ($field1,$field2,$field3,$field4,$field5,$field6,$field7,$field8,$field9,$field10,$field11,$field12,$field13,$field14,$field15,$field16,$field17,$field18) = split(/$delimiter2/, $items[1]); } print "<BR><CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[30]</FONT></CENTER><BR>"; &print_ship_address3; if ( ($FORM{'purpose2'} eq "credit_phone") || ($FORM{'purpose2'} eq "auxiliary") ) { &print_ship_address4; } &comments2 if ($comments); print "<BR> <INPUT TYPE=HIDDEN NAME=merchant VALUE=\"$FORM{'merchant'}\"> </FORM>"; print "<BR><CENTER><TABLE WIDTH=\"$table_width\" BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD>\n\n <FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$guarantee</FONT><BR><BR>\n\n"; if ( $FORM{'purpose2'} eq "check" ) { print "<FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[10] </FONT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\"> \"$payable\"</FONT><BR>"; print "<FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[11]</FONT><BR><BR>"; } print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add1</FONT><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add2</FONT><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add3</FONT><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add4</FONT><BR>" if ( $add4 ); print"<BR><A HREF=\"$ssl_target_page\" TARGET=\"_top\"><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[12] $bizname</FONT></A><BR>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$add5</FONT><BR>"; print"<A HREF=\"mailto:$myemail[0]\"><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$myemail[0]</FONT></A><BR>"; print "</TD></TR></TABLE></CENTER>"; &print_button; &check_mailprog; print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; print "</BODY></HTML>\n <NOSCRIPT>\n <SCRIPT>\n /*\n"; if ( $FORM{'purpose2'} eq "credit_phone" ) { $purchase_method = "$lang[25]"; } if ( $FORM{'purpose2'} eq "cod" ) { $purchase_method = "$lang[97]"; } if ( $FORM{'purpose2'} eq "check" ) { $purchase_method = "$lang[1]"; } if ( $FORM{'purpose2'} eq "auxiliary" ) { $purchase_method = "$option6"; } &send_email; if ( ($FORM{'purpose2'} eq "cod") || ($FORM{'purpose2'} eq "auxiliary") ) { $untainted = &untaint("$path1/$shopper_id$ext"); unlink("$untainted"); } exit; } if ( $ENV{'QUERY_STRING'} =~ /^(referrer)(\=)(.*)/i ) { @referrer_info = split(/\&/,$ENV{'QUERY_STRING'}); foreach (@referrer_info) { ($name,$value) = split(/\=/,$_); if ($name eq "referrer") { $referrer = "$value"; } if ($name eq "url") { $url = "$value"; } if ($name eq "merchant") { $merchant = "$value"; } } if (!$url) { $url = "$path4"; } &get_shoppers_items; $untainted = &untaint("$path1/$shopper_id$ext"); if (!-e "$untainted") { open(CART,">$untainted"); print CART "$date$delimiter$referrer - $invoice\n"; print CART "Shipping address info goes here later\n"; close CART; } $url =~ s/\%3F/\?/g; $url =~ s/\%3D/\=/g; $url =~ s/\%26/\&/g; print "Content-type: text/html\n\n"; print "<HTML><HEAD><META HTTP-EQUIV=REFRESH CONTENT=0;URL=$url></HEAD></HTML>"; exit; } if ( (!$vars_security) && ($ENV{'QUERY_STRING'} =~ /^write_test/i) ) { $path1 .= "/test.txt"; open(FILE,">>$path1"); print FILE "testing... \n"; close(FILE); &increment_invoice; print "Content-type: text/html\n\n"; print "<B>\"carts\" directory and \"invoice.dat\" file write permissions test:</B><BR>"; open(FILE,"$path1"); @lines = <FILE>; close(FILE); open(FILE,"$path2"); @lines2 = <FILE>; close(FILE); print "<TABLE BORDER=1> <TR><TD>File:</TD><TD>\"temp\" directory:</TD><TD>\"shopperid.dat\" file:</TD></TR> <TR><TD>System Path:</TD><TD>$path1</TD><TD>$path2</TD></TR> <TR><TD>Writable?</TD><TD BGCOLOR=#aaaaff>@lines &nbsp;</TD><TD BGCOLOR=#aaaaff>@lines2 &nbsp;</TD></TR> </TABLE><BR>"; print "Are the contents of the above blue areas growing or changing as you click the RELOAD/REFRESH button at the top of your browser? If not then permissions are not set as writable. If you don't know how to set the permissions, send your host the URL to this page and ask them to set permissions for you on this directory and file so the cart.pl script can write to them."; &footer; } if ( $ENV{'QUERY_STRING'} =~ /^test/i ) { $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>$biz_temp - Installation Success!</TITLE>\n$meta_tag\n</HEAD> <BODY BGCOLOR=#FFFFFF>\n"; if ( $diagnostics ) { $temp = ""; foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $temp .= "$name = $value<BR>"; } print "REQUEST_METHOD: $ENV{'REQUEST_METHOD'}<BR>QUERY_STRING: $ENV{'QUERY_STRING'}<BR>POST:<BR>$temp<BR>"; } print "<H1>Installation Success! <BR>Your Dansie Shopping Cart is installed!</H1>"; &check_mailprog; print "<H3>Below is a test form, but it will only work properly if you have your system paths and URLs set correctly in the HOST VARIABLES section of your vars.dat file. Now you may set your Personal, Secure Server and Database Variables.</H3> <FORM METHOD=POST ACTION=\"$path3\"> <FONT FACE=\"Times New Roman\" COLOR=\"#000099\" SIZE=+1> SuperWuper Widget<BR>Price: \$1.00</FONT><BR> <INPUT TYPE=HIDDEN NAME=name VALUE=\"SuperWuper Widget\"> <INPUT TYPE=HIDDEN NAME=price VALUE=\"1.00\"> <INPUT TYPE=HIDDEN NAME=sh VALUE=\"1\"> <INPUT TYPE=HIDDEN NAME=return VALUE=\"$path4\"> <INPUT TYPE=HIDDEN NAME=\"custom1\" VALUE=\"Stock#SW01\">"; if ( $FORM{'merchant'} ) { print "<INPUT TYPE=HIDDEN NAME=merchant VALUE=\"$FORM{'merchant'}\">"; } print "<INPUT TYPE=SUBMIT NAME=\"add\" VALUE=\"Put in Shopping Cart\">\n"; if ( $FORM{'merchant'} ) { $merchant_form_example = "'&lt;INPUT TYPE=HIDDEN NAME=merchant  VALUE=\"$FORM{'merchant'}\">\\n\\n',\n"; } print "<SCRIPT LANGUAGE=\"JavaScript1.2\">\n document.write('<INPUT TYPE=BUTTON VALUE=\"View Form Source\" onClick=\"viewSource()\">');\n </SCRIPT>\n <SCRIPT LANGUAGE=\"JavaScript1.2\">\n <!--\n function viewSource()\n {\n FormSource = window.open(\"\", \"FormSource\", \"resizable=yes,height=400,width=700,scrollbars=yes,titlebar=no\")\n FormSource.document.open()\n FormSource.document.write('\\n<PRE>\\n\\n&lt;FORM METHOD=POST ACTION=\"$path3\">\\n\\n',\n $merchant_form_example '&lt;B>\\n',\n 'SuperWuper Widget&lt;BR>\\n',\n 'Price: \$1.00&lt;BR>\\n',\n '&lt;/B>\\n\\n',\n '&lt;INPUT TYPE=HIDDEN NAME=name    VALUE=\"SuperWuper Widget\">\\n',\n '&lt;INPUT TYPE=HIDDEN NAME=price   VALUE=\"1.00\">\\n',\n '&lt;INPUT TYPE=HIDDEN NAME=sh      VALUE=\"1\">\\n',\n '&lt;INPUT TYPE=HIDDEN NAME=return  VALUE=\"$path4\">\\n',\n '&lt;INPUT TYPE=HIDDEN NAME=custom1 VALUE=\"Stock#SW01\">\\n\\n',\n '&lt;INPUT TYPE=SUBMIT NAME=\"add\"   VALUE=\"Put in Shopping Cart\">\\n',\n '&lt;/FORM>\\n\\n',\n '&lt;!-- <BR>Details on HTML product forms are in section 1 \\nof Template.html in the <A HREF=\"http://www.dansie.net/cart_readme.html\" TARGET=\"ReadMe\">ReadMe</A> package. \\n-->\\n</PRE>\\n')\n FormSource.document.close()\n }\n //-->\n </SCRIPT>\n"; print "</FORM>\n"; if ($db_version < 3 ) { $database_link_example = "$path3?db$query_separator2" . "stuff.dat$query_separator2" . "All%20Items"; if ( $FORM{'merchant'} ) { $database_link_example .= "$query_separator2" . "merchant=$FORM{'merchant'}"; } } else { $database_link_example = "$path3?db=stuff.dat"; if ( $FORM{'merchant'} ) { $database_link_example .= "&merchant=$FORM{'merchant'}"; } } print "<H3>The cart is activated by either an <A HREF=\"http://www.dansie.net/cart_form_source.html\">HTML product form</A><BR>Or by a link to the cart script with a query string to a <A HREF=\"http://www.dansie.net/stuff.dat\">database file</A>.<BR>Database link example: <A HREF=\"$database_link_example\">$database_link_example</A></H3>"; &footer; } if ( $FORM{'purpose'} eq "coupon_discount" ) { if (!&GetCookies("$cookie_name2") && ($ip_or_cookie == 1) ) { &cookie_failure; } &get_shoppers_items; $coupon_discount_file = "$vars"; $a = ""; until ($a eq "/" || $coupon_discount_file eq "") { $a = chop($coupon_discount_file); } $coupon_discount_file = "$coupon_discount_file/discount.dat"; open (FILE, "$coupon_discount_file"); @coupons=<FILE>; close (FILE); foreach $line (@coupons) { if ($line =~ /\n$/) { chop($line); } ($coupon_number,$coupon_amount) = split(/$delimiter2/,$line); if ( $FORM{'coupon'} eq "$coupon_number" ) { &get_shoppers_items; chop($items[0]); ($a,$invoice,$state,$ship_method,$comments2,$trash) = split(/$delimiter2/, $items[0]); $items[0] = "$a$delimiter$invoice$delimiter$state$delimiter$ship_method$delimiter$comments2$delimiter$coupon_amount$delimiter$coupon_number\n"; $untainted = &untaint("$path1/$shopper_id$ext"); open(CART,">$untainted"); foreach $item (@items) { print CART "$item"; } close (CART); last; } } &list_items; exit; } if ( $FORM{'purpose'} eq "empty_entire_cart" ) { if (!&GetCookies("$cookie_name2") && ($ip_or_cookie == 1) ) { &cookie_failure; } &get_shoppers_items; $untainted = &untaint("$path1/$shopper_id$ext"); if ( $items[0] =~ /\n$/ ) { chop($items[0]); } (@temp) = split(/$delimiter2/,"$items[0]"); $temp[5] = ""; $items[0] = "$temp[0]$delimiter$temp[1]$delimiter$temp[2]$delimiter$temp[3]$delimiter$temp[4]$delimiter$temp[5]\n"; open(CART,">$untainted"); print CART "$items[0]"; print CART "$items[1]"; close (CART); &list_items; exit; } if ( $ENV{'QUERY_STRING'} eq "login" ) { &merchant_login; } if ( ( $FORM{'login'} || $FORM{'upload'} || $FORM{'delete'} || $FORM{'view'} || $FORM{'up'} || $FORM{'mkdir'} ) && ( $ENV{'CONTENT_TYPE'} =~ /multipart\/form\-data/i ) ) { &merchant_login2; } &list_items; sub list_items { if ( $FORM{'check_cookie'} ) { &check_cookie; } &get_shoppers_items; chop($items[0]); ($a,$invoice,$state,$ship_method,$comments2,$coupon_amount,$coupon_number) = split(/$delimiter2/, $items[0]); if ( ($ENV{'HTTP_HOST'} || $ENV{'SERVER_NAME'}) && (!$cp2) ) { exit; } print "Content-type: text/html\n\n"; if ( $FORM{'return'} eq "" ) { $FORM{'return'} = "$path4"; } $target = "TARGET=\"$target_name\""; $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "<HTML><HEAD><TITLE>$biz_temp - $lang[32]</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<SCRIPT LANGUAGE=\"JavaScript1.2\">\n // Pop-up window function\n function Start(page,windowWidth,windowHeight)\n {\n OpenWin = window.open(page, \"infoWindow\", \"toolbar=0,location=0,directories=0,status=1,menubar=0,scrollbars=1,resizable=1,width=\" + windowWidth + \",height=\" + windowHeight + \",top=100,left=300\");\n }\n </SCRIPT>\n <CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[33]</FONT></CENTER>"; if ($authorized_referrers_message) { print "<CENTER><BR><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[17]</FONT> <A HREF=\"mailto:$myemail\"><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\">$myemail[0]</FONT></A><BR><BR></CENTER>"; print "\n\n\n<!--\n\$ENV{'HTTP_REFERER'} = $ENV{'HTTP_REFERER'}\nChopped to: $http_referer\n-->\n\n\n"; } if ( @items <= 2 ) { print"<BR><CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[40]</FONT></CENTER><BR><CENTER>"; if ( $FORM{'return'} =~ /$path3\?(.*)/ ) { print "<FORM $post_get_method ACTION=\"$FORM{'return'}\" $target > <INPUT TYPE=HIDDEN NAME=\"should_be_get_method\" VALUE=\"yep\">"; } else { print "<FORM $post_get_method ACTION=\"$FORM{'return'}\" $target >"; } print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">"; if ( $lang[41] =~ /^http/i ) { print "<INPUT TYPE=IMAGE NAME=\"\" SRC=\"$lang[41]\" VALUE=\"$lang[41]\" BORDER=0>"; } else { print "<INPUT TYPE=SUBMIT VALUE=\"$lang[41]\">"; } print "</FONT></FORM></CENTER>"; print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; print "</BODY></HTML>"; exit; } else { print "<CENTER> <TABLE BORDER=$borders2 CELLSPACING=0 CELLPADDING=5 WIDTH=\"$table_width\" > <TR BGCOLOR=\"$address_table_bgcolor\" > <TD ALIGN=CENTER><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font2\"><I>$lang[54]</I></FONT></TD> <TD ALIGN=CENTER><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font2\"><I>$lang[74]</I></FONT></TD> <TD ALIGN=CENTER><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font2\"><I>$lang[34]</I></FONT></TD> <TD ALIGN=CENTER><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font2\"><I>$lang[36]</I></FONT></TD> <TD ALIGN=CENTER><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font2\"><I>$lang[82]</I></FONT></TD> </TR>"; if (!$borders2) { print "<TR><TD COLSPAN=5><HR></TD></TR>"; } $total = 0; $ship_total = 0; $nontaxable = 0; $noshipping = 0; $n = 0; foreach $item (@items) { if ( ( $n == 0 ) || ( $n == 1 ) ) { $n++; next; } @stuff = split(/$delimiter2/,$item); @customs = (@stuff); for($i=1;$i<=5;$i++) { shift(@customs); } $quantity = $stuff[4]; $price_calc = $stuff[1]; &price_calc; $item_total = $each * $stuff[4]; if ($item =~ /\#non.*taxable\#/i) { $nontaxable += $item_total; } if ($item =~ /\#noshipping\#/i) { $noshipping += $item_total; } $total += $item_total; $sh = $stuff[2] * $stuff[4]; $ship_total += $sh; if ($show_ship) { $rows=2; } else { $rows=1; } print "<TR><TD ROWSPAN=$rows VALIGN=TOP><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\"><B>$stuff[0]</B></FONT>"; $image = "$stuff[3]"; if ( $image =~ /^(http)/ || $image =~ /\./ ) { if ( $image =~ /::/ ) { ($image,$image2) = split (/::/,"$image"); if ( $image2 !~ /^(http)/ ) { $temp_url2 =  "$base_img_url/"; } else { $temp_url2 =  ""; } $temp_anchor1 =  "<A HREF=\"$temp_url2$image2\">"; $temp_anchor2 =  "</A>"; } else { $temp_anchor1 = ""; $temp_anchor2 = ""; } if ( $image !~ /^(http)/ ) { $temp_url =  "$base_img_url/"; } else { $temp_url =  ""; } $tn_temp = "$stuff[0]"; $tn_temp =~ s/\"/\&quot\;/g; print "<BR>$temp_anchor1<IMG SRC=\"$temp_url$image\" BORDER=$img_borders ALT=\"$tn_temp\" $uni_width $uni_height >$temp_anchor2"; } print "&nbsp;</TD>"; print "<TD ROWSPAN=$rows VALIGN=TOP><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">"; for ( $i=5;$i<=($customs+4);$i++ ) { $stuff[$i] =~ s/$br_sub/<BR>\n/g; if ( $stuff[$i] ) { print "$stuff[$i]<BR>" unless ( $stuff[$i] =~ /\#non.*taxable\#/i || $stuff[$i] =~ /\#noshipping\#/i || $suppress_desc == 2); } } print "&nbsp;</FONT></TD>"; print "<TD VALIGN=TOP ALIGN=CENTER ROWSPAN=$rows><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" >\n"; print "<FORM METHOD=POST ACTION=$path3> <INPUT TYPE=HIDDEN NAME=purpose VALUE=\"$lang[35]\"> <INPUT TYPE=HIDDEN NAME=merchant VALUE=\"$FORM{'merchant'}\"> <INPUT TYPE=HIDDEN NAME=return VALUE=\"$FORM{'return'}\"> <INPUT TYPE=HIDDEN NAME=item VALUE=$n> <INPUT TYPE=HIDDEN NAME=convert_cookie_to_ip VALUE=\"$shopper_id\">"; if ($fix_int_quantity != 2) { print "<INPUT TYPE=TEXT NAME=quantity VALUE=\"$stuff[4]\" SIZE=$quantity_digits MAXLENGTH=$quantity_digits><BR>"; print "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD>\n"; print "<CENTER>\n"; if ( $lang[35] =~ /^http/i ) { print "<INPUT TYPE=IMAGE NAME=\"purpose\" SRC=\"$lang[35]\" VALUE=\"$lang[35]\" BORDER=0>"; } else { print "<INPUT TYPE=SUBMIT NAME=purpose VALUE=\"$lang[35]\">"; } print "</CENTER>\n"; } else { print "<TABLE BORDER=1 CELLSPACING=0><TR><TD BGCOLOR=\"$address_table_bgcolor\"><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$stuff[4]</FONT></TD></TR></TABLE>\n"; print "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD>\n"; } print "</FORM>\n"; if ( $change_remove_buttons eq "side_by_side" ) { print "</TD>\n<TD>\n"; } else { print "</TD>\n</TR>\n<TR>\n<TD>\n"; } print "<FORM METHOD=POST ACTION=$path3> <INPUT TYPE=HIDDEN NAME=purpose VALUE=\"$lang[38]\"> <INPUT TYPE=HIDDEN NAME=merchant VALUE=\"$FORM{'merchant'}\"> <INPUT TYPE=HIDDEN NAME=return VALUE=\"$FORM{'return'}\"> <INPUT TYPE=HIDDEN NAME=item VALUE=$n> <INPUT TYPE=HIDDEN NAME=convert_cookie_to_ip VALUE=\"$shopper_id\">"; print "<CENTER>\n"; if ( $lang[38] =~ /^http/i ) { print "<INPUT TYPE=IMAGE NAME=\"purpose\" SRC=\"$lang[38]\" VALUE=\"$lang[38]\" BORDER=0>"; } else { print "<INPUT TYPE=SUBMIT NAME=purpose VALUE=\"$lang[38]\">"; } print "</CENTER>\n"; print "</FORM>\n"; print "</TD></TR></TABLE>\n"; print "</TD>\n"; $each = sprintf("$decimals","$each"); print "<TD ROWSPAN=1 ALIGN=RIGHT VALIGN=TOP><NOBR><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$symbol$each</FONT></NOBR></TD>"; print "<TD ROWSPAN=$rows VALIGN=TOP ALIGN=RIGHT><NOBR><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$symbol"; printf "$decimals", $item_total; print "</FONT></NOBR></TD></TR>";   if ( $show_ship ) { $sh = sprintf("$decimals",$sh); print "<TR><TD ALIGN=CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[37]<BR>($wt)</FONT><BR><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$sh</FONT></TD></TR>"; } if (!$borders2) { print "<TR><TD COLSPAN=5><HR></TD></TR>"; } $n++; } if ( $shipping_weight_total == 1 && $ship_allow == 1 ) { print "<TR><TD COLSPAN=4><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\">$lang[56]</FONT></TD><TD ALIGN=RIGHT> <FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\"> $ship_total $wt</TD></TR>\n"; } if ( $coupon_amount ) { &coupon_amount; print "<TR><TD COLSPAN=4><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\">$lang[116] ($coupon_amount)</FONT></TD><TD ALIGN=RIGHT> <FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\"> - $symbol $temp</TD></TR>"; } &webstore_discount; if ( $discount_amount ) { $total -= $discount_amount; if ( $nontaxable ) { $nontaxable -= $discount_amount; } print "<TR><TD COLSPAN=4><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\">$lang[108] ($disc_percent\%)</FONT></TD><TD ALIGN=RIGHT> <FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\"> - $symbol $discount_amount</TD></TR>"; if (!$borders2) { print "<TR><TD COLSPAN=5><HR></TD></TR>"; } } $total = sprintf("$decimals",$total); $price[0] = sprintf("$decimals",$price[0]); $tax_temp = $total - $nontaxable; $tax_temp = (($tax/100) * $tax_temp); $tax_temp =~ /(.*)(\.)(\d)(\d)(\d)/; if ( $5 >= 5 ) { $tax_temp += .005; } $tax_temp = sprintf("$decimals",$tax_temp); &ship_calc; if (!$force_no_script) { print " <SCRIPT language=\"JavaScript\">\n compat = false;\n if( parseInt( navigator.appVersion ) >= $compat ) { compat = true; }\n </SCRIPT>\n <SCRIPT language=\"JavaScript1.2\">\n //if( (navigator.appVersion.search(/Mac/i)>=0) && (navigator.appName==\"Netscape\") )\n if( navigator.appVersion.search(/Mac/i)>=0 )\n { compat = false; }\n var tax = 0\n var subTotal = $total                // original sub total\n var salesTax = $tax_temp             // state sales tax if resident\n"; if ( $ship_allow == 1 ) { print "\nvar ship_method = $price[0]          // price of cheapest shipping method\n"; } elsif ( $ship_allow == 2) { print "\nvar ship_method = $ship_total        // price of cheapest shipping method\n"; } else { print "\nvar ship_method = 0          // price of cheapest shipping method\n"; } print "\ntotal = subTotal + ship_method       // sub total + cheapest shipping\n"; print "CurrentTaxRate = 0      // Initialize tax carrier\n"; print "Tax = new Array()\n"; $sn = 0; foreach (@state) { print "Tax[\"$state[$sn]\"] = $tax[$sn];\n"; $sn++; } print "\nfunction ShipUpdate() {\n"; if ( !$ship_allow ) { print "total = subTotal;\n"; } if ( $ship_allow == 1 ) { $sn = 0; foreach (@method) { print "if ( document.ordform.ship_method[$sn].selected ) { ship_method = $price[$sn] }\n"; $sn++; } print "total = subTotal + ship_method;\n"; } if ( $ship_allow == 2 ) { $sn = 0; foreach (@shipping_locations) { if (!$price[$sn]) { $price[$sn] = "0"; } print "if ( document.ordform.ship_method[$sn].selected ) { ship_method = $price[$sn] }\n"; $sn++; } print "total = subTotal + ship_method;\n"; } if ( $tax_allow == 1 || $tax_allow == 3 ) { print " if ( document.ordform.tax.type == \"checkbox\" )\n {\n if (document.ordform.tax.checked)\n {\n CurrentTaxRate = $tax[0];\n }\n else\n {\n CurrentTaxRate = 0;\n }\n }\n else\n {\n"; $nt_tax_temp = @tax; for($i=0;$i<$nt_tax_temp;$i++) { print " if ( document.ordform.tax[$i].selected ) { CurrentTaxRate = Number($tax[$i]); }\n"; } print "if ( document.ordform.tax[$i].selected ) { CurrentTaxRate = Number(0); }\n"; print "\n }\n"; } if ( $tax_allow == 2 || $tax_allow == 4 ) { if (!$ship_allow) { print "total = subTotal;\n"; } print "CurrentTaxRate = $tax[0];\n"; } if ( $tax_allow == 1 || $tax_allow == 2 ) { print "total = Number(total) + (($total - $nontaxable)*(CurrentTaxRate/100));\n"; } if ( $tax_allow == 3 || $tax_allow == 4 ) { print "total = Number(total) + ((total - $nontaxable)*(CurrentTaxRate/100));\n"; } if ( $option5 ) { print "\nCodUpdate()\n"; } print "\nUpdate()\n }"; if ( $option5 ) { print "\nfunction CodUpdate()\n {\n current = document.ordform.purpose.selectedIndex;\n if ( document.ordform.purpose.options[current].value == \"cod\" )\n { total += Number($option5); }\n }\n"; } print "\n\nfunction TaxUpdate()\n {\n if (compat)\n {\n if ( document.ordform.tax.type != \"checkbox\" )\n {\n"; $nt_tax_temp = @tax; for($i=0;$i<$nt_tax_temp;$i++) { print "\n if ( document.ordform.tax[$i].selected ) { CurrentTaxRate = Number($tax[$i]);\n }\n"; } print "if ( document.ordform.tax[$i].selected ) { CurrentTaxRate = Number(0); }\n }\n"; print "if ( document.ordform.tax.type == \"checkbox\" && (!document.ordform.tax.checked) )\n {\n CurrentTaxRate = 0;\n }\n if ( document.ordform.tax.type == \"checkbox\" && (document.ordform.tax.checked) )\n {\n CurrentTaxRate = Number($tax[0]);\n }\n total = subTotal + ship_method\n"; if ( $tax_allow == 1 || $tax_allow == 2 ) { print "total = Number(total) + (($total - $nontaxable)*(CurrentTaxRate/100));\n"; } if ( $tax_allow == 3 || $tax_allow == 4 ) { print "total = Number(total) + ((total - $nontaxable)*(CurrentTaxRate/100));\n"; } if ( $option5 ) { print "\nCodUpdate()\n"; } print "\nUpdate()\n }\n }\n function Commas(intnum)\n {\n intstr = \"\"+intnum;\n inserts = parseInt(intstr.length)/3;\n sep = \"$currency_sep\"\n for(i=1;i<=inserts;i++)\n {\n if (intnum >= Math.pow(1000,i))\n {\n intlen = intstr.length\n temp1=parseInt(\"\"+(intnum/Math.pow(1000,i)))\n temp2=intstr.substring(intlen-((i*4)-1),intlen)\n intstr = temp1+sep+temp2\n }\n }\n whole = intstr\n }\n function Update()\n {\n whole = parseInt(total)\n if ( isNaN(whole) ) { whole = \"0\" }\n dec = total - whole\n // JavaScript calc errors. Makes 176.785 - 176 = .784999999. Should be: .785\n // dec = total - parseInt(whole)\n // alert(dec);\n // dec *= 1000\n dec *= Math.pow(10,($decimals2 + 1))\n dec = parseInt(dec)\n dec /= 10\n round = dec - parseInt(dec)\n round *= 10\n round = parseInt(round)\n dec = parseInt(dec)\n if ( round >= 5 )\n {\n dec += 1;\n // if ( dec == 100 ) { whole += 1; dec = 00 }\n if ( dec == Math.pow(10,$decimals2) ) { whole += 1; dec = 0 }\n }\n // if ( dec < 10 ) { dec = \"0\" + dec }\n // if ( isNaN(dec) ) { dec = \"00\" }\n if ( isNaN(dec) ) { dec = \"0\" }\n dec = String(dec)\n while ( dec.length < $decimals2 ) { dec = \"0\" + dec }\n // document.ordform.total.value = \"$lang[42] $symbol2 \" + whole + \".\" + dec\n; Commas(whole)\n document.ordform.total.value = \"\" + whole\n"; if ( $decimals2 ) { print "document.ordform.total.value = document.ordform.total.value + \".\" + dec\n";  } print "document.ordform.total.value = \"$lang[42] $symbol2 \" + document.ordform.total.value\n }\n </SCRIPT>\n"; } print "<TR BGCOLOR=\"$address_table_bgcolor\"><TD ALIGN=RIGHT COLSPAN=5><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[43] $symbol "; $currency_sep_total = $total; &currency_sep; print "$currency_sep_total"; print "</FONT>"; if ( $tax_allow || $ship_allow || $option5 ) { if (!$force_no_script) { print "<SCRIPT LANGUAGE=\"JavaScript\">\n if (!compat)\n {\n document.write('<FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\"><SUP>*</SUP></FONT>');\n }\n </SCRIPT>\n"; } if (!$force_no_script) { print "<NOSCRIPT>"; } print "<FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\"><SUP>*</SUP></FONT>"; if (!$force_no_script) { print "</NOSCRIPT>"; } } print "</TD></TR></TABLE></CENTER>"; print "<BR>"; print "<CENTER><TABLE WIDTH=\"$table_width\" BORDER=0 CELLPADDING=0 CELLSPACING=0>"; print "<TR><TD VALIGN=BOTTOM><FORM name=\"ordform\" METHOD=POST ACTION=$path3>"; if ( $tax_allow == 1 || $tax_allow == 3 ) { if ( @tax == 1 ) { $sales_tax_temp = (($total-$nontaxable)*$tax[0])/100; $sales_tax_temp =~ /(.*)(\.)(\d)(\d)(\d)/; if ( $5 >= 5 ) { $sales_tax_temp += .005; } $sales_tax_temp = sprintf("$decimals","$sales_tax_temp"); print "<!-- BLOCKQUOTE --><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\"><B>$lang[44] ($tax[0]\%"; if ( $tax_allow == 1 ) { print " = $symbol $sales_tax_temp"; } print ")<BR>$lang[45]<BR>$state[0]. </B></FONT>"; if (!$force_no_script) { print "<SCRIPT LANGUAGE=\"JavaScript\">\n if (compat)\n {\n document.write('<INPUT onClick=\"TaxUpdate($tax[0])\" TYPE=CHECKBOX NAME=\"tax\" VALUE=\"$state[0]\" >')\n }\n else\n { document.write('<INPUT TYPE=CHECKBOX NAME=\"tax\" VALUE=\"$state[0]\" >') }\n </SCRIPT>\n"; } if (!$force_no_script) { print "<NOSCRIPT>"; } print "<INPUT TYPE=CHECKBOX NAME=\"tax\" VALUE=\"$state[0]\" >"; if (!$force_no_script) { print "</NOSCRIPT>"; } print "<BR><BR>"; } if ( @tax > 1 ) { print "<!-- BLOCKQUOTE --><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\"><B>$lang[44] $lang[46]</B></FONT><BR>"; if (!$force_no_script) { print " <SCRIPT LANGUAGE=\"JavaScript\">\n if (compat)\n {\n document.write('<SELECT onChange=\"TaxUpdate()\" NAME=\"tax\" SIZE=1>\\n');\n }\n else { document.write('<SELECT NAME=\"tax\" SIZE=1 >\\n'); }\n"; $sn = 0; foreach (@tax) { $sales_tax_temp = (($total-$nontaxable)*$tax[$sn])/100; $sales_tax_temp = sprintf("$decimals","$sales_tax_temp"); print "document.write('<OPTION VALUE=\"$state[$sn]\"> $state[$sn] $tax[$sn]\%"; if ( $tax_allow == 1 ) { print " = $symbol $sales_tax_temp"; } print "\\n');\n"; $sn++; } print "document.write('<OPTION VALUE=\"\" >$lang[47]\\n');\n </SCRIPT>\n"; } print "</SELECT>\n"; if (!$force_no_script) { print "<NOSCRIPT>"; } print "<SELECT NAME=\"tax\" SIZE=1 >\n"; $sn = 0; foreach (@tax) { $sales_tax_temp = (($total-$nontaxable)*$tax[$sn])/100; $sales_tax_temp = sprintf("$decimals","$sales_tax_temp"); print "<OPTION VALUE=\"$state[$sn]\">$state[$sn] $tax[$sn]\%"; if ( $tax_allow == 1 ) { print " = $symbol $sales_tax_temp"; } print "\n"; $sn++; } print "<OPTION VALUE=\"\" >$lang[47]\n </SELECT>\n"; if (!$force_no_script) { print "</NOSCRIPT>"; } print "<BR><BR>"; } } if ( $tax_allow == 2 || $tax_allow == 4 ) { $sales_tax_temp = (($total-$nontaxable)*$tax[0])/100; $sales_tax_temp = sprintf("$decimals","$sales_tax_temp"); print "<!-- BLOCKQUOTE --><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\"><B>$lang[44] ($tax[0]\%"; if ( $tax_allow == 2 ) { print " = $symbol $sales_tax_temp"; } print ") </B></FONT>"; print "<INPUT TYPE=HIDDEN NAME=\"tax\" VALUE=\"$state[0]\" ><BR><BR>"; } if ( $ship_allow == 1 ) { print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\"><B>$lang[48]</B></FONT><BR>"; if (!$force_no_script) { print "<SCRIPT language=\"javascript\">\n if (compat)\n {\n document.write('<SELECT NAME=\"ship_method\" onChange=\"ShipUpdate()\" size=1>\\n')\n }\n else { document.write('<SELECT NAME=\"ship_method\" size=1>\\n') }\n"; $n = 0; foreach (@method) { if ( $method_init_price[$n] eq "0.00" && $method_price[$n] eq "0.00" ) { print "document.write('<OPTION VALUE=\"$method[$n]\">$method[$n]\\n');\n"; } else { print "document.write('<OPTION VALUE=\"$method[$n]\">$method[$n] = $symbol2 $price[$n]\\n');\n"; } $n++; } print "document.write('</SELECT>\\n<BR>\\n');\n </SCRIPT>\n"; } if (!$force_no_script) { print "<NOSCRIPT>\n"; } print "<SELECT NAME=\"ship_method\" size=1>\n"; $n = 0; foreach (@method) { if ( $method_init_price[$n] eq "0.00" && $method_price[$n] eq "0.00" ) { print "<OPTION VALUE=\"$method[$n]\">$method[$n]\n"; } else { print "<OPTION VALUE=\"$method[$n]\">$method[$n] = $symbol $price[$n]\n"; } $n++; } print "</SELECT>\n<BR>\n"; if (!$force_no_script) { print "</NOSCRIPT>\n"; } } if ( $ship_allow == 2 ) { print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\"><B>$lang[49]</B></FONT><BR>"; if (!$force_no_script) { print "<SCRIPT language=\"javascript\">\n if (compat)\n {\n document.write('<SELECT NAME=\"ship_method\" onChange=\"ShipUpdate()\" size=1>\\n')\n }\n else { document.write('<SELECT NAME=\"ship_method\" size=1>\\n') }\n"; $n = 0; foreach (@shipping_locations) { if ( $shipping_via_amount[$n] eq "0.00" ) { print "document.write('<OPTION VALUE=\"$shipping_locations[$n]\">$shipping_locations[$n]\\n');\n"; } else { print "document.write('<OPTION VALUE=\"$shipping_locations[$n]\">$shipping_locations[$n] = $symbol2 $price[$n]\\n');\n"; } $n++; } print "document.write('</SELECT>\\n<BR>\\n');\n </SCRIPT>\n"; } if (!$force_no_script) { print "<NOSCRIPT>\n"; } print "<SELECT NAME=\"ship_method\" size=1>\n"; $n = 0; foreach (@shipping_locations) { $shipping_via_amount = $shipping_via_amount[$n]; &ship_calc; if ( $shipping_via_amount[$n] eq "0.00" ) { print "<OPTION VALUE=\"$shipping_locations[$n]\">$shipping_locations[$n]\n"; } else { print "<OPTION VALUE=\"$shipping_locations[$n]\">$shipping_locations[$n] = $symbol $price[$n]\n"; } $n++; } print "</SELECT>\n<BR>\n"; if (!$force_no_script) { print "</NOSCRIPT>\n"; } } print "<BR> <FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\"><B>$lang[24]</B></FONT><BR>"; if ($option5 ne "0.00") { $cod_temp = sprintf("$decimals","$option5"); $cod_temp = "+$symbol $cod_temp"; } if (!$force_no_script) { print "<SCRIPT language=\"javascript\">\n if (compat)\n {\n document.write('<SELECT NAME=purpose onChange=\"ShipUpdate()\" size=1>')\n }\n else { document.write('<SELECT NAME=purpose size=1>') }\n"; print "document.write('<OPTION VALUE=\"credit\">$lang[14]')\n" if ($option1); print "document.write('<OPTION VALUE=\"aux_processor\">$lang[154]')\n" if ($aux_processor_payment_option); print "document.write('<OPTION VALUE=\"aux_processor2\">$lang[165]')\n" if ($aux_processor2_payment_option); print "document.write('<OPTION VALUE=\"check_transfer\">$lang[71]')\n" if ($option4); print "document.write('<OPTION VALUE=\"credit_phone\">$lang[25]')\n" if ($option2); print "document.write('<OPTION VALUE=\"check\">$lang[26]')\n" if ($option3); print "document.write('<OPTION VALUE=\"cod\">$lang[97] $cod_temp')\n" if ($option5); print "document.write('<OPTION VALUE=\"auxiliary\"> $option6')\n" if ($option6); print "document.write('</SELECT><BR><BR>');\n </SCRIPT>\n"; } if (!$force_no_script) { print "<NOSCRIPT>"; } print "<SELECT NAME=purpose size=1>"; print "<OPTION VALUE=\"credit\">$lang[14]" if ($option1); print "<OPTION VALUE=\"aux_processor\">$lang[154]" if ($aux_processor_payment_option); print "<OPTION VALUE=\"aux_processor2\">$lang[165]" if ($aux_processor2_payment_option); print "<OPTION VALUE=\"check_transfer\">$lang[71]" if ($option4); print "<OPTION VALUE=\"credit_phone\">$lang[25]" if ($option2); print "<OPTION VALUE=\"check\">$lang[26]" if ($option3); print "<OPTION VALUE=\"cod\">$lang[97] $cod_temp" if ($option5); print "<OPTION VALUE=\"auxiliary\"> $option6" if ($option6); print "</SELECT><BR><BR>"; if (!$force_no_script) { print "</NOSCRIPT>"; } print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">"; if ( ($minimum_order) && ($total < $minimum_order) ) { print "<FONT SIZE=\"$font_size2\" COLOR=\"$font2\" FACE=\"$font_face2\">$lang[18] $symbol $minimum_order<BR></FONT>\n"; print "<INPUT TYPE=HIDDEN NAME=\"total\">\n"; } else { if ( $lang[148] =~ /^http/i ) { print "<INPUT TYPE=HIDDEN NAME=\"total\">\n"; print "<INPUT TYPE=IMAGE NAME=\"\" SRC=\"$lang[148]\" VALUE=\"$lang[148]\" BORDER=0>\n"; } else { if (!$force_no_script) { print "<SCRIPT language=\"javascript\">\n if (compat)\n {\n document.write('<INPUT name=\"total\" VALUE=\"$lang[148]\" TYPE=SUBMIT>');\n }\n else\n {\n document.write('<INPUT name=\"total\" VALUE=\"$lang[148]\" TYPE=SUBMIT>');\n }\n"; print "if (compat) { ShipUpdate() } // Initializes JavaScript values\n"; print "</SCRIPT>\n"; } if (!$force_no_script) { print "<NOSCRIPT>\n"; } print "<INPUT name=\"total\" VALUE=\"$lang[148]\" TYPE=SUBMIT>\n"; if (!$force_no_script) { print "</NOSCRIPT>\n"; } } } print "</FONT> <INPUT TYPE=HIDDEN NAME=merchant VALUE=\"$FORM{'merchant'}\"> <INPUT TYPE=HIDDEN NAME=convert_cookie_to_ip VALUE=\"$shopper_id\"> </FORM></TD> <TD VALIGN=BOTTOM ALIGN=CENTER WIDTH=50%>"; if ($empty_entire_cart) { if (!$force_no_script) { print "\n\n<FORM NAME=\"empty_entire_cart\" METHOD=POST ACTION=\"$path3\" onSubmit=\"return confirm('$lang[89]')\">\n"; } else { print "\n\n<FORM METHOD=POST ACTION=$path3>\n"; } print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[87]<BR>\n <INPUT TYPE=HIDDEN NAME=purpose VALUE=\"empty_entire_cart\">\n <INPUT TYPE=HIDDEN NAME=merchant VALUE=\"$FORM{'merchant'}\">\n <INPUT TYPE=HIDDEN NAME=return VALUE=\"$FORM{'return'}\">\n <INPUT TYPE=HIDDEN NAME=convert_cookie_to_ip VALUE=\"$shopper_id\">\n"; if ( $lang[88] =~ /^http/i ) { print "<INPUT TYPE=IMAGE NAME=\"$lang[87]\" SRC=\"$lang[88]\" VALUE=\"$lang[88]\" BORDER=0>\n"; } else { print "<INPUT TYPE=SUBMIT VALUE=\"$lang[88]\">\n"; } print "</FONT>\n</FORM>\n<BR><FORM></FORM>\n\n"; } if ($coupon_discount) { print "\n\n<FORM METHOD=POST ACTION=$path3>\n <FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[115]<BR>\n <INPUT TYPE=HIDDEN NAME=purpose VALUE=\"coupon_discount\">\n </FONT>\n <FONT SIZE=\"$font_size1\" COLOR=\"$font1\" >\n <INPUT TYPE=TEXT NAME=coupon SIZE=25 MAXLENGTH=25>\n </FONT>\n <FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">\n <INPUT TYPE=HIDDEN NAME=merchant VALUE=\"$FORM{'merchant'}\">\n <INPUT TYPE=HIDDEN NAME=return VALUE=\"$FORM{'return'}\">\n <INPUT TYPE=HIDDEN NAME=convert_cookie_to_ip VALUE=\"$shopper_id\">\n"; if ( $lang[146] =~ /^http/i ) { print "<BR><INPUT TYPE=IMAGE NAME=\"\" SRC=\"$lang[146]\" VALUE=\"$lang[146]\" BORDER=0 ALIGN=CENTER>\n"; } else { print "<INPUT TYPE=SUBMIT VALUE=\"$lang[146]\">\n"; } print "</FONT>\n</FORM>\n<BR><BR>\n\n"; } if ( $FORM{'return'} =~ /$path3\?(.*)/ ) { print "\n\n<FORM $post_get_method ACTION=\"$FORM{'return'}\" $target > <INPUT TYPE=HIDDEN NAME=\"should_be_get_method\" VALUE=\"yep\">\n"; } else { print "\n\n<FORM $post_get_method ACTION=\"$FORM{'return'}\" $target >\n"; } print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">\n"; if ( $lang[41] =~ /^http/i ) { print "<INPUT TYPE=IMAGE NAME=\"\" SRC=\"$lang[41]\" VALUE=\"$lang[41]\" BORDER=0>\n"; } else { print "<INPUT TYPE=SUBMIT VALUE=\"$lang[41]\">\n"; } print "</FONT>\n</FORM>\n\n</TD></TR>\n"; print "<TR><TD COLSPAN=2>"; if ( $ship_allow ) { if (!$force_no_script) { print "<NOSCRIPT>"; } print "<BR><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">* $lang[50]<BR></FONT>"; if (!$force_no_script) { print "</NOSCRIPT>"; } if (!$force_no_script) { print "<SCRIPT LANGUAGE=\"JavaScript\">\n if (!compat)\n {\n document.write('<BR><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">* $lang[50]<BR></FONT>');\n }\n </SCRIPT>\n"; } } if ( $tax_allow ) { if (!$force_no_script) { print "<NOSCRIPT>\n"; } print "<FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">* $lang[51]<BR></FONT>\n"; if (!$force_no_script) { print "</NOSCRIPT>\n"; } if (!$force_no_script) { print "<SCRIPT LANGUAGE=\"JavaScript\">\n if (!compat)\n {\n document.write('<FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">* $lang[51]<BR></FONT>');\n }\n </SCRIPT>\n"; } } if ( $option5 > 0 ) { if (!$force_no_script) { print "<NOSCRIPT>\n"; } print "<FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">* $lang[103]<BR></FONT>\n"; if (!$force_no_script) { print "</NOSCRIPT>\n"; } if (!$force_no_script) { print "<SCRIPT LANGUAGE=\"JavaScript\">\n if (!compat)\n {\n document.write('<BR><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">* $lang[103]<BR></FONT>');\n }\n </SCRIPT>\n"; } } print "</TD></TR></TABLE></CENTER>"; } print "<CENTER><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR> <A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; if ($ENV{'HTTP_HOST'} eq "www.dansie.net") { print "<IMG SRC=\"http://www.dansie.net/cgi-bin/counter.pl\" border=0>"; } print "</BODY></HTML>"; } sub change_quantity { @stuff = split(/$delimiter2/,$item); &fix_quantity; $stuff[4] = $FORM{'quantity'}; unless ( $FORM{'quantity'} <= 0 ) { print CART "$stuff[0]$delimiter$stuff[1]$delimiter$stuff[2]$delimiter$stuff[3]$delimiter$stuff[4]"; for($i=5;$i<=($customs+4);$i++) { print CART "$delimiter$stuff[$i]"; } } } sub delete_old_carts { opendir(DIR,"$path1"); @cart_list=grep(/\w/,readdir(DIR)); close(DIR); foreach $cart (sort @cart_list) { if ( (-M "$path1/$cart") > $expire ) { $untainted = &untaint("$path1/$cart"); unlink("$untainted"); } } } sub show_invoice { &get_shoppers_items; $limited_dir = "$vars"; $a = ""; until ($a eq "/" || $limited_dir eq "") { $a = chop($limited_dir); } if ( (-e "$limited_dir/limited.dat") ) { open (LIMITED, "$limited_dir/limited.dat"); if ($flock) { flock(LIMITED, 2); } @limited = <LIMITED>; if ($flock) { flock(LIMITED, 8); } close (LIMITED); } chop($items[0]); ($date,$invoice,$state,$ship_method,$comments2,$coupon_amount,$coupon_number) = split(/$delimiter2/, $items[0]); print "<BR><CENTER><TABLE WIDTH=\"$table_width\" BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD>"; print "<FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[52] $date<BR>"; print "$lang[53] $invoice</FONT><BR><BR>"; print "</TD></TR></TABLE></CENTER>"; print "<CENTER><TABLE BORDER=4 CELLPADDING=5 CELLSPACING=0 WIDTH=\"$table_width\"><TR><TD><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[54]</FONT></TD><TD><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[55]</FONT></TD><TD><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[34]</FONT></TD>"; if ($show_ship) { print "<TD><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\"><NOBR>$lang[37] <FONT SIZE=-2>($wt)</FONT></NOBR></FONT></TD>"; } print "<TD><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[36]</FONT></TD><TD><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$lang[82]</FONT></TD></TR>"; $total = 0; $nontaxable = 0; $noshipping = 0; $ship_total = 0; $n = 0; foreach $item (@items) { if ( ( $n == 0 ) || ( $n == 1 ) ) { $n++; next; } @stuff = split(/$delimiter2/,$item); &limited_item_deincrement; @customs = (@stuff); for($i=1;$i<=5;$i++) { shift(@customs); } $quantity = $stuff[4]; $price_calc = $stuff[1]; &price_calc; $item_total = $each * $stuff[4]; if ($item =~ /\#non.*taxable\#/i) { $nontaxable += $item_total; } if ($item =~ /\#noshipping\#/i) { $noshipping += $item_total; } $total += $item_total; $sh = $stuff[2] * $stuff[4]; $ship_total += $sh; print "<TR><TD VALIGN=top><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$stuff[0]</FONT></TD><TD VALIGN=top><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">"; $br = 0; for ( $i=5;$i<=($customs+4);$i++ ) { if ( $stuff[$i] =~ /\n/ ) { chop($stuff[$i]); } $stuff[$i] =~ s/$br_sub/<BR>\n/g; if ( $stuff[$i] ) { $br += 1; if ( $br == 1 ) { print "$stuff[$i]" unless ( $stuff[$i] =~ /\#non.*taxable\#/i || $stuff[$i] =~ /\#noshipping\#/i || $suppress_desc == 2);  } else { print "<BR>$stuff[$i]" unless ( $stuff[$i] =~ /\#non.*taxable\#/i || $stuff[$i] =~ /\#noshipping\#/i || $suppress_desc == 2);  } } } if (!$br) { print "<BR>"; } print "&nbsp;</FONT></TD><TD ALIGN=CENTER VALIGN=top><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$stuff[4]</FONT></TD>"; if ($show_ship) { $sh = sprintf("$decimals",$sh); print "<TD ALIGN=CENTER><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$sh</FONT></TD>"; } print "<TD VALIGN=top ALIGN=right><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">"; printf "$decimals",$each; print "</FONT></TD><TD VALIGN=top ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">"; printf "$decimals", $item_total; print "</FONT></TD></TR>"; $n++; } if ($show_ship) { $cols = 5; } else { $cols = 4; } if ( $coupon_amount ) { &coupon_amount; print "<TR><TD COLSPAN=$cols ><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\">$lang[116] ($coupon_amount)</FONT></TD><TD ALIGN=RIGHT> <FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\"> - $symbol $temp</TD></TR>"; } &webstore_discount; if ( $discount_amount ) { $total -= $discount_amount; if ( $nontaxable ) { $nontaxable -= $discount_amount; } print "<TR><TD COLSPAN=$cols ><FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\">$lang[108] ($disc_percent\%)</FONT></TD><TD ALIGN=RIGHT> <FONT SIZE=\"$font_size1\" FACE=\"$font_face1\" COLOR=\"$font1\"> - $symbol $discount_amount</TD></TR>"; } if (!$lang[70]) { $lang[70] = "$lang[43]"; } print "<TR><TD COLSPAN=$cols><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[70]</FONT></TD><TD ALIGN=RIGHT><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\"> <NOBR>$symbol "; $currency_sep_total = $total; &currency_sep; print "$currency_sep_total"; print "</NOBR></FONT></TD></TR>"; if ( $ship_allow ) { $ship_weight_total = "$ship_total"; &ship_calc; if ( $shipping_weight_total == 1 && $ship_allow == 1 ) { $shipping_weight_temp = " $ship_weight_total $wt"; } else { $shipping_weight_temp = ""; } print "<TR><TD COLSPAN=$cols><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[56]$shipping_weight_temp ($ship_method)</FONT></TD><TD ALIGN=RIGHT><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\"> <NOBR>$symbol"; printf "$decimals", $ship_total; print "</NOBR></FONT></TD></TR>"; } else { $ship_total = 0; } if ( $state ) { &get_sales_tax; if ( $tax_allow == 1 || $tax_allow == 2 ) { $taxes = ($total - $nontaxable) * $tax_rate; $taxes /= 100; } if ( $tax_allow == 3 || $tax_allow == 4 ) { $taxes = ($total - $nontaxable + $ship_total) * $tax_rate; $taxes /= 100; } else { $taxes = ($total - $nontaxable) * $tax_rate; $taxes /= 100; } $taxes =~ /(.*)(\.)(\d)(\d)(\d)/; if ( $5 >= 5 ) { $taxes += .005; } print "<TR><TD COLSPAN=$cols><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$state $lang[151] $lang[44]"; print " $tax_rate"; print "\%"; print "</FONT></TD><TD ALIGN=RIGHT><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\"> <NOBR>$symbol"; printf "$decimals", $taxes; print "</NOBR></FONT></TD></TR>"; } if ( ($FORM{'purpose2'} eq "cod") && ($option5 ne "0.00") ) { print "<TR><TD COLSPAN=$cols><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[102]</FONT></TD><TD ALIGN=RIGHT><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\"> <NOBR>$symbol"; printf "$decimals", $option5; print "</NOBR></FONT></TD></TR>"; $total += $option5; } $total += $ship_total; $total += $taxes; $total = sprintf("$decimals","$total"); print "<TR><TD COLSPAN=$cols><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[57]</FONT></TD><TD ALIGN=RIGHT><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\"> <NOBR>$symbol "; $currency_sep_total = $total; &currency_sep; print "$currency_sep_total"; print "</NOBR></FONT></TD></TR></TABLE></CENTER><BR>"; if ( $deincrement ) { open (LIMITED, ">$limited_dir/limited.dat"); if ($flock) { flock(LIMITED, 2); } foreach (@limited) { if ($_ =~ /\n$/) { chop($_); } print LIMITED "$_\n"; } if ($flock) { flock(LIMITED, 8); } close (LIMITED); } $comish = "$vars"; $a = ""; until ($a eq "/" || $comish eq "") { $a = chop($comish); } $comish = "$comish/comish.dat"; if (-e "$comish") { open (COMISH,"$comish"); @comish=<COMISH>; close (COMISH); if ( $comish[0] =~ /\n$/ ) { chop( $comish[0]); } require "$comish[0]"; $comish_total = $total - $taxes; $comish_total -= $ship_total; $comish_total = sprintf("$decimals",$comish_total); $commission_amount = $comish[1] * $comish_total; $commission_amount = sprintf("$decimals",$commission_amount); &the_comish($invoice,$comish_total,$commission_amount,$purchase_method2); } @temp = split(/\|/,"$items[1]"); if ( ($purchase_method2 eq "$lang[97]") || ($purchase_method2 eq "$lang[1]") ) { $customer_name = (@temp)[0]; $customer_email = (@temp)[8]; } else { $customer_name = (@temp)[9]; $customer_email = (@temp)[17]; } $customer_name =~ s/\,/ /g; $customer_name =~ s/ /\+/g; if ( ($guarantee =~ /(cashflow\=)/) || ($guarantee =~ /(\#subtotal\#)/) || ($guarantee =~ /(\#orderid\#)/) ) { $just_do_it = 1; if ( $just_do_it ) { $comish_total = $total - $taxes;  $comish_total -= $ship_total if ( $ship_allow ); $comish_total = sprintf("$decimals",$comish_total); $comish_total =~ s/ //g; $guarantee =~ s/(\#orderid\#)/$invoice/gi; $guarantee =~ s/(\#subtotal\#)/$comish_total/gi; $customer_email =~ s/('|"|&|#|\||\\|\/)//g; $customer_name =~ s/('|"|&|#|\||\\|\/)//g; $purchase_method_no_spaces =~ s/('|"|&|#|\||\\|\/)//g; if ($purchase_method) { $purchase_method_no_spaces = "$purchase_method"; } else { $purchase_method_no_spaces = "$purchase_method2"; } $purchase_method_no_spaces =~ s/ /+/g; $guarantee =~ s/(\#ordertype\#)/$purchase_method_no_spaces/gi; $guarantee =~ s/(\#email\#)/$customer_email/gi; $guarantee =~ s/(\#name\#)/$customer_name/gi; } elsif ($guarantee =~ /(commission-junction\.com)/) { $comish_total = $total - $taxes;  $comish_total -= $ship_total if ( $ship_allow ); $comish_total = sprintf("$decimals",$comish_total); $comish_total =~ s/ //g; $guarantee =~ s/(\#orderid\#)/$invoice/; $guarantee =~ s/(\#subtotal\#)/$comish_total/; $guarantee =~ s/TYPE\=sale/TYPE\=lead/gi; $guarantee =~ s/(OID\=)(.+)(\&)(TYPE)/$1$customer_email$3$4/gi; } else { $guarantee =~ s/(\<img src\=)(\S+)(\#subtotal\#)(.*)(\>)//i; } } } sub get_shipping_cookie { if (&GetCompressedCookies('shipping_address','name','company','address','city','state','zip','country','email','phone','name2','company2','address2','city2','state2','zip2','country2','email2','phone2')) { $field1 = "$Cookies{'name'}"; $field2 = "$Cookies{'company'}"; $field3 = "$Cookies{'address'}"; $field4 = "$Cookies{'city'}"; $field5 = "$Cookies{'state'}"; $field6 = "$Cookies{'zip'}"; $field7 = "$Cookies{'country'}"; $field8 = "$Cookies{'phone'}"; $field9 = "$Cookies{'email'}"; $field10 = "$Cookies{'name2'}"; $field11 = "$Cookies{'company2'}"; $field12 = "$Cookies{'address2'}"; $field13 = "$Cookies{'city2'}"; $field14 = "$Cookies{'state2'}"; $field15 = "$Cookies{'zip2'}"; $field16 = "$Cookies{'country2'}"; $field17 = "$Cookies{'phone2'}"; $field18 = "$Cookies{'email2'}"; } } sub sales_tax_state_verification { if ( $assess_tax_on_shipping_or_billing_state eq "billing" ) { $shipping_or_billing_state_to_be_taxed = "$FORM{'state2'}"; } else { $shipping_or_billing_state_to_be_taxed = "$FORM{'state'}"; } ($trash,$trash,$sales_tax_state,$trash) = split(/\|/,$items[0]); if ( $sales_tax_state_verification && $use_state && $sales_tax_state && ($shipping_or_billing_state_to_be_taxed !~ /^($sales_tax_state)$/i) ) { $purpose_temp_title = $purpose_temp; $purpose_temp_title =~ s/<([^>]|\n)*>//g; $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>$biz_temp - $purpose_temp_title</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">"; print "$lang[159] <B>$sales_tax_state</B><BR><BR>$lang[160] <B>$shipping_or_billing_state_to_be_taxed</B><BR><BR><A HREF=\"$cambist_back\">$lang[161]</A></FONT><BR><BR><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR><A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A></FONT> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; exit; } if ($sales_tax_state_verification && $use_state && !$sales_tax_state ) { foreach $temp_state (@state) { if ( $shipping_or_billing_state_to_be_taxed eq "$temp_state" ) { (@temp) = split(/\|/,$items[0]); $temp[2] = "$temp_state"; $items[0] = join("|",@temp); open(CART,">$untainted"); foreach $item (@items) { print CART "$item"; } close CART; } } } } sub deny_email_domains { foreach $email_domain (@deny_email_domains) { if ( $FORM{'email'} =~ /($email_domain)$/i || $FORM{'email2'} =~ /($email_domain)$/i ) { $bad_email_domain = "$email_domain"; last; } } if ( $bad_email_domain ) { $purpose_temp_title = $purpose_temp; $purpose_temp_title =~ s/<([^>]|\n)*>//g; $biz_temp = "$bizname"; $biz_temp =~ s/<([^>]|\n)*>//g; print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>$biz_temp - $purpose_temp_title</TITLE>\n$meta_tag\n</HEAD>"; print "<BODY BGCOLOR=\"$bgcolor\" BACKGROUND=\"$wp\">"; print "<CENTER>$lang[114]</CENTER>"; if ( $show_bizname ) { print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">$bizname</FONT></CENTER>"; } if ( $image ) { print "<CENTER><IMG SRC=\"$image\" ALT=\"$bizname\" BORDER=0></CENTER>"; } print "<CENTER><FONT SIZE=\"$font_size2\" FACE=\"$font_face2\" COLOR=\"$font2\">"; print "$lang[162] <B>$bad_email_domain</B> <BR><BR><A HREF=\"$cambist_back\">$lang[163]</A></FONT><BR><BR><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">$lang[111]<BR><A HREF=\"http://www.dansie.net/$referral_id_code\" TARGET=\"cart\" ><FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\">Dansie Shopping Cart</FONT></A></FONT> <FONT SIZE=-1 COLOR=\"$font1\" FACE=\"$font_face1\"><I>http://www.dansie.net</I></FONT></CENTER>"; exit; } } sub print_ship_address { &get_shoppers_items; ($trash,$trash,$sales_tax_state,$trash) = split(/\|/,$items[0]); print "<FORM NAME=\"form1\" METHOD=POST ACTION=\"$path3\" $ssl_target_top > <INPUT TYPE=HIDDEN NAME=purpose VALUE=ship_info> <TABLE BORDER=0 WIDTH=\"$table_width\" ALIGN=CENTER > <TR> <TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[4] </FONT> </TD><TD><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" ><INPUT TYPE=TEXT SIZE=40 MAXLENGTH=70 NAME=name VALUE=\"$field1\"></TD> </TR>"; if ( $use_company_name_field ) { print "<TR><TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[90] </FONT> </TD><TD> <FONT SIZE=\"$font_size1\" COLOR=\"$font1\"> <INPUT TYPE=TEXT SIZE=40 MAXLENGTH=70 NAME=company VALUE=\"$field2\"> </TD></TR>"; } print "<TR> <TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[58] </FONT></TD><TD><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" ><INPUT TYPE=TEXT SIZE=40 MAXLENGTH=70 NAME=address VALUE=\"$field3\"></TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[59] </FONT></TD><TD><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" ><INPUT TYPE=TEXT SIZE=25 MAXLENGTH=70 NAME=city VALUE=\"$field4\"> </TD> </TR>"; if ( $use_state ) { print "<TR><TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[60] </FONT> </TD><TD> <FONT SIZE=\"$font_size1\" COLOR=\"$font1\">\n"; if ($state_list) { @state_list = split(/\,/,$state_list); print "<SELECT NAME=state>\n"; foreach (@state_list) { if ($field5 && ($_ eq "$field5")) { print "<OPTION SELECTED>$_\n"; } elsif ($sales_tax_state && ($_ eq "$sales_tax_state")) { print "<OPTION SELECTED>$_\n"; } else { print "<OPTION>$_\n"; } } print "</SELECT>\n"; } else { print "<INPUT TYPE=TEXT SIZE=$state_length MAXLENGTH=$state_length NAME=state VALUE=\"$field5\">\n"; } print "</TD></TR>\n"; } if ( $use_zipcode_fields ) { print "<TR><TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[61] </FONT></TD><TD> <FONT SIZE=\"$font_size1\" COLOR=\"$font1\">  <INPUT TYPE=TEXT SIZE=10 MAXLENGTH=20 NAME=zip VALUE=\"$field6\"> </TD></TR>"; } print "<TR> <TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[7] </TD><TD><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" >\n"; if ($country_list) { @country_list = split(/\,/,$country_list); print "<SELECT NAME=country>\n"; foreach (@country_list) { if ($field7 && ($_ eq "$field7")) { print "<OPTION SELECTED>$_\n"; } else { print "<OPTION>$_\n"; } } print "</SELECT>\n"; } else { print "<INPUT TYPE=TEXT SIZE=25 MAXLENGTH=40 NAME=country VALUE=\"$field7\">\n"; } print "</TD>\n </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[9] </TD><TD> <FONT SIZE=\"$font_size1\" COLOR=\"$font1\"> <INPUT TYPE=TEXT SIZE=25 MAXLENGTH=30 NAME=phone VALUE=\"$field8\"></TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[8] </TD><TD><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" ><INPUT TYPE=TEXT SIZE=25 MAXLENGTH=50 NAME=email VALUE=\"$field9\"></TD> </TR> </TABLE>"; } sub print_ship_address2 { print " <CENTER> <FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[104]</FONT>"; if ( (!$force_no_script) && ($show_copy_button) ) { print "<SCRIPT LANGUAGE=\"JavaScript1.2\">\n function CopyInfo()\n {\n document.form1.name2.value = document.form1.name.value;\n"; if ( $use_company_name_field ) { print "document.form1.company2.value = document.form1.company.value;\n"; } print "document.form1.address2.value = document.form1.address.value;\n document.form1.city2.value = document.form1.city.value;\n"; if ($use_state) { if ($state_list) { print "document.form1.state2.options.selectedIndex = document.form1.state.options.selectedIndex;\n"; } else { print "document.form1.state2.value = document.form1.state.value;\n"; } } if ($use_zipcode_fields) { print "document.form1.zip2.value = document.form1.zip.value;\n"; } if ($country_list) { print "document.form1.country2.options.selectedIndex = document.form1.country.options.selectedIndex;\n"; } else { print "document.form1.country2.value = document.form1.country.value;\n"; } print "document.form1.phone2.value = document.form1.phone.value;\n document.form1.email2.value = document.form1.email.value;\n }\n"; if ( $lang[105] =~ /This wont work/i ) { print "document.write('<BR><INPUT TYPE=IMAGE NAME=\"\" SRC=\"$lang[105]\" VALUE=\"$lang[105]\" BORDER=0 OnClick=\"CopyInfo()\">');\n"; } else { print "compat = true;\n if( navigator.appVersion.search(/Mac/i)>=0 )\n { compat = false; }\n if( parseInt( navigator.appVersion ) >= $compat ) { compat = true; }\n if ( compat )\n { document.write('<BR><INPUT TYPE=BUTTON VALUE=\"$lang[105]\" OnClick=\"CopyInfo()\">'); }\n"; } print "</SCRIPT>\n"; } print "</CENTER> <TABLE BORDER=0 WIDTH=\"$table_width\" ALIGN=CENTER> <TR> <TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[4] </FONT> </TD><TD><FONT SIZE=\"$font_size1\" COLOR=\"$font1\"><INPUT TYPE=TEXT SIZE=40 MAXLENGTH=70 NAME=name2 VALUE=\"$field10\"></TD> </TR>"; if ( $use_company_name_field ) { print "<TR><TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[90] </FONT> </TD><TD> <FONT SIZE=\"$font_size1\" COLOR=\"$font1\"> <INPUT TYPE=TEXT SIZE=40 MAXLENGTH=70 NAME=company2 VALUE=\"$field11\"> </TD></TR>"; } print "<TR> <TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[58] </FONT></TD><TD><FONT SIZE=\"$font_size1\" COLOR=\"$font1\"><INPUT TYPE=TEXT SIZE=40 MAXLENGTH=70 NAME=address2 VALUE=\"$field12\"></TD> </TR> <TR> <TD ALIGN=RIGHT><FONT SIZE=\"$font_size1\" COLOR=\"$font1\" FACE=\"$font_face1\">$lang[59] </FONT></TD><TD><FONT SIZE=\"$font_size1\" COLOR=\"$font1\"><INPUT TYPE=TEXT SIZE=25 MAXLENGTH=70 NAME=city2 VALUE=\"