#!/usr/bin/perl # smart.cgi v3.1 build 2.06b rev. © 9/17/2000 by Chuck Gorrecht, CPUnet Internet. # THIS IS THE MAIN STORE PROCESSING SCRIPT FOR BOTH SSL AND NON SSL ON SAME SERVER. # NOTICE: # This Version Requires Perl 5 or better and the following Perl Modules: # File::Copy Module # cgi.pm library ####################################################################################### # Based on aite of S-mart by Barry Robison, revised 04/11/1998 by Gregory Swofford # and with various contributions by Matt Wright, Selena Sol, Eddie Deboard, et.al. # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License (the License) as published by # the Free Software Foundation,Inc.59 Temple Place Suite 330, Boston, MA 02111 USA. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the LICENSE # for more details. You received a copy of the LICENSE with this program. # To use this version of smart.cgi the complete modified package # version 3.1 build 2.06 of scripts is required. # Contact cpu1@cpunet.net for further information. Or visit http://www.cpunet.net ####################################################################################### $start = (times)[0]; $| = 1; require '/home/wisemen/public_html/cgi-bin/smart/smartcfg.cgi'; require '/home/wisemen/public_html/cgi-bin/smart/groupscfg.cgi'; require '/home/wisemen/public_html/cgi-bin/smart/gateway_mod.cgi'; use vars qw($tmp_basepath $qty_basepath $html_basepath $sslhtml_basepath $useverify $usertime $count $ordercountfile $order_path $orderdir $usetrack %groups); # GET parse 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; } $command = $FORM{'command'}; $pos = $FORM{'pos'}; $type = $FORM{'type'}; $cmdlinegroup = $FORM{'group'}; $delete_itemname = $FORM{'itemid'}; $szone = $FORM{'zone'}; $session_id = $FORM{'session_id'}; $tax_p = $FORM{'tax_p'}; $disc_p = $FORM{'disc_p'}; $min_p = $FORM{'min_p'}; $ship_tp = $FORM{'ship_tp'}; $ship_ap = $FORM{'ship_ap'}; &parse_form; &get_date; if ($use_cookies == 1) { if ($command eq 'add') {&cookie_id; &add_item;} elsif ($command eq 'change') {&cookie_id; &change_items;} elsif ($command eq 'buy1') {&ssl_id; &buy_items1;} elsif ($command eq 'buy2') {&ssl_id; &buy_items2;} elsif ($command eq 'review') {&cookie_id; &review_items;} elsif ($command eq 'listitems') {&cookie_id; &gen_page;} elsif ($command eq 'listitems_nopic'){&cookie_id; &gen_page;} elsif ($command eq 'showstore') {&cookie_id; &show_store;} elsif ($command eq 'delete') {&cookie_id; unlink($reffile); unlink($salefile); &show_store;} elsif ($command eq 'delete_item') {&cookie_id; &delete_item;} elsif ($command eq 'printable') {&cookie_id; &printable_page;} elsif ($command eq 'pay_type') {&ssl_id; &buy_items1;} elsif ($command eq 'leave') {&cookie_id; &leave_store;} elsif ($command eq 'return') {&receipt;} elsif ($command eq 'contact') {&cookie_id; &gen_contact;} elsif ($command eq 'thankyou') {&thank_you;} else {&cookie_id; &show_store;} } if ($use_cookies == 0) { if ($command eq 'add') {&get_host_id; &add_item;} elsif ($command eq 'change') {&get_host_id; &change_items;} elsif ($command eq 'buy1') {&ssl_id; &buy_items1;} elsif ($command eq 'buy2') {&ssl_id; &buy_items2;} elsif ($command eq 'review') {&get_host_id; &review_items;} elsif ($command eq 'listitems') {&get_host_id; &gen_page;} elsif ($command eq 'listitems_nopic'){&get_host_id; &gen_page;} elsif ($command eq 'showstore') {&get_host_id; &show_store;} elsif ($command eq 'delete') {&get_host_id; unlink($reffile); unlink($salefile); &show_store;} elsif ($command eq 'delete_item') {&get_host_id; &delete_item;} elsif ($command eq 'printable') {&get_host_id; &printable_page;} elsif ($command eq 'pay_type') {&ssl_id; &buy_items1;} elsif ($command eq 'leave') {&get_host_id; &leave_store;} elsif ($command eq 'return') {&receipt;} elsif ($command eq 'contact') {&get_host_id; &gen_contact;} elsif ($command eq 'thankyou') {&thank_you;} else {&get_host_id; &show_store;} } ##################################################################### ##### Parse Form Input. ############################################# sub parse_form { my(@pairs); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); } 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; $value =~ s///g; #remove SSI if ($name eq 'required') {@required = split(/,/,$value);} elsif ($name eq 'exclude') {@exclude = split(/,/,$value);} elsif ($name eq 'sorted_fields') {@sorted_fields = split(/,/,$value);} elsif ($FORM{$name}) {$FORM{$name} = $FORM{$name}.",".$value;} else {$FORM{$name} = $value;} } } ##################################################################### ##### Generate Cart Id from counter database and set Cookie. ######## # Requires path to CGI.pm set in smartcfg.cgi sub cookie_id { use CGI; $co = new CGI; $cart_id = $co->cookie('cart'); if ($cart_id <= 0) { open (COUNTFILE,"$countdb") || print "Content-type: text/html\n\n Can't Open $countdb(r): $!\n"; $count = ; close(COUNTFILE); $count++; open (COUNTFILE,">$countdb") || print "Content-type: text/html\n\n Can't Open $countdb(r): $!\n"; if ($system == 1) {flock(COUNTFILE, 2)}; print COUNTFILE $count; if ($system == 1) {flock(COUNTFILE, 8)}; close(COUNTFILE); $cookie1 = $co->cookie(-name=>'cart', -value=>$count); print $co->header(-cookie=>$cookie1); $cart_id = $count; &count_access; } $host = $ENV{'REMOTE_ADDR'}; $cart_ext ="-$cart_id"; $userhost_id = "$host$cart_ext"; $reffile = "$tmp_basepath$delim$userhost_id.cart"; $salefile = "$tmp_basepath$delim$userhost_id.data"; &check_file; } ##################################################################### ##### get_host_id. ################################################## sub get_host_id { $host = $ENV{'REMOTE_ADDR'}; $userhost_id = "$host"; $reffile = "$tmp_basepath$delim$userhost_id.cart"; $salefile = "$tmp_basepath$delim$userhost_id.data"; if (-e "$reffile"){ &parse_file; } else{&make_file;} $cart_id = $userhost_id; } ##################################################################### ##### Set Cart Id for SSL URL transfer. ############################# sub ssl_id { $userhost_id = $FORM{'session_id'}; $reffile = "$tmp_basepath$delim$userhost_id.cart"; $salefile = "$tmp_basepath$delim$userhost_id.data"; &check_file } ##################################################################### ##### Check for cart file. ########################################## sub check_file {if (-e "$reffile"){&parse_file;}else{&make_file;}} sub parse_file { open (REFFILE,"$reffile") || die "Can't Open $reffile(r): $!\n"; @LINES=; close(REFFILE); $SIZE=@LINES; $_=$LINES[0]; ($usertime, $userhost, $useragent, $usership, $usertax) = split(/\|/,$_); } ##################################################################### ##### Make Cart File and add visitor entry to log file. ############# sub make_file { open(REFFILE,">$reffile"); print REFFILE "$date\| $userhost_id\| $ENV{'HTTP_USER_AGENT'}\|\|\|\n"; close(REFFILE); chmod(0666,"$reffile"); # make temp cart data value file open (FEEFILE, ">$salefile") || die "Can't Open $salefile(r): $!\n"; print FEEFILE "$date\|$userhost_id\|\n"; close(FEEFILE); chmod(0666,"$salefile"); # Routine to append a simple logfile of visitors, not buyers open(LOGFILE,">>$log_basepath$delim$logfile") || die "Can't Open $log_basepath$delim$logfile(r): $!\n"; print LOGFILE "$date\| $ENV{'REMOTE_ADDR'}\| $ENV{'HTTP_USER_AGENT'}\|$cart_id\|\n"; close(LOGFILE); } ##################################################################### ##### Get Date. ##################################################### sub get_date { ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time); $year = $year + 1900; if ($day_correct eq '1') { $mday = ($mday + $num_d); } if ($month_correct eq '1') { $mon = ($mon + $num_m); } if ($year_correct eq '1') { $year = ($year + $num_y); } if ($day_correct eq '2') { $mday = ($mday - $num_d); } if ($month_correct eq '2') { $mon = ($mon - $num_m); } if ($year_correct eq '2') { $year = ($year - $num_y); } $date = "$mon/$mday/$year"; $days = "2"; $delete_date = ($mday - $days); $pr_deletedate = "$mon/$delete_date/$year"; } ##################################################################### ##### Show store. ################################################### sub show_store { print "Content-type: text/html\n\n" ; &print_header; if ($showstore_nav eq '1') { open (STORE,"$html_basepath$delim$showstore") || print "Could not open $html_basepath$delim$showstore $! \n"; while () {print $_;} close(STORE); print "



\n"; print "\n"; print "
\n"; print "
\n"; print "SEARCH For
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; } &print_footer; } ##################################################################### ##### Generate Page. Command=listitems or Command=listitems_nopic ### sub gen_page { print "Content-type: text/html\n\n"; &print_header; my($SIZE,$i); print "
\n"; open (FILE,"$basepath$delim$resourcedb") || die "Content-type: text/html\n\nCan't Open $resourcedb(r): $!\n"; my(@LINES)=; close(FILE); $SIZE=@LINES; if ($type eq 'group') { $list_count = 0; for ($i=0;$i<=$SIZE;$i++) { $_=$LINES[$i]; my($itemid, $name, $price, $descrip, $image, $weight, $itemurl, $group, $lg_image, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock, $C_out, $qd, $new_x, $new_xx, $new_xxx, $new_xxxx, $new_xxxxx, $new_xxxxxxx, $new_xxxxxxx, $new_xxxxxxxx) = split(/\|/,$_); my(@groups) = split(/\,/,$group); foreach $item_group (@groups) { if ($item_group eq $FORM{'group'}) { $list_count++; } } } } if ($type eq 'search') { $list_count = 0; for ($i=0;$i<=$SIZE;$i++) { $_=$LINES[$i]; my($itemid, $name, $price, $descrip, $image, $weight, $itemurl, $group, $lg_image, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock, $C_out, $qd, $new_x, $new_xx, $new_xxx, $new_xxxx, $new_xxxxx, $new_xxxxxxx, $new_xxxxxxx, $new_xxxxxxxx) = split(/\|/,$_); my(@groups) = split(/\,/,$group); foreach $item_group (@groups) { if (index(lc $LINES[$i],lc $FORM{'search'}) >= 0) { $list_count++; } } } } ##### if ($type eq 'all') { my($max) = $pos + $numtolist; if ($max > $SIZE) {$max = $SIZE;} if ($pos eq '0') {$this_pos = 1;} else {$this_pos = ($pos + 1);} if ($SIZE <= $numtolist) { print "\n"; for ($i=$pos;$i<$max;$i++) { $_=$LINES[$i]; ($itemid, $name, $price, $descrip, $image, $weight, $itemurl, $group, $lg_image, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock, $C_out, $qd, $new_x, $new_xx, $new_xxx, $new_xxxx, $new_xxxxx, $new_xxxxxxx, $new_xxxxxxx, $new_xxxxxxxx) = split(/\|/,$_); ($co_use, $co_rate, $co_im) = split(/\,/,$C_out); ($qd_use, $qd_qty_1, $qd_qty_2, $qd_qty_3, $qd_qty_4, $qd_qty_5, $qd_qty_6, $qd_qty_7, $qd_qty_8, $qd_qty_9, $qd_qty_10, $qd_price_1, $qd_price_2, $qd_price_3, $qd_price_4, $qd_price_5, $qd_price_6, $qd_price_7, $qd_price_8, $qd_price_9, $qd_price_10) = split(/\,/,$qd); &print_item; } print "
There are $SIZE items listed. Viewing items $this_pos to $SIZE.
\n"; } if ($SIZE > $numtolist) { $next_pos = ($pos + $numtolist); print "
There are $SIZE items listed. Viewing items $this_pos to $next_pos.
\n"; } print "
\n"; if ($max < $SIZE) { print "
\n"; if (($command eq 'listitems_nopic')) { print "\n"; print "\"Continue

\n"; } else { print "\n"; print "\"Continue\

\n"; } print "
\n"; } } elsif ($type eq 'search') { my($matches) = 0; my($i) = $pos; if ($pos eq '0') {$this_pos = 1;} else {$this_pos = ($pos + 1);} $next_pos = ($pos + $numtolist); if ($list_count <= $numtolist) { print "
Found $list_count matches for your search of: $FORM{'search'}. Viewing items $this_pos to $list_count.
\n"; } if ($list_count > $numtolist) { print "
Found $list_count matches for your search of: $FORM{'search'}. Viewing items $this_pos to $next_pos .
\n"; } print "
\n"; while (($matches < $numtolist) && ($i < $SIZE)) { $_=$LINES[$i]; if (index(lc $LINES[$i],lc $FORM{'search'}) >= 0) { $matches++; ($itemid, $name, $price, $descrip, $image, $weight, $itemurl, $group, $lg_image, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock, $C_out, $qd, $new_x, $new_xx, $new_xxx, $new_xxxx, $new_xxxxx, $new_xxxxxxx, $new_xxxxxxx, $new_xxxxxxxx) = split(/\|/,$_); ($co_use, $co_rate, $co_im) = split(/\,/,$C_out); ($qd_use, $qd_qty_1, $qd_qty_2, $qd_qty_3, $qd_qty_4, $qd_qty_5, $qd_qty_6, $qd_qty_7, $qd_qty_8, $qd_qty_9, $qd_qty_10, $qd_price_1, $qd_price_2, $qd_price_3, $qd_price_4, $qd_price_5, $qd_price_6, $qd_price_7, $qd_price_8, $qd_price_9, $qd_price_10) = split(/\,/,$qd); &print_item; } $i++; } print "\n"; if ($i < $SIZE) { print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; } else { print "
\n"; } } elsif ($type eq 'group') { my($matches) = 0; my($i) = $pos; if ($pos eq '0') {$this_pos = 1;} else {$this_pos = ($pos + 1);} if ($list_count <= $numtolist) { print "
Found $list_count items in category $FORM{'group'}. Viewing items $this_pos to $list_count.
\n"; } if ($list_count > $numtolist) { $next_pos = ($pos + $numtolist); print "
Found $list_count items in category $FORM{'group'}. Viewing items $this_pos to $next_pos.
\n"; } print "
\n"; while (($matches < $numtolist) && ($i < $SIZE)) { $_=$LINES[$i]; ($itemid, $name, $price, $descrip, $image, $weight, $itemurl, $group, $lg_image, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock, $C_out, $qd, $new_x, $new_xx, $new_xxx, $new_xxxx, $new_xxxxx, $new_xxxxxxx, $new_xxxxxxx, $new_xxxxxxxx) = split(/\|/,$_); ($co_use, $co_rate, $co_im) = split(/\,/,$C_out); ($qd_use, $qd_qty_1, $qd_qty_2, $qd_qty_3, $qd_qty_4, $qd_qty_5, $qd_qty_6, $qd_qty_7, $qd_qty_8, $qd_qty_9, $qd_qty_10, $qd_price_1, $qd_price_2, $qd_price_3, $qd_price_4, $qd_price_5, $qd_price_6, $qd_price_7, $qd_price_8, $qd_price_9, $qd_price_10) = split(/\,/,$qd); my(@groups) = split(/,/,$group); undef %is_group; for (@groups) { $is_group{$_} = 1 } if ($is_group{$FORM{'group'}}) { $matches++; &print_item; } $i++; } print "\n"; if ($i < $SIZE) { print "
View the next $numtolist items
\n"; print "\n"; print "\"Continue


\n"; } else { print "
\n"; } } &print_footer; } ##################################################################### ##### Print item on product pages. ################################## sub print_item { if ($stocktrack eq 1) { if (-e "$qty_basepath$delim$itemid"){ open (QTYFILE, "<$qty_basepath$delim$itemid") || &ErrorMessage; @qtylists = ; close (QTYFILE); $n=1; foreach $qtylist (@qtylists) { $tmp_new_qty = $qtylist; } } if ($tmp_new_qty < $Stock) { # less than $avail_qty = $tmp_new_qty; } else {$avail_qty = $Stock;} } if ($co_use eq 'yes') { $list_price = $price; $co_tmp = ($price * $co_rate); $co_discount = ($co_tmp /100); #$co_discount = sprintf ('%.2f',$co_discount); $price = ($price - $co_discount); $price = sprintf ('%.2f',$price); } if (($qd_use eq 'price') || ($qd_use eq 'rate')) { if ($qd_use eq 'price') { $list_price = $price; $qd_p1 = $qd_price_1; $qd_p2 = $qd_price_2; $qd_p3 = $qd_price_3; $qd_p4 = $qd_price_4; $qd_p5 = $qd_price_5; $qd_p6 = $qd_price_6; $qd_p7 = $qd_price_7; $qd_p8 = $qd_price_8; $qd_p9 = $qd_price_9; $qd_p10 = $qd_price_10; } if ($qd_use eq 'rate') { $qd_tmp1 = ($price * $qd_price_1); $qd_tmp2 = ($price * $qd_price_2); $qd_tmp3 = ($price * $qd_price_3); $qd_tmp4 = ($price * $qd_price_4); $qd_tmp5 = ($price * $qd_price_5); $qd_tmp6 = ($price * $qd_price_6); $qd_tmp7 = ($price * $qd_price_7); $qd_tmp8 = ($price * $qd_price_8); $qd_tmp9 = ($price * $qd_price_9); $qd_tmp10 = ($price * $qd_price_10); $qd_t1= ($qd_tmp1 /100); $qd_t2 = ($qd_tmp2 /100); $qd_t3 = ($qd_tmp3 /100); $qd_t4 = ($qd_tmp4 /100); $qd_t5 = ($qd_tmp5 /100); $qd_t6 = ($qd_tmp6 /100); $qd_t7 = ($qd_tmp7 /100); $qd_t8 = ($qd_tmp8 /100); $qd_t9 = ($qd_tmp9 /100); $qd_t10 = ($qd_tmp10 /100); $qd_p1 = ($price - $qd_t1); $qd_p2 = ($price - $qd_t2); $qd_p3 = ($price - $qd_t3); $qd_p4 = ($price - $qd_t4); $qd_p5 = ($price - $qd_t5); $qd_p6 = ($price - $qd_t6); $qd_p7 = ($price - $qd_t7); $qd_p8 = ($price - $qd_t8); $qd_p9 = ($price - $qd_t9); $qd_p10 = ($price - $qd_t10); $qd_p1 = sprintf ('%.2f',$qd_p1); $qd_p2 = sprintf ('%.2f',$qd_p2); $qd_p3 = sprintf ('%.2f',$qd_p3); $qd_p4 = sprintf ('%.2f',$qd_p4); $qd_p5 = sprintf ('%.2f',$qd_p5); $qd_p6 = sprintf ('%.2f',$qd_p6); $qd_p7 = sprintf ('%.2f',$qd_p7); $qd_p8 = sprintf ('%.2f',$qd_p8); $qd_p9 = sprintf ('%.2f',$qd_p9); $qd_p10 = sprintf ('%.2f',$qd_p10); } } print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; # Tells sub add_item to calculate Quantity discount from $price if (($command eq 'listitems_nopic')) { if ($itemurl) { print "\n"; print "\n"; } elsif ($image) { print "\n"; print "\n"; } else {print "
No Image
\n";} } else { if ($image) { print "\n"; } else {print "\n";} } if ($co_use eq 'yes') { if ($co_im eq 'c') { print ""; } if ($co_im eq 's') { print ""; } print "Was: \$ $list_price"; } if (($qd_use eq 'price') || ($qd_use eq 'rate')) { print ""; print ""; } else { print ""; print ""; } print "\n"; print "\n"; print "\n"; print "\n"; if ($itemurl) {print "$name\n";} else {print "$name\n";} print "\$ $price\n"; print "\n"; print "\n"; if ($stocktrack eq 1) { print "Item # $itemid\ \;In Stock: $avail_qty
$descrip
\n"; } else { print "Item ID: $itemid
$descrip
\n"; } # If options, print option table. if (($Item_var_one)||($Item_var_two)||($Item_var_three)){ print "
Options
\n"; if ($Item_var_one) { my(@Item_var_one) = split(/,/,$Item_var_one); print "
\n"; } if ($Item_var_two) { my(@Item_var_two) = split(/,/,$Item_var_two); print "
\n"; } if ($Item_var_three) { my(@Item_var_three) = split(/,/,$Item_var_three); print "\n"; } print "
\n"; } # End Option table ################ CHANGED colspan from 4 to 6 CUT width=250 print "\n"; if (($qd_use eq 'price') || ($qd_use eq 'rate')) { ###### print "
\n"; print "
\n"; print "\n"; if ($qd_price_1) { print "\n"; print "\n"; print < EOM } #unless ($qd_p2) {print "
Quantity Discounts for Item # $itemid
$qd_qty_1 \ \;to\ \; $qd_qty_2 for\ \; \$ $qd_p1 ea
\n";} if ($qd_price_2) { print "\n"; print "\n"; print < $qd_qty_2 \ \;to\ \; $qd_qty_3 for\ \; \$ $qd_p2 ea EOM } #unless ($qd_p3) {print "\n";} if ($qd_price_3) { print "\n"; print "\n"; print < $qd_qty_3 \ \;to\ \; $qd_qty_4 for\ \; \$ $qd_p3 ea EOM } #unless ($qd_p4) {print "\n";} if ($qd_price_4) { print "\n"; print "\n"; print < $qd_qty_4 \ \;to\ \; $qd_qty_5 for\ \; \$ $qd_p4 ea EOM } #unless ($qd_p5) {print "\n";} if ($qd_price_5) { print "\n"; print "\n"; print < $qd_qty_5 \ \;to\ \; $qd_qty_6 for\ \; \$ $qd_p5 ea EOM } #unless ($qd_p6) {print "\n";} if ($qd_price_6) { print "\n"; print "\n"; print < $qd_qty_6 \ \;to\ \; $qd_qty_7 for\ \; \$ $qd_p6 ea EOM } #unless ($qd_p7) {print "\n";} if ($qd_price_7) { print "\n"; print "\n"; print < $qd_qty_7 \ \;to\ \; $qd_qty_8 for\ \; \$ $qd_p7 ea EOM } #unless ($qd_p8) {print "\n";} if ($qd_price_8) { print "\n"; print "\n"; print < $qd_qty_8 \ \;to\ \; $qd_qty_9 for\ \; \$ $qd_p8 ea EOM } #unless ($qd_p9) {print "\n";} if ($qd_price_9) { print "\n"; print "\n"; print < $qd_qty_9 \ \;to\ \; $qd_qty_10 for\ \; \$ $qd_p9 ea EOM } #unless ($qd_p10) {print "\n";} if ($qd_price_10) { print "\n"; print "\n"; print < $qd_qty_10 \ \;\&\;\ \;\ \; up for\ \; \$ $qd_p10 ea EOM } print "
\n"; } print "\n"; } ############################################################################ ##### List items in cart, review, checkout, successful order. ############## sub list_items { if ($cart_header eq '1') { $chb_a = ""; $chb_b = ""; } if ($cart_header eq '0') { $chb_a = ""; $chb_b = ""; } my($totalquant,$totalprice,$taxtotal,$shipamt,$totalweight) = 0; open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n"; my(@LINES)=; close(REFFILE); $SIZE=@LINES; if ($SIZE <= 1) { print "
YOUR CART IS EMPTY
\n"; &print_footer; exit; } print "
"; print <
EOM for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; ($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); print "\n"; $tmpprice = ($itemprice*$itemquant); $tmpprice = sprintf ('%.2f',$tmpprice); $totalprice += $tmpprice; $totalquant += $itemquant; $totalweight = ($weight*$itemquant) + $totalweight; $totalprice = sprintf ('%.2f',$totalprice); print < EOM } print <
$chb_aItem ID$chb_b $chb_aName$chb_b $chb_aPrice$chb_b $chb_aOptions$chb_b $chb_aQty$chb_b
$chb_aAmount$chb_b
 Delete
$itemid
$itemname
\$ $itemprice
 $Item_var_one
$Item_var_two
$Item_var_three
\$ $tmpprice
 Delete
EOM $sub_price = $totalprice; $sub_price = sprintf ('%.2f',$sub_price); # Discounting 1: 5 levels of discounts. if (($discounting eq '1') && ($totalprice <= $discount1)) {$tmpdiscount = 0;} if ((($discounting eq '1') && ($totalprice >= $discount1) && ($totalprice < $discount2))) {$tmpdiscount = ($totalprice * $discountrate1);} if ((($discounting eq '1') && ($totalprice >= $discount2) && ($totalprice < $discount3))) {$tmpdiscount = ($totalprice * $discountrate2);} if ((($discounting eq '1') && ($totalprice >= $discount3) && ($totalprice < $discount4))) {$tmpdiscount = ($totalprice * $discountrate3);} if ((($discounting eq '1') && ($totalprice >= $discount4) && ($totalprice < $discount6))) {$tmpdiscount = ($totalprice * $discountrate4);} if (($discounting eq '1') && ($totalprice >= $discount6)) {$tmpdiscount = ($totalprice * $discountrate5);} # Discounting 2: 1 level of discounting. if (($discounting eq '2') && ($totalprice <= $discount1)) {$tmpdiscount = 0;} if (($discounting eq '2') && ($totalprice >= $discount1)) {$tmpdiscount = ($totalprice * $discountrate1);} $totaldiscount = ($tmpdiscount /100); $totaldiscount = sprintf ('%.2f',$totaldiscount); $checkprice = ($totalprice); $totalprice = ($totalprice - $totaldiscount); $totalprice = sprintf ('%.2f',$totalprice); # Print Discount rates received in cart. if ((($discounting eq '1') && ($checkprice >= $discount1) && ($checkprice < $discount2))) {$discount = ($discountrate1);} if ((($discounting eq '1') && ($checkprice >= $discount2) && ($checkprice < $discount3))) {$discount = ($discountrate2);} if ((($discounting eq '1') && ($checkprice >= $discount3) && ($checkprice < $discount4))) {$discount = ($discountrate3);} if ((($discounting eq '1') && ($checkprice >= $discount4) && ($checkprice < $discount6))) {$discount = ($discountrate4);} if (($discounting eq '1') && ($checkprice >= $discount6)) {$discount = ($discountrate5);} $discount = sprintf ('%.2f',$discount); if ($totaldiscount > 0) { } # Discounting 2 if (($discounting eq '2') && ($checkprice >= $discount1)) {$discount = ($discountrate1);} if ($totaldiscount < 0) { $discount_num = "None"; } print "\n"; print <Total Before Discount: EOM if ($minimum eq '1') { if ($totalprice < $minlevel) { $min_message = 1; $printmin = $minfee; $printmin = sprintf ('%.2f',$printmin); $totalprice = ($totalprice + $minfee); $totalprice = sprintf ('%.2f',$totalprice); } } if ($minimum eq '0') { $printmin = "0"; } print < EOM if ($cod_a){ $codmessage = $cod_a; $codmessage = sprintf ('%.2f',$codmessage); $totalprice += $codmessage; } else {$codmessage = "0.00";} print <
$msgbox1_la
$msgbox1_lb
$msgbox1_lc
$msgbox1_ld
\$ $sub_price
$msgbox2_la
$msgbox2_lb
\$ $totaldiscount
Discount Received :
\$ $totaldiscount
Subtotal:
\$ $totalprice
Minimum Order Fee:
\$ $printmin
COD Fee:
\$ $codmessage
EOM # Shipping if ($shipping eq '1') { if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454 ); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } $shipamt = ($totalquant * $shiprate_1)+$minship_1; $shipamt = sprintf ('%.2f',$shipamt); $totalprice += $shipamt; } elsif ($shipping eq '2') { if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454 ); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } $shipamt = $ship_amt2; $shipamt = sprintf ('%.2f',$shipamt); $totalprice += $shipamt; } elsif ($shipping eq '3') { if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454 ); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } $shipamt = $totalweight * $shiprate; if ($minship > $shipamt) {$shipamt = $minship }; $shipamt = sprintf ('%.2f',$shipamt); $totalprice += $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}; if ($minship > $shipamt) {$shipamt = $minship }; $totalprice += $shipamt; } elsif ($shipping eq 7) { if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } my($low,@weights,$weight); @weights = sort number keys %shipping; $low = $weights[0]; foreach $weight (@weights) { if ($weight > $low && $weight <= $totalweight) {$low = $weight}; } $tmp2 = $shipping{$low}; $tmp3 = ($totalprice * $ins_rate); # Multiplies totalprice x Insurance rate. $shipamt = $tmp2 + $tmp3; if ($minship > $shipamt) { $shipamt = $minship; } if ($handling eq 1) { $shipamt += $h_fee; } print "\n"; $shipamt = sprintf ('%.2f',$shipamt); $totalprice += $shipamt; } print <
EOM if ($tax eq '1') { print ""; print "\n"; $totaltax = sprintf ('%.2f',$totaltax); print "\n"; print "\n"; print ""; $testtax = $totaltax; } if ($tax eq '0') { print ""; print ""; $totaltax = "0"; $testtax = "0"; print "\n"; print "\n"; print ""; } # DONE ABOVE................................ if (($shipping eq 1) || ($shipping eq 2) || ($shipping eq 3)|| ($shipping eq 4) || ($shipping eq 7)) { print <
$shipheader
Add Tax if you live in: \n"; foreach $tax (keys %taxes) { print "$tax."; print "
\$ $totaltax
\n"; print "
\
$msgbox3_la
$msgbox3_lb
$msgbox3_lc
$msgbox3_ld
$msgbox3_le
Shipping Fee:
\$ $shipamt
PRESS
$recal_msg
EOM } # end of shipping 1,2,3,4 if ($shipping eq 5) { print <
$msgbox3_la
$msgbox3_lb
$msgbox3_lc
$msgbox3_ld
$msgbox3_le
SELECT SHIPPING: EOM if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454 ); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } open (SHIPDB, "$shipdb"); my(@SHIP) = ; close(SHIPDB); print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print < Shipping Fee:
\$ $shipamt
PRESS $recal_msg EOM } # End shippng 5 if ($shipping eq 6) { print <
$msgbox3_la
$msgbox3_lb
$msgbox3_lc
$msgbox3_ld
$msgbox3_le
SELECT SHIPPING: EOM if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454 ); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } open (SHIPDB, "$shipdb"); my(@SHIP) = ; close(SHIPDB); print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print < Shipping Fee:
\$ $shipamt
PRESS $recal_msg EOM } # End shipping 6 if ($shipping eq 8) { print <
$msgbox3_la
$msgbox3_lb
$msgbox3_lc
$msgbox3_ld
$msgbox3_le
SELECT SHIPPING: EOM if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454 ); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } open (SHIPDB, "shipping8.db"); my(@SHIP) = ; close(SHIPDB); print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print < Shipping Fee:
\$ $shipamt
PRESS $recal_msg EOM } # End shipping 8 if ($shipping eq 9) { # Shipping #9 by multiple UPS shipping types. Reads UPS Zone & Rate Tables. # Weight determines price + insurance rate x total price. if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } print <
$msgbox3_la
$msgbox3_lb
$msgbox3_lc
$msgbox3_ld
$msgbox3_le
Find Your Zip Code Here: EOM open (ZIPDB, "$zipdb"); @ZIP = ; close(ZIPDB); print "\n"; print "SELECT SHIPPING:"; open (SHIPDB, "$shipdb"); @SHIP = ; close(SHIPDB); print "\n"; # Database scalers: gnd=$gnd 300=$third 200=$second 240=$secondam 130=$nextsaver 100=$next # The modified UPS Tables are for the origin Zip code of 98371. if ($ship_ups eq 'gnd') { open (RATEDB, "$gnd"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } if ($ship_ups eq '300') { open (RATEDB, "$third"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } if ($ship_ups eq '200') { open (RATEDB, "$second"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } if ($ship_ups eq '240') { open (RATEDB, "$secondam"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } if ($ship_ups eq '130') { open (RATEDB, "$nextsaver"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } if ($ship_ups eq '100') { open (RATEDB, "$next"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } $tmp1 = $ship_fee; # Shipping price for weight by zone and shipping type. $shipamt = $tmp1; # Insurance. if ($ins eq '1') { $rate = $upsrate; $free = $upsfree; $multiplier = $upslmulti; $tprice = sprintf ('%.0f',$totalprice); $tmpcount_ins = ($totalprice / 100); $tmpcount_ins = sprintf ('%.0f',$tmpcount_ins); $count_ins = ($tmpcount_ins - 1); $insprice = ($count_ins * $rate); $insprice = sprintf ('%.2f',$insprice); $print_i = $insprice; $insprice = sprintf ('%.2f',$insprice); $print_i = sprintf ('%.2f',$print_i); if ($count_ins >1) { $p_insurance = "Shipping Insurance \$ $print_i"; } if ($count_ins <= 1) { $p_insurance = "Under \$100.00 Insurance if Free "; } $shipamt_tmp = $shipamt; if ($shipamt_tmp < 1) { $printsamt = "Minimum Shipping $minship"; } else { $shipamt_tmp = sprintf ('%.2f',$shipamt_tmp); $printsamt = " Shipping is: \$ $shipamt_tmp "; } } if ($minship > $shipamt) { $shipamt = $minship; } if ($handling eq 1) { $shipamt += $h_fee; $h_fee_tmp = $h_fee; $h_fee_tmp = sprintf ('%.2f',$h_fee_tmp); $printhand = " Handling is: \$ $h_fee_tmp "; } $shipamt += $insprice; $shipamt = sprintf ('%.2f',$shipamt); $totalprice += $shipamt; if ($weight_type eq '0') { $w_print = "Pounds"; } if ($weight_type eq '1') { $w_print = "Ounces"; if ($totalweight < 1) { $print_weight = " Total Weight: Minimum 1 Pound"; } if ($totalweight >= 1) { $print_weight = " Total Weight: $totalweight Pounds"; } } if ($weight_type eq '2') { $w_print = "Grams"; } print "\n"; print "\n"; print "\n"; print "\n"; print < Shipping Fee:
\$ $shipamt
PRESS $recal_msg EOM } # End shipping 9 print <
TOTAL SALE AMOUNT:
\$ $totalprice
 .....
EOM if ($discounting eq '1') { print ""; print ""; } if ($discounting eq '2') { print ""; print ""; } if ($minimum eq '1') { print ""; } print <
$msgdisc1
\$ $discount1 - \$ $discount2 = $discountrate1% \$ $discount2 - \$ $discount3 = $discountrate2% \$ $discount3 - \$ $discount4 = $discountrate3% \$ $discount4 - \$ $discount5 = $discountrate4% \$ $discount5 + UP = $discountrate5%
$msgdisc2
$msgdisc2b
$msgmin1
EOM if (($shipping eq 1) || ($shipping eq 2) || ($shipping eq 3)|| ($shipping eq 4) || ($shipping eq 7)) { print "\n"; print "\n"; print "\n"; print "\n"; } if (($shipping eq 5) || ($shipping eq 6)) { print "\n"; print "\n"; print "\n"; print "\n"; } if ($shipping eq 8) { print "\n"; print "\n"; print "\n"; print "\n"; } if ($shipping eq 9) { print "\n"; print "\n"; print "\n"; print "\n"; } print <
$shipbox9_title
$shipbox_text2
$shipbox_text3
$shipbox_text4
$shipbox_text5
$shipbox1_text2
$shipbox1_text3
$shipbox1_text4
$shipbox1_text5
$shipbox8_text2
$shipbox8_text3
$shipbox8_text4
$shipbox8_text5
$shipbox9_text2
$shipbox9_text3
$shipbox9_text4
$shipbox9_text5
EOM # Writes Temp File of cart payment values. $total_a= $totalprice; $disc_a = sprintf ('%.0f',$totaldiscount); $cod_a = $codmessage; $tax_a = $totaltax; $zone_a = $szone; $ship_a = $shipamt; $ship_t = $ship_type; if ($min_message eq '1') { $min_a = $printmin; } else {$min_a = 0;} open (FEEFILE,">$salefile") || &ErrorMessage; print FEEFILE "$date\|$cart_id'\|$ship_t\|$ship_a\|$disc_a\|$min_a\|$tax_a\|$cod_a\|$zone_a\|$total_a\|\n"; #OK close(FEEFILE); } #####################################################################* OLD VERSION ##### List items in cart, review, checkout, successful order. ####### sub list_items_OLD { my($totalquant,$totalprice,$taxtotal,$shipamt,$totalweight) = 0; open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n"; my(@LINES)=; close(REFFILE); $SIZE=@LINES; if ($SIZE <= 1) { print "
YOUR CART IS EMPTY
\n"; &print_footer; exit; } if (($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')) {} else {print "
";} print "
"; if ($useid eq '1') {print "";} print ""; print ""; unless (($command eq 'buy2')||($command eq 'pay_type')) { print "\n"; } print ""; for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; ($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); print "\n"; $tmpprice = ($itemprice*$itemquant); $tmpprice = sprintf ('%.2f',$tmpprice); $totalprice += $tmpprice; $totalquant += $itemquant; $totalweight = ($weight*$itemquant) + $totalweight; print ""; if ($useid eq '1') {print "\n";} print "\n"; print "\n"; print "\n"; print "\n"; } print "\n"; } # ADD MINIMUM ORDER FEE IF ENABLED. if ($minimum eq '1') { if ($totalprice < $minlevel) { print ""; $min_message = 1; $printmin = $minfee; $printmin = sprintf ('%.2f',$printmin); print "\n"; $totalprice = ($totalprice + $minfee); $totalprice = sprintf ('%.2f',$totalprice); } if ($totalprice >= $minlevel) { $min_message = 0; } } # Shipping if ($shipping eq '1') { $shipamt = ($totalquant * $shiprate_1)+$minship_1; $shipamt = sprintf ('%.2f',$shipamt); $totalprice += $shipamt; print ""; print "\n"; } elsif ($shipping eq '2') { $totalprice += $shipamt; print ""; print "\n"; } elsif ($shipping eq '3') { if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454 ); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } $shipamt = $totalweight * $shiprate; $shipamt = sprintf ('%.2f',$shipamt); if ($minship > $shipamt) {$shipamt = $minship }; $totalprice += $shipamt; print ""; print "\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}; if ($minship > $shipamt) {$shipamt = $minship }; $totalprice += $shipamt; print ""; print "\n"; } # Shipping Flat Rate Shipping, Multiple shipping carriers with flat rates from shipping5.db. elsif ($shipping eq 5) { print ""; print "\n"; } # Shipping Flat Rate Shipping, Multiple shipping carriers total weight x shipping rate + total price x insurance rate. elsif ($shipping eq 6) { if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } print ""; print "\n"; print ""; } # Shipping by UPS Zone and Rate tables. elsif ($shipping eq 7) { print ""; if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } my($low,@weights,$weight); @weights = sort number keys %shipping; $low = $weights[0]; foreach $weight (@weights) { if ($weight > $low && $weight <= $totalweight) {$low = $weight}; } $tmp2 = $shipping{$low}; $tmp3 = ($totalprice * $ins_rate); # Multiplies totalprice x Insurance rate. $shipamt = $tmp2 + $tmp3; if ($minship > $shipamt) { $shipamt = $minship; } if ($handling eq 1) { $shipamt += $h_fee; } $totalprice += $shipamt; $shipamt = sprintf ('%.2f',$shipamt); print "\n"; } # Shipping #8 by multiple UPS shipping types. Weight determines price + insurance rate x total price. elsif ($shipping eq 8) { if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } print ""; print "\n"; print ""; } # Shipping #9 by multiple UPS shipping types. Reads UPS Zone & Rate Tables. # Weight determines price + insurance rate x total price. elsif ($shipping eq 9) { if ($weight_type eq 0) { $totalweight = $totalweight; # weight is calculated in pounds. } elsif ($weight_type eq 1) { $totalweight = ($totalweight / 16); # weight is calculated in ounces and covnerted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } elsif ($weight_type eq 2) { $totalweight = ($totalweight / 454); # weight is calculated in grams and converted into pounds. $totalweight = sprintf ('%.0f',$totalweight); } print ""; print ""; print "\n"; # Database scalers: gnd=$gnd 300=$third 200=$second 240=$secondam 130=$nextsaver 100=$next # The modified UPS Tables are for the origin Zip code of 98371. if ($ship_ups eq 'gnd') { open (RATEDB, "$gnd"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } if ($ship_ups eq '300') { open (RATEDB, "$third"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } if ($ship_ups eq '200') { open (RATEDB, "$second"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } if ($ship_ups eq '240') { open (RATEDB, "$secondam"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } if ($ship_ups eq '130') { open (RATEDB, "$nextsaver"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } if ($ship_ups eq '100') { open (RATEDB, "$next"); @RATE = ; close(RATEDB); foreach $rate (@RATE) { @rates=split(/\|/,$rate); if ($rates[0] eq $totalweight) { $ship_fee = $rates[$ship_col]; } } } $tmp1 = $ship_fee; # Shipping price for weight by zone and shipping type. $shipamt = $tmp1; # Insurance. if ($ins eq '1') { $rate = $upsrate; $free = $upsfree; $multiplier = $upslmulti; $tprice = sprintf ('%.0f',$totalprice); $tmpcount_ins = ($totalprice / 100); $tmpcount_ins = sprintf ('%.0f',$tmpcount_ins); $count_ins = ($tmpcount_ins - 1); $insprice = ($count_ins * $rate); $insprice = sprintf ('%.2f',$insprice); $print_i = $insprice; $print_i = sprintf ('%.2f',$print_i); if ($count_ins >1) { $p_insurance = "Shipping Insurance \$ $print_i"; } if ($count_ins <= 1) { $p_insurance = "Under \$100.00 Insurance if Free "; } $shipamt_tmp = $shipamt; if ($shipamt_tmp < 1) { $printsamt = "Minimum Shipping $minship"; } else { $shipamt_tmp = sprintf ('%.2f',$shipamt_tmp); $printsamt = " Shipping is: \$ $shipamt_tmp "; } } if ($minship > $shipamt) { $shipamt = $minship; } if ($handling eq 1) { $shipamt += $h_fee; $h_fee_tmp = $h_fee; $h_fee_tmp = sprintf ('%.2f',$h_fee_tmp); $printhand = " Handling is: \$ $h_fee_tmp "; } $shipamt += $insprice; $totalprice += $shipamt; $shipamt = sprintf ('%.2f',$shipamt); if ($weight_type eq '0') { $w_print = "Pounds"; } if ($weight_type eq '1') { $w_print = "Ounces"; if ($totalweight < 1) { $print_weight = " Total Weight: Minimum 1 Pound"; } if ($totalweight >= 1) { $print_weight = " Total Weight: $totalweight Pounds"; } } if ($weight_type eq '2') { $w_print = "Grams"; } print ""; print "\n"; print "\n"; } if ($cod_a > 0){ $codmessage = $cod_a; $codmessage = sprintf ('%.2f',$codmessage); print ""; print "\n"; $totalprice += $codmessage; } if ($tax eq '1') { print "\n"; $totaltax = sprintf ('%.2f',$totaltax); print "\n"; print "\n"; print ""; $testtax = $totaltax; } $totalprice = sprintf ('%.2f',$totalprice); print ""; if ($useid eq '1') {print "";} print ""; print "\n"; # Print discount statements to bottom of cart. if ($discounting eq '1') { print "\n"; } if ((($discounting eq '1') && ($checkprice >= $discount1) && ($checkprice < $discount2))) { $discount = ($discountrate1); } if ((($discounting eq '1') && ($checkprice >= $discount2) && ($checkprice < $discount3))) { $discount = ($discountrate2); } if ((($discounting eq '1') && ($checkprice >= $discount3) && ($checkprice < $discount4))) { $discount = ($discountrate3); } if ((($discounting eq '1') && ($checkprice >= $discount4) && ($checkprice < $discount6))) { $discount = ($discountrate4); } if (($discounting eq '1') && ($checkprice >= $discount6)) { $discount = ($discountrate5); } #Discounting 2. if ($discounting eq '2') { print "\n"; } if (($discounting eq '2') && ($checkprice >= $discount1)) { $discount = ($discountrate1); } $discount = sprintf ('%.2f',$discount); if ($totaldiscount > 0) { print "\n"; } # Print minimum order statements to bottom of cart. if ($minimum eq '1') { print "\n"; } if ($min_message eq '1') { print "\n"; print "\n"; } # Writes Temp File of cart payment values. $total_a= $totalprice; #$disc_a = $totaldiscount; $disc_a = sprintf ('%.0f',$totaldiscount); $cod_a = $codmessage; $tax_a = $totaltax; $zone_a = $szone; $ship_a = $shipamt; $ship_t = $ship_type; if ($min_message eq '1') { $min_a = $printmin; } else {$min_a = 0;} open (FEEFILE,">$salefile") || &ErrorMessage; print FEEFILE "$date\|$cart_id'\|$ship_t\|$ship_a\|$disc_a\|$min_a\|$tax_a\|$cod_a\|$zone_a\|$total_a\|\n"; close(FEEFILE); print "
Item IDItem NamePrice$Item_var_one_label$Item_var_two_label$Item_var_three_labelQtyAmountDELETE
$itemid $itemname \$ $itemprice $Item_var_one$Item_var_two$Item_var_three\$ $tmpprice\n"; unless (($command eq 'buy2')||($command eq 'pay_type')) { print "DELETE
$minmsg2
\$ $printmin
Shipping:\$ $shipamt
Shipping:\$ $shipamt
Shipping:\$ $shipamt
Shipping:\$ $shipamt
SELECT SHIPPING OPTION:"; open (SHIPDB, "$shipdb"); my(@SHIP) = ; close(SHIPDB); print "
SELECT SHIPPING"; open (SHIPDB, "$shipdb"); my(@SHIP) = ; close(SHIPDB); print "\$ $shipamt
Shipping: $ship_type\$ $shipamt
SELECT SHIPPING"; open (SHIPDB, "shipping8.db"); my(@SHIP) = ; close(SHIPDB); print "\$ $shipamt
SELECT 1st 3 DIGITS OF YOUR ZIP CODE. Example: 99682 would be 996"; open (ZIPDB, "$zipdb"); @ZIP = ; close(ZIPDB); print "\n"; print "
SELECT SHIPPING"; open (SHIPDB, "$shipdb"); @SHIP = ; close(SHIPDB); print "\$ $shipamt
$print_weight
$printsamt
$printhand
$p_insurance
C.O.D. Fee:$codmessage
ADD TAX If You Live In: \n"; foreach $tax (keys %taxes) { print "$tax ."; if ($useid eq '1') {print "";} print ""; print "\$ $totaltax
Total price:\$ $totalprice
$msgdisc2
\n"; print " \$$discount1-\$$discount2 =$discountrate1%, \$$discount2-\$$discount3 =$discountrate2%, \$$discount3-\$$discount4 =$discountrate3%, \$$discount4-\$$discount5 =$discountrate4%, \$$discount5+UP =$discountrate5%
$msgdisc3 $discountrate1%
$msgdisc1\$ $totaldiscount
\$ $minlevel$minmsg1a \$ $minfee $minmsg1b
\n"; print "
\$ $minfee $minmsg3
$minmsg4
\n"; } ##################################################################### #### Review Cart sub review_items { print "Content-type: text/html\n\n" ; &print_header; &list_items; print "
\n"; &print_footer; } ##################################################################### ##### Add item to cart, show review page, unless redirect set. ###### sub add_item { if ($stocktrack eq 1) { &check_qtyfile; if ($tempqty >= $FORM{'itemquant'}) {&add_qty;} elsif ($tempqty < $FORM{'itemquant'}) {&qty_msg;} } if ($stocktrack eq 0) { &add_qty; } } ##################################################################### ##### Add quantity. ################################################# sub add_qty { $qd_itemquant = $FORM{'itemquant'}; $qd_itemprice = $FORM{'itemprice'}; $qd_p1 = $FORM{'qd_p1'}; $qd_p2 = $FORM{'qd_p2'}; $qd_p3 = $FORM{'qd_p3'}; $qd_p4 = $FORM{'qd_p4'}; $qd_p5 = $FORM{'qd_p5'}; $qd_p6 = $FORM{'qd_p6'}; $qd_p7 = $FORM{'qd_p7'}; $qd_p8 = $FORM{'qd_p8'}; $qd_p9 = $FORM{'qd_p9'}; $qd_p10 = $FORM{'qd_10'}; $qd_qty_1 = $FORM{'qd_qty_1'}; $qd_qty_2 = $FORM{'qd_qty_2'}; $qd_qty_3 = $FORM{'qd_qty_3'}; $qd_qty_4 = $FORM{'qd_qty_4'}; $qd_qty_5 = $FORM{'qd_qty_5'}; $qd_qty_6 = $FORM{'qd_qty_6'}; $qd_qty_7 = $FORM{'qd_qty_7'}; $qd_qty_8 = $FORM{'qd_qty_8'}; $qd_qty_9 = $FORM{'qd_qty_9'}; $qd_qty_10 = $FORM{'qd_qty_10'}; if (($FORM{'qd_on'} eq 'price') || ($FORM{'qd_on'} eq 'rate')) { if ($qd_itemquant < $qd_qty_1) {$new_price = $FORM{'itemprice'};} if ($qd_itemquant >= $qd_qty_1) { if ($FORM{'qd_p2'}) { if ($qd_itemquant < $qd_qty_2) {$new_price = $qd_p1;} } else {$new_price = $qd_p1;} } if ($FORM{'qd_p2'}) { if ($qd_itemquant >= $qd_qty_2) { if ($FORM{'qd_p3'}) { if ($qd_itemquant < $qd_qty_3) {$new_price = $qd_p2;} } else {$new_price = $qd_p2;} } } if ($FORM{'qd_p3'}) { if ($qd_itemquant >= $qd_qty_3) { if ($FORM{'qd_p4'}) { if ($qd_itemquant < $qd_qty_4) {$new_price = $qd_p3;} } else {$new_price = $qd_p3;} } } if ($FORM{'qd_p4'}) { if ($qd_itemquant >= $qd_qty_4) { if ($FORM{'qd_p5'}) { if ($qd_itemquant < $qd_qty_5) {$new_price = $qd_p4;} } else {$new_price = $qd_p4;} } } if ($FORM{'qd_p5'}) { if ($qd_itemquant >= $qd_qty_5) { if ($FORM{'qd_p6'}) { if ($qd_itemquant < $qd_qty_6) {$new_price = $qd_p5;} } else {$new_price = $qd_p5;} } } if ($FORM{'qd_p6'}) { if ($qd_itemquant >= $qd_qty_6) { if ($FORM{'qd_p7'}) { if ($qd_itemquant < $qd_qty_7) {$new_price = $qd_p6;} } else {$new_price = $qd_p6;} } } if ($FORM{'qd_p7'}) { if ($qd_itemquant >= $qd_qty_7) { if ($FORM{'qd_p8'}) { if ($qd_itemquant < $qd_qty_8) {$new_price = $qd_p7;} } else {$new_price = $qd_p7;} } } if ($FORM{'qd_p8'}) { if ($qd_itemquant >= $qd_qty_8) { if ($FORM{'qd_p9'}) { if ($qd_itemquant < $qd_qty_9) {$new_price = $qd_p8;} } else {$new_price = $qd_p8;} } } if ($FORM{'qd_p9'}) { if ($qd_itemquant >= $qd_qty_9) { if ($FORM{'qd_p10'}) { if ($qd_itemquant < $qd_qty_10) {$new_price = $qd_p9;} } else {$new_price = $qd_p9;} } } if ($FORM{'qd_p10'}) { if ($qd_itemquant >= $qd_qty_10) {$new_price = $qd_p10;} } } else {$new_price = $FORM{'itemprice'};} open (REFFILE,">>$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n"; print REFFILE join "\|", $FORM{'itemname'},$new_price,$FORM{'itemquant'},$FORM{'weight'}, $FORM{'itemid'},$FORM{'Item_var_one'},$FORM{'Item_var_two'},$FORM{'Item_var_three'}, $FORM{'Var_price'}, $FORM{'Img_atrib'}, $FORM{'Text_area'}, $FORM{'Stock'},"\|\n"; close(REFFILE); if ($FORM{'redirect'}) {print "Location: $FORM{'redirect'} \n\n";} elsif ($useredirect eq '1') {print "Location:$ENV{'HTTP_REFERER'} \n\n";} else {&review_items;} } ##################################################################### ##### Quantity error message for item. ############################## sub qty_msg { print "Content-type: text/html\n\n"; &print_header; $print_qty = $tempqty; if ($tempqty < 1) { $print_qty = "NONE"; } print "$page_title\n"; print "$meta_des\n"; print "$meta_key\n"; print "\n"; print "
\n"; print "




\n"; print "$stext

$qmsgline1 $FORM{'itemid'}
$qmsgline2
$qmsgline3 $print_qty

\n"; print "If you would like to inquire about this item.
\n"; print "Click Here to Email us now.\n"; print "




"; &print_footer; } ##################################################################### ##### Check for quantity file for item. ############################# sub check_qtyfile {if (-e "$qty_basepath$delim$FORM{'itemid'}"){&parse_qtyfile;}else{&write_qtyfile;}} ##################################################################### ##### Parse quantity file for item. ################################# sub parse_qtyfile { open (QTYLOG, "<$qty_basepath$delim$FORM{'itemid'}") || &ErrorMessage; @qtymessages = ; close (QTYLOG); $n=1; foreach $qtymessage (@qtymessages) { $tempqty = $qtymessage; } } ##################################################################### ##### Write quantity file for item. ################################# sub write_qtyfile { $tmpqty = ($FORM{'itemstock'}); $tempqty = $tmpqty; open (QTYFILE, ">$qty_basepath$delim$FORM{'itemid'}") || &ErrorMessage; if ($system == 1) {flock(QTYFILE, 2)}; print QTYFILE "$tmpqty"; if ($system == 1) {flock(QTYFILE, 8)}; close(QTYFILE); } ##################################################################### ##### DELETE ITEM. ################################################## sub delete_item { open (REFFILE,"$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n"; my@LINES=; close(REFFILE); $SIZE=@LINES; $_=$LINES[0]; ($usertime, $userhost, $useragent, $usership, $usertax) = split(/\|/,$_); open (REFFILE,">$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n"; print REFFILE $_; for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; my($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); if ($delete_itemname == $itemid) { # Set searchterm to 0 so multiple occurances in order are not deleted $delete_itemname=0; } else { print REFFILE $_; } } close(REFFILE); &review_items; } ##################################################################### ##### Change quanities of items, delete zero quantity items. ######## sub change_items { $zone = $FORM{'zone'}; open (REFFILE,"$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n"; my(@LINES)=; 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_ADDR'}\| $ENV{'HTTP_USER_AGENT'}\|$FORM{'shipopt'}\|$FORM{'taxopt'}\|\n"; for ($i=1;$i<$SIZE;$i++) { local($itemq) = "item$i"; $_=$LINES[$i]; my($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); if ($FORM{$itemq} > 0) { print REFFILE join "\|", $itemname,$itemprice,$FORM{$itemq},$weight,$itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock,"\|\n"; } } close(REFFILE); if ($shipping eq '9') { print "Location: $cgiurl\?command=review&zone=$zone\n\n"; } else { print "Location: $cgiurl\?command=review\n\n"; } } ##################################################################### ##### Sends the entire cart as hidden variables. #################### sub if_exists { if (-e "$reffile") { open (REFFILE,"$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n"; my@LINES=; close(REFFILE); $SIZE=@LINES; #print "\n"; $count=1001; for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; chop $_; #print "\n"; $count++; } } else {print "NO SHOPPING CART\n";} } ##################################################################### ##### Write new quantity in stock to quantity files. ################ sub write_new_qty { open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n"; my(@LINES)=; close(REFFILE); $SIZE=@LINES; for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; ($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); open (QTYFILE, "$qty_basepath$delim$itemid") || &ErrorMessage; @qtymessages = ; close (QTYFILE); $qtywrite = ($qtymessages[0] - $itemquant); open (QTYFILE, ">$qty_basepath$delim$itemid") || &ErrorMessage; if ($system == 1) {flock(QTYFILE, 2)}; print QTYFILE "$qtywrite"; if ($system == 1) {flock(QTYFILE, 8)}; close(QTYFILE); unless ($stocktrack eq '0') { if ($qtywrite <= $qty_level) { $item_name = $itemid; &send_qty; } } } } ##################################################################### ##### Generate Unique Order ID Number for email notification. ####### sub make_order_id { open (ORDERCOUNT,"$ordercountfile") || print "Content-type: text/html\n\n Can't Open $ordercountfile(r): $!\n"; $orcount = ; close(ORDERCOUNT); $orcount++; open (ORDERCOUNT,">$ordercountfile") || print "Content-type: text/html\n\n Can't Open $ordercountfile(r): $!\n"; if ($system == 1) {flock(ORDERCOUNT, 2)}; print ORDERCOUNT $orcount; if ($system == 1) {flock(ORDERCOUNT, 8)}; close(ORDERCOUNT); $order_id = $orcount; } ##################################################################### ##### Save Email address to mailing list. ########################### sub farm_email { open(LIST,"$mail_basepath$delim$mail_list") || print "Can't Open $mail_basepath$delim$mail_list(r): $!\n"; @addresses=; close(LIST); if ($FORM{'x_email'}) { $e_mail = $FORM{'x_email'}; } elsif ($email) { $e_mail = $email; } else { $e_mail = $FORM{'email'}; } @add = grep{ /$e_mail/i } @addresses; if (@add) { print "
The address @add
\n"; print "is already in our mailing list
\n"; print "

THANK YOU FOR YOUR REPEAT BUSINESS

\n"; } else { open(LIST,">>$mail_basepath$delim$mail_list") || print "Can't Open $mailurl$delim$mail_list(r): $!\n"; print LIST "$e_mail\n"; close(LIST); print "
The address $e_mail has been added to our mailing list
\n"; } } ##################################################################### ###### Email notice order to store ################################## sub send_order { unless ($email_order eq '0') { &parse_feefile; open(MAIL,"|$mailprog -t") || print "Content-type: text/html\n\n Can't Open $mailprog(r): $!\n"; print MAIL "To: $order_mail\n"; print MAIL "From: $email ($realname)\n"; print MAIL "Subject: $order_email_subject"; print MAIL "\n\n"; print MAIL "\n"; print MAIL " SMART-STORE 3.1 ONLINE ORDER NOTIFICATION\n"; print MAIL " FROM $org_name \n"; print MAIL "\n"; print MAIL "\n"; print MAIL "****** AN ORDER HAS BEEN PROCESSED On: $date *****\n"; print MAIL "--------------------------------------------------------------------\n"; print MAIL "\n"; print MAIL "--------------------------------------------------------------------\n"; if ($FORM{'session_id'}) { print MAIL "The Account ID Number Is: $FORM{'session_id'}\n"; } elsif ($invoice) { print MAIL "The Account ID Number Is: $invoice\n"; } else { print MAIL "The Account ID Number Is: $userhost_id\n"; } print MAIL "The Account ID Number Is: $account_id\n"; print MAIL "--------------------------------------------------------------------\n"; print MAIL "\n"; print MAIL "--------------------- CUSTOMER INFORMATION -------------------------\n"; print MAIL "This Order Submitted by:\n"; if ($realname) { print MAIL "Customer Name: $realname\n"; } else { print MAIL "Customer Name: $FORM{'realname'}\n"; } if ($company) { print MAIL "Company Name: $company\n"; } else { print MAIL "Company Name: $FORM{'company'}\n"; } if ($email) { print MAIL "Email Address: $email\n"; } else { print MAIL "Email Address: $FORM{'email'}\n"; } print MAIL "Order date: $date\n"; print MAIL "------------------------ Buyer info ------------------------------\n"; print MAIL "Remote Host: $userhost\n"; print MAIL "Buyer Agent: $useragent\n"; print MAIL "\n\n"; print MAIL "---------------------------------------------------------------------\n"; print MAIL "The Order Cart File Is: $ssl/admin/smartadmin.cgi"; print MAIL "\n"; print MAIL "---------------------------------------------------------------------\n"; print MAIL "CLICK THE LINK ABOVE TO VIEW THE ORDER NOW\n"; print MAIL "\n\n"; if ($FORM{'phone_order'} eq 'yes') { print MAIL "*** PAYMENT NOTE: THIS IS A PHONE IN C.O.D. PHONE ORDER. ***\n"; } elsif ($FORM{'check_order'} eq 'yes') { print MAIL "*** PAYMENT NOTE: THIS IS AN ONLINE CHECKER ORDER. ***\n"; } elsif ($FORM{'fax_cc_order'} eq 'yes') { print MAIL "*** PAYMENT NOTE: THIS IS A FAXED CREDIT CARD ORDER. ***\n"; } elsif ($FORM{'fax_check_order'} eq 'yes') { print MAIL "*** PAYMENT NOTE: THIS IS A FAX CHECK ORDER. ***\n"; } if ($FORM{'cc_order'} eq 'yes') { print MAIL "*** PAYMENT NOTE: THIS IS A CREDIT CARD ORDER. ***\n"; if ($email_order = 3){ print MAIL "CREDIT CARD INFORMATION:\n"; print MAIL "Name On Card: $cardholder\n"; # print MAIL "Card Type: $cardtype\n"; # print MAIL "Card Number: $cardnum\n"; # print MAIL "Expiration: $expire\n"; } } print MAIL "---------------------------------------------------------------------\n"; print MAIL "\n"; if (($email_order = 2) || ($email_order = 3)) { print MAIL "THE PURCHASE IS:\n"; print MAIL "---------------------------------------------------------------------\n"; &make_mail; } print MAIL "\n"; print MAIL "----------------------- End Of Notification -------------------------\n"; close (MAIL); } } ##################################################################### ###### Email customer receipt ####################################### sub send_verify { unless ($email_receipt eq '0') { &parse_feefile; open(MAIL,"|$mailprog -t"); print MAIL "To: $FORM{'email'}\n"; print MAIL "From: $order_mail\n"; print MAIL "Subject: $org_name Order Verification"; print MAIL "\n\n"; print MAIL "\n"; print MAIL " ONLINE ORDER NOTIFICATION \n"; print MAIL " FROM $org_name\n"; print MAIL "\n"; print MAIL "\n"; print MAIL "****** THANK YOU FOR YOUR ORDER ******\n"; print MAIL "--------------------------------------------------------------------\n"; print MAIL "\n"; print MAIL "Below is the information we received from you:\n"; print MAIL "\n"; print MAIL "This Order Submitted by:\n"; if ($realname) { print MAIL "Customer Name: $realname\n"; } else { print MAIL "Customer Name: $FORM{'realname'}\n"; } if ($company) { print MAIL "Company Name: $company\n"; } else { print MAIL "Company Name: $FORM{'company'}\n"; } if ($email) { print MAIL "Email Address: $email\n"; } else { print MAIL "Email Address: $FORM{'email'}\n"; } print MAIL "Order Date: $date\n"; print MAIL "--------------------------------------------------------------------\n"; print MAIL "---- IF THIS ORDER IS INCORRECT REPLY TO THIS EMAIL ASAP ----\n"; print MAIL "\n"; print MAIL "--------------------------------------------------------------------\n"; if ($FORM{'session_id'}) { print MAIL "Your Order ID Number Is: $FORM{'session_id'}\n"; } elsif ($invoice) { print MAIL "Your Order ID Number Is: $invoice\n"; } else { print MAIL "Your Order ID Number Is: $userhost_id\n"; } print MAIL "The Account ID Number Is: $account_id\n"; print MAIL "--------------------------------------------------------------------\n"; print MAIL "You may contact our order desk at:\n"; print MAIL "EMAIL: $order_mail\n"; print MAIL "PHONE: $order_phone\n"; print MAIL "FAX: $fax_phone\n"; print MAIL "-------------------------------------------------------------------\n"; if ($FORM{'phone_order'} eq 'yes') { print MAIL "*** PAYMENT NOTE: THIS IS A PHONE IN C.O.D. PHONE ORDER. ***\n"; print MAIL " TO COMPLETE YOUR ORDER PLEASE CALL US NOW TO VERIFY YOUR ORDER!\n"; print MAIL "-----------------------------------------------------------------\n"; print MAIL " WE CANNOT COMPLETE YOUR ORDER UNTIL WE HEAR FROM YOU!\n"; print MAIL " If you have any questions please call us at: $order_phone\n"; print MAIL "\n"; } elsif ($FORM{'check_order'} eq 'yes') { print MAIL "*** PAYMENT NOTE: THIS IS AN ONLINE CHECKER ORDER. ***\n"; print MAIL " If you have any questions please call us at: $order_phone\n"; print MAIL "\n"; } elsif ($FORM{'fax_cc_order'} eq 'yes') { print MAIL "*** PAYMENT NOTE: THIS IS A FAXED CREDIT CARD ORDER. ***\n"; print MAIL " TO COMPLETE YOUR ORDER PLEASE FAX US YOUR CREDIT CARD INFORMATION NOW!\n"; print MAIL " FAX INFORMATION TO: $fax_phone\n"; print MAIL " OR CALL OUR ORDER DESK AT: $order_phone NOW!\n"; print MAIL "-----------------------------------------------------------------\n"; print MAIL " WE CANNOT COMPLETE YOUR ORDER UNTIL WE RECEIVE YOUR INFORMATION!\n"; print MAIL " If you have any questions please call us at: $order_phone\n"; print MAIL "\n"; } elsif ($FORM{'fax_check_order'} eq 'yes') { print MAIL "************** PAYMENT NOTE: THIS IS A FAX CHECK ORDER. *************\n"; print MAIL " TO COMPLETE YOUR ORDER PLEASE MAKE OUT A CHECK PAYABLE TO: $payable_to\n"; print MAIL " IN THE AMOUNT OF YOUR TOTAL ORDER LISTED BELOW. SIGN AND DATE THE CHECK \n"; print MAIL " AND FAX A COPY OF THE COMPLETED CHECK TO: $fax_phone\n"; print MAIL "-----------------------------------------------------------------\n"; print MAIL " WE CANNOT COMPLETE YOUR ORDER UNTIL WE RECEIVE YOUR FAXED CHECK!\n"; print MAIL " If you have any questions please call us at: $order_phone\n"; print MAIL "\n"; } if ($FORM{'cc_order'} eq 'yes') { print MAIL "******** PAYMENT NOTE: THIS IS A CREDIT CARD ORDER. ********\n"; } print MAIL "---------------------------------------------------------------------\n"; print MAIL "\n\n"; if ($email_receipt eq '2') { print MAIL "The Items You have purchased are:\n"; print MAIL "---------------------------------------------------------------------\n"; &make_mail; #foreach $key (keys %FORM) { # print MAIL "$key: $FORM{$key}\n"; # } } if ($email_receipt eq '1') { print MAIL "---------------------------------------------------------------------\n"; } print MAIL " $email_receipt_thankyou\n"; print MAIL "\n"; print MAIL "----------------------- End Of Notification -------------------------\n"; close (MAIL); } } ##################################################################### ##### Email Shared functions ######################################## sub make_mail { my($totalquant,$totalprice,$taxtotal,$shipamt,$totalweight) = 0; &parse_feefile; open (REFFILE,"$reffile") || print "Content-type: text/html\n\n Can't Open $reffile(r): $!\n"; my(@LINES)=; close(REFFILE); $SIZE=@LINES; for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; ($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); $tmpprice = $itemprice*$itemquant; $tmpprice = sprintf ('%.2f', $tmpprice); $totalprice += $tmpprice; $totalquant += $itemquant; $totalweight += $weight; print MAIL "$itemid $itemname\n"; if ($Item_var_one) {print MAIL "$Item_var_one_label: $Item_var_one\n";} if ($Item_var_two) {print MAIL "$Item_var_two_label: $Item_var_two\n";} if ($Item_var_three) {print MAIL "$Item_var_three_label: $Item_var_three\n";} print MAIL "Price: \$$itemprice Quantity: $itemquant Item Subtotal: \$$tmpprice\n"; print MAIL "---------------------------------------------------------------\n"; } # figure totals if ($min_a) { $min_rec = $min_a; $total_b = ($total_a - $min_a); $total_b = sprintf ('%.2f',$total_b); $total_sub = $total_b; $total_sub = sprintf ('%.2f',$total_sub); } else { $total_b = $total_a; $total_b = sprintf ('%.2f',$total_b); $total_sub = $total_b; $total_sub = sprintf ('%.2f',$total_sub); $min_rec = "0.00"; } # tax if ($tax_a) { $tax_rec = $tax_a; $total_c = ($total_b - $tax_a); $total_c = sprintf ('%.2f',$total_c); $total_sub = $total_c; $total_sub = sprintf ('%.2f',$total_sub); } else { $total_c = $total_b; $total_c = sprintf ('%.2f',$total_c); $total_sub = $total_c; $total_sub = sprintf ('%.2f',$total_sub); $tax_rec = "0.00"; } # shipping if ($ship_a) { $ship_rec = $ship_a; $total_d = ($total_c - $ship_a); $total_d = sprintf ('%.2f',$total_d); $total_sub = sprintf ('%.2f',$total_sub); $total_sub = $total_d; } else { $total_d = $total_c; $total_d = sprintf ('%.2f',$total_d); $total_sub = $total_d; $total_sub = sprintf ('%.2f',$total_sub); $ship_rec = "0.00"; } # cod if ($cod_a) { $cod_rec = $cod_a; $total_e = ($total_d - $cod_a); $total_e = sprintf ('%.2f',$total_e); $total_sub = $total_e; $total_sub = sprintf ('%.2f',$total_sub); } else { $total_e = $total_d; $total_e = sprintf ('%.2f',$total_e); $total_sub = $total_e; $total_sub = sprintf ('%.2f',$total_sub); $cod_rec = "0.00"; } # discount if ($disc_a) { $disc_rec = $disc_a; $total_f = ($total_e - $disc_a); $total_f = sprintf ('%.2f',$total_f); $total_subd = $total_f; $total_subd = sprintf ('%.2f',$total_subd); } else { $total_f = $total_e; $total_f = sprintf ('%.2f',$total_f); $total_subd = $total_subd; $total_subd = sprintf ('%.2f',$total_subd); $disc_rec = "0.00"; } unless ($discounting eq '0') { print MAIL "Subtotal Before Discount:"; print MAIL sprintf "%31.31s", "\$ $total_sub\n"; print MAIL "Discount Received:"; print MAIL sprintf "%44.44s", "\$ $disc_rec\n"; print MAIL "Discounted Subtotal:"; print MAIL sprintf "%39.39s", "\$ $total_subd\n"; } if ($discounting eq '0') { print MAIL "Subtotal:"; print MAIL sprintf "%39.39s", "\$ $total_sub\n"; } print MAIL "Shipping:"; print MAIL sprintf "%60.60s", "\$ $ship_rec\n"; if ($cod_a > 0) { print MAIL "C.O.D.:"; print MAIL sprintf "%54.54s", "\$ $cod_rec\n"; } if ($minimum eq '1') { if ($min_a > 0) { print MAIL "Minimum Order Fee:"; print MAIL sprintf "%54.54s", "\$ $min_rec\n"; } } if ($tax eq '1') { print MAIL "Taxes:"; print MAIL sprintf "%54.54s", "\$ $tax_rec\n"; } if ($ship_t > 0) { print MAIL "Shipping Type:"; print MAIL sprintf "%60.60s", " $ship_t\n"; } print MAIL "Total Price:"; print MAIL sprintf "%56.56s" , "\$ $total_a\n\n\n"; } } ##################################################################### ##### Send Email notification of low quantity. ###################### sub send_qty { $subject_l2 = "SMART-STORE QUANTITY NOTICE"; open(MAIL,"|$mailprog -t") || print "Content-type: text/html\n\n Can't Open $mailprog(r): $!\n"; print MAIL "To: $order_mail\n"; print MAIL "From: $subject_l2\n"; print MAIL "Subject: $org_name $subject_l2"; print MAIL "\n"; print MAIL "\n"; print MAIL " SMART-STORE QUANTITY NOTIFICATION:\n"; print MAIL " FROM $org_name\n"; print MAIL "----------------------------------------------------------------\n"; print MAIL "On: $date\n"; print MAIL "\n\n"; print MAIL "The available quantity of\n"; print MAIL "Item Number: $item_name\n"; print MAIL "Is now: $qtywrite\n"; print MAIL "\n\n"; print MAIL "-------------------------- End Report ---------------------------\n"; close (MAIL); } ##################################################################### ##### Not Used This Version. Uses JAVA Script form validation. ##### sub check_required { foreach $require (@required) { if (!($FORM{$require}) || $FORM{$require} eq ' ') {push(@ERROR,$require);} } if (@ERROR) {&error('missing_fields', @ERROR);} } ###################################################################### ##### ERROR MESSAGE1. ################################################ sub error { print "Content-type: text/html\n\n"; &print_header; ($error,@ERROR) = @_; if ($error eq 'missing_fields') { print "

ERROR: Blank Fields

\n\n"; print "The following fields were left blank in your order form:
    "; foreach $missing_field (@ERROR) {print "
  • $missing_field\n";} print "

These fields must be filled to submit your order.
\n"; print "Please use your browser's BACK button and try again."; print "
"; } &print_footer; exit; } ##################################################################### ? ADD QTY IN STOCK ? ##### printable_page. ############################################### sub printable_page { print "Content-type: text/html\n\n"; &print_header; open (FILE,"$basepath$delim$resourcedb") || die "Content-type: text/html\n\nCan't Open $resourcedb(r): $!\n"; print "
"; while () { $row = $_; chop $row; @fields = split (/\|/, $row); print "\n"; print ""; } close (FILE); print "
Item IDNamePriceDescription
$fields[0]"; print "$fields[1]$fields[2]$fields[3]
\n"; &print_footer; } ##################################################################### ##### Generate table of links to categories. ######################## sub generate_table { if ($use_ssl eq '1') {$image_url = $ssl_image_url;} else {$image_url = $imgdir;} if (($make_submit == 0) || ($make_submit == 1)) { print "
\n"; unless (($command eq 'showstore')||($command eq '')) { print "\n"; } print "
\n"; print "\n"; $count=0; foreach $key (sort keys %groups){ if($count==$group_table) { print ""; $count=0; } if ($make_submit == 1) { # This routine creates a table of 'submit' buttons print "\n"; } else { # makes a table of links print "\n"; } $count++; } print "\n"; if (($command eq 'add')||($command eq 'review')||($command eq 'listitems')) { print "\n"; } print "
CONTINUE SHOPPING
\n"; print "
\n"; print "\n"; print " $groups{$key}
\n"; print "
RETURN TO PREVIOUS PAGE
\n"; print "\"Return
\n"; } if ($make_submit == 2) { if($showstore_nav == 1) { unless (($command eq 'showstore') || ($command eq '')) { print <

CONTINUE SHOPPING

\ \;SEARCH For an Item\ \; \ \;\ \;\ \;  \;

 \ \;
EOM if (($command eq 'add')||($command eq 'review')||($command eq 'listitems')) { print "\n"; } unless (($command eq 'showstore')||($command eq '')) { print "\n"; } } } if($showstore_nav == 0) { print <

CONTINUE SHOPPING

\ \;SEARCH For an Item\ \; \ \;\ \;\ \;  \;

 \ \;
EOM if (($command eq 'add')||($command eq 'review')||($command eq 'listitems')) { print "\n"; } unless (($command eq 'showstore')||($command eq '')) { print "\n"; } } } } ##################################################################### ##### Print Standard NON SSL Header. ######################################## sub print_header { print "$page_title\n"; print "$meta_des\n"; print "$meta_key\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; if ($use_small_cart eq '1') { unless (($command eq 'review')||($command eq 'delete_item')||($command eq 'add')||($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')){&small_cart;} if (($command eq 'review')||($command eq 'delete_item')||($command eq 'add')||($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')){ print "
\n"; } } if ($use_small_cart eq '0') { print "
\n"; } open (LOGOHEADER,"$html_basepath$delim$logoheader") || print "Could not open $html_basepath$delim$logoheader $! \n"; while () {print $_;} close(LOGOHEADER); if (($command eq 'showstore')||($command eq '')||($command eq 'delete')) { open (HEADER,"$html_basepath$delim$header") || print "Could not open $html_basepath$delim$header $! \n"; while (
) {print $_;} close(HEADER); } } ##################################################################### ##### Print SSL Header. ######################################## sub print_SSL_header { print "$page_title\n"; print "$meta_des\n"; print "$meta_key\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; if ($use_small_cart eq '1') { unless (($command eq 'review')||($command eq 'delete_item')||($command eq 'add')||($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')){&small_cart;} if (($command eq 'review')||($command eq 'delete_item')||($command eq 'add')||($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')){ print "
\n"; } } if ($use_small_cart eq '0') { print "
\n"; } open (LOGOHEADER,"$html_basepath$delim$logoheaderssl") || print "Could not open $html_basepath$delim$logoheader $! \n"; while () {print $_;} close(LOGOHEADER); if (($command eq 'showstore')||($command eq '')||($command eq 'delete')) { open (HEADER,"$html_basepath$delim$header") || print "Could not open $html_basepath$delim$header $! \n"; while (
) {print $_;} close(HEADER); } } ##################################################################### ##### Print Standard Footer. ######################################## sub print_footer { if ($use_ssl eq '1') {$image_url = $ssl_image_url;} else {$image_url = $imgdir;} unless (($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')) { open (FOOTER,"$html_basepath$delim$footer") || print "Could not open $html_basepath$delim$footer $! \n"; while (
) {print $_;} close(FOOTER); print "
\n"; } if ($command eq 'review') { print "\n"; } if (($command eq 'buy1') || ($command eq 'review')) { print "\n"; } else { print "\n"; } if ($printlist eq '1') { unless (($command eq 'review') || ($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')) { print "\n"; } } else { print "\n"; } if ($listall eq '1') { unless (($command eq 'review') || ($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')) { print "\n"; } } else { print "\n"; } print "
\n"; unless ($command eq 'review') { print "\n"; print "\"Review
Click Here To Finish Your Order
\n"; print "\"Purchase


\n"; print "\n"; print "\"PRINT\n"; print "\n"; #print "\n"; print "\"All_nopics\"\n"; print "
\n"; } unless (($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')) { if ($make_table_footer ==1) {&generate_table;} } unless (($command eq 'showstore')||($command eq '')) { if (($command eq 'buy1') ||($command eq 'buy2')||($command eq 'pay_type')) { print "
\n"; print "\n"; print "\n"; print "
CONTINUE SHOPPING
\"Return
\n"; } } $exit_command = "?command=leave"; print "
\n"; print "
\n"; print "\"Exit\n"; $contact_command = "\?command=contact"; print "\n"; print "\n"; print "\"Email
\n"; $end = (times)[0]; $ending = $end - $start; $ending = sprintf ('%.2f',$ending); print "

Smart-Store © Webstore.net and CPUnet Internet, All rights reserved
"; print "This page generated in $ending seconds by \n"; print "Our FAST Servers. Site Design ©\n"; print "Wisemen Trading and Supply
\n"; } ##################################################################### ##### Print SSL Footer. ############################################# sub print_sslfooter { if ($use_ssl eq '1') {$image_url = $ssl_image_url;} else {$image_url = $imgdir;} unless (($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')) { open (FOOTER,"$html_basepath$delim$footer") || print "Could not open $html_basepath$delim$footer $! \n"; while (
) {print $_;} close(FOOTER); print "
\n"; } if ($command eq 'review') { print "\n"; } if (($command eq 'buy1') || ($command eq 'review')) { print "\n"; } else { print "\n"; } if ($printlist eq '1') { unless (($command eq 'review') || ($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')) { print "\n"; } } else { print "\n"; } if ($listall eq '1') { unless (($command eq 'review') || ($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')) { print "\n"; } } else { print "\n"; } print "
\n"; unless ($command eq 'review') { print "\n"; print "\"Review
Click Here To Finish Your Order
\n"; print "\"Purchase



\n"; print "\n"; print "\"PRINT\n"; print "\n"; #print "\n"; print "\"All_nopics\"\n"; print "
\n"; } unless (($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')) { if ($make_table_footer ==1) {&generate_table;} } unless (($command eq 'showstore')||($command eq '')) { if (($command eq 'buy1') ||($command eq 'buy2')||($command eq 'pay_type')) { print "
\n"; print "\n"; print "\n"; print "
CONTINUE SHOPPING
\"Return
\n"; } } print "
\n"; print "
\n"; if ($A_testing eq '1') { print "
Test Orders are OK.
Test Credit Card Number: 4003010123456780
\n"; print "Test Credit Card Expiration Date: 12/15

\n"; } $exit_command = "\?command=leave"; print "
\n"; print "\"Exit\n"; $contact_command = "?command=contact"; print "\n"; print "\n"; print "\"Email
\n"; $end = (times)[0]; $ending = $end - $start; $ending = sprintf ('%.2f',$ending); print "

Smart-Store © Webstore.net and CPUnet Internet, All rights reserved
"; print "This page generated in $ending seconds by \n"; print "Our FAST Servers. Site Design ©\n"; print "Wisemen Trading and Supply
\n"; } ##################################################################### ##### Print Small Cart. ############################################# sub small_cart { my($totalquant,$totalprice) = 0; open (REFFILE,"$reffile"); my(@LINES)=; close(REFFILE); $SIZE=@LINES; print ""; if ($SIZE <= 1) {print "";} else { print ""; for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; ($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); $tmpprice = ($itemprice*$itemquant); $tmpprice = sprintf ('%.2f',$tmpprice); $totalprice += $tmpprice; print ""; print ""; print ""; } print "
"; $totalprice = sprintf ('%.2f',$totalprice); print ""; } unless ($SIZE <= 1) { print "
"; } print "
"; print "

CART: $userhost_id

YOUR CART IS EMPTY

Item Name

Qty

Price

$itemname

$itemquant

$tmpprice

Total:

\$ $totalprice

Empty Cart

"; } ##################################################################### ##### Parse Cart Value file.######################################### sub parse_feefile { open (FEEFILE,"$salefile") || die "Can't Open $salefile(r): $!\n"; @LINES=; close(FEEFILE); $SIZE=@LINES; $_=$LINES[0]; ($usertime_f, $cart_id, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $trans, $approval, $auth_code, $avs_code, $trans_id, $amount, $type, $realname, $company, $a_c_s_z_c_p_f, $ship_info, $card, $ol_check, $email, $notes) = split(/\|/,$_); ($address, $city, $state, $zip, $country, $phone, $fax) = split(/\,/,$a_c_s_z_c_p_f); ($ship_to_first_name, $ship_to_last_name, $ship_to_company, $ship_to_address, $ship_to_city, $ship_to_state, $ship_to_zip, $ship_to_country, $ship_to_remarks) = split(/\,/,$ship_info); ($cardnum, $expire, $cardtype, $cardholder) = split(/\,/,$card); ($Bank_Name, $Bank_Address, $Bank_City_State_Zip, $Bank_Phone, $Check_Type, $Fraction_top, $Fraction_bot, $Account_Holder_Name, $Check_Date, $Check_Number,$Check_Amount, $Routing_number, $Account_Number, $Authorization) = split(/\,/,$ol_check); ($name_s, $x_user10) = split(/\,/,$notes); } ##################################################################### THIS VERSION. NEXT HAVE READ TEXT FILE WITH EDITOR. ##### Generate Email Contact page of agent email addresses. ######### sub gen_contact { if ($use_ssl eq '1') {$image_url = $ssl_image_url;} else {$image_url = $imgdir;} print "Content-type: text/html\n\n"; print "Smart_Store 3.1 Contact Page\n"; print "$meta_des\n"; print "$meta_key\n"; print "\n"; print "\n"; open (CONTACT,"$html_basepath$delim$contact") || print "Could not open $html_basepath$delim$contact $! \n"; while () {print $_;} close(CONTACT); print "
border=0\n"; print "
<$c_header_size1>$c_header1\n"; print "
<$c_header_size2>$c_header2\n"; print "
$c_line2\n"; print "
$c_line3\n"; print "
$c_line4\n"; print "
$c_line5\n"; print "
$c_line6\n"; print "
$c_line7\n"; print "
$c_line8\n"; print "
$c_line9\n"; print "
$c_line10\n"; print "
$c_line11

\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
Contact Person:
Your Name:
Your Email:
Priority:
Subject:
Message:
\n"; $end = (times)[0]; $ending = $end - $start; $ending = sprintf ('%.2f',$ending); print "

Smart-Store © Webstore.net and CPUnet Internet, All rights reserved
"; print "This page generated in $ending seconds by \n"; print "Our FAST Servers. Site Design ©\n"; print "CPUnet Internet 2000.
\n"; print "\n"; } ##################################################################### ##### Generate Thank You Exit page. ################################# sub thank_you { if ($use_ssl eq '1') {$image_url = $ssl_image_url;} else {$image_url = $imgdir;} print "Content-type: text/html\n\n"; print "Smart_Store 3.1 Thank You Page\n"; print "$meta_des\n"; print "$meta_key\n"; print "\n"; print "\n"; print "

\"\"

\n"; print "
<$ty_header_size>$ty_header\n"; print "
$ty_line2\n"; print "
$ty_line3\n"; print "
$ty_line4\n"; print "
$ty_line5\n"; print "
$ty_line6\n"; print "
$ty_line7\n"; print "
$ty_line8\n"; print "
$ty_line9\n"; print "
$ty_line10\n"; print "
$ty_line11

\n"; if ($use_mailer eq '1') { open (CONTACT,"$html_basepath$delim$contact") || print "Could not open $html_basepath$delim$contact $! \n"; while () {print $_;} close(CONTACT); print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
Contact Person:
Your Name:
Your Email:
Priority:
Subject:
Message:
\n"; } $end = (times)[0]; $ending = $end - $start; $ending = sprintf ('%.2f',$ending); print "

Smart-Store © Webstore.net and CPUnet Internet, All rights reserved
"; print "This page generated in $ending seconds by \n"; print "Our FAST Servers. Site Design ©\n"; print "CPUnet Internet 2000.
\n"; } ##################################################################### ##### Make COD ###################################################### sub make_cod { open (FILE,"$salefile") || print "Content-type: text/html\n\nCan't Open $salefile(r): $!\n"; my(@LINES)=; close(FILE); $SIZE=@LINES; ($usertime_f, $cart_id, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $trans, $approval, $auth_code, $avs_code, $trans_id, $amount, $type, $realname, $company, $a_c_s_z_c_p_f, $ship_info, $card, $ol_check, $email, $notes) = split(/\|/,$LINES); $cod_total = ($total_a + $codfee); open (DB,">$salefile") || print "Content-type: text/html\n\nCan't Open $salefile(w): $!\n"; for ($i=0;$i<=$SIZE;$i++) { $_=$LINES[$i]; my($usertime_f, $cart_id, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $trans, $approval, $auth_code, $avs_code, $trans_id, $amount, $type, $realname, $company, $a_c_s_z_c_p_f, $ship_info, $card, $ol_check, $email, $notes) = split(/\|/,$_); my($address, $city, $state, $zip, $country, $phone, $fax) = split(/\,/,$a_c_s_z_c_p_f); my($ship_to_first_name, $ship_to_last_name, $ship_to_company, $ship_to_address, $ship_to_city, $ship_to_state, $ship_to_zip, $ship_to_country, $ship_to_remarks) = split(/\,/,$ship_info); my($cardnum, $expire, $cardtype) = split(/\,/,$card); my($Bank_Name, $Bank_Address, $Bank_City_State_Zip, $Bank_Phone, $Check_Type, $Fraction_top, $Fraction_bot, $Account_Holder_Name, $Check_Date, $Check_Number,$Check_Amount, $Routing_number, $Account_Number, $Authorization) = split(/\,/,$ol_check); my($USER9, $USER10) = split(/\,/,$notes); $cod_total = ($total_a + $codfee); print DB "$date\|$userhost_id\|$ship_t\|$ship_a\|$disc_a\|$min_a\|$tax_a\|$codfee\|$zone_a\|$cod_total\|\n"; #OK } close(DB); } ##################################################################### ##### delete COD #################################################### sub delete_cod { open (FILE,"$salefile") || die "Content-type: text/html\n\nCan't Open $salefile(r): $!\n"; my(@LINES)=; close(FILE); $SIZE=@LINES; ($usertime_f, $cart_id, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $trans, $approval, $auth_code, $avs_code, $trans_id, $amount, $type, $realname, $company, $a_c_s_z_c_p_f, $ship_info, $card, $ol_check, $email, $notes) = split(/\|/,$LINES); $less_total = ($total_a - $codfee); open (DB,">$salefile") || die "Content-type: text/html\n\nCan't Open $salefile(w): $!\n"; for ($i=0;$i<=$SIZE;$i++) { $_=$LINES[$i]; my($usertime_f, $cart_id, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $trans, $approval, $auth_code, $avs_code, $trans_id, $amount, $type, $realname, $company, $a_c_s_z_c_p_f, $ship_info, $card, $ol_check, $email, $notes) = split(/\|/,$_); my($address, $city, $state, $zip, $country, $phone, $fax) = split(/\,/,$a_c_s_z_c_p_f); my($ship_to_first_name, $ship_to_last_name, $ship_to_company, $ship_to_address, $ship_to_city, $ship_to_state, $ship_to_zip, $ship_to_country, $ship_to_remarks) = split(/\,/,$ship_info); my($cardnum, $expire, $cardtype) = split(/\,/,$card); my($Bank_Name, $Bank_Address, $Bank_City_State_Zip, $Bank_Phone, $Check_Type, $Fraction_top, $Fraction_bot, $Account_Holder_Name, $Check_Date, $Check_Number,$Check_Amount, $Routing_number, $Account_Number, $Authorization) = split(/\,/,$ol_check); my($USER9, $USER10) = split(/\,/,$notes); print DB "$date\|$userhost_id\|$ship_t\|$ship_a\|$disc_a\|$min_a\|$tax_a\|\|$zone_a\|$less_total\|$trans|\$approval|\$auth_code|\$avs_code|\$trans_id|\$amount|\$type|\$realname|\$company|\$a_c_s_z_c_p_f|\$ship_info|\$card|\$ol_check|\$email|\$notes\|\n"; } close(DB); } ##################################################################### ##### Gateway Version error ######################################### sub gate_error { print "Content-type: text/html\n\n"; &print_header; print "Gateway Error Message\n"; print "$meta_des\n"; print "$meta_key\n"; print "\n"; print "
\n"; print "



\n"; print "We Are Sorry.

You have selected to use Real time Credit Card Processing for this store.

\n"; print "This is an optional feature for Smart-Store 3.1

\n"; print "providing Credit Card processing through most merchant service providers
\n"; print "that use the standard Authorize net Weblink 3.0 standard.


\n"; print "If you do not wish to use this option reset the \" gate \" setting in smartcfg.cgi to \" 0 \".
\n"; print "If you would like to inquire about this option. Click Here to Email CPUnet now.
\n"; print "Or visit CPUnet Internet at: http://www.wisementrading.com
\n"; print "


"; &print_footer; exit(0); } ##################################################################### ##### Leave Store. ################################################## sub leave_store { if (-e "$reffile") {unlink ($reffile);} if (-e "$salefile") {unlink ($salefile);} if ($exit_button eq '0') { print "Location:$cgiurl\?command=thankyou \n\n"; } if ($exit_button eq '1') { print "Location:$exit_page \n\n"; } } ##################################################################### ##### Error message 2. ############################################## sub ErrorMessage { print "Content-type: text/html\n\n"; print "The server can't find the file. It either doesn't exist or the permissions are wrong. \n"; exit; } ##################################################################### ##### Writes Files to order dir. Requires Perl Module File::Copy #### ##### Also makes backup copy of files in order backup dir. ########## sub copy_orders { use File::Copy; copy("$tmp_basepath$delim$userhost_id.cart","$orderdir$delim$userhost_id.cart"); #copy $reffile to order dir. copy("$tmp_basepath$delim$userhost_id.data","$orderdir$delim$userhost_id.data"); #copy $salefile to order dir. copy("$tmp_basepath$delim$userhost_id.cart","$order_backupdir$delim$userhost_id.cart"); #copy $reffile to backup dir. copy("$tmp_basepath$delim$userhost_id.data","$order_backupdir$delim$userhost_id.data"); #copy $salefile to backup dir. } ##################################################################### ##### Update the trigger counter file accesscount.db ################ sub count_access { open (ACCESSFILE,"$basepath$delim$accesscount") || print "Content-type: text/html\n\n Can't Open $basepath$delim$accesscount(r): $!\n"; $access = ; close(ACCESSFILE); $access++; open (ACCESSFILE,">$basepath$delim$accesscount") || print "Content-type: text/html\n\n Can't Open $basepath$delim$accesscount(r): $!\n"; if ($system == 1) {flock(ACCESSFILE, 2)} print ACCESSFILE $access; if ($system == 1) {flock(ACCESSFILE, 8)} close(ACCESSFILE); if ($access >= 100) {&delete_cartfiles;} } ############################################################################ #### list all files in tmp directory get dates, and delete old cart files. # sub delete_cartfiles { &rest_count; opendir(CARTS, "$tmp_basepath") || &ErrorMessage; @cartfiles = readdir (CARTS); foreach $file (@cartfiles) { if (($file ne '.') && ($file ne '..') && ($file ne 'index.cgi') && ($file ne 'ani_skl.gif')) { open (CARTFILE,"$tmp_basepath$delim$file") || print "Can't Open $file(r): $!\n"; @LINES=; close(CARTFILE); $SIZE=@LINES; $_=$LINES[0]; ($filetime) = split(/\|/,$_); ($mon, $mday, $year) = split(/\//,$filetime); $cart_day = $mday; if ($cart_day <= $delete_date) { #print "
File: $file ..... Created on: $filetime

\n"; $filepath = "$tmp_basepath$delim$file"; if (-e "$filepath") {unlink ($filepath); #print "
Deleted file: $file
\n"; } } } } closedir(CARTS); #print "
End of file list

\n"; #print "
\n"; } ##################################################################### ##### Reset the trigger counter file accesscount.db ################# sub rest_count { $accesscount = "access.db"; open (COUNTER, ">$basepath$delim$accesscount") || &CountError; if ($system == 1) {flock(COUNTER, 2)} print COUNTER "0"; if ($system == 1) {flock(COUNTER, 8)} close(COUNTER); } ##################################################################### ##### Counter Error message ######################################### sub CountError { print "Content-type: text/html\n\n"; print "The server can't reset the file: $basepath$delim$accesscount \n"; exit; } ##################################################################### ##### Write data to report database file from buy2. ################# sub write_report2 { &parse_feefile; $cart = "$FORM{'session_id'}.data"; if ($FORM{'cc_order'}) {$ord_type = "Credit Card Order";} elsif ($FORM{'phone_order'}) {$ord_type = "Phone COD Order";} elsif ($FORM{'check_order'}) {$ord_type = "Checker Order";} elsif ($FORM{'fax_cc_order'}) {$ord_type = "FAX Credit Card Order";} elsif ($FORM{'fax_check_order'}) {$ord_type = "FAX Check Order";} open (FILE,">>$basepath$delim$reportdb") || print "Content-type: text/html\n\nCan't Open $basepath$delim$reportdb(r): $!\n"; if ($system == 1) {flock(FILE, 2)} print FILE join "\|", $date, $account_id, $FORM{'realname'}, $FORM{'company'}, $FORM{'email'}, $FORM{'phone'}, $FORM{'fax'}, $FORM{'address'}, $FORM{'city'}, $FORM{'state'}, $FORM{'zip'}, $FORM{'country'}, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $cart, $ord_type, "\|\n"; if ($system == 1) {flock(FILE, 8)} close(FILE); open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n"; my(@LINES)=; close(REFFILE); $SIZE=@LINES; open (itemdb,">>$basepath$delim$itemsaledb") || print "Content-type: text/html\n\nCan't Open $basepath$delim$itemsaledb(r): $!\n"; if ($system == 1) {flock(itemdb, 2)} for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; ($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); print itemdb join "\|", $date, $itemid, $itemname, $itemprice, $itemquant, "\|\n"; } if ($system == 1) {flock(itemdb, 8)} close(itemdb); use File::Copy; copy("$basepath$delim$itemsaledb","$backup_basepath$delim$itemsaledb"); copy("$basepath$delim$reportdb","$backup_basepath$delim$reportdb"); } ##################################################################### ##### Write data to report database file from receipt sub. ########## sub write_report { &parse_feefile; $cart = "$invoice.data"; $ord_type = "Online Credit Card Order"; open (FILE,">>$basepath$delim$reportdb") || print "Content-type: text/html\n\nCan't Open $basepath$delim$reportdb(r): $!\n"; if ($system == 1) {flock(FILE, 2)} print FILE join "\|", $date, $account_id, $realname, $company, $email, $phone, $fax, $address, $city, $state, $zip, $country, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $cart, $ord_type, "\|\n"; if ($system == 1) {flock(FILE, 8)} close(FILE); open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n"; my(@LINES)=; close(REFFILE); $SIZE=@LINES; open (itemdb,">>$basepath$delim$itemsaledb") || print "Content-type: text/html\n\nCan't Open $basepath$delim$itemsaledb(r): $!\n"; if ($system == 1) {flock(itemdb, 2)} for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; ($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); print itemdb join "\|", $date, $itemid, $itemname, $itemprice, $itemquant, "\|\n"; } if ($system == 1) {flock(itemdb, 8)} close(itemdb); use File::Copy; copy("$basepath$delim$itemsaledb","$backup_basepath$delim$itemsaledb"); copy("$basepath$delim$reportdb","$backup_basepath$delim$reportdb"); } ##### List items in shopping cart for Buy1, Buy2 and Receipt ####### sub list_items_buy { &parse_feefile; my($totalquant,$totalprice,$taxtotal,$shipamt,$totalweight) = 0; open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n"; my(@LINES)=; close(REFFILE); $SIZE=@LINES; if ($SIZE <= 1) { print "
YOUR CART IS EMPTY
\n"; &print_footer; exit; } print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; ($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); print "\n"; $tmpprice = ($itemprice*$itemquant); $tmpprice = sprintf ('%.2f',$tmpprice); $totalprice += $tmpprice; $totalquant += $itemquant; $totalweight = ($weight*$itemquant) + $totalweight; $totalprice = sprintf ('%.2f',$totalprice); print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "
Item IDItem Name
Price
OptionsQtyAmount
$itemid$itemname\$ $itemprice$Item_var_one\n"; print "
$Item_var_two
$Item_var_three		$itemquant\$ $tmpprice
\n"; print "
\n"; print "\n"; if ($disc_a) { print "\n"; print "\n"; $sub_amount = ($tmpprice - $disc_a); print "\n"; print "\n"; } if ($min_a) { print "\n"; print "\n"; } if ($cod_a) { print "\n"; print "\n"; } if ($tax_a) { print "\n"; print "\n"; } if ($ship_a) { print "\n"; print "\n"; } print ""; print "\n"; print "\n"; print "
\n"; print "Sub Total:
\\$ $totalprice\n"; print "
DiscountReceived:
\$ $disc_a
Discounted Total:
\$ $sub_amount
Minimum Order Fees:
\$ $min_a
COD Fees:
\$ $cod_a
Taxes:
\$ $tax_a
Shipping Fees:
\$ $ship_a
Total Sale:
\$ $total_a
\n"; } ##################################################################### ##### List items in shopping cart for Receipt POST ################# sub list_items_rec { &parse_feefile; my($totalquant,$totalprice,$taxtotal,$shipamt,$totalweight) = 0; open (REFFILE,"$reffile") || die "Content-type: text/html\n\nCan't Open $reffile(r): $!\n"; my(@LINES)=; close(REFFILE); $SIZE=@LINES; if ($SIZE <= 1) { print "
YOUR CART IS EMPTY
\n"; &print_footer; exit; } if (($command eq 'buy1')||($command eq 'buy2')||($command eq 'pay_type')) {} else {print "
";} print "
"; if ($useid eq '1') {print "";} print ""; print ""; unless (($command eq 'buy2')||($command eq 'pay_type')) { print "\n"; } print ""; for ($i=1;$i<$SIZE;$i++) { $_=$LINES[$i]; ($itemname, $itemprice, $itemquant, $weight, $itemid, $Item_var_one, $Item_var_two, $Item_var_three, $Var_price, $Img_atrib, $Text_area, $Stock) = split(/\|/,$_); print "\n"; $tmpprice = ($itemprice*$itemquant); $tmpprice = sprintf ('%.2f',$tmpprice); $totalprice += $tmpprice; $totalquant += $itemquant; $totalweight = ($weight*$itemquant) + $totalweight; $totalprice = sprintf ('%.2f',$totalprice); print ""; if ($useid eq '1') {print "\n";} print "\n"; print "\n"; print "\n"; print "\n"; } print ""; # sub total print ""; print ""; # discount if ($disc_a) { print ""; print ""; # sub total $sub_amount = ($tmpprice - $disc_a); print ""; print ""; } # Minimum fee if ($min_a) { print ""; print ""; } # COD fee if ($cod_a) { print ""; print ""; } # taxes fee if ($tax_a) { print ""; print ""; } # shipping fees if ($ship_a) { print ""; print ""; } # spacer print ""; # Total Sale print ""; print ""; print "
Item ID Item Name Price $Item_var_one_label $Item_var_two_label $Item_var_three_label Qty Amount
$itemid $itemname \$ $itemprice $Item_var_one $Item_var_two $Item_var_three $itemquant \$ $tmpprice \n"; print "
.
Sub Total:\$ $totalprice
DiscountReceived:\$ $disc_a
Discounted Total:\$ $sub_amount
Minimum Order Fees:\$ $min_a
COD Fee:\$ $codfee
Taxes:\$ $tax_a
Shipping Fees:\$ $ship_a
.
Total Sale:\$ $total_a
\n"; } ##################################################################### ##### Buy1 ########################################################## sub buy_items1 { print "Content-type: text/html\n\n"; print "$page_title\n"; print "$meta_des\n"; print "$meta_key\n"; print "\n"; print "\n"; if ($use_ssl eq '1') {$image_url = $ssl_image_url;} else {$image_url = $imgdir;} &parse_feefile; if ($FORM{'type'} eq 'cc') { print "
\n"; print "
\n"; open (HEADER,"$html_basepath$delim$header_cc_order") || print "Could not open $html_basepath$delim$header_cc_order $! \n"; while (
) {print $_;} close(HEADER); if (($gate == 1) && ($updategate == 1)) { &gate_error; } } elsif ($FORM{'type'} eq 'check') { print "
\n"; open (HEADER,"$html_basepath$delim$header_checker_order") || print "Could not open $html_basepath$delim$header_checker_order $! \n"; while (
) {print $_;} close(HEADER); } elsif ($FORM{'type'} eq 'phone') { print "
\n"; print "
\n"; &make_cod; open (HEADER,"$html_basepath$delim$header_phone_order") || print "Could not open $html_basepath$delim$header_phone_order $! \n"; while (
) {print $_;} close(HEADER); } elsif ($FORM{'type'} eq 'fax_cc') { print "
\n"; print "
\n"; open (HEADER,"$html_basepath$delim$header_fax_cc_order") || print "Could not open $html_basepath$delim$header_fax_cc_order $! \n"; while (
) {print $_;} close(HEADER); } elsif ($FORM{'type'} eq 'fax_check') { print "
\n"; print "
\n"; open (HEADER,"$html_basepath$delim$header_fax_check_order") || print "Could not open $html_basepath$delim$header_fax_check_order $! \n"; while (
) {print $_;} close(HEADER); } else { print "
\n"; print "
\n"; } &list_items_buy; if (($FORM{'type'} eq 'cc') && ($cc_gate_A_f eq '1')) { &make_order_id; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #Shipping Amount print "\n"; #Shipping Type if ($A_testing eq '1') { print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; open (ORDER,"$html_basepath$delim$cc_order") || print "Could not open $html_basepath$delim$cc_order $! \n"; while () {print $_;} close(ORDER); print "
\n"; } elsif (($FORM{'type'} eq 'cc') && ($cc_gate_A_s eq '1')) { &make_order_id; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; #Shipping Amount print "\n"; #Shipping Type if ($A_testing eq '1') { print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; open (ORDER,"$html_basepath$delim$cc_order") || print "Could not open $html_basepath$delim$cc_order $! \n"; while () {print $_;} close(ORDER); print "\n"; } elsif (($FORM{'type'} eq 'cc') && ($cc_gate_A_f eq '0') && ($cc_gate_A_s eq '0')) { &make_order_id; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; open (ORDER,"$html_basepath$delim$cc_order") || print "Could not open $html_basepath$delim$cc_order $! \n"; while () {print $_;} close(ORDER); print "\n"; } elsif ($FORM{'type'} eq 'check') { print "
\n"; &make_order_id; &if_exists; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; open (ORDER,"$html_basepath$delim$check_order") || print "Could not open $html_basepath$delim$check_order $! \n"; while () {print $_;} close(ORDER); print "\n"; } elsif ($FORM{'type'} eq 'phone') { print "
\n"; &make_order_id; &if_exists; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
A C.O.D Fee of \$ $codfee has been added to your total.
\n"; print "

Secure Order Form
\n"; open (ORDER,"$html_basepath$delim$phone_order") || print "Could not open $html_basepath$delim$phone_order $! \n"; while () {print $_;} close(ORDER); print "
\n"; print "
\n"; print "
\n"; print "\n"; } elsif ($FORM{'type'} eq 'fax_cc') { print "
\n"; &make_order_id; &if_exists; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

PRINT THIS PAGE AND FAX THIS ORDER TO:
$fax_phone

\n"; print "
\n"; open (ORDER,"$html_basepath$delim$fax_cc_order") || print "Could not open $html_basepath$delim$fax_cc_order $! \n"; while () {print $_;} close(ORDER); print "\n"; print "
\n"; print "
\n"; } elsif ($FORM{'type'} eq 'fax_check') { print "
\n"; &make_order_id; &if_exists; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

PRINT THIS PAGE AND FAX THIS ORDER TO:
$fax_phone

\n"; print "
\n"; open (ORDER,"$html_basepath$delim$fax_check_order") || print "Could not open $html_basepath$delim$fax_check_order $! \n"; while () {print $_;} close(ORDER); print "\n"; print "
\n"; print "
\n"; } else { print "
\n"; print "\n"; print "
CHOOSE A PAYMENT METHOD
\n"; if ($cc_pay == 1) { print "
\n"; print "\n"; print "\n"; print "
\n"; } if ($checker_pay == 1) { print "
\n"; print "\n"; print "\n"; print "
\n"; } if ($phone_pay == 1) { print "
\n"; print "\n"; print "\n"; print "
\n"; } if ($fax_cc_pay == 1) { print "
\n"; print "\n"; print "\n"; print "
\n"; } if ($fax_check_pay == 1) { print "
\n"; print "\n"; print "\n"; print "
\n"; } print "
\n"; &print_footer; exit; } if ($use_ssl eq '1') { &print_sslfooter; } if ($use_ssl eq '0') { &print_footer; } } ##################################################################### ADDED CODE ##### buy2:Process the order form. EXCEPT FOR REALTIME PROCESSING. ## sub buy_items2 { print "Content-type: text/html\n\n"; print "$page_title\n"; print "$meta_des\n"; print "$meta_key\n"; print "\n"; print "\n"; if ($use_ssl eq '1') {$image_url = $ssl_image_url;} else {$image_url = $imgdir;} print "
\n"; print "
\n"; print "

YOU HAVE SUCCESSFULLY ORDERED THE FOLLOWING:


\n"; &list_items_buy; print "
\n"; print "
Your Order ID is: $userhost_id
\n"; if ($FORM{'phone_order'} eq 'yes') { print "

*** IMPORTANT! ***

\n"; print "

TO COMPLETE YOUR ORDER

\n"; print "

CALL Our Order Desk: $order_phone Now.

\n"; print "-----------------------------------------------------------------------\n"; print "

WE CANNOT COMPLETE YOUR ORDER UNTIL WE HEAR FROM YOU!

\n"; } if ($FORM{'fax_cc_order'} eq 'yes') { print "

*** IMPORTANT! ***

\n"; print "

TO COMPLETE YOUR ORDER

\n"; print "

CALL Our Order Desk: $order_phone Now with your Credit Card Information

\n"; print "

Or FAX Your Credit Card Information To: $fax_phone

\n"; print "

YOU MUST CALL OR FAX YOUR CREDIT CARD INFORMATION TO COMPLETE YOUR ORDER!

\n"; print "-----------------------------------------------------------------------\n"; print "

WE CANNOT COMPLETE YOUR ORDER UNTIL WE RECEIVE YOUR INFORMATION!

\n"; } if ($FORM{'fax_check_order'} eq 'yes') { print "

*** IMPORTANT! ***

\n"; print "

FAX YOUR CHECK TO: $fax_phone NOW

\n"; print "

TO COMPLETE YOUR ORDER PLEASE MAKE OUT A CHECK PAYABLE TO: $payable_to

\n"; print "

IN THE AMOUNT OF YOUR TOTAL ORDER LISTED ABOVE. SIGN AND DATE THE CHECK.

\n"; print "

THEN FAX A COPY OF THE COMPLETED CHECK TO: $fax_check_phone

\n"; print "
-----------------------------------------------------------------------
\n"; print "

WE CANNOT COMPLETE YOUR ORDER UNTIL WE RECEIVE YOUR FAXED CHECK!

\n"; } print "
You may print this page for your records.\n"; print "
We have sent you an email verification of your order
\n"; print "

\n"; #### START NEW. $order_id = $FORM{'x_Cust_ID'}; $account_id = "A$FORM{'phone'}"; #### END NEW. # writes new order data to master order.db. $order_database = "$orderdir$delim$orderdb"; $date_p = "Date"; $date_s = "Date"; $date_h = "Date"; $date_c = "Date"; $date_a = "Date"; $hold_remarks = "Enter Notes Here"; $office_remarks = "Enter Notes Here"; $new_status = "new"; open (FILE,">>$order_database") || die "Content-type: text/html\n\nCan't Open $order_database): $!\n"; if ($system == 1) {flock(FILE, 2)}; print FILE join "\|", $FORM{'session_id'}, $date, $FORM{'realname'}, $new_status, $date_p, $date_s, $date_h, $date_c, $date_a, $hold_remarks, $office_remarks, $account_id,"\n"; if ($system == 1) {flock(FILE, 8)}; close(FILE); # End write new order data to master order.db. # writes data to salefile. open (FILE,"$salefile") || die "Content-type: text/html\n\nCan't Open $salefile(r): $!\n"; my(@LINES)=; close(FILE); $SIZE=@LINES; ($usertime_f, $cart_id, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $trans, $approval, $auth_code, $avs_code, $trans_id, $amount, $type, $realname, $company, $a_c_s_z_c_p_f, $ship_info, $card, $ol_check, $email, $notes) = split(/\|/,$LINES); open (FILE,">$salefile") || die "Content-type: text/html\n\nCan't Open $salefile(w): $!\n"; for ($i=0;$i<=$SIZE;$i++) { $_=$LINES[$i]; my($usertime_f, $this_id, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $trans, $approval, $auth_code, $avs_code, $account_id, $amount, $type, $realname, $company, $a_c_s_z_c_p_f, $ship_info, $card, $ol_check, $email, $notes) = split(/\|/,$_); $trans = "If CC: Manual Trans"; if ($FORM{'street'}) {$address = $FORM{'street'};} else {$address = $FORM{'address'};} $a_c_s_z_c_p_f = "$address,$FORM{'city'},$FORM{'state'},$FORM{'zip'},$FORM{'country'},$FORM{'phone'},$FORM{'fax'}"; if ($FORM{'ship_to_first_name'}) { $ship_to_first = $FORM{'ship_to_first_name'}; } else { $ship_to_first = $FORM{'realname'}; $name_s = $FORM{'realname'}; $ship_to_last_name = ""; $ship_to_address = $address; $ship_to_state = $FORM{'state'}; $ship_to_zip = $FORM{'zip'}; $ship_to_city = $FORM{'city'}; } if ($FORM{'cardholder'}) {$cardholder = $FORM{'cardholder'};} else {$cardholder = $FORM{'realname'};} if ($FORM{'cardnum'}) {$cardnum = $FORM{'cardnum'};} if ($FORM{'expire'}) {$expire = $FORM{'expire'};} if ($FORM{'cardtype'}) {$cardtype = $FORM{'cardtype'};} $ship_info = "$ship_to_first,$ship_to_last_name,$FORM{'company'},$ship_to_address,$FORM{'city'},$FORM{'state'},$FORM{'zip'},$FORM{'country'},$ship_to_remarks"; $card = "$FORM{'cardnum'},$FORM{'expire'},$FORM{'cardtype'},$FORM{'cardholder'}"; $ol_check = "$FORM{'Bank_Name'},$FORM{'Bank_Address'},$FORM{'Bank_City_State_Zip'},$FORM{'Bank_Phone'},$FORM{'Check_Type'},$FORM{'Fraction_top'},$FORM{'Fraction_bot'},$FORM{'Account_Holder_Name'},$FORM{'Check_Date'},$FORM{'Check_Number'},$FORM{'Check_Amount'},$FORM{'Routing_number'},$FORM{'Account_Number'},$FORM{'Authorization'}"; $notes = "$name_s,$FORM{'x_user10'}"; print FILE "$usertime_f\|$FORM{'session_id'}\|$ship_t\|$ship_a\|$disc_a\|$min_a\|$tax_a\|$cod_a\|$zone_a\|$total_a\|$trans\|$approval\|$auth_code\|$avs_code\|$trans_id\|$total_a\|$type\|$FORM{'realname'}\|$FORM{'company'}\|$a_c_s_z_c_p_f\|$ship_info\|$card\|$ol_check\|$FORM{'email'}\|$notes\|"; } close(FILE); # end write data to sale file. &write_report2; &farm_email; unless ($email_order eq '0') { &send_order; } unless ($email_receipt eq '0') { &send_verify; } unless ($stocktrack eq '0') { &write_new_qty; } ©_orders; # Writes Files to order directory. Requires Perl Module File::Copy if (-e "$reffile") {unlink ($reffile);} # Deletes temp cart files. if (-e "$salefile") {unlink ($salefile);} # Deletes temp cart files. # Footer print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "
CONTINUE SHOPPING
\"Return
\n"; print "
\n"; print "
\n"; $exit_command = "\?command=leave"; print "
\n"; print "\"Exit\n"; $contact_command = "?command=contact"; print "\n"; print "\n"; print "\"Email
\n"; $end = (times)[0]; $ending = $end - $start; $ending = sprintf ('%.2f',$ending); print "

Smart-Store © Webstore.net and CPUnet Internet, All rights reserved
"; print "This page generated in $ending seconds by \n"; print "Our FAST Servers. Site Design ©\n"; print "Wisemen Trading and Supply
\n"; } ##################################################################### ##### Receipt: Process return from SSL Credit Card gateway. ######### sub receipt { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); 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; $value =~ s///g; if ($name eq 'required') {@required = split(/,/,$value);} elsif ($name eq 'exclude') {@exclude = split(/,/,$value);} elsif ($name eq 'sorted_fields') {@sorted_fields = split(/,/,$value);} elsif ($FORM{$name}) {$FORM{$name} = $FORM{$name}.",".$value;} else {$FORM{$name} = $value;} } # Return Fields for Authorize net POST # Authorization fields $approval = $FORM{'x_response_code'}; $x_response_subcode = $FORM{'x_response_subcode'}; $x_response_reason_code = $FORM{'x_response_reason_code'}; $response_reason = $FORM{'x_response_reason_text'}; $auth_code = $FORM{'x_auth_code'}; $avs_code = $FORM{'x_avs_code'}; # Sale Information fields $trans_id = $FORM{'x_trans_id'}; $invoice = $FORM{'x_invoice_num'}; $description = $FORM{'x_description'}; $amount = $FORM{'x_amount'}; $method = $FORM{'x_method'}; $type = $FORM{'x_type'}; # Customer Information fields $account_id = $FORM{'x_cust_id'}; $x_first_name = $FORM{'x_first_name'}; $x_last_name = $FORM{'x_last_name'}; $realname_cc = "$x_first_name $x_last_name"; $cardholder = "$x_first_name $x_last_name"; $realname = "$x_first_name $x_last_name"; $name_s = $FORM{'x_user1'}; # Name for silent posts $company = $FORM{'x_company'}; $address = $FORM{'x_address'}; $city = $FORM{'x_city'}; $state = $FORM{'x_state'}; $zip = $FORM{'x_zip'}; $country = $FORM{'x_country'}; $phone = $FORM{'x_phone'}; $fax = $FORM{'x_fax'}; $email = $FORM{'x_email'}; # Additional Shipping Information from return post $ship_to_first_name = $FORM{'x_ship_to_first_name'}; $ship_to_last_name = $FORM{'x_ship_to_last_name'}; $ship_to_company = $FORM{'x_ship_to_company'}; $ship_to_address = $FORM{'x_ship_to_address'}; $ship_to_city = $FORM{'x_ship_to_city'}; $ship_to_state = $FORM{'x_ship_to_state'}; $ship_to_zip = $FORM{'x_ship_to_zip'}; $ship_to_country = $FORM{'x_ship_to_country'}; # Misc. fields $x_tax = $FORM{'x_tax'}; $x_freight = $FORM{'x_freight'}; #used for shipping type receipt responce $shipcharge = $FORM{'x_duty'}; #used for shipping amount receipt responce $cardtype = $FORM{'x_user6'}; # card Type return responce $cardnum = $FORM{'x_user7'}; $expire = $FORM{'x_user8'}; # Unused fields $x_tax_exempt = $FORM{'x_tax_exempt'}; $x_po_num = $FORM{'x_po_num'}; $x_md5_hash = $FORM{'x_md5_hash'}; # Merchant defined fields $ship_to_remarks = $FORM{'x_user5'}; # remarks from CC form post $cardtype = $FORM{'x_user6'}; # card Type return responce $x_user9 = $FORM{'x_user9'}; # Order Cart File $x_user10 = $FORM{'x_user10'}; $userhost_id = $FORM{'x_invoice_num'}; $order_id = $FORM{'x_Cust_ID'}; $account_id = "A$phone"; $trans = "Online CC"; $a_c_s_z_c_p_f = "$address,$FORM{'city'},$FORM{'state'},$FORM{'zip'},$FORM{'country'},$FORM{'phone'},$FORM{'fax'}"; if ($FORM{'ship_to_first_name'}) { $ship_to_first = $FORM{'ship_to_first_name'}; } else { $ship_to_first = $FORM{'realname'}; } $a_c_s_z_c_p_f = "$address,$city,$state,$zip,$country,$phone,$fax"; $ship_info = "$ship_to_first,$ship_to_last_name,$ship_to_company,$ship_to_address,$ship_to_city,$ship_to_state,$ship_to_zip,$ship_to_country,$ship_to_remarks"; $card = "$cardnum,$expire,$cardtype,$cardholder"; $ol_check = "$FORM{'Bank_Name'},$FORM{'Bank_Address'},$FORM{'Bank_City_State_Zip'},$FORM{'Bank_Phone'},$FORM{'Check_Type'},$FORM{'Fraction_top'},$FORM{'Fraction_bot'},$FORM{'Account_Holder_Name'},$FORM{'Check_Date'},$FORM{'Check_Number'},$FORM{'Check_Amount'},$FORM{'Routing_number'},$FORM{'Account_Number'},$FORM{'Authorization'}"; $notes = "$name_s,$x_user10"; if ($use_ssl eq '1') {$image_url = $ssl_image_url;} else {$image_url = $imgdir;} $reffile = "$tmp_basepath$delim$invoice.cart"; $salefile = "$tmp_basepath$delim$invoice.data"; print "Content-type: text/html\n\n"; print "$page_title\n"; print "$meta_des\n"; print "$meta_key\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; if ($approval eq '1') { print "
THANK YOU

\n"; print "
$realname
\n"; if ($company) { print "
Company Name: $company
\n"; } print "
$rectxt1
\n"; print "
\n"; print "
$response_reason
\n"; print "
Authorization #$auth_code
\n"; print "
Your Order ID is: $invoice
\n"; print "
\n"; print "
You may print this page for your records.
\n"; print "
A Receipt for this order has been Emailed to you at: $email
\n"; print "
If you have any questions or concerns about this order.
Please Call Us at: $order_phone
\n"; $contact_command = "?command=contact"; print "
\n"; print "\"Email
\n"; print "
\n"; print "
$rectxt3
\n"; # writes new order data to master order.db. $order_database = "$orderdir$delim$orderdb"; $date_p = "Date"; $date_s = "Date"; $date_h = "Date"; $date_c = "Date"; $date_a = "Date"; $hold_remarks = "Enter Notes Here"; $office_remarks = "Enter Notes Here"; $new_status = "new"; open (FILE,">>$order_database") || print "Content-type: text/html\n\nCan't Open $order_database): $!\n"; if ($system == 1) {flock(FILE, 2)}; print FILE join "\|", $invoice, $date, $name_s, $new_status, $date_p, $date_s, $date_h, $date_c, $date_a, $hold_remarks, $office_remarks, $account_id,"\n"; if ($system == 1) {flock(FILE, 8)}; close(FILE); # End write new order data to master order.db. # writes data to salefile. open (FILE,"$salefile") || print "Content-type: text/html\n\nCan't Open $salefile(r): $!\n"; my(@LINES)=; close(FILE); $SIZE=@LINES; ($usertime_f, $cart_id, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $trans1, $approval1, $auth_code1, $avs_code1, $trans_id1, $amount1, $type1, $realname1, $company1, $a_c_s_z_c_p_f1, $ship_info1, $card1, $ol_check1, $email1, $notes1) = split(/\|/,$LINES); open (FILE,">$salefile") || print "Content-type: text/html\n\nCan't Open $salefile(w): $!\n"; for ($i=0;$i<=$SIZE;$i++) { $_=$LINES[$i]; my($usertime_f, $this_id, $ship_t, $ship_a, $disc_a, $min_a, $tax_a, $cod_a, $zone_a, $total_a, $trans1, $approval1, $auth_code1, $avs_code1, $trans_id1, $amount1, $type1, $realname1, $company1, $a_c_s_z_c_p_f1, $ship_info1, $card1, $ol_check1, $email1, $notes1) = split(/\|/,$_); print FILE "$usertime_f\|$invoice\|$ship_t\|$ship_a\|$disc_a\|$min_a\|$tax_a\|$cod_a\|$zone_a\|$total_a\|$trans\|$approval\|$auth_code\|$avs_code\|$trans_id\|$amount\|$type\|$name_s\|$company\|$a_c_s_z_c_p_f\|$ship_info\|$card\|$ol_check\|$email\|$notes\|"; } close(FILE); # end write data to sale file. close(FILE); &write_report; #&farm_email_rec; unless ($email_gate_o eq '0') { &send_order; } #&send_verify; unless ($stocktrack eq '0') { &write_new_qty; } &list_items_buy; use File::Copy; copy("$tmp_basepath$delim$invoice.cart","$orderdir$delim$invoice.cart"); #copy $reffile to order dir. copy("$tmp_basepath$delim$invoice.data","$orderdir$delim$invoice.data"); #copy $salefile to order dir. copy("$tmp_basepath$delim$invoice.cart","$order_backupdir$delim$invoice.cart"); #copy $reffile to backup dir. copy("$tmp_basepath$delim$invoice.data","$order_backupdir$delim$invoice.data"); #copy $salefile to backup dir. if (-e "$reffile") {unlink ($reffile);} # Deletes temp cart files. if (-e "$salefile") {unlink ($salefile);} # Deletes temp cart files. print "
\n"; print "
$rectxt2
\n"; } if ($approval eq '2') { print "
$realname There was a problem with your Credit Card Submission!
\n"; print "
\n"; print "
$response_reason
\n"; print "
$x_response_subcode\|$x_response_reason_code\|$x_avs_code
\n"; print "
\n"; print "
These are the items in your cart.
\n"; &list_items; print "
If you would like to resubmitt your Credit Card Information
\n"; print "
or select another payment option, Click the RETURN TO STORE button below.
\n"; print "
You may also choose to add more items to your cart..
\n"; print "
\n"; print "
IF YOU CHOOSE TO CANCEL THIS PURCHASE, Please Click the LEAVE STORE button.
\n"; } if ($approval eq '3') { print "
$realname There was a problem with your Credit Card Submission!
\n"; print "
\n"; print "
There was an error in the transaction process.
\n"; print "
$response_reason
\n"; print "
$x_response_subcode\|$x_response_reason_code\|$x_avs_code
\n"; print "
\n"; print "
These are the items in your cart.
\n"; &list_items; print "
If you would like to resubmitt your Credit Card Information
\n"; print "
or select another payment option, Click the RETURN TO STORE button below.
\n"; print "
You may also choose to add more items to your cart..
\n"; print "
\n"; print "
IF YOU CHOOSE TO CANCEL THIS PURCHASE, Please Click the LEAVE STORE button.
\n"; } print "
\n"; print "
\n"; print "\n"; print "
\"Return
\n"; print "
\n"; print "
\n"; $exit_command = "\?command=leave"; print "
\n"; print "\"Exit\n"; $contact_command = "?command=contact"; print "\n"; print "\n"; print "\"Email
\n"; $end = (times)[0]; $ending = $end - $start; $ending = sprintf ('%.2f',$ending); print "

Smart-Store © Webstore.net and CPUnet Internet, All rights reserved
"; print "This page generated in $ending seconds by \n"; print "Our FAST Servers. Site Design ©\n"; print "Wisemen Trading and Supply
\n"; } ##################################################################### ##### Number. ####################################################### sub number { $a <=> $b } # END smart.cgi CPUnet #