#!/usr/bin/perl
# ^^ The line above needs to point to the Perl intrepreter on your system.
# Ask your sys admin for the correct path, or type 'which perl' at the unix
# prompt.  You need Perl 5 or higher. type 'perl -v' to get your version.
############################################################################

##################
# RediCart v5.3
##################

###############################################################################
# THIS SCRIPT IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
# EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT.
#
# THE PROVIDERS OF THIS SOFTWARE ASSUME NO RESPONSIBILITY FOR ANY DAMAGES
# SUFFERED AS A RESULT OF USING, MODIFYING OR  DISTRIBUTING THIS SOFTWARE.  IN NO 
# EVENT WILL ANY PROVIDERS OF THIS SOFTWARE BE LIABLE FOR ANY LOST REVENUE, PROFIT
# OR DATA, OR FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE
# DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY,
# ARISING OUT OF THE USE OF OR INABILITY TO USE SOFTWARE, EVEN IF THE
# PROVIDERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
##############################################################################

############################################################################
# MAKE NO CHANGES BELOW THIS LINE.
############################################################################

$ENV{'REMOTE_HOST'} = $ENV{'REMOTE_ADDR'};

# Measure CPU time usage;
$start = (times)[0];

# Get rid of NULL;
$zero - '0';

require 'smart.cfg';

use vars qw($tmpdir $storename %shipping2 %shipping3 $trackurl $useverify $usertime $orderdir $usercurr $trackdb);
my($incoming, @pairs, %FORM);
$incoming = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $incoming);
foreach $pair (@pairs) {
  my($name, $value) = split(/=/, $pair);
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $FORM{$name} = $value;
}

# Get command variables
$command = $FORM{'command'};
$pos = $FORM{'pos'};
$type = $FORM{'type'};
$cmdlinegroup = $FORM{'group'};
$first_name = $FORM{'first_name'};
$sfname = $FORM{'sfname'};
$slname = $FORM{'slname'};
$saddr = $FORM{'saddr'};
$scity = $FORM{'scity'};
$sstate = $FORM{'sstate'};
$szip = $FORM{'szip'};

# Parse form input
&parse_form;

# Get the date
&get_date;

# Get their hostname
#if ($usecookie eq '1') {
#require 'cookie.lib';
#&get_cookie;
#}
#else {

&get_host;

#}

# See if they have a cart already, if not, make one
&check_file;

# See what they want to do.

# Add an item to the cart.
if ($command eq 'add') {
&add_item;
}

# Change a quantity of an item in the cart, if at zero, delete it
elsif ($command eq 'change') {
&change_items;
}

# Show the order form. Get their name, phone number, CC info, etc..
elsif ($command eq 'buy1') {
&buy_items1;
}

# Display the order form to fill out
elsif ($command eq 'buy2') {
&buy_items1;
}

# Confirm the order and proceed to secure server
elsif ($command eq 'confirm') {
&confirm;
}

# Show current cart
elsif ($command eq 'review') {
&review_items;
}

# List items, based on database call
elsif ($command eq 'listitems') {
&gen_page;
}

# Show a databae frontend. 
elsif ($command eq 'showstore') {
&show_store;
}

# Delete a whole cart
elsif ($command eq 'delete') {
&delete_cart;
}
# Calculate shipping
elsif ($command eq 'calcship') {
&calc_shipping;
}
elsif ($command eq 'setship') {
&set_shipping;
}
elsif ($command eq 'removetax') {
&remove_tax;
}
elsif ($command eq 'addtax') {
&add_tax;
}
elsif ($command eq 'removetax2') {
&remove_tax2;
}
elsif ($command eq 'addtax2') {
&add_tax2;
}
elsif ($command eq 'retaddr') {
&ret_addr;
}

elsif ($command eq 'calccurr') {
&calc_currency;
}
elsif ($command eq 'setcurr') {
&set_currency;
}
else { &show_store; }

# Subroutines:

# Generate page, based on database search
sub gen_page {
my($SIZE,$max,$i,$itemid,$name,$price,$descrip,$image,$weight,$itemurl,$group);
&print_header;
# Table header, change this for table options!
print "<center><table cellpadding=5 border=1>\n";
print "<tr>\n";

open (FILE,"$resourcedb") || die "Content-type: text/html\n\nCan't Open $resourcedb(r): $!\n";
my(@LINES)=<FILE>;
close(FILE);
$SIZE=@LINES;

if ($type eq 'all') {
	$max = $pos + $numtolist;
	if ($max > $SIZE) {
	$max = $SIZE;
	}
	for ($i=$pos;$i<$max;$i++) {
   		$_=$LINES[$i];
		($itemid, $name, $price, $descrip, $image, $weight, $itemurl, $group) = split(/\|/,$_);
		&print_item;
		}

	print "</table>\n";
	if ($max < $SIZE) {
		print "<center><a href=\"$cgiurl\?command=listitems\&pos=$max&type=all\">Next $numtolist items</a></center>\n";
		}
	}

if ($type eq 'search') {
	my($matches) = 0;
	my($i) = $pos;
	while (($matches < $numtolist) && ($i < $SIZE)) {
		$_=$LINES[$i];
		if (m/$FORM{'search'}/i) { 
			$matches++;
			($itemid, $name, $price, $descrip, $image, $weight, $itemurl, $group) = split(/\|/,$_);
			&print_item;
			}
		$i++;
		}
	print "</table>\n";
	if ($i < $SIZE) {
		print "<form method=post action=\"$cgiurl\?command=listitems\&pos=$i\&type=search\">\n";
		print "<input type=hidden name=itemid value=\"$itemid\">\n";
		print "<input type=hidden name=search value=\"$FORM{'search'}\">\n";
		print "<center><input type=submit value=\"Continue Search\"></form>\n";
		}
	}

if ($type eq 'group') {
	my($matches) = 0;
	my($i) = $pos;
	while (($matches < $numtolist) && ($i < $SIZE)) {
		$_=$LINES[$i];
		($itemid, $name, $price, $descrip, $image, $weight, $itemurl, $group) = split(/\|/,$_);
		if ($group eq $FORM{'group'} || $group eq $cmdlinegroup) { 
			$matches++;
			&print_item;
			}
		$i++;
		}
	print "</table>\n";
	if ($i < $SIZE) {
		if ($cmdlinegroup) {
			print "<a href=\"$cgiurl\?command=listitems\&pos=$i\&type=group\&group=$cmdlinegroup\">Continue Search</a>\n";
			}
		else {
			print "<a href=\"$cgiurl\?command=listitems\&pos=$i\&type=group\&group=$FORM{'group'}\">Continue Search</a>\n";
			}
		}
	}

&print_footer;

sub print_item {

print "<form method=post action=\"$cgiurl\?command=add\">\n";
# Hide the weight for later use
print "<input type=hidden name=weight value=\"$weight\">\n";
print "<input type=hidden name=itemid value=\"$itemid\">\n";
# If you want to redirect, keep this in!
if ($useredirect eq '1') {
	print "<input type=hidden name=redirect value=\"referrer\">\n";
	}

# For showing product images
if ($image) {
	print "<td rowspan=2><img src=\"$imageurl/$image\"></td>\n";
	}
	else {
		print "<td rowspan=2></td>\n";
		}

# If the item has a URL, make it a link
if ($itemurl) {
	print "<td><a href=\"$itemurl\">$name</a><input type=hidden name=itemname value=\"$name\"></td>\n";
	}
	else {
		print "<td>$name<input type=hidden name=itemname value=\"$name\"></td>\n";
		}
		
# Print other info

#Price
print "<td>\$ $price<input type=hidden name=itemprice value=\"$price\"></td>\n";

#Quantity
print "<td><input type=text size=2 name=itemquant value=1></td>\n";

#Add button
print "<td rowspan=2><input type=submit value=\"Buy Me!\"></td>\n";

#Description
print "</tr><tr><td colspan=3>$descrip</td>\n";

# Close
print "</form></tr><tr>\n";
	
}
## END print_item

}
## END gen_page


# Show front end of database store.
sub show_store {
&print_header;
print "<center>\n";
print "<table width=80%><td>\n";
print "<a href=\"$cgiurl\?command=listitems\&type=all\&pos=0\">List all items available</a><br>\n
<Br>\n
<table>
<td>Search for a particular item(s):</td>
<td>
<form method=post action=\"$cgiurl\?command=listitems\&pos=0\&type=search\">
<input type=text name=search size=30></td>
<td><input type=submit value=Search></form></tD>
</table>\n";
print "<table>
<td>List all:</td>
<td>
<form method=post action=\"$cgiurl/smart/smart.cgi\?command=listitems\&pos=0\&type=group\">
<select name=group><option selected>Select a Group</option>\n";

foreach $group (keys %groups){
	print "<OPTION value=\"$group\"> $groups{$group} </option>\n";
    }

print "</select></td><td>\n";

print "<center><input type=submit value=\"List\"</form></td>\n</table>\n<br>";

if ($usetrack eq 1) {
	print "<br><a href=\"$trackurl\">Track an Order</a><br>\n";
	}

print "</td></table>\n";
&print_footer;
}
## END show_store

# Print the HTML header
sub print_header {
print "Content-type: text/html\n\n";
	
if ($creg eq '1') {
print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'><HTML>
<HEAD><SCRIPT LANGUAGE='JavaScript'>

var sfname = '';
var slname = '';
var saddr = '';
var scity = '';
var sstate = '';
var sstateIndex = 0;
var szip = '';
var sctry = '';

function InitSaveVariables(form) {
sfname = form.sfname.value;
slname = form.slname.value;
saddr = form.saddr.value;
scity = form.scity.value;
szip = form.szip.value;
sstateIndex = form.sstate.selectedIndex;
sstate = form.sstate[sstateIndex].value;

}

function ShipToBillPerson(form) {
if (form.copy.checked) {
InitSaveVariables(form);
form.sfname.value = form.first_name.value;
form.slname.value = form.last_name.value;
form.saddr.value = form.address.value;
form.scity.value = form.city.value;
form.szip.value = form.zip.value;
form.sstate.selectedIndex = form.state.selectedIndex;
	
}
else {
form.sfname.value = sfname;
form.slname.value = slname;
form.saddr.value = saddr;
form.scity.value = scity;
form.szip.value = szip;       
form.sstate.selectedIndex = sstateIndex;
   }
}

</script>
<SCRIPT LANGUAGE='JavaScript'>
function verify() {
var themessage = 'The following fields are required: ';
if (document.order.sfname.value=='') {
themessage = themessage + ' - Shipping Name';
}
if (document.order.slname.value=='') {
themessage = themessage + ' -  Shipping Name';
}
if (document.order.saddr.value=='') {
themessage = themessage + ' -  Shipping Address';
}
if (document.order.scity.value=='') {
themessage = themessage + ' -  Shipping City';
}
if (document.order.sstate.selectedIndex=='') {
themessage = themessage + ' -  Shipping State';
}
if (document.order.szip.value=='') {
themessage = themessage + ' -  Shipping Zip';
}
if (document.order.sctry.value=='') {
themessage = themessage + ' -  Shipping Country';
}

//alert if fields are empty and cancel form submit
if (themessage == 'The following fields are required: ') {
document.order.submit();
}
else {
alert(themessage);
return false;
   }
}
// -->
</script>\n";
}
else {
#print nothing
}

print "</head><TITLE>Shopping Cart</TITLE></HEAD>
<BODY bgcolor=$header_bgcolor LINK='$header_link' VLINK='$header_vlink' ALINK='$header_alink'>\n";
}
# Print the images for the HTML header
sub print_header_images {
	open (HEADER,"$basepath/$header") || print "Could not open $basepath/$header $! \n";
	while (<HEADER>) {
	print $_;
	}
	close(HEADER);	
}

#Print the HTML footer
sub print_footer {
open (FOOTER,"$basepath/$footer") || print "Could not open $basepath/$footer $! \n";

while (<FOOTER>) {
#$url = ~ s/return_url/$return_url/;
print $_;
	}

close(FOOTER);	
}
## END print_footer

# List items in cart.
sub list_items {
my($totalprice,$totalquant,$totalweight) = 0;
open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n";
my(@LINES)=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;
$rcitem=1;

print "<form name=select1 method=POST action=\"$cgiurl?command=change\">\n";
print "<input type='hidden' name='ipnum' value='$host'>\n";

print "<center><table border='$tablebordersize' bordercolor='$tablebordercolor' cellpadding=5><tr>\n";

if ($useimage eq '1') {
	print "<th></th>";
	}
	
if ($useid eq '1') {
	print "<th><font size=-1 color=blue>ITEM ID</font></th>";
	}

print "<TR BGCOLOR='$titlebar'><TH COLSPAN=5 ALIGN=center><FONT SIZE='$titlefontsize' COLOR='$titlefontcolor' face='$titlefontface'>&nbsp; <B>$mname</B>&nbsp;</FONT></TH></TR>
<th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>ITEM NAME</FONT></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>QUANTITY</font></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>PRICE</font></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>AMOUNT</font></th></tr>";

for ($i=1;$i<$SIZE;$i++) {
	$_=$LINES[$i];
	($itemname, $itemprice, $itemquant, $weight, $itemid, $return_url) = split(/\|/,$_);
	$tmpprice = ($itemprice*$itemquant);
	$tmpprice = int($tmpprice * (10 ** 2) + .5) / (10 ** 2);

	$totalprice += $tmpprice;
	$totalquant += $itemquant;
	$totalweight = ($weight*$itemquant) + $totalweight;
	print "<tr>";

if ($useimage eq '1') {
	if ($FORM{'image'}) {
		print "<td><img src=\"$imageurl/$FORM{'image'}\"></td>\n";
		}
	else {
		print "<td></td>";
		}
	}
	
if ($useid eq '1') {
	print "<td>$itemid <input type=hidden name=itemid value=\"$itemid\"></td>\n";
	}


        $tmpprice = &format_price($tmpprice);



print "<td><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>$itemname</font></td><td align=center><input type=number size=2 value=\"$itemquant\" name=item$i></td><td align=right><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>\$ $itemprice</font></td><td align=right><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>\$ $tmpprice</font></tr>\n";

##########  INCLUDE REQUIRED FIELD NAMES  ###########

print "<input type=hidden name='$rcitem-desc' value='$itemname'>\n";
print "<input type=hidden name='$rcitem-qty' value='$itemquant'>\n";
print "<input type=hidden name='$rcitem-cost' value='$itemprice'>\n\n";

$rcitem=$rcitem+1;

}
print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Subtotal:</font></b></td>";
if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}
	


        $totalprice = &format_price($totalprice);




print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $totalprice</b></font></td></tr>\n";

if ($tax eq '2') {
	$temptax=$tax }

if ($temptax <=> '0') {

if ($tax eq '0') {
# print nothing
}
elsif ($tax eq '1') {
$taxtotal = $totalprice * $taxper;
$taxtotal = int($taxtotal * (10 ** 2) + .5) / (10 ** 2);

$totalprice = $totalprice + $taxtotal;
print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Taxes:</b></font></td>";
if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}


        $taxtotal = &format_price($taxtotal);


print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $taxtotal</center></b></font></td></tr>\n";

#####  INCLUDE TAX TAG #####

print "<input type=hidden name='$rcitem-desc' value='Tax'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$taxtotal'>\n\n";

}

elsif ($tax eq '2') {
$taxtotal = $totalprice * $taxamt;
$taxtotal = int($taxtotal * (10 ** 2) + .5) / (10 ** 2);

$totalprice = $totalprice + $taxtotal;
print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Taxes:</font></b></td>";
if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}


        $taxtotal = &format_price($taxtotal);

#$_ = $taxtotal;

#$rcitem=$rcitem+1;

#if (/\./) {
#	my($left,$right) = split(/\./,$taxtotal);
#	if (length($right) == 0) {
#		$taxtotal = $taxtotal . "00";
#		}
#		elsif (length($right) == 1) { $taxtotal = $taxtotal . "0"; }
#	}
#	else { $taxtotal = $taxtotal . ".00"; }

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $taxtotal</font></center></b></td></tr>\n";


#####  INCLUDE TAX TAG #####

print "<input type=hidden name='$rcitem-desc' value='Tax'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$taxtotal'>\n\n";

}

	}


if ($multiship eq 1) {
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}
		

if ($shipping eq '3') {

	print "<td align=center>";

		if ($totalquant > '0') { print "<B><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>$totalweight lbs.</font></B>"; 
		}

	print "</td>\n";
}
else {
print "<td></td>\n";
}

print "<td></td><td align=right>";

	if ($usership eq 'NULL') { 
			print "<a href=\"$cgiurl\?command=calcship&ipnum=$host\">Calculate<br>Shipping</a>";
			}
		else {
			print "<b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $usership</font></b>";
			$totalprice += $usership;
			}
	print "</td></tr>\n";
	

	
}
else {
if ($shipping eq '0') {
	# print nothing
	}
elsif ($shipping eq '1') {
	local($low,@prices,$price);
	@prices = sort number keys %shipping;
	$low = $prices[0];
	foreach $price (@prices) {
    	if (($price > $low) && ($price <= $totalquant)) {$low = $price};
		}
	$shipamt = $shipping{$low};
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
        print "<td></td>";
        }
	if ($useid eq '1') {
        print "<td></td>";
        }



        $shipamt = &format_price($shipamt);


#$_ = $shipamt;


#if (/\./) {
#	my($left,$right) = split(/\./,$shipamt);
#	if (length($right) == 0) {
#		$shipamt = $shipamt . "00";
#		}
#		elsif (length($right) == 1) { $shipamt = $shipamt . "0"; }
#	}
#	else { $shipamt = $shipamt . ".00"; }

	print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";


	#####  INCLUDE SHIPPING TAG (BY NUMBER OF ITEMS ORDERED.)  #####

	print "<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
	print "<input type=hidden name='$rcitem-qty' value='1'>\n";
	print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

	}
elsif ($shipping eq '2') {
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}


        $shipamt = &format_price($shipamt);

#$_ = $shipamt;


#if (/\./) {
#	my($left,$right) = split(/\./,$shipamt);
#	if (length($right) == 0) {
#		$shipamt = $shipamt . "00";
#		}
#		elsif (length($right) == 1) { $shipamt = $shipamt . "0"; }
#	}
#	else { $shipamt = $shipamt . ".00"; }
print "<td></td><td></td><td align=right><b>\$ $shipamt</b></td></tr>\n";


#####  INCLUDE SHIPPING TAG (NON-VARIABLE)  #####

print "<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

	}
elsif ($shipping eq '3') {
	my($low,@weights,$weight);
	@weights = sort number keys %shipping;
	$low = $weights[0];
	foreach $weight (@weights) {
        if ($weight > $low && $weight <= $totalweight) {$low = $weight};
		}
	$shipamt = $shipping{$low};
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}


        $shipamt = &format_price($shipamt);

#$_ = $shipamt;


#if (/\./) {
#	my($left,$right) = split(/\./,$shipamt);
#	if (length($right) == 0) {
#		$shipamt = $shipamt . "00";
#		}
#		elsif (length($right) == 1) { $shipamt = $shipamt . "0"; }
#	}
#	else { $shipamt = $shipamt . ".00"; }

	print "<td align=center>";

if ($totalquant > '0') { print "<B><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>$totalweight lbs.</font></B>"; }

print "</td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";

#	print "<td align=center><B>$totalweight lbs.</B></td><td></td><td align=right><b>\$ $shipamt</b></td></tr>\n";

#####  INCLUDE SHIPPING TAG (BY WEIGHT)  #####

print "<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

	}

elsif ($shipping eq '4') {
	my($low,@prices);
	@prices = sort number keys %shipping;
	$low = $prices[0];
	foreach $price (@prices) {
        if ($price > $low && $price <= $totalprice) {$low = $price};
		}
	$shipamt = $shipping{$low};
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}


        $shipamt = &format_price($shipamt);

#$_ = $shipamt;


#if (/\./) {
#	my($left,$right) = split(/\./,$shipamt);
#	if (length($right) == 0) {
#		$shipamt = $shipamt . "00";
#		}
#		elsif (length($right) == 1) { $shipamt = $shipamt . "0"; }
#	}
#	else { $shipamt = $shipamt . ".00"; }

	print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";


#####  INCLUDE SHIPPING TAG (BY TOTAL)  #####

print "\n<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$usership'>\n\n";

	}
}

$totalprice = int($totalprice * (10 ** 2) + .5) / (10 ** 2);


        $totalprice = &format_price($totalprice);


#$_ = $totalprice;
#if (/\./) {
#	my($left,$right) = split(/\./,$totalprice);
#	if (length($right) == 0) {
#		$totalprice = $totalprice . "00";
#		}
#		elsif (length($right) == 1) { $totalprice = $totalprice . "0"; }
#	}
#	else { $totalprice = $totalprice . ".00"; }
	
print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Total price:</font></b></td>";
if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}
print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $totalprice</font></b></td></tr>\n";
if ($multicurr eq 1) {
	$totalprice *= $usercurr;
	$totalprice = int($totalprice * (10 ** 2) + .5) / (10 ** 2);


        $totalprice = &format_price($totalprice);


#	$_ = $totalprice;
#	if (/\./) {
#	my($left,$right) = split(/\./,$totalprice);
#	if (length($right) == 0) {
#		$totalprice = $totalprice . "00";
#		}
#		elsif (length($right) == 1) { $totalprice = $totalprice . "0"; }
#	}
#	else { $totalprice = $totalprice . ".00"; }

	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Total price in selected currency:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
	}
	if ($useid eq '1') {
		print "<td></td>";
	}
	print "<td colspan=2><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Exchange Rate: $usercurr</font></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $totalprice</font></b></td></tr>\n"; 
	}
	
print "</table><br>\n";
	
}

# Review all items in cart. Can modify quantities.
sub review_items {
if ( ($multicurr eq 1) && ($usercurr eq 'NULL') ) { print "Location: $cgiurl\?command=calccurr \n\n"; }
&print_header;
&print_header_images;
&list_items;
print "<center><table><tr><td><input type=\"submit\" value=Re-Calculate><input type='hidden' name='return_url' value='$return_url'></td></form>";

if ($FORM{'return_url'}) {
$return_url = $FORM{'return_url'};
}
else {
$return_url = $hp;
}

print "<form method='post' action='$cgiurl?command=delete'><input type='hidden' name='return_url' value='$return_url'><input type='hidden' name='ipnum' value='$host'><td><input type=\"submit\" value='Empty Cart'></td></form></tr></table></center>\n";

&print_nav_options;
&print_footer;
}

# Add a item to the cart, show review page, unless they included a redirect variable.
sub add_item {
open (REFFILE,"$reffile") || print "Content-type: text/html\n\n Can't find $reffile(r): $!\n";
@LINES=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;
$line=$LINES[0];
($filetime, $filedate, $filehost, $usership, $ship_name) = split(/\|/,$line);
open (REFFILE,">$reffile") || print "Content-type: text/html\n\n Can't find $reffile(r): $!\n";
print REFFILE "$filetime\|$filedate\|$filehost\|NULL\|\|\n";
for ($i=1;$i<$SIZE;$i++) {
   	$_=$LINES[$i];
	my($itemname, $itemprice, $itemquant, $weight, $itemid, $return_url) = split(/\|/,$_);
	print REFFILE join "\|", $itemname,$itemprice,$itemquant,$weight,$itemid,$return_url,"\|\n";
	}
print REFFILE join "\|", $FORM{'itemname'},$FORM{'itemprice'},$FORM{'itemquant'},$FORM{'weight'},$FORM{'itemid'},$FORM{'return_url'};
print REFFILE "\|\n";
close(REFFILE);
&parse_file;
&review_items;

}

# Change quanities of items, delete zero quantity items.
sub change_items {
$return_url = $FORM{'return_url'};
open (REFFILE,"$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";
my(@LINES)=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;

open (REFFILE,">$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";
print REFFILE "$filetime\|$filedate\|$filehost\|NULL\|\|\n";
for ($i=1;$i<$SIZE;$i++) {
	local($itemq) = "item$i";
   	$_=$LINES[$i];
	my($itemname, $itemprice, $itemquant, $weight, $itemid, $return_url) = split(/\|/,$_);
	if ($FORM{$itemq} > 0) {
		print REFFILE join "\|", $itemname,$itemprice,$FORM{$itemq},$weight,$itemid,$return_url,"\|\n";
		}
	}
close(REFFILE);
$exist = 1;
&parse_form;
&review_items;

}


# Show the order form
sub buy_items1 {

if (($usership eq 'NULL') && ($multiship eq 1)) {
	print "Location: $cgiurl\?command=calcship&ipnum=$host \n\n";
	}
&print_header;
&print_header_images;

print "<FORM METHOD='POST' ACTION='$cgiurl\?command=confirm' name='order'>";
print "<input type='hidden' name='ipnum' value='$host'>\n";

if ($tax eq '2') {
	$temptax=$tax }

&list_items_final;
&order_form;
&print_footer;
}

# Process the order form
sub buy_items2 {
&OrdParse;

$in{good}=$good;

&print_header;

   if( $in{good} eq "1")
	{

print "You have successfully ordered the following:<br><br>\n";
&list_items;

	}

print "<br><br>\n";
&print_footer;
unlink($reffile);
}

# parse form input
sub parse_form {
my(@pairs);
   if ($ENV{'REQUEST_METHOD'} eq 'GET') {
      # Split the name-value pairs
      @pairs = split(/&/, $ENV{'QUERY_STRING'});
   }
   elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
      # Get the input
      read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 
      # Split the name-value pairs
      @pairs = split(/&/, $buffer);
   }
   else {
      &error('request_method');
   }

   foreach $pair (@pairs) {
      my($name, $value) = split(/=/, $pair);
 
      $name =~ tr/+/ /;
      $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

      # If they try to include server side includes, erase them, so they
      # arent a security risk if the html gets returned.  Another 
      # security hole plugged up.

      $value =~ s/<!--(.|\n)*-->//g;

      # Create two associative arrays here.  One is a configuration array
      # which includes all fields that this form recognizes.  The other
      # is for fields which the form does not recognize and will report 
      # back to the user in the html return page and the e-mail message.
      # Also determine required fields.

      if ($name eq 'bgcolor' ||
	  $name eq 'background' ||
	  $name eq 'link_color' ||
	  $name eq 'vlink_color' ||
      $name eq 'text_color' ||
   	  $name eq 'alink_color' ||
	  $name eq 'title' ||
	  $name eq 'sort' ||
	  $name eq 'print_config' ||
	  $name eq 'return_link_title' ||
	  $name eq 'return_link_url' && ($value)) {
         
	 $CONFIG{$name} = $value;
      }
      elsif ($name eq 'required') {
         @required = split(/,/,$value);
      }
      elsif ($name eq 'exclude') {
      	@exclude = split(/,/,$value);
      	}
      else {
         if ($FORM{$name} && ($value)) {
    if ($FORM{$name} eq $value) {
    $FORM{$name} = $FORM{$name};
    } else {
    $FORM{$name} = "$FORM{$name}, $value";
    }

}
         elsif ($value) {
            $FORM{$name} = $value;
         }
      }
   }
}


# Get the hostname, for file reference
sub get_host {
if ($FORM{'ipnum'}) {
$host = $FORM{'ipnum'};
}
else {
$host = $ENV{'REMOTE_HOST'};
}

$reffile = "$tmpdir/$storename-$host";
}

sub check_file {
&check_expiration;
$exists = '1' if -e "$reffile";
if ($exists eq '1') {
	
	&parse_file;
	}
	else {
	&make_file;
	&parse_file;
	}
}

# Parse the cart
sub parse_file {
open (REFFILE,"$reffile") || die "Can't Open $reffile(r): $!\n";
@LINES=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;
$_=$LINES[0];
($filetime, $filedate, $filehost, $usership, $ship_name) = split(/\|/,$_);
}

# If they don't have a cart, make them one.
sub make_file {

open(REFFILE,">$reffile");
print REFFILE "$current_time\|$date\|$host\|NULL\|\|";
close(REFFILE);


}

#Delete a cart
sub delete_cart {
unlink($reffile);
print "Location: $FORM{'return_url'} \n\n";
}

# Delete an item from the cart
sub delete_item {
open (REFFILE,"$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";
@LINES=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;

open (REFFILE,">$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";
print REFFILE "$date\| $ENV{'REMOTE_HOST'}\| $ENV{'HTTP_USER_AGENT'}\|NULL\|NULL\|\n";
for ($i=1;$i<$SIZE;$i++) {
   	$_=$LINES[$i];
	my($itemname, $itemprice, $itemquant, $weight, $itemid) = split(/\|/,$_);
	if ($FORM{$itemname} eq $itemname) {
		# Do nothing
		}
		else { print REFFILE $_; }
	}
close(REFFILE);
print "Location: $cgiurl\?command=review\n\n";
}

# Get the date.
sub get_date {
$current_time = time();
   @days =
('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
   @months = ('January','February','March','April','May','June','July',
              'August','September','October','November','December');

   ($sec,$min,$hour,$mday,$mon,$year,$wday) =
localtime(time);
   if ($hour < 10) { $hour = "0$hour"; }
   if ($min < 10) { $min = "0$min"; }
   if ($sec < 10) { $sec = "0$sec"; }

   $year += 1900;
   $date = "$days[$wday], $months[$mon] $mday, $year at $hour\:$min\:$sec";

}

# Did they fill out all necessary info?
sub check_required {

   foreach $require (@required) {
      if ($require eq 'bgcolor' ||
          $require eq 'background' ||
          $require eq 'link_color' ||
          $require eq 'vlink_color' ||
          $require eq 'alink_color' ||
          $require eq 'text_color' ||
	  	  $require eq 'sort' ||
          $require eq 'title' ||
          $require eq 'print_config' ||
          $require eq 'return_link_title' ||
          $require eq 'return_link_url') {

         if (!($CONFIG{$require}) || $CONFIG{$require} eq ' ') {
            push(@ERROR,$require);
         }
      }
      elsif (!($FORM{$require}) || $FORM{$require} eq ' ') {
         push(@ERROR,$require);
      }
   }

   if (@ERROR) {
      &error('missing_fields', @ERROR);
   }

}

# Warning Warning.
sub error {
&print_header;
   ($error,@error_fields) = @_;

if ($error eq 'missing_fields') {


      print "   <h1>Error: Blank Fields</h1>\n\n";
      print "The following fields were left blank in your submission form:<p>\n";

      # Print Out Missing Fields in a List.
      print "<ul>\n";
      foreach $missing_field (@error_fields) {
         print "<li>$missing_field\n";
      }
      print "</ul>\n";

      # Provide Explanation for Error and Offer Link Back to Form.
      print "<p><hr size=7 width=75\%><p>\n";
      print "These fields must be filled out before you can successfully submit\n";
      print "the form.  Please return to the <a href=\"$ENV{'HTTP_REFERER'}\">Fill Out Form</a> and try again.\n";
   }
 elsif ($error eq 'noship') { 
 print "<h2>Error: Shipping not Set!</h2><br> Please go back and calcualte shipping!\n";
 }
&print_footer;
   exit;
}

sub print_script {
print <<"JAVA";
<SCRIPT LANGUAGE="JavaScript">
<!--
function MakeArray()
               {
               this.length = MakeArray.arguments.length
               for (var i = 0; i < this.length; i++)
               this[i+1] = MakeArray.arguments[i]
               }
               
function jumpPage1(form)
       {
       	       i = document.select1.SelectMenu.selectedIndex;
               form.ship.value = url1[i+1];


               finaltotal = url1[i+1] + total;
		var num = parseInt(finaltotal);
		var decimal = (parseInt(finaltotal*100) - parseInt(finaltotal)*100);
		if (decimal == 0) {
		 decimal =  "00";
		}

		finaltotal = num + '.' + decimal;
	       form.total.value = finaltotal;

       }
JAVA

print "url1 = new MakeArray($shipping1{$low}, $shipping2{$low}, $shipping3{$low});\n";
print "total = $totalprice \- $shipping1{$low};\n";
		       				       			   	       		
print <<"JAVA";

// -->
</script>
JAVA

}

sub calc_shipping {
&print_header;

local ($totalprice,$totalquant,$totalweight) = 0;
open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n";
@LINES=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;

print "<form method=POST name=select1 action=\"$cgiurl?command=setship\">\n";
print "<input type='hidden' name='ipnum' value='$host'>\n";
print "<center><table border='$tablebordersize' bordercolor='$tablebordercolor' cellpadding=5><tr>\n";

if ($useimage eq '1') {
	print "<th></th>";
	}
	
if ($useid eq '1') {
	print "<th><font size=-1 color=blue>ITEM ID</font></th>";
	}

print "<TR BGCOLOR='$titlebar'><TH COLSPAN=5 ALIGN=center><FONT SIZE='$titlefontsize' COLOR='$titlefontcolor' FACE='$titlefontface'>&nbsp; <B>$mname</B>&nbsp;</FONT></TH></TR>
<th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>ITEM NAME</FONT></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>QUANTITY</font></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>PRICE</font></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>AMOUNT</font></th></tr>";

for ($i=1;$i<$SIZE;$i++) {
	$_=$LINES[$i];
	($itemname, $itemprice, $itemquant, $weight, $itemid, $return_url) = split(/\|/,$_);
	$tmpprice = $itemprice*$itemquant;
	$tmpprice = int($tmpprice * (10 ** 2) + .5) / (10 ** 2);

	$totalprice=$totalprice + $tmpprice;
	$totalquant=$totalquant + $itemquant;
	$totalweight = ($weight*$itemquant) + $totalweight;
	print "<tr>";

if ($useimage eq '1') {
	if ($FORM{'image'}) {
		print "<td><img src=\"$imageurl/$FORM{'image'}\"></td>\n";
		}
	else {
		print "<td></td>";
		}
	}
	
if ($useid eq '1') {
	print "<td>$itemid <input type=hidden name=itemid value=\"$itemid\"></td>\n";
	}

        $tmpprice = &format_price($tmpprice);

#$_ = $tmpprice;

#if (/\./) {
#	my($left,$right) = split(/\./,$tmpprice);
#	if (length($right) == 0) {
#		$tmpprice = $tmpprice . "00";
#		}
#		elsif (length($right) == 1) { $tmpprice = $tmpprice . "0"; }
#	}
#	else { $tmpprice = $tmpprice . ".00"; }

print "<td><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>$itemname</font></td><td align=center><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>$itemquant</font></td><td align=right><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>\$ $itemprice</font></td><td align=right><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>\$ $tmpprice</font></tr>\n";
}
print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Subtotal:</font></b></td>";
if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}
	
        $totalprice = &format_price($totalprice);

#$_ = $totalprice;
#if (/\./) {
#	my($left,$right) = split(/\./,$totalprice);
#	if (length($right) == 0) {
#		$totalprice = $totalprice . "00";
#		}
#		elsif (length($right) == 1) { $totalprice = $totalprice . "0"; }
#	}
#	else { $totalprice = $totalprice . ".00"; }

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $totalprice</font></b></td></tr>\n";

if ($tax eq '0') {
	# print nothing
	}
elsif ($tax eq '1') {
$taxtotal = $totalprice * $taxper;
$taxtotal = int($taxtotal * (10 ** 2) + .5) / (10 ** 2);

$totalprice = $totalprice + $taxtotal;

#print "<tr><td><b>Taxes:</b></td>";
#if ($useimage eq '1') {
#	print "<td></td>";
#	}
#if ($useid eq '1') {
#	print "<td></td>";
#	}
#
#$_ = $taxtotal;
#
#if (/\./) {
#	my($left,$right) = split(/\./,$taxtotal);
#	if (length($right) == 0) {
#		$taxtotal = $taxtotal . "00";
#		}
#		elsif (length($right) == 1) { $taxtotal = $taxtotal . "0"; }
#	}
#	else { $taxtotal = $taxtotal . ".00"; }
#print "<td></td><td></td><td align=right><b>\$ $taxtotal</center></b></td></tr>\n";

#####  INCLUDE TAX TAG #####

#print "<input type=hidden name='$rcitem-desc' value='Tax'>\n";
#print "<input type=hidden name='$rcitem-qty' value='1'>\n";
#print "<input type=hidden name='$rcitem-cost' value='$taxtotal'>\n\n";

}

elsif ($tax eq '2') {
	$taxtotal = $totalprice * $taxamt;
	$taxtotal = int($taxtotal * (10 ** 2) + .5) / (10 ** 2);
	$totalprice += $taxtotal;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Taxes:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}

        $taxtotal = &format_price($taxtotal);

#$_ = $taxtotal;

#if (/\./) {
#	my($left,$right) = split(/\./,$taxtotal);
#	if (length($right) == 0) {
#		$taxtotal = $taxtotal . "00";
#		}
#		elsif (length($right) == 1) { $taxtotal = $taxtotal . "0"; }
#	}
#	else { $taxtotal = $taxtotal . ".00"; }

	print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $taxtotal</font></center></b></td></tr>\n";

	}
 
if ($shipping eq '0') {
	# print nothing
	}
elsif ($shipping eq '1') {
	my(@prices);
	@prices = sort number keys %shipping1;
	$low = $prices[0];
	foreach $price (@prices) {
		if ($price > $low && $price <= $totalquant) {$low = $price};
		}
	$shipamt = $shipping1{$low};
	$totalprice += $shipamt;
	}
elsif ($shipping eq '2') {
	$totalprice += $shipamt;
	}
elsif ($shipping eq '3') {
	my(@prices);
	@prices = sort number keys %shipping1;
	$low = $prices[0];
	foreach $price (@prices) {
        if ($price > $low && $price <= $totalweight) {$low = $price};
		}
	$shipamt = $shipping1{$low};
	$totalprice += $shipamt;
	}
elsif ($shipping eq '4') {
	my(@prices);
	@prices = sort number keys %shipping1;
	$low = $prices[0];
	foreach $price (@prices) {

        if ($price > $low && $price <= $totalprice) {$low = $price};
		}
	$shipamt = $shipping1{$low};
	$totalprice += $shipamt;
	}
	
print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
$totalprice = int($totalprice * (10 ** 2) + .5) / (10 ** 2);
if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}
print "<td colspan='3' align='right'>";

#&print_script;

        $shipamt = &format_price($shipamt);

#$_ = $shipamt;


#if (/\./) {
#	my($left,$right) = split(/\./,$shipamt);
#	if (length($right) == 0) {
#		$shipamt = $shipamt . "00";
#		}
#		elsif (length($right) == 1) { $shipamt = $shipamt . "0"; }
#	}
#	else { $shipamt = $shipamt . ".00"; }

#	print "<td></td><td></td><td align=right><b>\$ $shipamt</b></td></tr>\n";

#print "</td><td>  
#<select name=\"SelectMenu\" onChange=\"jumpPage1(this.form)\">
#<option>Standard</option>
#<option>2nd Day</option>
#<option>Next Day</option>

#</select></td><td align=right><b>\$ <input type=text name=ship size=8 maxlength=0 value=\"$shipamt\" onFocus=\"form.ship.blur()\" onSelect=\"form.ship.blur()\"></b></td></tr>\n";
print "<select name='ship'>
<option selected value='Standard|$shipping1{$low}'>Standard Shipping \$$shipping1{$low}</option>
<option value='2 Day|$shipping2{$low}'>2 Day Shipping \$$shipping2{$low}</option>
<option value='Next Day|$shipping3{$low}'>Next Day Shipping \$$shipping3{$low}</option>
</select></td></tr>\n";


$totalprice = int($totalprice * (10 ** 2) + .5) / (10 ** 2);
$_ = $totalprice;
if (/\./) {
	($left,$right) = split(/\./,$totalprice);
	if (length($right) == 0) {
		$totalprice = $totalprice . "00";
		}
		elsif (length($right) == 1) { $totalprice = $totalprice . "0"; }
	}
	else { $totalprice = $totalprice . ".00"; }
	
print "</table><br>\n";

print "<center><input type=submit value=\"Set Shipping\"></form>\n";
#&print_footer;
print "<center>
<table cellpadding=5>
<td><a href='$return_url'><font size=-1><B>CONTINUE SHOPPING</B></font></a></td>
</table><br><Br></font>\n";
}


sub set_shipping {
open (REFFILE,"$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";
my(@LINES)=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;

open (REFFILE,">$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";

($ship_name, $ship) = split(/\|/,$FORM{'ship'});

print REFFILE "$filetime\|$filedate\|$filehost\|$ship\|$ship_name\|\n";
for ($i=1;$i<$SIZE;$i++) {
   	$_=$LINES[$i];
	my($itemname, $itemprice, $itemquant, $weight, $itemid, $return_url) = split(/\|/,$_);
		print REFFILE join "\|", $itemname,$itemprice,$itemquant,$weight,$itemid,$return_url,"\|\n";
	}
$exist = 1;
&parse_file;
#&review_items;
&buy_items1;
}

sub calc_currency {

sub print_curr_script {
print <<"JAVA";
<SCRIPT LANGUAGE="JavaScript">
<!--
function MakeArray()
               {
               this.length = MakeArray.arguments.length
               for (var i = 0; i < this.length; i++)
               this[i+1] = MakeArray.arguments[i]
               }
               
function jumpPage1(form)
       {
       	       i = document.select1.SelectMenu.selectedIndex;
               form.exchange.value = url1[i+1];
       }
JAVA

print "url1 = new MakeArray(";
my(@currs) = sort number keys %currency;
foreach $curr (@currs) { print "$currency{$curr},"; }
print "1);\n";
		       				       			   	       		
print <<"JAVA";


// -->
</script>
JAVA

}

&print_header;
print "<form method=POST name=select1 action=\"$cgiurl?command=setcurr\">\n";
print "<table border=1><tr>";
print "<th></th><th>Currency</th><th>Exchange Rate</th></tr><tr><td>\n";

&print_curr_script;

print "</td><td><select name=\"SelectMenu\" onChange=\"jumpPage1(this.form)\">";
@currs = sort number keys %currency;
foreach $curr (@currs) { print "<option> $curr </option>\n"; }
print "<option selected>Pick a Currency</option></select></td><td>\n";
print "<input type=text name=exchange size=8 maxlength=0 value=\"1\" onFocus=\"form.total.blur()\" onSelect=\"form.total.blur()\">";
print "</td></tr></table>\n";
print "<center><input type=submit value=\"Set Currency\"></form>\n";
&print_footer;
}

sub set_currency {
open (REFFILE,"$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";
my(@LINES)=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;

open (REFFILE,">$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n";
print REFFILE "$date\| $ENV{'REMOTE_HOST'}\| $ENV{'HTTP_USER_AGENT'}\|$FORM{'exchange'}\|$usership\|\n";
for ($i=1;$i<$SIZE;$i++) {
   	$_=$LINES[$i];
	my($itemname, $itemprice, $itemquant, $weight, $itemid) = split(/\|/,$_);
		print REFFILE join "\|", $itemname,$itemprice,$itemquant,$weight,$itemid,"\|\n";
	}
print "Location: $cgiurl\?command=review\n\n";

}

sub track_order {

$orderid = time() . "-" . $$;

open (TRACK, ">>$trackdb");
print TRACK $orderid . "\|";
foreach $key (%FORM) {
	print TRACK "$key\=$FORM{$key}\&";
	}
print TRACK "\|pending\|NONE\|\n";
close(TRACK);
}


sub order_form {
print "<strong><center><HR width=590><font size='$generalfontsize' color='$generalfontcolor' face='$generalfontface'><B>BILLING INFORMATION</b></FONT><HR width=590></strong></center></TD>
<TABLE width=590>

<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>First Name: </font></B> </TD>
<TD><INPUT NAME='first_name' SIZE=15> <B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>Last Name: </font></B>
<INPUT NAME='last_name' SIZE=15> <BR> </TD>
</TR>

<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>Address: </font></B> </TD>
<TD><INPUT NAME='address' SIZE=30><BR></TD>
</TR>

<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>City: </font></B> </TD>
<TD><INPUT NAME='city' SIZE=15> <B> <font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>State: </font></B>
<select name='state'>
	<OPTION value='' selected>Select</option>
	<OPTION value='Alabama'>Alabama</option>
	<OPTION value='Alaska'>Alaska</option>
	<OPTION value='Arizona'>Arizona</option>
	<OPTION value='Arkansas'>Arkansas</option>
	<OPTION value='California'>California</option>
	<OPTION value='Colorado'>Colorado</option>
	<OPTION value='Connecticut'>Connecticut</option>
	<OPTION value='Delaware'>Delaware</option>
	<OPTION value='Florida'>Florida</option>
	<OPTION value='Georgia'>Georgia</option>
	<OPTION value='Hawaii'>Hawaii</option>
	<OPTION value='Idaho'>Idaho</option>
	<OPTION value='Illinois'>Illinois</option>
	<OPTION value='Indiana'>Indiana</option>
	<OPTION value='Iowa'>Iowa</option>
	<OPTION value='Kansas'>Kansas</option>
	<OPTION value='Kentucky'>Kentucky</option>
	<OPTION value='Louisiana'>Louisiana</option>
	<OPTION value='Maine'>Maine</option>
	<OPTION value='Maryland'>Maryland</option>
	<OPTION value='Massachusetts'>Massachusetts</option>
	<OPTION value='Michigan'>Michigan</option>
	<OPTION value='Minnesota'>Minnesota</option>
	<OPTION value='Mississippi'>Mississippi</option>
	<OPTION value='Missouri'>Missouri</option>
	<OPTION value='Montana'>Montana</option>
	<OPTION value='Nebraska'>Nebraska</option>
	<OPTION value='Nevada'>Nevada</option>
	<OPTION value='New Hampshire'>New Hampshire</option>
	<OPTION value='New Jersey'>New Jersey</option>
	<OPTION value='New Mexico'>New Mexico</option>
	<OPTION value='New York'>New York</option>
	<OPTION value='N Carolina'>N Carolina</option>
	<OPTION value='N Dakota'>N Dakota</option>
	<OPTION value='Ohio'>Ohio</option>
	<OPTION value='Oklahoma'>Oklahoma</option>
	<OPTION value='Oregon'>Oregon</option>
	<OPTION value='Pennsylvania'>Pennsylvania</option>
	<OPTION value='Rhode Island'>Rhode Island</option>
	<OPTION value='S Carolina'>S Carolina</option>
	<OPTION value='S Dakota'>S Dakota</option>
	<OPTION value='Tennessee'>Tennessee</option>
	<OPTION value='Texas'>Texas</option>
	<OPTION value='Utah'>Utah</option>
	<OPTION value='Vermont'>Vermont</option>
	<OPTION value='Virginia'>Virginia</option>
	<OPTION value='Washington'>Washington</option>
	<OPTION value='Washington DC'>Wash DC</option>
	<OPTION value='W Virginia'>W Virginia</option>
	<OPTION value='Wisconsin'>Wisconsin</option>
	<OPTION value='Wyoming'>Wyoming</option></SELECT>

<B> <font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>Zip: </font></B>
<INPUT NAME='zip' SIZE=10><BR></TD>
</TR>

<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>Country: </font></B> </TD>
<TD><INPUT NAME='country' SIZE=45 value='USA'><BR></TD>
</TR>

<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>Phone Number: </font></B> </TD>
<TD><strong><INPUT NAME='phone' SIZE=15><BR></TD>
</TR>

<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>E-Mail Address: </font></B> </TD>
<TD><INPUT NAME='email' SIZE=30></TD>
</TR>
</TABLE>";


################

if ($creg eq '1') {

print "<strong><center><HR width=590><font size='$generalfontsize' color='$generalfontcolor' face='$generalfontface'><B>SHIPPING INFORMATION<BR>(Check here if same as Billing Information <input type='checkbox' name='copy'
OnClick='javascript:ShipToBillPerson(this.form);' value='checkbox'> )</b></FONT><HR width=590></strong></center></TD>
<TABLE width=590>
<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>First Name: </font></B> </TD>
<TD><INPUT NAME='sfname' SIZE=15> <B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>Last Name: </font></B>
<INPUT NAME='slname' SIZE=15> <BR> </TD>
</TR>

<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>Shipping Address: </font></B> </TD>
<TD><INPUT NAME='saddr' SIZE=30><BR></TD>
</TR>

<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>City: </font></B> </TD>
<TD><INPUT NAME='scity' SIZE=15> <B> <font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>State: </font></B>
<select name='sstate'>
<OPTION value='None' selected>Select</option>
<OPTION value='Alabama'>Alabama</option>
<OPTION value='Alaska'>Alaska</option>
<OPTION value='Arizona'>Arizona</option>
<OPTION value='Arkansas'>Arkansas</option>
<OPTION value='California'>California</option>
<OPTION value='Colorado'>Colorado</option>
<OPTION value='Connecticut'>Connecticut</option>
<OPTION value='Delaware'>Delaware</option>
<OPTION value='Florida'>Florida</option>
<OPTION value='Georgia'>Georgia</option>
<OPTION value='Hawaii'>Hawaii</option>
<OPTION value='Idaho'>Idaho</option>
<OPTION value='Illinois'>Illinois</option>
<OPTION value='Indiana'>Indiana</option>
<OPTION value='Iowa'>Iowa</option>
<OPTION value='Kansas'>Kansas</option>
<OPTION value='Kentucky'>Kentucky</option>
<OPTION value='Louisiana'>Louisiana</option>
<OPTION value='Maine'>Maine</option>
<OPTION value='Maryland'>Maryland</option>
<OPTION value='Massachusetts'>Massachusetts</option>
<OPTION value='Michigan'>Michigan</option>
<OPTION value='Minnesota'>Minnesota</option>
<OPTION value='Mississippi'>Mississippi</option>
<OPTION value='Missouri'>Missouri</option>
<OPTION value='Montana'>Montana</option>
<OPTION value='Nebraska'>Nebraska</option>
<OPTION value='Nevada'>Nevada</option>
<OPTION value='New Hampshire'>New Hampshire</option>
<OPTION value='New Jersey'>New Jersey</option>
<OPTION value='New Mexico'>New Mexico</option>
<OPTION value='New York'>New York</option>
<OPTION value='N Carolina'>N Carolina</option>
<OPTION value='N Dakota'>N Dakota</option>
<OPTION value='Ohio'>Ohio</option>
<OPTION value='Oklahoma'>Oklahoma</option>
<OPTION value='Oregon'>Oregon</option>
<OPTION value='Pennsylvania'>Pennsylvania</option>
<OPTION value='Rhode Island'>Rhode Island</option>
<OPTION value='S Carolina'>S Carolina</option>
<OPTION value='S Dakota'>S Dakota</option>
<OPTION value='Tennessee'>Tennessee</option>
<OPTION value='Texas'>Texas</option>
<OPTION value='Utah'>Utah</option>
<OPTION value='Vermont'>Vermont</option>
<OPTION value='Virginia'>Virginia</option>
<OPTION value='Washington'>Washington</option>
<OPTION value='Washington DC'>Wash DC</option>
<OPTION value='W Virginia'>W Virginia</option>
<OPTION value='Wisconsin'>Wisconsin</option>
<OPTION value='Wyoming'>Wyoming</option></SELECT>

<B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>Zip: </font></B>
<INPUT NAME='szip' SIZE=10><BR></TD>
</TR>

<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>Country: </font></B> </TD>
<TD><INPUT NAME='sctry' SIZE=45 value='USA'><BR></TD>
</TR>

</TABLE>\n";
}


#####################

print "<TD><HR width=590></TD>
<TR><TD>

</CENTER>

<CENTER>

</B></font><BR>\n";

if ($creg eq '1') {
print "<INPUT TYPE='button' VALUE='CONFIRM ORDER' onclick='verify();'>";
}
else {
print "<INPUT TYPE='submit' VALUE='CONFIRM ORDER'>";
}

print "<br><br><script language='JavaScript'>
    self.name = 'this';
    function goBack() {
        
        history.back();
        
    }
</script><a href='JavaScript:goBack();'><font size=-1><B>GO BACK</B></font></a> | <a href='$return_url'><font size=-1><B>CONTINUE SHOPPING</B></font></a>
</form>";

}


sub remove_tax {
	$temptax = '0';
	&review_items;
}

sub add_tax {
	$temptax = $tax;
	&review_items;
}


sub remove_tax2 {
	$temptax = '0';
	&buy_items1;
}

sub add_tax2 {
	$temptax = $tax;
	&buy_items1;
}
sub add_tax3 {
	$temptax = $tax;
	&confirm;
	}
sub remove_tax3 {
	$temptax = '0';
	&confirm;
}


sub list_items_final {
my($totalprice,$totalquant,$totalweight) = 0;
open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n";
my(@LINES)=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;
$rcitem=1;

if ($usership eq 'NULL') {
	$usership='0';
			 }

print "<center><table border='$tablebordersize' bordercolor='$tablebordercolor' cellpadding=5><tr>\n";

if ($useimage eq '1') {
	print "<th></th>";
	}
	
if ($useid eq '1') {
	print "<th><font size=-1 color=blue>ITEM ID</font></th>";
	}

print "<TR BGCOLOR='$titlebar'><TH COLSPAN=5 ALIGN=center><FONT SIZE='$titlefontsize' COLOR='$titlefontcolor' FACE='$titlefontface'>&nbsp; <B>$mname</B>&nbsp;</FONT></TH></TR>
<th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>ITEM NAME</FONT></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>QUANTITY</font></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>PRICE</font></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>AMOUNT</font></th></tr>";

for ($i=1;$i<$SIZE;$i++) {
	$_=$LINES[$i];
	($itemname, $itemprice, $itemquant, $weight, $itemid, $return_url) = split(/\|/,$_);
	$tmpprice = ($itemprice*$itemquant);
	$tmpprice = int($tmpprice * (10 ** 2) + .5) / (10 ** 2);

	$totalprice += $tmpprice;
	$totalquant += $itemquant;
	$totalweight = ($weight*$itemquant) + $totalweight;
	print "<tr>";


if ($useimage eq '1') {
	if ($FORM{'image'}) {
		print "<td><img src=\"$imageurl/$FORM{'image'}\"></td>\n";
		}
	else {
		print "<td></td>";
		}
	}
	
if ($useid eq '1') {
	print "<td>$itemid <input type=hidden name=itemid value=\"$itemid\"></td>\n";
	}



        $tmpprice = &format_price($tmpprice);

#$_ = $tmpprice;

#if (/\./) {
#	my($left,$right) = split(/\./,$tmpprice);
#	if (length($right) == 0) {
#		$tmpprice = $tmpprice . "00";
#		}
#		elsif (length($right) == 1) { $tmpprice = $tmpprice . "0"; }
#	}
#	else { $tmpprice = $tmpprice . ".00"; }


#print "<td>$itemname</td><td align=right>\$ $itemprice</td><td align=center><input type=number size=2 value=\"$itemquant\" name=item$i></td><td align=right>\$ $tmpprice</tr>\n";
print "<td><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>$itemname</font></td><td align=center><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>$itemquant</font></td><td align=right><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>\$ $itemprice</font></td><td align=right><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>\$ $tmpprice</font></tr>\n";

##########  INCLUDE REQUIRED FIELD NAMES  ###########

print "<input type=hidden name='$rcitem-desc' value='$itemname'>\n";
print "<input type=hidden name='$rcitem-qty' value='$itemquant'>\n";
print "<input type=hidden name='$rcitem-cost' value='$itemprice'>\n";

print "<INPUT type='hidden' name='passback' value='desc$rcitem'>\n";
print "<INPUT type='hidden' name='desc$rcitem' value='$itemname'>\n\n";

print "<INPUT type='hidden' name='passback' value='qty$rcitem'>\n";
print "<INPUT type='hidden' name='qty$rcitem' value='$itemquant'>\n\n";

print "<INPUT type='hidden' name='passback' value='cost$rcitem'>\n";
print "<INPUT type='hidden' name='cost$rcitem' value='$itemprice'>\n\n";

### SUBTOTAL PASSBACKS ###

print "<INPUT type='hidden' name='passback' value='sub$rcitem'>\n";
print "<INPUT type='hidden' name='sub$rcitem' value='$tmpprice'>\n\n";

$rcitem=$rcitem+1;

}

### QUANTITY FIGURED ###

print "<P><INPUT type='hidden' name='passback' value='finalquant'><BR>\n";
print "<INPUT type='hidden' name='finalquant' value='$rcitem'><P>\n\n";


print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Subtotal:</font></b></td>";
if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}
	

        $totalprice = &format_price($totalprice);

#$_ = $totalprice;
#if (/\./) {
#	my($left,$right) = split(/\./,$totalprice);
#	if (length($right) == 0) {
#		$totalprice = $totalprice . "00";
#		}
#		elsif (length($right) == 1) { $totalprice = $totalprice . "0"; }
#	}
#	else { $totalprice = $totalprice . ".00"; }

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $totalprice</font></b></td></tr>\n";

### FULL ORDER SUBTOTAL PASSBACKS ###

print "<INPUT type='hidden' name='passback' value='subtotal'>\n";
print "<INPUT type='hidden' name='subtotal' value='$totalprice'>\n\n";

if ($temptax <=> '0') {

if ($tax eq '0') {
# print nothing
}
elsif ($tax eq '1') {
$taxtotal = $totalprice * $taxper;

$taxtotal = int($taxtotal * (10 ** 2) + .5) / (10 ** 2);


$totalprice = $totalprice + $taxtotal;
print "<tr><td><b>";

if ($tax eq '1') {print "<font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>$taxstate&nbsp;</font>"};

print "<font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Taxes:</font></b></td>";

if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}




        $taxtotal = &format_price($taxtotal);

#$_ = $taxtotal;

#if (/\./) {
#	my($left,$right) = split(/\./,$taxtotal);
#	if (length($right) == 0) {
#		$taxtotal = $taxtotal . "00";
#		}
#		elsif (length($right) == 1) { $taxtotal = $taxtotal . "0"; }
#	}
#	else { $taxtotal = $taxtotal . ".00"; }

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $taxtotal</font></center></b></td></tr>\n";



### TAX PASSBACKS ###

print "<INPUT type='hidden' name='passback' value='taxes'>\n";
print "<INPUT type='hidden' name='taxes' value='$taxtotal'>\n\n";

#####  TAX TAG  #####

print "<input type=hidden name='$rcitem-desc' value='Tax'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$taxtotal'>\n\n";

}

elsif ($tax eq '2') {

$taxtotal = $totalprice * $taxamt;
$taxtotal = int($taxtotal * (10 ** 2) + .5) / (10 ** 2);

$totalprice = $totalprice + $taxtotal;

print "<tr><td><b>";

if ($tax eq '1') {print "$taxstate&nbsp;"};

print "<font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Taxes:</font></b></td>";

if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}

        $taxtotal = &format_price($taxtotal);

#$_ = $taxtotal;

#if (/\./) {
#	my($left,$right) = split(/\./,$taxtotal);
#	if (length($right) == 0) {
#		$taxtotal = $taxtotal . "00";
#		}
#		elsif (length($right) == 1) { $taxtotal = $taxtotal . "0"; }
#	}
#	else { $taxtotal = $taxtotal . ".00"; }

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $taxtotal</font></center></b></td></tr>\n";


### TAX PASSBACKS ###

print "<INPUT type='hidden' name='passback' value='taxes'>\n";
print "<INPUT type='hidden' name='taxes' value='$taxtotal'>\n\n";

#####  INCLUDE TAX TAGT #####

print "<input type=hidden name='$rcitem-desc' value='Tax'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$taxtotal'>\n\n";

}

	}


#$rcitem=$rcitem+1;

if ($multiship eq 1) {
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>$ship_name Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}
	print "<td></td><td></td><td align=right>";

print "<input type=hidden name='$rcitem-desc' value='$ship_name Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$usership'>\n\n";
print "<input type=hidden name='shipping' value='$ship_name Shipping'>\n";
print "<input type=hidden name='desc$rcitem' value='$ship_name Shipping'>\n";
print "<input type=hidden name='qty$rcitem' value='1'>\n";
print "<input type=hidden name='cost$rcitem' value='$usership'>\n\n";
print "<input type=hidden name='sub$rcitem' value='$usership'>\n\n";

print "<input type=hidden name='passback' value='sub$rcitem'>\n\n";
print "<input type=hidden name='passback' value='desc$rcitem'>\n\n";
print "<input type=hidden name='passback' value='cost$rcitem'>\n\n";
print "<input type=hidden name='passback' value='qty$rcitem'>\n\n";


	if ($usership eq 'NULL') { 
			print "<a href=\"$cgiurl\?command=calcship\">Calculate<br>Shipping</a>";
			}
		else {
			print "<b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $usership</font></b>";
			$totalprice += $usership;
			}
	print "</td></tr>\n";
}
else {
if ($shipping eq '0') {
	# print nothing
	}
elsif ($shipping eq '1') {
	local($low,@prices,$price);
	@prices = sort number keys %shipping;
	$low = $prices[0];
	foreach $price (@prices) {
    	if (($price > $low) && ($price <= $totalquant)) {$low = $price};
		}
	$shipamt = $shipping{$low};
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
        print "<td></td>";
        }
	if ($useid eq '1') {
        print "<td></td>";
        }



        $shipamt = &format_price($shipamt);

#$_ = $shipamt;


#if (/\./) {
#	my($left,$right) = split(/\./,$shipamt);
#	if (length($right) == 0) {
#		$shipamt = $shipamt . "00";
#		}
#		elsif (length($right) == 1) { $shipamt = $shipamt . "0"; }
#	}
#	else { $shipamt = $shipamt . ".00"; }

	print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";


#####  INCLUDE SHIPPING TAG (BY NUMBER OF ITEMS ORDERED.)  #####

print "<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

print "<input type=hidden name='desc$rcitem' value='Shipping'>\n";
print "<input type=hidden name='qty$rcitem' value='1'>\n";
print "<input type=hidden name='cost$rcitem' value='$shipamt'>\n\n";
print "<input type=hidden name='sub$rcitem' value='$shipamt'>\n\n";

print "<input type=hidden name='passback' value='sub$rcitem'>\n\n";
print "<input type=hidden name='passback' value='desc$rcitem'>\n\n";
print "<input type=hidden name='passback' value='cost$rcitem'>\n\n";
print "<input type=hidden name='passback' value='qty$rcitem'>\n\n";

	}
elsif ($shipping eq '2') {
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}


        $shipamt = &format_price($shipamt);

#$_ = $shipamt;

#if (/\./) {
#	my($left,$right) = split(/\./,$shipamt);
#	if (length($right) == 0) {
#		$shipamt = $shipamt . "00";
#		}
#		elsif (length($right) == 1) { $shipamt = $shipamt . "0"; }
#	}
#	else { $shipamt = $shipamt . ".00"; }

	print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";


#####  INCLUDE SHIPPING TAG (NON-VARIABLE)  #####

print "<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

print "<input type=hidden name='desc$rcitem' value='Shipping'>\n";
print "<input type=hidden name='qty$rcitem' value='1'>\n";
print "<input type=hidden name='cost$rcitem' value='$shipamt'>\n\n";
print "<input type=hidden name='sub$rcitem' value='$shipamt'>\n\n";

print "<input type=hidden name='passback' value='sub$rcitem'>\n\n";
print "<input type=hidden name='passback' value='desc$rcitem'>\n\n";
print "<input type=hidden name='passback' value='cost$rcitem'>\n\n";
print "<input type=hidden name='passback' value='qty$rcitem'>\n\n";

	}
elsif ($shipping eq '3') {
	my($low,@weights,$weight);
	@weights = sort number keys %shipping;
	$low = $weights[0];
	foreach $weight (@weights) {
        if ($weight > $low && $weight <= $totalweight) {$low = $weight};
		}
	$shipamt = $shipping{$low};
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}


        $shipamt = &format_price($shipamt);

#$_ = $shipamt;

#if (/\./) {
#	my($left,$right) = split(/\./,$shipamt);
#	if (length($right) == 0) {
#		$shipamt = $shipamt . "00";
#		}
#		elsif (length($right) == 1) { $shipamt = $shipamt . "0"; }
#	}
#	else { $shipamt = $shipamt . ".00"; }

	print "<td align=center>";

if ($totalquant > '0') { print "<B><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>$totalweight lbs.</font></B>"; }

print "</td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";


#####  INCLUDE SHIPPING TAG (BY WEIGHT)  #####

print "<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

print "<input type=hidden name='desc$rcitem' value='Shipping'>\n";
print "<input type=hidden name='qty$rcitem' value='1'>\n";
print "<input type=hidden name='cost$rcitem' value='$shipamt'>\n\n";
print "<input type=hidden name='sub$rcitem' value='$shipamt'>\n\n";

print "<input type=hidden name='passback' value='sub$rcitem'>\n\n";
print "<input type=hidden name='passback' value='desc$rcitem'>\n\n";
print "<input type=hidden name='passback' value='cost$rcitem'>\n\n";
print "<input type=hidden name='passback' value='qty$rcitem'>\n\n";
$passship=$shipamt;
	}

elsif ($shipping eq '4') {
	my($low,@prices);
	@prices = sort number keys %shipping;
	$low = $prices[0];
	foreach $price (@prices) {
        if ($price > $low && $price <= $totalprice) {$low = $price};
		}
	$shipamt = $shipping{$low};
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}


        $shipamt = &format_price($shipamt);

#$_ = $shipamt;

#if (/\./) {
#	my($left,$right) = split(/\./,$shipamt);
#	if (length($right) == 0) {
#		$shipamt = $shipamt . "00";
#		}
#		elsif (length($right) == 1) { $shipamt = $shipamt . "0"; }
#	}
#	else { $shipamt = $shipamt . ".00"; }

	print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";


#####  INCLUDE SHIPPING TAG (BY WEIGHT)  #####

print "\n<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
#print "<input type=hidden name='$rcitem-cost' value='$usership'>\n\n";
print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

print "<input type=hidden name='desc$rcitem' value='Shipping'>\n";
print "<input type=hidden name='qty$rcitem' value='1'>\n";
print "<input type=hidden name='cost$rcitem' value='$shipamt'>\n\n";
print "<input type=hidden name='sub$rcitem' value='$shipamt'>\n\n";

print "<input type=hidden name='passback' value='sub$rcitem'>\n\n";
print "<input type=hidden name='passback' value='desc$rcitem'>\n\n";
print "<input type=hidden name='passback' value='cost$rcitem'>\n\n";
print "<input type=hidden name='passback' value='qty$rcitem'>\n\n";

	}
}

$totalprice = int($totalprice * (10 ** 2) + .5) / (10 ** 2);


        $totalprice = &format_price($totalprice);

#$_ = $totalprice;
#if (/\./) {
#	my($left,$right) = split(/\./,$totalprice);
#	if (length($right) == 0) {
#		$totalprice = $totalprice . "00";
#		}
#		elsif (length($right) == 1) { $totalprice = $totalprice . "0"; }
#	}
#	else { $totalprice = $totalprice . ".00"; }
	
print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Total price:</font></b></td>";
if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}
print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $totalprice</font></b></td></tr>\n";
if ($multicurr eq 1) {
	$totalprice *= $usercurr;
	$totalprice = int($totalprice * (10 ** 2) + .5) / (10 ** 2);


        $totalprice = &format_price($totalprice);

#	$_ = $totalprice;
#	if (/\./) {
#	my($left,$right) = split(/\./,$totalprice);
#	if (length($right) == 0) {
#		$totalprice = $totalprice . "00";
#		}
#		elsif (length($right) == 1) { $totalprice = $totalprice . "0"; }
#	}
#	else { $totalprice = $totalprice . ".00"; }

	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Total price in selected currency:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
	}
	if ($useid eq '1') {
		print "<td></td>";
	}
	print "<td colspan=2><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Exchange Rate: $usercurr</font></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $totalprice</font></b></td></tr>\n"; 
	}
	
print "</table><br>\n";

print "<INPUT type='hidden' name='passback' value='totalprice'>\n";
print "<INPUT type='hidden' name='totalprice' value='$totalprice'>\n\n";

print "<INPUT type='hidden' name='passback' value='totalship'>\n";
#print "<INPUT type='hidden' name='totalship' value='$usership'>\n\n";

if ($multiship = 0) {
print "<INPUT type='hidden' name='totalship' value='$shipamt'>\n\n";
			}
if ($multiship = 1) {
print "<INPUT type='hidden' name='totalship' value='$usership'>\n\n";
			}

#print "<input type='hidden' name='test' value='$passship'>\n\n";

#print "<INPUT type='hidden' name='passback' value='test'>\n";
#print "<INPUT type='hidden' name='test' value='0'>\n\n";

}



#######################################################################
#                            format_price                             #
#######################################################################

		# format_price is used to format prices to two decimal
		# places. It takes one argumnet, the price to be formatted
		# and is called with the following syntax:
		#
		# $price =&format_price(xxx.yyyyy);
		#
		# Notice that the main calling routine must assign the
		# returned formatted price to some variable for its own
		# use.
		#
		# Also notice that this routine takes a value even if it
		# is longer than two decimal places and formats it with
		# rounding.  Thus, you can utilize price calculations such
		# as 12.99 * 7.985 (where 7.985 might be some tax value.
  
sub format_price
  {

		# The incoming price is set to a local variables and a few
		# wroking local variables are defined.

  local ($unformatted_price) = @_;
  local ($formatted_price);

		# The script then uses the rounding method in EXCEL. If
		# the 3rd decimal place is > 4, then we round the 2nd
		# decimal place up 1. Otherwise, we leave the number
		# alone.  Notice that we will use the substr function to
		# pull off the last value in the three decimal place
		# number and compare it using the EXCEL logic.
		#
		# Basically, the routine uses the rounding rules of
		# sprintf.

		# The unformatted_price is rounded to 
		# to two decimal places and returned to the calling
		# routine.
  $formatted_price = sprintf ("%.2f", $unformatted_price);
  return $formatted_price;
  }


sub OrdParse {

  # Disable warnings as this code deliberately uses local and environment
  # variables which are preset to undef (i.e., not explicitly initialized)
  local ($perlwarn);
  $perlwarn = $^W;
  $^W = 0;

  local (*in) = shift if @_;    # CGI input
  local (*incfn,                # Client's filename (may not be provided)
	 *inct,                 # Client's content-type (may not be provided)
	 *insfn) = @_;          # Server's filename (for spooled files)
  local ($len, $type, $meth, $errflag, $cmdflag, $got, $name);
	
  binmode(STDIN);   # we need these for DOS-based systems
  binmode(STDOUT);  # and they shouldn't hurt anything else 
  binmode(STDERR);
	
  # Get several useful env variables
  $type = $ENV{'CONTENT_TYPE'};
  $len  = $ENV{'CONTENT_LENGTH'};
  $meth = $ENV{'REQUEST_METHOD'};
  
  if ($len > $cgi_lib'maxdata) { #'
      &CgiDie("cgi-lib.pl: Request to receive too much data: $len bytes\n");
  }
  
  if (!defined $meth || $meth eq '' || $meth eq 'GET' || 
      $meth eq 'HEAD' ||
      $type eq 'application/x-www-form-urlencoded') {
    local ($key, $val, $i);
	
    # Read in text
    if (!defined $meth || $meth eq '') {
      $in = $ENV{'QUERY_STRING'};
      $cmdflag = 1;  # also use command-line options
    } elsif($meth eq 'GET' || $meth eq 'HEAD') {
      $in = $ENV{'QUERY_STRING'};
    } elsif ($meth eq 'POST') {
        if (($got = read(STDIN, $in, $len) != $len))
	  {$errflag="Short Read: wanted $len, got $got\n";};
    } else {
      &CgiDie("cgi-lib.pl: Unknown request method: $meth\n");
    }

    @in = split(/[&;]/,$in); 
    push(@in, @ARGV) if $cmdflag; # add command-line parameters

    foreach $i (0 .. $#in) {
      # Convert plus to space
      $in[$i] =~ s/\+/ /g;

      # Split into key and value.  
      ($key, $val) = split(/=/,$in[$i],2); # splits on the first =.

      # Convert %XX from hex numbers to alphanumeric
      $key =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
      $val =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;

      # Associate key and value
      $in{$key} .= "\0" if (defined($in{$key})); # \0 is the multiple separator
      $in{$key} .= $val;
    }

  } elsif ($ENV{'CONTENT_TYPE'} =~ m#^multipart/form-data#) {
    # for efficiency, compile multipart code only if needed
$errflag = !(eval <<'END_MULTIPART');

    local ($buf, $boundary, $head, @heads, $cd, $ct, $fname, $ctype, $blen);
    local ($bpos, $lpos, $left, $amt, $fn, $ser);
    local ($bufsize, $maxbound, $writefiles) = 
      ($cgi_lib'bufsize, $cgi_lib'maxbound, $cgi_lib'writefiles);


    # The following lines exist solely to eliminate spurious warning messages
    $buf = ''; 

    ($boundary) = $type =~ /boundary="([^"]+)"/; #";   # find boundary
    ($boundary) = $type =~ /boundary=(\S+)/ unless $boundary;
    &CgiDie ("Boundary not provided: probably a bug in your server") 
      unless $boundary;
    $boundary =  "--" . $boundary;
    $blen = length ($boundary);

    if ($ENV{'REQUEST_METHOD'} ne 'POST') {
      &CgiDie("Invalid request method for  multipart/form-data: $meth\n");
    }

    if ($writefiles) {
      local($me);
      stat ($writefiles);
      $writefiles = "/tmp" unless  -d _ && -w _;
      # ($me) = $0 =~ m#([^/]*)$#;
      $writefiles .= "/$cgi_lib'filepre"; 
    }

    # read in the data and split into parts:
    # put headers in @in and data in %in
    # General algorithm:
    #   There are two dividers: the border and the '\r\n\r\n' between
    # header and body.  Iterate between searching for these
    #   Retain a buffer of size(bufsize+maxbound); the latter part is
    # to ensure that dividers don't get lost by wrapping between two bufs
    #   Look for a divider in the current batch.  If not found, then
    # save all of bufsize, move the maxbound extra buffer to the front of
    # the buffer, and read in a new bufsize bytes.  If a divider is found,
    # save everything up to the divider.  Then empty the buffer of everything
    # up to the end of the divider.  Refill buffer to bufsize+maxbound
    #   Note slightly odd organization.  Code before BODY: really goes with
    # code following HEAD:, but is put first to 'pre-fill' buffers.  BODY:
    # is placed before HEAD: because we first need to discard any 'preface,'
    # which would be analagous to a body without a preceeding head.

    $left = $len;
   PART: # find each part of the multi-part while reading data
    while (1) {
      die $@ if $errflag;

      $amt = ($left > $bufsize+$maxbound-length($buf) 
	      ?  $bufsize+$maxbound-length($buf): $left);
      $errflag = (($got = read(STDIN, $buf, $amt, length($buf))) != $amt);
      die "Short Read: wanted $amt, got $got\n" if $errflag;
      $left -= $amt;

      $in{$name} .= "\0" if defined $in{$name}; 
      $in{$name} .= $fn if $fn;

      $name=~/([-\w]+)/;  # This allows $insfn{$name} to be untainted
      if (defined $1) {
        $insfn{$1} .= "\0" if defined $insfn{$1}; 
        $insfn{$1} .= $fn if $fn;
      }
 
     BODY: 
      while (($bpos = index($buf, $boundary)) == -1) {
        if ($left == 0 && $buf eq '') {
	  foreach $value (values %insfn) {
            unlink(split("\0",$value));
	  }
	  &CgiDie("cgi-lib.pl: reached end of input while seeking boundary " .
		  "of multipart. Format of CGI input is wrong.\n");
        }
        die $@ if $errflag;
        if ($name) {  # if no $name, then it's the prologue -- discard
          if ($fn) { print FILE substr($buf, 0, $bufsize); }
          else     { $in{$name} .= substr($buf, 0, $bufsize); }
        }
        $buf = substr($buf, $bufsize);
        $amt = ($left > $bufsize ? $bufsize : $left); #$maxbound==length($buf);
        $errflag = (($got = read(STDIN, $buf, $amt, length($buf))) != $amt);
	die "Short Read: wanted $amt, got $got\n" if $errflag;
        $left -= $amt;
      }
      if (defined $name) {  # if no $name, then it's the prologue -- discard
        if ($fn) { print FILE substr($buf, 0, $bpos-2); }
        else     { $in {$name} .= substr($buf, 0, $bpos-2); } # kill last \r\n
      }
      close (FILE);
      last PART if substr($buf, $bpos + $blen, 2) eq "--";
      substr($buf, 0, $bpos+$blen+2) = '';
      $amt = ($left > $bufsize+$maxbound-length($buf) 
	      ? $bufsize+$maxbound-length($buf) : $left);
      $errflag = (($got = read(STDIN, $buf, $amt, length($buf))) != $amt);
      die "Short Read: wanted $amt, got $got\n" if $errflag;
      $left -= $amt;


      undef $head;  undef $fn;
     HEAD:
      while (($lpos = index($buf, "\r\n\r\n")) == -1) { 
        if ($left == 0  && $buf eq '') {
	  foreach $value (values %insfn) {
            unlink(split("\0",$value));
	  }
	  &CgiDie("cgi-lib: reached end of input while seeking end of " .
		  "headers. Format of CGI input is wrong.\n$buf");
        }
        die $@ if $errflag;
        $head .= substr($buf, 0, $bufsize);
        $buf = substr($buf, $bufsize);
        $amt = ($left > $bufsize ? $bufsize : $left); #$maxbound==length($buf);
        $errflag = (($got = read(STDIN, $buf, $amt, length($buf))) != $amt);
        die "Short Read: wanted $amt, got $got\n" if $errflag;
        $left -= $amt;
      }
      $head .= substr($buf, 0, $lpos+2);
      push (@in, $head);
      @heads = split("\r\n", $head);
      ($cd) = grep (/^\s*Content-Disposition:/i, @heads);
      ($ct) = grep (/^\s*Content-Type:/i, @heads);

      ($name) = $cd =~ /\bname="([^"]+)"/i; #"; 
      ($name) = $cd =~ /\bname=([^\s:;]+)/i unless defined $name;  

      ($fname) = $cd =~ /\bfilename="([^"]*)"/i; #"; # filename can be null-str
      ($fname) = $cd =~ /\bfilename=([^\s:;]+)/i unless defined $fname;
      $incfn{$name} .= (defined $in{$name} ? "\0" : "") . 
        (defined $fname ? $fname : "");

      ($ctype) = $ct =~ /^\s*Content-type:\s*"([^"]+)"/i;  #";
      ($ctype) = $ct =~ /^\s*Content-Type:\s*([^\s:;]+)/i unless defined $ctype;
      $inct{$name} .= (defined $in{$name} ? "\0" : "") . $ctype;

      if ($writefiles && defined $fname) {
        $ser++;
	$fn = $writefiles . ".$$.$ser";
	open (FILE, ">$fn") || &CgiDie("Couldn't open $fn\n");
        binmode (FILE);  # write files accurately
      }
      substr($buf, 0, $lpos+4) = '';
      undef $fname;
      undef $ctype;
    }

1;
END_MULTIPART
    if ($errflag) {
      local ($errmsg, $value);
      $errmsg = $@ || $errflag;
      foreach $value (values %insfn) {
        unlink(split("\0",$value));
      }
      &CgiDie($errmsg);
    } else {
      # everything's ok.
    }
  } else {
    &CgiDie("cgi-lib.pl: Unknown Content-type: $ENV{'CONTENT_TYPE'}\n");
  }

  # no-ops to avoid warnings
  $insfn = $insfn;
  $incfn = $incfn;
  $inct  = $inct;

  $^W = $perlwarn;

  return ($errflag ? undef :  scalar(@in)); 
}

sub OrdParse_old {
              local (*in) = @_ if @_;
              local ($i, $key, $val);

              if ( $ENV{'REQUEST_METHOD'} eq "GET" ) { 
                $in = $ENV{'QUERY_STRING'}; 
              } elsif ($ENV{'REQUEST_METHOD'} eq "POST") {
                read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
              } else {
                    # Added for command line debugging
                    # Supply name/value form data as a command line argument
                    # Format: name1=value1\&name2=value2\&... 
                    # (need to escape & for shell)
                    # Find the first argument that's not a switch (-)
                    $in = ( grep( !/^-/, @ARGV )) [0];
                    $in =~ s/\\&/&/g;
              }

              @in = split(/&/,$in);

              foreach $i (0 .. $#in) {
                # Convert plus's to spaces
                $in[$i] =~ s/\+/ /g;

                # Split into key and value.
                ($key, $val) = split(/=/,$in[$i],2); # splits on the first =.

                # Convert %XX from hex numbers to alphanumeric
                $key =~ s/%(..)/pack("c",hex($1))/ge;       
                $val =~ s/%(..)/pack("c",hex($1))/ge;

                # Associate key and value. \0 is the multiple separator
                $in{$key} .= "\0" if (exists($in{$key})); 
                $in{$key} .= $val;
              }
              return length($in);
}



sub number { $a <=> $b }

sub confirm {

if (($usership eq 'NULL') && ($multiship eq 1)) {
	print "Location: $cgiurl\?command=calcship \n\n";
	}
&print_header;
&print_header_images;

print "<FORM METHOD='POST' ACTION='https://secure.paymentclearing.com/cgi-bin/mas/split.cgi' name='order'>";

if ($tax eq '2') {
	$temptax=$tax }

&confirm_final;
&print_footer;
	}
	
sub confirm_final {
my($totalprice,$totalquant,$totalweight) = 0;
open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n";
my(@LINES)=<REFFILE>;
close(REFFILE);
$SIZE=@LINES;
$rcitem=1;

if ($usership eq 'NULL') {
	$usership='0';
			 }

#####  INCLUDE REQUIRED MERCHANT TAGS #####

print "\n";

print "<INPUT type='hidden' name='vendor_id' value='$mid'>\n";
print "<INPUT type='hidden' name='home_page' value='$hp'>\n";
print "<INPUT type='hidden' name='ret_addr' value='$retaddr'>\n";
print "<INPUT type='hidden' name='email_text' value='$etext'>\n";

if ($post eq '1') {
print "<INPUT type='hidden' name='ret_mode' value='post'>\n";
}

if ($cvv eq '1') {
print "<INPUT type='hidden' name='showcvv' value='1'>\n";
}


#### SHOW ALL LOOKUP FIELDS ########
print "<INPUT type='hidden' name='lookup' value='first_name'>\n";
print "<INPUT type='hidden' name='lookup' value='last_name'>\n";
print "<INPUT type='hidden' name='lookup' value='address'>\n";
print "<INPUT type='hidden' name='lookup' value='city'>\n";
print "<INPUT type='hidden' name='lookup' value='state'>\n";
print "<INPUT type='hidden' name='lookup' value='zip'>\n";
print "<INPUT type='hidden' name='lookup' value='ctry'>\n";
print "<INPUT type='hidden' name='lookup' value='phone'>\n";
print "<INPUT type='hidden' name='lookup' value='email'>\n";

#### SHOW ALL PASSBACK FIELDS #######
print "<INPUT type='hidden' name='remotehost' value='$storename-$host'>\n";
print "<INPUT type='hidden' name='passback' value='remotehost'>\n";


#####  INCLUDE SPLIT-FORM TAGS IF REQUIRED #####
if ($split eq '1') {
	print "\n<INPUT type='hidden' name='mername' value='$mname'>\n";
	print "<INPUT type='hidden' name='mertext' value='$mtext'>\n";
	print "<INPUT type='hidden' name='acceptchecks' value='$checks'>\n";
	print "<INPUT type='hidden' name='allowreg' value='$creg'>\n";
	print "<INPUT type='hidden' name='checkguar' value='$cguar'>\n";
	print "<INPUT type='hidden' name='acceptcards' value='$cards'>\n";
	print "<INPUT type='hidden' name='bodytags' value='1'>\n";
	print "<INPUT type='hidden' name='background' value='$securebgimage'>\n";
	print "<INPUT type='hidden' name='bgcolor' value='$securebgcolor'>\n";
	print "<INPUT type='hidden' name='fontcolor' value='$securefontcolor'>\n";
	print "<INPUT type='hidden' name='alink' value='$securealink'>\n";
	print "<INPUT type='hidden' name='link' value='$securelink'>\n";
	print "<INPUT type='hidden' name='vlink' value='$securevlink'>\n";
	print "<INPUT type='hidden' name='mertext' value='$securemertext'>\n";
	print "<INPUT type='hidden' name='mastimage' value='$securemastheader'>\n";
	print "<INPUT type='hidden' name='mast' value='$secureheader'>\n";
	print "<INPUT type='hidden' name='visaimage' value='$visa'>\n";
	print "<INPUT type='hidden' name='mcimage' value='$mc'>\n";
	print "<INPUT type='hidden' name='ameximage' value='$amex'>\n";
	print "<INPUT type='hidden' name='discimage' value='$discover'>\n";
	print "<INPUT type='hidden' name='dinerimage' value='$diners'>\n";
	}

print "\n";

print "<center><table border='$tablebordersize' bordercolor='$tablebordercolor' cellpadding=5><tr>\n";

if ($useimage eq '1') {
	print "<th></th>";
	}
	
if ($useid eq '1') {
	print "<th><font size=-1 color=blue>ITEM ID</font></th>";
	}

print "<TR BGCOLOR='$titlebar'><TH COLSPAN=5 ALIGN=center><FONT SIZE='$titlefontsize' COLOR='$titlefontcolor' FACE='$titlefontface'>&nbsp; <B>$mname</B>&nbsp;</FONT></TH></TR>
<th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>ITEM NAME</FONT></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>QUANTITY</font></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>PRICE</font></th><th><font size='$subtitlefontsize' color='$subtitlefontcolor' FACE='$subtitlefontface'>AMOUNT</font></th></tr>";

for ($i=1;$i<$SIZE;$i++) {
	$_=$LINES[$i];
	($itemname, $itemprice, $itemquant, $weight, $itemid, $return_url) = split(/\|/,$_);
	$tmpprice = ($itemprice*$itemquant);
	$tmpprice = int($tmpprice * (10 ** 2) + .5) / (10 ** 2);

	$totalprice += $tmpprice;
	$totalquant += $itemquant;
	$totalweight = ($weight*$itemquant) + $totalweight;
	print "<tr>";


if ($useimage eq '1') {
	if ($FORM{'image'}) {
		print "<td><img src=\"$imageurl/$FORM{'image'}\"></td>\n";
		}
	else {
		print "<td></td>";
		}
	}
	
if ($useid eq '1') {
	print "<td>$itemid <input type=hidden name=itemid value=\"$itemid\"></td>\n";
	}



        $tmpprice = &format_price($tmpprice);

print "<td><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>$itemname</font></td><td align=center><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>$itemquant</font></td><td align=right><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>\$ $itemprice</font></td><td align=right><font size='$productfontsize' color='$productfontcolor' face='$productfontface'>\$ $tmpprice</font></tr>\n";

##########  INCLUDE REQUIRED FIELD NAMES  ###########

print "<input type=hidden name='$rcitem-desc' value='$itemname'>\n";
print "<input type=hidden name='$rcitem-qty' value='$itemquant'>\n";
print "<input type=hidden name='$rcitem-cost' value='$itemprice'>\n";

print "<INPUT type='hidden' name='passback' value='desc$rcitem'>\n";
print "<INPUT type='hidden' name='desc$rcitem' value='$itemname'>\n\n";

print "<INPUT type='hidden' name='passback' value='qty$rcitem'>\n";
print "<INPUT type='hidden' name='qty$rcitem' value='$itemquant'>\n\n";

print "<INPUT type='hidden' name='passback' value='cost$rcitem'>\n";
print "<INPUT type='hidden' name='cost$rcitem' value='$itemprice'>\n\n";

### SUBTOTAL PASSBACKS ###

print "<INPUT type='hidden' name='passback' value='sub$rcitem'>\n";
print "<INPUT type='hidden' name='sub$rcitem' value='$tmpprice'>\n\n";

$rcitem=$rcitem+1;

}

### QUANTITY FIGURED ###



print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Subtotal:</font></b></td>";
if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}
	

        $totalprice = &format_price($totalprice);

#$_ = $totalprice;
#if (/\./) {
#	my($left,$right) = split(/\./,$totalprice);
#	if (length($right) == 0) {
#		$totalprice = $totalprice . "00";
#		}
#		elsif (length($right) == 1) { $totalprice = $totalprice . "0"; }
#	}
#	else { $totalprice = $totalprice . ".00"; }

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $totalprice</font></b></td></tr>\n";

### FULL ORDER SUBTOTAL PASSBACKS ###

print "<INPUT type='hidden' name='passback' value='subtotal'>\n";
print "<INPUT type='hidden' name='subtotal' value='$totalprice'>\n\n";

if (($tax eq '1') && ($FORM{'state'} eq $taxstate)) {
$temptax = $tax;
}
elsif (($tax eq '1') && ($FORM{'state'} != $taxstate)) {
$temptax = '0';
}


if ($temptax <=> '0') {

if ($tax eq '0') {
# print nothing
}
elsif ($tax eq '1') {
$taxtotal = $totalprice * $taxper;

$taxtotal = int($taxtotal * (10 ** 2) + .5) / (10 ** 2);


$totalprice = $totalprice + $taxtotal;
print "<tr><td><b>";

if ($tax eq '1') {
print "<font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>$taxstate&nbsp;</font>"
};

print "<font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Taxes:</font></b></td>";

if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}




        $taxtotal = &format_price($taxtotal);

#$_ = $taxtotal;

#if (/\./) {
#	my($left,$right) = split(/\./,$taxtotal);
#	if (length($right) == 0) {
#		$taxtotal = $taxtotal . "00";
#		}
#		elsif (length($right) == 1) { $taxtotal = $taxtotal . "0"; }
#	}
#	else { $taxtotal = $taxtotal . ".00"; }

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $taxtotal</font></center></b></td></tr>\n";



### TAX PASSBACKS ###

print "<INPUT type='hidden' name='passback' value='taxes'>\n";
print "<INPUT type='hidden' name='taxes' value='$taxtotal'>\n\n";

#####  TAX TAG  #####

print "<input type=hidden name='$rcitem-desc' value='Tax'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$taxtotal'>\n\n";

print "<INPUT type='hidden' name='passback' value='desc$rcitem'>\n";
print "<INPUT type='hidden' name='desc$rcitem' value='Tax'>\n\n";
print "<INPUT type='hidden' name='passback' value='qty$rcitem'>\n";
print "<INPUT type='hidden' name='qty$rcitem' value='1'>\n\n";
print "<INPUT type='hidden' name='passback' value='cost$rcitem'>\n";
print "<INPUT type='hidden' name='cost$rcitem' value='$taxtotal'>\n\n";
print "<INPUT type='hidden' name='passback' value='sub$rcitem'>\n";
print "<INPUT type='hidden' name='sub$rcitem' value='$taxtotal'>\n\n";

$rcitem=$rcitem+1;
}

elsif ($tax eq '2') {

$taxtotal = $totalprice * $taxamt;
$taxtotal = int($taxtotal * (10 ** 2) + .5) / (10 ** 2);

$totalprice = $totalprice + $taxtotal;

print "<tr><td><b>";

if ($tax eq '1') {print "$taxstate&nbsp;"};

print "<font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Taxes:</font></b></td>";

if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}

        $taxtotal = &format_price($taxtotal);

#$_ = $taxtotal;

#if (/\./) {
#	my($left,$right) = split(/\./,$taxtotal);
#	if (length($right) == 0) {
#		$taxtotal = $taxtotal . "00";
#		}
#		elsif (length($right) == 1) { $taxtotal = $taxtotal . "0"; }
#	}
#	else { $taxtotal = $taxtotal . ".00"; }

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $taxtotal</font></center></b></td></tr>\n";


### TAX PASSBACKS ###

print "<INPUT type='hidden' name='passback' value='taxes'>\n";
print "<INPUT type='hidden' name='taxes' value='$taxtotal'>\n\n";

#####  INCLUDE TAX TAGT #####

print "<input type=hidden name='$rcitem-desc' value='Tax'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$taxtotal'>\n\n";

print "<INPUT type='hidden' name='passback' value='desc$rcitem'>\n";
print "<INPUT type='hidden' name='desc$rcitem' value='Tax'>\n\n";
print "<INPUT type='hidden' name='passback' value='qty$rcitem'>\n";
print "<INPUT type='hidden' name='qty$rcitem' value='1'>\n\n";
print "<INPUT type='hidden' name='passback' value='cost$rcitem'>\n";
print "<INPUT type='hidden' name='cost$rcitem' value='$taxtotal'>\n\n";
print "<INPUT type='hidden' name='passback' value='sub$rcitem'>\n";
print "<INPUT type='hidden' name='sub$rcitem' value='$taxtotal'>\n\n";

$rcitem=$rcitem+1;
}

	}


if ($multiship eq 1) {
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>$FORM{'shipping'}:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}
	print "<td></td><td></td><td align=right>";

print "<input type=hidden name='$rcitem-desc' value='$FORM{'shipping'}'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$usership'>\n\n";

print "<input type=hidden name='desc$rcitem' value='$FORM{'shipping'}'>\n";
print "<input type=hidden name='qty$rcitem' value='1'>\n";
print "<input type=hidden name='cost$rcitem' value='$usership'>\n\n";
print "<input type=hidden name='sub$rcitem' value='$usership'>\n\n";

print "<input type=hidden name='passback' value='sub$rcitem'>\n\n";
print "<input type=hidden name='passback' value='desc$rcitem'>\n\n";
print "<input type=hidden name='passback' value='cost$rcitem'>\n\n";
print "<input type=hidden name='passback' value='qty$rcitem'>\n\n";


	if ($usership eq 'NULL') { 
			print "<a href=\"$cgiurl\?command=calcship\">Calculate<br>Shipping</a>";
			}
		else {
			print "<b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $usership</font></b>";
			$totalprice += $usership;
			}
	print "</td></tr>\n";
}
else {
if ($shipping eq '0') {
	# print nothing
	}
elsif ($shipping eq '1') {
	local($low,@prices,$price);
	@prices = sort number keys %shipping;
	$low = $prices[0];
	foreach $price (@prices) {
    	if (($price > $low) && ($price <= $totalquant)) {$low = $price};
		}
	$shipamt = $shipping{$low};
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
        print "<td></td>";
        }
	if ($useid eq '1') {
        print "<td></td>";
        }



        $shipamt = &format_price($shipamt);

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";


#####  INCLUDE SHIPPING TAG (BY NUMBER OF ITEMS ORDERED.)  #####

print "<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

print "<input type=hidden name='desc$rcitem' value='Shipping'>\n";
print "<input type=hidden name='qty$rcitem' value='1'>\n";
print "<input type=hidden name='cost$rcitem' value='$shipamt'>\n\n";
print "<input type=hidden name='sub$rcitem' value='$shipamt'>\n\n";

print "<input type=hidden name='passback' value='sub$rcitem'>\n\n";
print "<input type=hidden name='passback' value='desc$rcitem'>\n\n";
print "<input type=hidden name='passback' value='cost$rcitem'>\n\n";
print "<input type=hidden name='passback' value='qty$rcitem'>\n\n";

	}
elsif ($shipping eq '2') {
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}


        $shipamt = &format_price($shipamt);

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";


#####  INCLUDE SHIPPING TAG (NON-VARIABLE)  #####

print "<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

print "<input type=hidden name='desc$rcitem' value='Shipping'>\n";
print "<input type=hidden name='qty$rcitem' value='1'>\n";
print "<input type=hidden name='cost$rcitem' value='$shipamt'>\n\n";
print "<input type=hidden name='sub$rcitem' value='$shipamt'>\n\n";

print "<input type=hidden name='passback' value='sub$rcitem'>\n\n";
print "<input type=hidden name='passback' value='desc$rcitem'>\n\n";
print "<input type=hidden name='passback' value='cost$rcitem'>\n\n";
print "<input type=hidden name='passback' value='qty$rcitem'>\n\n";

	}
elsif ($shipping eq '3') {
	my($low,@weights,$weight);
	@weights = sort number keys %shipping;
	$low = $weights[0];
	foreach $weight (@weights) {
        if ($weight > $low && $weight <= $totalweight) {$low = $weight};
		}
	$shipamt = $shipping{$low};
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}


        $shipamt = &format_price($shipamt);

print "<td align=center>";

if ($totalquant > '0') { print "<B><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>$totalweight lbs.</font></B>"; }

print "</td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";


#####  INCLUDE SHIPPING TAG (BY WEIGHT)  #####

print "<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

print "<input type=hidden name='desc$rcitem' value='Shipping'>\n";
print "<input type=hidden name='qty$rcitem' value='1'>\n";
print "<input type=hidden name='cost$rcitem' value='$shipamt'>\n\n";
print "<input type=hidden name='sub$rcitem' value='$shipamt'>\n\n";

print "<input type=hidden name='passback' value='sub$rcitem'>\n\n";
print "<input type=hidden name='passback' value='desc$rcitem'>\n\n";
print "<input type=hidden name='passback' value='cost$rcitem'>\n\n";
print "<input type=hidden name='passback' value='qty$rcitem'>\n\n";
$passship=$shipamt;
	}

elsif ($shipping eq '4') {
	my($low,@prices);
	@prices = sort number keys %shipping;
	$low = $prices[0];
	foreach $price (@prices) {
        if ($price > $low && $price <= $totalprice) {$low = $price};
		}
	$shipamt = $shipping{$low};
	$totalprice += $shipamt;
	print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Shipping:</font></b></td>";
	if ($useimage eq '1') {
		print "<td></td>";
		}
	if ($useid eq '1') {
		print "<td></td>";
		}


        $shipamt = &format_price($shipamt);

print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $shipamt</font></b></td></tr>\n";


#####  INCLUDE SHIPPING TAG (BY WEIGHT)  #####

print "\n<input type=hidden name='$rcitem-desc' value='Shipping'>\n";
print "<input type=hidden name='$rcitem-qty' value='1'>\n";
#print "<input type=hidden name='$rcitem-cost' value='$usership'>\n\n";
print "<input type=hidden name='$rcitem-cost' value='$shipamt'>\n\n";

print "<input type=hidden name='desc$rcitem' value='Shipping'>\n";
print "<input type=hidden name='qty$rcitem' value='1'>\n";
print "<input type=hidden name='cost$rcitem' value='$shipamt'>\n\n";
print "<input type=hidden name='sub$rcitem' value='$shipamt'>\n\n";

print "<input type=hidden name='passback' value='sub$rcitem'>\n\n";
print "<input type=hidden name='passback' value='desc$rcitem'>\n\n";
print "<input type=hidden name='passback' value='cost$rcitem'>\n\n";
print "<input type=hidden name='passback' value='qty$rcitem'>\n\n";

	}
}

$totalprice = int($totalprice * (10 ** 2) + .5) / (10 ** 2);


        $totalprice = &format_price($totalprice);

print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Total price:</font></b></td>";
if ($useimage eq '1') {
	print "<td></td>";
	}
if ($useid eq '1') {
	print "<td></td>";
	}
print "<td></td><td></td><td align=right><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ $totalprice</font></b></td></tr>\n";

#if ($multicurr eq 1) {
#	$totalprice *= $usercurr;
#	$totalprice = int($totalprice * (10 ** 2) + .5) / (10 ** 2);


#        $totalprice = &format_price($totalprice);

#print "<tr><td><b><font size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>Total #price in selected currency:</font></b></td>";
#	if ($useimage eq '1') {
#		print "<td></td>";
#	}
#	if ($useid eq '1') {
#		print "<td></td>";
#	}
#	print "<td colspan=2><font size='$reviewfontsize' color='$reviewfontcolor' #face='$reviewfontface'>Exchange Rate: $usercurr</font></td><td align=right><b><font #size='$reviewfontsize' color='$reviewfontcolor' face='$reviewfontface'>\$ #$totalprice</font></b></td></tr>\n"; 
#	}

print "</table><br>\n";

if (($tax eq '1') && ($FORM{'state'} eq $taxstate)) {
print "<center><font color='red' size='4' face='$titlefontface'>NOTE:  $taxstate sales tax has been added to your order.</font></center>";
}
elsif (($tax eq '1') && ($FORM{'state'} != $taxstate)) {
print "<center><font color='red' size='5' face='$titlefontface'>Please confirm your order.</font></center>";
}
if ($tax eq '2') {
print "<center><font color='red' size='4' face='$titlefontface'>NOTE:  $taxstate sales tax has been added to your order.</font></center>";
}
else {
print "<center><font color='red' size='5' face='$titlefontface'>Please confirm your order.</font></center>";
}

print "<INPUT type='hidden' name='passback' value='totalprice'>\n";
print "<INPUT type='hidden' name='totalprice' value='$totalprice'>\n\n";

print "<INPUT type='hidden' name='passback' value='totalship'>\n";
#print "<INPUT type='hidden' name='totalship' value='$usership'>\n\n";

if ($multiship = 0) {
print "<INPUT type='hidden' name='totalship' value='$shipamt'>\n\n";
			}
if ($multiship = 1) {
print "<INPUT type='hidden' name='totalship' value='$usership'>\n\n";
			}

#print "<input type='hidden' name='test' value='$passship'>\n\n";

#print "<INPUT type='hidden' name='passback' value='test'>\n";
#print "<INPUT type='hidden' name='test' value='0'>\n\n";

print "<strong><center><HR width=590><font size='$generalfontsize' color='$generalfontcolor' face='$generalfontface'><B>BILLING INFORMATION</b></FONT><HR width=590></strong></center>
<TABLE width=590>
<TR>
<TD ALIGN='right' width='50%'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='first_name' value='$FORM{'first_name'}'>First Name: </font></B></TD>
<TD><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'first_name'}</td></tr>
<tr>
<td align='right' width='50%'><b><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='last_name' value='$FORM{'last_name'}'>Last Name: </font></B></td>
<td><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'last_name'}</td></tr>
<TR>
<TD ALIGN='right' width='50%'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='address' value='$FORM{'address'}'>Address: </font></B></TD>
<TD><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'address'}</TD></tr>
<TR>
<TD ALIGN='right' width='50%'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='city' value='$FORM{'city'}'>City: </font></B></TD>
<TD><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'city'}</td></tr>
<tr>
<td align='right' width='50%'><b><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='state' value='$FORM{'state'}'>State: </B></font></td>
<td><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'state'}</font></td></tr>
<tr>
<td align='right' width='50%'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='zip' value='$FORM{'zip'}'>Zip: </B></font></td>
<td><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'zip'}</font></td></tr>
<TR>
<TD ALIGN='right' width='50%'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='country' value='$FORM{'country'}'>Country: </font></B></TD>
<TD><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'country'}</TD></TR>
<TR>
<TD ALIGN='right' width='50%'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='phone' value='$FORM{'phone'}'>Phone Number: </font></B></TD>
<TD><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'phone'}</TD></TR>
<TR>
<TD ALIGN='right' width='50%'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='email' value='$FORM{'email'}'>E-Mail Address: </font></B></TD>
<TD><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'email'}</TD></TR>
</TABLE>";


################

if ($creg eq '1') {

print "<strong><center><HR width=590><font size='$generalfontsize' color='$generalfontcolor' face='$generalfontface'><B>SHIPPING INFORMATION<BR></b></FONT><HR width=590></strong></center>
<TABLE width=590>
<TR>
<TD ALIGN='right' width='50%'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='sfname' value='$FORM{'sfname'}'>First Name: </font></B></TD>
<TD><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'sfname'}</td></tr>
<tr>
<TD ALIGN='right' width='50%'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='slname' value='$FORM{'slname'}'>Last Name: </font></B></td>
<td><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'slname'}</TD></TR>
<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='saddr' value='$FORM{'saddr'}'>Shipping Address: </font></B></TD>
<TD><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'saddr'}</TD></TR>
<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='scity' value='$FORM{'scity'}'>City: </font></B></TD>
<TD><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'scity'}</font></td></tr>
<tr>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='sstate' value='$FORM{'sstate'}'>State: </font></B></td>
<td><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'sstate'}</font></td></tr>
<tr>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='szip' value='$FORM{'szip'}'>Zip: </font></B></td>
<td><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'szip'}</TD></TR>
<TR>
<TD ALIGN='right'><B><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'><input type='hidden' name='sctry' value='$FORM{'sctry'}'>Country: </font></B></TD>
<TD><font size='$orderformfontsize' color='$orderformfontcolor' face='$orderformfontface'>$FORM{'sctry'}</TD></TR>
</TABLE>\n";
}
print "<INPUT type='hidden' name='passback' value='finalquant'>\n";
print "<INPUT type='hidden' name='finalquant' value='$rcitem'>\n";

print "<center><HR width=590></center>";

print "<BR><INPUT TYPE='submit' VALUE='PROCEED TO SECURE SERVER'></form>";

}

sub check_expiration {

opendir(TEMP, 'tmp');
@Allnames = readdir(TEMP);
foreach $Name (@Allnames) {
	$flush = "$tmpdir/$Name";
		if (-d $flush) { Next }
		else {
			open (CHECK,"$flush") || die "Can't Open $Name(r): $!\n";
			@LINES=<CHECK>;
			close(CHECK);
			$SIZE=@LINES;
			$line=$LINES[0];
	($filetime, $filedate, $filehost, $usership, $ship_name) = split(/\|/,$line);

			closedir(TEMP);
		}
	}
	$expired_time = $current_time - $expire_seconds;
	if ($expired_time >= $filetime) {
		unlink($flush);
	}	
	
}
sub print_nav_options {
print "<center><table><tr><td><a href=\"$cgiurl?command=buy1&ipnum=$host\"><font size=-1><B>PURCHASE ITEMS IN CART</B></font></a></td><td>";

if ($FORM{'return_url'}) {
print "<a href='$FORM{'return_url'}'><font size=-1><b>CONTINUE SHOPPING</b></font></a>";
}
else {
print "<a href='$hp'><font size=-1><b>CONTINUE SHOPPING</b></font></a>";
}

print "</td></tr></table></center><br>\n";

}
# END smart.cgi