Error 500

dreams3577 · Jun 2, 2002

Hi all
have this script, it is the last in a three part shopping script, below is the script order,

1) input vales through form (ie name, address, card details) (orderform.htm)
2)Select Quantities (order01.cgi)
3)Order Confirmation (order02.cgi)
4)sendmail and echo reply (order03.cgi)(this script)

i am having problems with step 4 (order03.cgi), the variables are being passed and the script is sending all the correct emails out and user is recieving them ok, but the browser returns a Error 500 Internal Server Error message
thanks for any help
steve

_______________________________________________________
#!/usr/local/bin/perl

## ---------------------------------------------------------------------------------------
## This is the final processing file.
## This file processes the order information into a log file (order_log.dat)
## And then the order information by email to Merchant and Customer if enabled
## =======================================================================================

# Call the configuration file using the require command
require 'order00.cfg';

## Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

## Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$value =~ s/<//g;
$value =~ s/>//g;
$FORM{$name} = $value;
}

### Get the Date
@months = ('January','February','March','April','May','June','July','August','September','October','November','December');
@days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
($mday,$mon,$year,$wday) = (localtime(time))[3,4,5,6];
$year += 1900;
$date = "$days[$wday], $months[$mon] $mday, $year";

## Get the new invoice number
unless (open (NUMBER, "$number_path&quot

) {
print "Content-type: text/html\n\n";
print "<html><head><title>File Processing Error !</title></head>\n";
print "<BODY BGCOLOR=#FFFFFF TEXT=#000000 LINK=#0000FF ALINK=#0000FF VLINK=#0000FF>\n";
print "<center>\n<table border=0 cellpadding=2 cellspacing=0 width=500>\n";
print "<tr><td>";
print "<a href=\"$base_url$main_filename\">";
print "$site_name </a>";
print "file processing error !</td></tr>";
print "<tr><td>";
print "There has been an essential file error attempting to open the invoice data file on the server.";
print "<ul><li>$number_path</ul></td></tr> ";
print "<tr><td> </td></tr>";
print "<tr><td>";
print "No billing information has been processed at this point.</td></tr>";
print "<tr><td> </td></tr>";
print "<tr><td>$date</td></tr>";
print "<tr><td>Please notify the merchant of this error <a href=\"mailto:$recipient\">$recipient</a></td></tr>";
print "</table>";

print "<table border=0 cellpadding=2 cellspacing=0 width=570>";
print "<tr><td><hr size=0></td></tr>";
print "<tr><td> </td></tr><tr><td><Center>";
print "Copyright © $year -- ";
print "<A href=\"$site_location\">$site_name</A> -- ";
print "All Rights Reserved.";
print "</Center></td></tr>";
print "</table>";

print "</center>";
print "</body></html>";
die
}

$num = <NUMBER>;
close (NUMBER);
$num++;

## Reset the invoice number
unless (open (NUMBER, ">$number_path&quot

) {
print "Content-type: text/html\n\n";
print "<html><head><title>File Processing Error !</title></head>";
print "<body>";
print "<center><table border=0 cellpadding=2 cellspacing=0 width=500>";
print "<tr><td>";
print "<a href=\"$base_url$main_filename\">";
print "$site_name </a>";
print "file processing error !</td></tr>";
print "<tr><td>";
print "There has been an essential file error attempting to open the invoice data file on the server.";
print "<ul><li>$number_path</ul></td></tr> ";
print "<tr><td> </td></tr>";
print "<tr><td>";
print "No billing information has been processed at this point.</td></tr>";
print "<tr><td> </td></tr>";
print "<tr><td>$date</td></tr>";
print "<tr><td>Please notify the merchant of this error <a href=\"mailto:$recipient\">$recipient</a></td></tr></table>";
print "<table border=0 cellpadding=2 cellspacing=0 width=570>";
print "<tr><td><hr size=0></td></tr>";
print "<tr><td> </td></tr><tr><td><Center>";
print "Copyright © 1999 -- ";
print "<A href=\"

http://www.$site_name.com/\">$site_name</A>

-- ";
print "All Rights Reserved.";
print "</Center></td></tr>";
print "</table>";
print "</center>";
print "</body></html>";
die
}

print NUMBER "$num";
close (NUMBER);

## Return an INVOICE page
print "Content-type: text/html\n\n";
print "<html><head><title>$site_mailname Invoice $num for $FORM{'billName'}</title></head>\n";
print "<body>\n";
print "<CENTER>\n";
print "<table border=0 cellpadding=0 cellspacing=0 width=570>\n";
print "<tr><td align=left colspan=2>\n";
print "";
print "$site_name</td></tr>\n";
print "<tr><td colspan=2><hr size=0></td></tr>\n";
print "<tr>\n<td>Invoice \# $num</td>\n";
print "<td align=right>$date</td>\n</tr>\n";
print "<tr><td colspan=2> </td></tr>\n";
print "</table>\n";

print "<table border=0 cellpadding=2 cellspacing=0 width=570>";

if ($FORM{'sendcheck'} eq "yes&quot

{
print "<tr><td colspan=3>";
print "Congratulations! ";
print "Your order has been processed. Please print and mail this invoice with ";
print "your check or money order to the address listed below your order details. ";
print "You will also be receiving an e-mail with the same information shortly. ";
print "If you have any questions you can email us at ";
print "<a href=\"mailto:$client_note_email\">$client_note_email</a>.</td></tr> ";
print "<tr><td colspan=2> </td></tr></table>\n";
} else {
print "<tr><td colspan=3>";
print "Congratulations! ";
print "Your order has been processed. Please print this page as your ";
print "receipt. You will also be receiving an e-mail with the same ";
print "information shortly. If you have questions you can ";
print "email us at <a href=\"mailto:$client_note_email\">$client_note_email</a>.</td></tr> ";
print "<tr><td colspan=2> </td></tr>\n";
print "</table>";
}

# Format the items in the array into a table of items ordered
print "<table border=1 cellpadding=2 cellspacing=0 width=570>\n";
print "<tr bgcolor=#FFFFCC>\n";
print "<td align=center>Qty</td>\n";
print "<td align=center>Item #</td>\n";
print "<td align=center>Item</td>\n";
print "<td align=center>Each</td>\n";
print "<td align=center>Total</td>\n";

print "</tr>\n";

$qnty_num = 1;
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$value =~ s/<//g;
$value =~ s/>//g;

# increment quantity - product filenmes
$qnty_check = "quantity_";
$qnty_check .= $qnty_num;
$prod_check = "product_";
$prod_check .= "$qnty_num";

# identify quantity value for this increment
if ($name eq "$qnty_check&quot

{

# split the product data for this increment
foreach $pair2 (@pairs) {
($name2, $value2) = split(/=/, $pair2);
$value2 =~ tr/+/ /;
$value2 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value2 =~ s/<([^>]|\n)*>//g;
$value2 =~ s/<//g;
$value2 =~ s/>//g;
if ($name2 eq "$prod_check&quot

{
$product_line = $value2;
}
}

# concentate quantity and product data
$display_line = "$value";
$display_line .= "----";
$display_line .= "$product_line";

# split quantity and product into scalars
($quantity,$item,$description,$price) = split (/----/,$display_line);

# print it in the tables unless quantities zeroed out
unless ($quantity == 0) {
print "<tr>\n";
print "<td align=\"center\">$quantity</td> \n";
print "<td align=\"center\">$item </td> \n";
print "<td> $description </td> \n";
print "<td align=right> $price </td> \n";

if ($quantity >= 1) {
$sub_price = ($quantity * $price);
$sub_price = sprintf "%.2f", $sub_price;
1 while $sub_price =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;

print "<td align=right>$sub_price </td> \n";
}

print "</tr>";
}

# zero out quantities changed to zero
if ($quantity == 0) {
$price = ($quantity * $price);
}
$sub_price = $quantity * $price;
$qnty_num++;
$count_price += $sub_price;
$count_quantity += $quantity;
}
}

$total_shipCost = ($FORM{'shipCost'} * $count_quantity);

# calculate sales tax and grand total
$sales_tax = ($count_price * $unit_tax);
$grand_total = ($count_price + $total_shipCost);

# format tax and total to 2 decimal places
$count_price = sprintf "%.2f", $count_price;
$grand_total = sprintf "%.2f", $grand_total;
$sales_tax = sprintf "%.2f", $sales_tax;
$total_shipCost = sprintf "%.2f", $total_shipCost;

# format the math to commas
1 while $count_price =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $sales_tax =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $grand_total =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $count_quantity =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $total_shipCost =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;

# totals for this form

print "<tr><td align=right colspan=3>";
print "Total price for $count_quantity products ordered ----></td>";
print "<td bgcolor=#FFFFFF align=right colspan=2> ";
print "$count_price </td></tr>\n";
print "<tr><td align=right colspan=3>";
print "Total shipping by $FORM{'shipType'} for $count_quantity items ----></td>";
print "<td bgcolor=#FFFFFF align=right colspan=2> ";
print "$total_shipCost </td></tr>\n";

# print for check or card
if ($FORM{'sendcheck'} eq "yes&quot

{
print "<tr><td align=right colspan=3>";
print "";
print "Make check or money order for this amount ----></td>";
print "<td bgcolor=#FFFFFF align=right colspan=2>";
print "\$ $grand_total </td></tr>\n";
} else {

if ($FORM{'cardtype'} eq "Visa&quot

{$type = "Visa Card";}
if ($FORM{'cardtype'} eq "MasterCard&quot

{$type = "Master Card";}
if ($FORM{'cardtype'} eq "AmEx&quot

{$type = "American Express Card";}
if ($FORM{'cardtype'} eq "Novus&quot

{$type = "Discover Card";}

print "<tr><td align=right colspan=3>";
print "";
print "Total billed to $type account # $FORM{'cardnumber'} ----></td>";
print "<td bgcolor=#FFFFFF align=right colspan=2>";
print "\$ $grand_total </td></tr>\n";
}

print "</table>\n";
print "<table border=0 cellpadding=0 cellspacing=0 width=570>";
print "<tr><td colspan=3> </td></tr>";
print "<tr><td width=130 align=left valign=\"middle\"><table border=0 height=35 width=100>";
print "<tr><td align=center bgcolor=#ebebeb>Order By:</td></tr></table>";
print "</td>";
print "<td width=220>";
print "";
print "$FORM{'billName'} \n";
print "";
print "$FORM{'billAddress'} \n";
print "";
print "$FORM{'billCity'}, $FORM{'billState'} $FORM{'billZip'} \n";
print "";
print "$FORM{'billCountry'}</td>\n";
print "<td width=220 align=left valign=top>";
print "";
print "Phone: $FORM{'billPhone'} \n";

if ($FORM{'billFax'}) {
print "";
print "Fax: $FORM{'billFax'} \n";
}

print "E-Mail: ";
print "$FORM{'billEmail'}</td></tr>\n";
print "<tr><td colspan=3> </td></tr>";
print "<tr><td width=130 align=left valign=\"middle\"><table border=0 height=35 width=100>";
print "<tr><td align=center bgcolor=#ebebeb>Ship To:</td></tr></table>";
print "</td>";
print "<td width=220>";
print "";
print "$FORM{'shipName'} \n";
print "";
print "$FORM{'shipAddress'} \n";
print "";
print "$FORM{'shipCity'}, $FORM{'shipState'} $FORM{'shipZip'} \n";
print "";
print "$FORM{'shipCountry'}</td>\n";
print "<td width=220 align=left valign=top>";
print "";
print "Phone: $FORM{'shipPhone'} \n";

if ($FORM{'shipFax'}) {
print "";
print "Fax: $FORM{'shipFax'} \n";
}

print "E-Mail: ";
print "$FORM{'shipEmail'}</td></tr>\n";
print "<tr><td colspan=3> </td></tr></table>";

print "<table width=570 cellspacing=0 cellpadding=0 height=30>";
print "<tr><td> </td></tr>";
print "</table>";

if ($FORM{'sendcheck'} eq "yes&quot

{

print "<table border=0 cellpadding=2 cellspacing=0 width=360>";
# print "<tr bgcolor=\"#ebebeb\">";
print "<tr>";
print "<td align=\"center\"> ";
print "";
print "$site_mailname $site_address $site_city, ";
print "$site_state $site_zip ";
print "</td></tr>";
print "</table>\n";

} else {

print "<table border=0 cellpadding=2 cellspacing=0 width=570>";
print "<tr><td> </td></tr>\n";
print "</table>";
}

print "<table border=0 cellpadding=2 cellspacing=0 width=570>";
print "<tr><td colspan=3> </td></tr></table>\n";

print "<table border=0 cellpadding=2 cellspacing=0 width=570>";
print "<tr><td><hr size=0></td></tr>";
print "<tr><td> </td></tr><tr><td><Center>";
print "Copyright © $year -- ";
print "<A href=\"$site_location\">$site_name</A> -- ";
print "All Rights Reserved.";
print "</Center></td></tr>";
print "</table>";

print "</CENTER>";
print "</body></html>\n";

## Send information to log file
unless (open (LOGFILE, ">>$logfile_path&quot

) {
print "<html><head><title>File Processing Error !</title></head>";
print "<body>";
print "<center><table border=0 cellpadding=2 cellspacing=0 width=90%>";
print "<tr><td> </td></tr>";
print "<tr><td>";
print "Note: Logfile processing error. ";
print "";
print "There has been a file error attempting to open the log file on the server. ";
print "$logfile_path ";
print "No billing has been processed for this invoice ";
print "";
print "Please notify the Merchant <a href=\"mailto:$recipient\">$recipient</a> ";
print " of this error.</td></tr>";
print "</table>";

print "<table border=0 cellpadding=2 cellspacing=0 width=570>";
print "<tr><td><hr size=0></td></tr>";
print "<tr><td> </td></tr><tr><td><Center>";
print "Copyright © $year -- ";
print "<A href=\"$site_location\">$site_name</A> -- ";
print "All Rights Reserved.";
print "</Center></td></tr>";
print "</table>";

print "</center></body></html>\n";
die
}

# format the date
($mday,$mon,$year) = (localtime(time))[3,4,5];
$year += 1900;
$mon+=1;

# printing to Log File
print LOGFILE "\n";
print LOGFILE " INVOICE NUMBER $num \n\n";
print LOGFILE " DATE $mon-$mday-$year\n\n";
print LOGFILE " Customer Address :\n";
print LOGFILE " ----------------------\n";
print LOGFILE " Name $FORM{'billName'}\n";
print LOGFILE " Address $FORM{'billAddress'}\n";
print LOGFILE " C,S,Z $FORM{'billCity'}, $FORM{'billState'} $FORM{'billZip'}\n";
print LOGFILE " Country $FORM{'billCountry'}\n";
print LOGFILE " Phone $FORM{'billPhone'}\n";

if ($FORM{'billFax'}) {
print LOGFILE " Fax $FORM{'billFax'}\n"; }

if ($FORM{'billEmail'}) {
print LOGFILE " Email $FORM{'billEmail'}\n\n"; }
print LOGFILE " Shipping Address :\n";
print LOGFILE " ----------------------\n";
print LOGFILE " Name $FORM{'shipName'}\n";
print LOGFILE " Address $FORM{'shipAddress'}\n";
print LOGFILE " C,S,Z $FORM{'shipCity'}, $FORM{'shipState'} $FORM{'shipZip'}\n";
print LOGFILE " Country $FORM{'shipCountry'}\n";
print LOGFILE " Phone $FORM{'shipPhone'}\n";

if ($FORM{'shipFax'}) {
print LOGFILE " Fax $FORM{'shipFax'}\n"; }

if ($FORM{'shipEmail'}) {
print LOGFILE " Email $FORM{'shipEmail'}\n\n"; }
print LOGFILE " Payment & Shipping :\n";
print LOGFILE " ----------------------\n";
if ($FORM{'sendcheck'} eq "yes&quot

{
print LOGFILE " -Paying by Check or Money Order.\n";
} else {
print LOGFILE " -Paying by $FORM{'cardtype'} for $FORM{'cardholder'}.\n";
print LOGFILE " $FORM{'cardnumber'} Expiration $FORM{'cardmonth'}/$FORM{'cardyear'}.\n";
}
print LOGFILE " -Shipping by '$FORM{'shipType'}' \@ $FORM{'shipCost'} each.\n\n";
# Format the ordered items in the array for printing
print LOGFILE " Products Ordered :\n";
print LOGFILE " ----------------------\n";

$qnty_num = 1;
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$value =~ s/<//g;
$value =~ s/>//g;

# increment quantity - product filenmes
$qnty_check = "quantity_";
$qnty_check .= $qnty_num;
$prod_check = "product_";
$prod_check .= "$qnty_num";

# identify quantity value for this increment
if ($name eq "$qnty_check&quot

{

# split the product data for this increment
foreach $pair2 (@pairs) {
($name2, $value2) = split(/=/, $pair2);
$value2 =~ tr/+/ /;
$value2 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value2 =~ s/<([^>]|\n)*>//g;
$value2 =~ s/<//g;
$value2 =~ s/>//g;
if ($name2 eq "$prod_check&quot

{
$product_line = $value2;
}
}

# put quantity and product data in one long string
$order_line = "$value";
$order_line .= "----";
$order_line .= "$product_line";

# split quantity and product into scalars
($quantity,$item,$description,$price) = split (/----/,$order_line);

# get the sub total or zero value for quantity and item
$sub_price2 = ($quantity * $price);

$qnty_num++;
$count_price2 += $sub_price2;
$count_quantity2 += $quantity;

$sub_price2 = sprintf "%.2f", $sub_price2;
1 while $sub_price2 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;

$price2 = $price;
$price2 = sprintf "%.2f", $price2;
1 while $price2 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;

# printing of order list with zero check
unless ($quantity == 0) {
print LOGFILE " $quantity -- $item -- $description -- ($price2/each) Total \$ $sub_price2\n";
}

}
}

# calculate sales tax and grand total
$sales_tax2 = ($count_price2 * $unit_tax);
$grand_total2 = ($count_price2 + $total_shipCost);

# format tax and total to 2 decimal places
$count_price2 = sprintf "%.2f", $count_price2;
$grand_total2 = sprintf "%.2f", $grand_total2;
$total_shipCost = sprintf "%.2f", $total_shipCost;

# format the math to commas
1 while $count_price2 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $sales_tax2 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $grand_total2 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $count_quantity2 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $total_shipCost =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;

# totals for this order
print LOGFILE "\n";
print LOGFILE " Total products ordered = $count_quantity2\n";
print LOGFILE " Total price for these products = \$ $count_price2\n";
print LOGFILE " Total shipping for $count_quantity2 product(s) = \$ $total_shipCost\n";
print LOGFILE " Grand Total of this invoice = \$ $grand_total2\n\n";
print LOGFILE " +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++";
print LOGFILE "\n";
close(LOGFILE);

## Send invoice for billing via email
if ($mail eq '1') {
open (MYMAIL, "|$mailprog -t&quot

|| die "Can't open $mailprog!\n";
print MYMAIL "To: $recipient ($site_mailname)\n";
print MYMAIL "From: $FORM{'billEmail'} ($FORM{'billName'})\n";
print MYMAIL "Subject: $site_mailname invoice # $num\n\n";

# printing to Mail program
print MYMAIL "\n";
print MYMAIL " INVOICE NUMBER $num \n\n";
print MYMAIL " DATE $mon-$mday-$year\n\n";
print MYMAIL " Customer Address :\n";
print MYMAIL " $separator\n";
print MYMAIL " Name $FORM{'billName'}\n";
print MYMAIL " Address $FORM{'billAddress'}\n";
print MYMAIL " C,S,Z $FORM{'billCity'}, $FORM{'billState'} $FORM{'billZip'}\n";
print MYMAIL " Country $FORM{'billCountry'}\n";
print MYMAIL " Phone $FORM{'billPhone'}\n";

if ($FORM{'billFax'}) {
print MYMAIL " Fax $FORM{'billFax'}\n"; }

if ($FORM{'billEmail'}) {
print MYMAIL " Email $FORM{'billEmail'}\n\n"; }
print MYMAIL " Shipping Address :\n";
print MYMAIL " $separator\n";
print MYMAIL " Name $FORM{'shipName'}\n";
print MYMAIL " Address $FORM{'shipAddress'}\n";
print MYMAIL " C,S,Z $FORM{'shipCity'}, $FORM{'shipState'} $FORM{'shipZip'}\n";
print MYMAIL " Country $FORM{'shipCountry'}\n";
print MYMAIL " Phone $FORM{'shipPhone'}\n";

if ($FORM{'shipFax'}) {
print MYMAIL " Fax $FORM{'shipFax'}\n"; }

if ($FORM{'shipEmail'}) {
print MYMAIL " Email $FORM{'shipEmail'}\n\n"; }
print MYMAIL " Payment & Shipping :\n";
print MYMAIL " $separator\n";
if ($FORM{'sendcheck'} eq "yes&quot

{
print MYMAIL " Paying by Check or Money Order.\n";
} else {
print MYMAIL " $FORM{'cardtype'} for $FORM{'cardholder'}.\n";
print MYMAIL " $FORM{'cardnumber'} Expiration $FORM{'cardmonth'}/$FORM{'cardyear'}.\n";
}
print MYMAIL " Shipping by '$FORM{'shipType'}'.\n\n";
# Format the ordered items in the array for printing
print MYMAIL " Products Ordered :\n";
print MYMAIL " $separator\n";

$qnty_num = 1;
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$value =~ s/<//g;
$value =~ s/>//g;

# increment quantity - product filenmes
$qnty_check = "quantity_";
$qnty_check .= $qnty_num;
$prod_check = "product_";
$prod_check .= "$qnty_num";

# identify quantity value for this increment
if ($name eq "$qnty_check&quot

{

# split the product data for this increment
foreach $pair3 (@pairs) {
($name3, $value3) = split(/=/, $pair3);
$value3 =~ tr/+/ /;
$value3 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value3 =~ s/<([^>]|\n)*>//g;
$value3 =~ s/<//g;
$value3 =~ s/>//g;
if ($name3 eq "$prod_check&quot

{
$product_line = $value3;
}
}

# put quantity and product data in one long string
$order_line = "$value";
$order_line .= "----";
$order_line .= "$product_line";

# split quantity and product into scalars
($quantity,$item,$description,$price) = split (/----/,$order_line);

# get the sub total or zero value for quantity and item
$sub_price3 = ($quantity * $price);
$sub_price3 = sprintf "%.2f", $sub_price3;

$qnty_num++;
$count_price3 += $sub_price3;
$count_quantity3 += $quantity;

1 while $sub_price3 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;

# printing of order list with zero check
unless ($quantity == 0) {
print MYMAIL " $quantity - $item - $description - ($price/each) Total \$ $sub_price3\n";
}

}
}

# calculate sales tax and grand total
$sales_tax3 = ($count_price3 * $unit_tax);
$grand_total3 = ($count_price3 + $total_shipCost);

# format tax and total to 2 decimal places
$count_price3 = sprintf "%.2f", $count_price3;
$grand_total3 = sprintf "%.2f", $grand_total3;
$total_shipCost = sprintf "%.2f", $total_shipCost;

# format the math to commas
1 while $count_price3 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $sales_tax3 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $grand_total3 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $count_quantity3 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $total_shipCost =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;

# totals for this order
print MYMAIL "\n";
print MYMAIL " Total products ordered = $count_quantity3\n";
print MYMAIL " Total price for these products = \$ $count_price3\n";
print MYMAIL " Total shipping for $count_quantity3 product(s) = \$ $total_shipCost\n";
print MYMAIL " Grand Total of this invoice = \$ $grand_total3\n\n";
print MYMAIL " Another Order From The Internet!";
print MYMAIL "\n";
close(MYMAIL);
}

## Send invoice for billing via email
if ($mail eq '1') {
open (MAIL, "|$mailprog -t&quot

|| die "Can't open $mailprog!\n";
print MAIL "From: $recipient ($site_mailname)\n";
print MAIL "To: $FORM{'billEmail'} ($FORM{'billName'})\n";
print MAIL "Subject: $site_mailname invoice # $num\n\n";

# printing to Mail program
print MAIL "\n";
print MAIL " INVOICE NUMBER $num \n\n";
print MAIL " DATE $mon-$mday-$year\n\n";
print MAIL " Customer Address :\n";
print MAIL " $separator\n";
print MAIL " Name $FORM{'billName'}\n";
print MAIL " Address $FORM{'billAddress'}\n";
print MAIL " C,S,Z $FORM{'billCity'}, $FORM{'billState'} $FORM{'billZip'}\n";
print MAIL " Country $FORM{'billCountry'}\n";
print MAIL " Phone $FORM{'billPhone'}\n";

if ($FORM{'billFax'}) {
print MAIL " Fax $FORM{'billFax'}\n"; }

if ($FORM{'billEmail'}) {
print MAIL " Email $FORM{'billEmail'}\n\n"; }
print MAIL " Shipping Address :\n";
print MAIL " $separator\n";
print MAIL " Name $FORM{'shipName'}\n";
print MAIL " Address $FORM{'shipAddress'}\n";
print MAIL " C,S,Z $FORM{'shipCity'}, $FORM{'shipState'} $FORM{'shipZip'}\n";
print MAIL " Country $FORM{'shipCountry'}\n";
print MAIL " Phone $FORM{'shipPhone'}\n";

if ($FORM{'shipFax'}) {
print MAIL " Fax $FORM{'shipFax'}\n"; }

if ($FORM{'shipEmail'}) {
print MAIL " Email $FORM{'shipEmail'}\n\n"; }
print MAIL " Payment & Shipping :\n";
print MAIL " $separator\n";
if ($FORM{'sendcheck'} eq "yes&quot

{
print MAIL " Paying by Check or Money Order.\n";
} else {
print MAIL " $FORM{'cardtype'} for $FORM{'cardholder'}.\n";
print MAIL " $FORM{'cardnumber'} Expiration $FORM{'cardmonth'}/$FORM{'cardyear'}.\n";
}
print MAIL " Shipping by '$FORM{'shipType'}'.\n\n";
# Format the ordered items in the array for printing
print MAIL " Products Ordered :\n";
print MAIL " $separator\n";

$qnty_num = 1;
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$value =~ s/<//g;
$value =~ s/>//g;

# increment quantity - product filenmes
$qnty_check = "quantity_";
$qnty_check .= $qnty_num;
$prod_check = "product_";
$prod_check .= "$qnty_num";

# identify quantity value for this increment
if ($name eq "$qnty_check&quot

{

# split the product data for this increment
foreach $pair4 (@pairs) {
($name4, $value4) = split(/=/, $pair4);
$value4 =~ tr/+/ /;
$value4 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value4 =~ s/<([^>]|\n)*>//g;
$value4 =~ s/<//g;
$value4 =~ s/>//g;
if ($name4 eq "$prod_check&quot

{
$product_line = $value4;
}
}

# put quantity and product data in one long string
$order_line = "$value";
$order_line .= "----";
$order_line .= "$product_line";

# split quantity and product into scalars
($quantity,$item,$description,$price) = split (/----/,$order_line);

# get the sub total or zero value for quantity and item
$sub_price4 = ($quantity * $price);
$sub_price4 = sprintf "%.2f", $sub_price4;

$qnty_num++;
$count_price4 += $sub_price4;
$count_quantity4 += $quantity;

1 while $sub_price4 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;

# printing of order list with zero check
unless ($quantity == 0) {
print MAIL " $quantity - $item - $description - ($price/each) Total \$ $sub_price4\n";
}

}
}

# calculate sales tax and grand total
$sales_tax4 = ($count_price4 * $unit_tax);
$grand_total4 = ($count_price4 + $total_shipCost);

# format tax and total to 2 decimal places
$count_price4 = sprintf "%.2f", $count_price4;
$grand_total4 = sprintf "%.2f", $grand_total4;
$total_shipCost = sprintf "%.2f", $total_shipCost;

# format the math to commas
1 while $count_price4 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $sales_tax4 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $grand_total4 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $count_quantity4 =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
1 while $total_shipCost =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;

# totals for this order
print MAIL "\n";
print MAIL " Total products ordered = $count_quantity4\n";
print MAIL " Total price for these products = \$ $count_price4\n";
print MAIL " Total shipping for $count_quantity4 product(s) = \$ $total_shipCost\n";
print MAIL " Grand Total of this invoice = \$ $grand_total4\n\n";
print MAIL " Thank you for your support in $site_mailname products!";
print MAIL "\n";
close(MAIL);
}

## Open Mail Program To Prepare To Send Client Notification of Order

open (NOTEMAIL, "|$mailprog -t&quot

|| die "Can't open $mailprog!\n";

## Print E-Mail Headers To Email Program

print NOTEMAIL "From: Merchant Host Post Office Server\n";
print NOTEMAIL "To: $client_note_email\n";
print NOTEMAIL "Subject: TAPE ORDER\n\n";

## Print Message To Mail Program

print NOTEMAIL "IMPORTANT NOTICE - CHECK YOUR POST OFFICE FOR A RECENT ORDER!\n";
print NOTEMAIL "$separator\n\n";
print NOTEMAIL "A secure email has been sent to your server Post Office containing sensitive information.\n\n";
print NOTEMAIL "Please login at

https://sitename.com/post,

enter your \n";
print NOTEMAIL "username and password, and retrieve your mail. You may copy and paste to your \n";
print NOTEMAIL "favorite word processing program or print a copy for your records.\n\n";
print NOTEMAIL "Please delete the email after you have retrieved your information.\n\n";
print NOTEMAIL "Thank you for allowing us to be of service.\n\n";

## Close Mail Program

close(NOTEMAIL);
_______________________________________________________

Krel · Jun 2, 2002

You really can't expect us to look through miles of code like that. Try using the following code to capture errors. Put it at the top of your script.

Code:

use CGI::Carp qw(fatalsToBrowser carpout);
BEGIN {
    open(LOG, &quot;>>path/to/an/error/log&quot;) or confess &quot;Can't open error log! $!&quot;;
    carpout(LOG); 
}

Then give us the relvant code and the error message it gives you.

dreams3577 · Jun 2, 2002

Hi, thanks for the piece of code, i put it at the top of each script and pointed it to three different log files and chmod each one 777, and it did not write to them and did not get a error message, the only error that came up was the error 500 that i am trying to figure out,
does anyone have/know of any other pieces of debugging code?
thanks
steve

justice41 · Jun 3, 2002

I can only assume that you posted the entire script, so I don't see where you set $number_path.

It gets used here:

unless (open (NUMBER, "$number_path&quot

) {

without ever being defined. Same with $site_state and some others.

Are these defined in the order00.cfg?

jaa

justice41 · Jun 3, 2002

Also, you should change your die() statements to be more informative.

At the very minimum add $! so you get a reason why the script dies.

jaa

Krel · Jun 3, 2002

- Do you have CGI::Carp installed?
- I put fatalsToBrowser in there, so it should catch compile-time as well as run-time errors and put 'em in the browser.

Your server error log doesn't say anything?

XeNoR · Jun 3, 2002

The browser will return a 500 error if no text is sent to the browser - even if there are no syntax errors.

For example:

if ($asdf == $qwerty)
{
print "Content-type: text/html", "\n\n";
print "<body>fasdfasdf</body>";
}
############
# end code #
############

if $asdf does not equal $qwerty then that code will not be executed. therefore, no text will be sent to the browser. thus, giving 500 error even if there are no syntax errors.

I did not look over your code so im not saying that is the problem. Im just telling you that that could be a possibility.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Error 500

dreams3577

Programmer

Krel

Programmer

dreams3577

Programmer

justice41

Programmer

justice41

Programmer

Krel

Programmer

XeNoR

Programmer

Similar threads

Part and Inventory Search

Sponsor