NOP Design

NOP Design Free Software Support Forum

Skip to content

Outlook Express Customer Email sent to deleted file????

Get help with nopcart Perl, PHP or ASP checkout related issues.

Moderators: Koibito, Stefko, Randy

Post a reply

Outlook Express Customer Email sent to deleted file????

Postby melp » Sat Apr 14, 2007 7:36 am

Hi, I have currently have two websites going. One is the original NopCart, and the other I am using NopCart from Kamya for paypal. Everything was working fine, I received both emails for me and from the customer and it gets sent to the CSV file, it also gets passed to paypal. But now the customers email is getting sent straight to the deleted file in outlook express.

Just wondering if anyone else has had this problem, or if someone knows what is causing this. It says I have received two new messages, but only one is getting sent to the inbox, the other is sent straight to the deleted items. I changed my email address for a hotmail one and that works fine, but I really want to use my outlook express accounts.

Here is my website for Kamya's version of nopcart: http://www.mgpwebdesigns.com
nopcart js file: http://www.mgpwebdesigns.com/nopcart.js

Here is me checkout.pl file

Code: Select all
#!/usr/bin/perl

require 5.001;

$header        = "header.html";
$footer        = "footer.html";
$mailprogram   = "/usr/sbin/sendmail -t";
$returnpage    = "http://www.mgpwebdesigns.com/";
$youremail     = "melp\@netspace.net.au";
$csvfilename   = "orders.csv";
$csvquote      = "\"\"";
$mode          = "BOTH";

@required = (
'b_first',
'b_last',
'b_addr',
'b_city',
'b_state',
'b_zip',
#'b_phone',
'b_email'
);

##############################################################
#FUNCTION:   urlDecode                                       #
#RETURNS:    The decoded string.                             #
#PARAMETERS: An encoded string.                              #
##############################################################
sub urlDecode {
    my ($string) = @_;
    $string =~ tr/+/ /;
    $string =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex($1))/eg;
    $string =~ s/['"]/\'/g;
    return ($string);
}

##############################################################
#FUNCTION:   processCGI                                      #
#RETURNS:                                                    #
#PARAMETERS:                                                 #
##############################################################
sub processCGI {
    local ($cgiData, $key, $value, $pair, @pairs);

   if ($ENV{'REQUEST_METHOD'} eq 'GET') { $cgiData = $ENV{'QUERY_STRING'}; }
   else { $cgiData = <STDIN>; }
   @pairs = split (/&/, $cgiData);
   foreach $pair (@pairs) {
      ($key, $value) = split (/\=/, $pair);
      $key   = &urlDecode($key);
      $value = &urlDecode($value);
      if(defined ${$key}){
         ${$key} .= ", ".$value;
      }else{
         ${$key} = $value;
      }
   }
}

##############################################################
#FUNCTION:   doFormError                                     #
#RETURNS:                                                    #
#PARAMETERS: A error message string.                         #
##############################################################
sub doFormError {
    my ($errString) = @_;

    open (HEAD, $header);
    @LINES = <HEAD>;
    close HEAD;

    print "Content-type: text/html\n\n";

    print @LINES;

    print "<H3>The form you submitted was not complete.</H3>";
    print "$errString<BR><BR>\n";
    print "<INPUT TYPE=BUTTON ONCLICK='history.back()' VALUE='  Return to the checkout page '><HR>";

    open (FOOT, $footer);
    @LINES = <FOOT>;
    close FOOT;
    print @LINES;

    exit;
}

##############################################################
#FUNCTION:   doError                                         #
#RETURNS:                                                    #
#PARAMETERS: A error message string.                         #
##############################################################
sub doError {
    my ($errString) = @_;
    print "Content-type: text/html\n\n";

    open (HEAD, $header);
    @LINES = <HEAD>;
    close HEAD;

    print @LINES;

    print "$errString<BR><BR>\n";

    open (FOOT, $footer);
    @LINES = <FOOT>;
    close FOOT;
    print @LINES;

    exit;
}

##############################################################
#FUNCTION:   invalidE                                        #
#RETURNS:    1 if invalid, 0 if valid.                       #
#PARAMETERS: An email address variable.                      #
##############################################################
sub invalidE {
  my ($szEmail) = @_;
  my ($user, $host);

  $szEmail =~ tr/A-Z/a-z/;
  if ($szEmail =~ /\s/) { return 1; }
  ($user, $host) = split (/\@/, $szEmail);
  if ($host =~ /compuserve/i) { ; }
  else {
    if (! $user =~ /\D/) { return 1; }
    if (! $host =~ /\D/) { return 1; }
    if (substr ($user,0,1) !~ /[a-z]/) { return 1; }
  }
  if ($szEmail =~ /\w+\@[\w|\.]/) { return 0; }
  else { return 1; }
}


sub populateDateVar {
   @months = ();
   push(@months,"January");
   push(@months,"February");
   push(@months,"March");
   push(@months,"April");
   push(@months,"May");
   push(@months,"June");
   push(@months,"July");
   push(@months,"August");
   push(@months,"September");
   push(@months,"October");
   push(@months,"November");
   push(@months,"December");
   @days = ();
   push(@days,"Sunday");
   push(@days,"Monday");
   push(@days,"Tuesday");
   push(@days,"Wednesday");
   push(@days,"Thursday");
   push(@days,"Friday");
   push(@days,"Saturday");
   ($sec,$min,$hour,$day,$month,$year,$day2) =
   (localtime(time))[0,1,2,3,4,5,6];
   if ($sec < 10) { $sec = "0$sec"; }
   if ($min < 10) { $min = "0$min"; }
   if ($hour < 10) { $hour = "0$hour"; }
   if ($day < 10) { $day = "0$day"; }
   $year += "1900";

   #$todaysdate = "$months[$month] $day, $year $hour:$min:$sec";
}

################
###  MAIN    ###
################

# process the form input.
&processCGI;
&populateDateVar;

foreach $check(@required) {
   unless ($check) {
      doFormError("It appears that you forgot to fill in the <strong>$check</strong> field.");
      exit;
   }
}

# checks for valid email address
if( &invalidE($b_email) ){
   doFormError('You submitted an invalid email address.');
}


if( $mode eq "BOTH" || $mode eq "EMAIL") {
   # Send email order to you...
   open (MAIL,"|$mailprogram");
   print MAIL "To: $youremail\n";
   print MAIL "From: $b_email\n";
   print MAIL "Subject: MGP Web Design - New Online Order\n";
   print MAIL "\n\n";
   print MAIL "A new order has been received.  A summary of this order appears below.\n";
   print MAIL "\n";
   print MAIL "Order Date: $months[$month] $day, $year $hour:$min:$sec \n";
   print MAIL " \n";
# added
   print MAIL "Order Number: $month$day$year$hour$min \n";
   print MAIL " \n";
# end added
   print MAIL "Bill To: \n";
   print MAIL "-------- \n";
   print MAIL "   $b_first $b_last \n";
   print MAIL "   $b_addr \n";
   print MAIL "   $b_addr2 \n";
   print MAIL "   $b_city, $b_state  $b_zip \n";
   print MAIL "   $b_fax \n";
   print MAIL "   $b_phone \n";
   print MAIL "   $b_email \n";
   print MAIL " \n";
   print MAIL " \n";
   print MAIL "Ship To: \n";
   print MAIL "-------- \n";
   print MAIL "   $a_bride $s_last \n";
   print MAIL "   $s_addr \n";
   print MAIL "   $s_addr2 \n";
   print MAIL "   $s_city, $s_state  $s_zip \n";
   print MAIL "   $s_phone \n";
   print MAIL " \n";
   print MAIL " \n";
   print MAIL "Qty  Price(\$)   Prod ID  - Product Name\n";
   print MAIL "===================================================================== \n";
   print MAIL "$QUANTITY_1    \$$PRICE_1    $ID_1 - $NAME_1   $ADDTLINFO_1  \n";
   if( $NAME_2 ) {print MAIL "$QUANTITY_2    \$$PRICE_2    $ID_2 - $NAME_2   $ADDTLINFO_2  \n";}
   if( $NAME_3 ) {print MAIL "$QUANTITY_3    \$$PRICE_3    $ID_3 - $NAME_3   $ADDTLINFO_3  \n";}
   if( $NAME_4 ) {print MAIL "$QUANTITY_4    \$$PRICE_4    $ID_4 - $NAME_4   $ADDTLINFO_4  \n";}
   if( $NAME_5 ) {print MAIL "$QUANTITY_5    \$$PRICE_5    $ID_5 - $NAME_5   $ADDTLINFO_5  \n";}
   if( $NAME_6 ) {print MAIL "$QUANTITY_6    \$$PRICE_6    $ID_6 - $NAME_6   $ADDTLINFO_6  \n";}
   if( $NAME_7 ) {print MAIL "$QUANTITY_7    \$$PRICE_7    $ID_7 - $NAME_7   $ADDTLINFO_7  \n";}
   if( $NAME_8 ) {print MAIL "$QUANTITY_8    \$$PRICE_8    $ID_8 - $NAME_8   $ADDTLINFO_8  \n";}
   if( $NAME_9 ) {print MAIL "$QUANTITY_9    \$$PRICE_9    $ID_9 - $NAME_9   $ADDTLINFO_9  \n";}
   if( $NAME_10 ){print MAIL "$QUANTITY_10    \$$PRICE_10    $ID_10 - $NAME_10   $ADDTLINFO_10 \n";}
   if( $NAME_11 ){print MAIL "$QUANTITY_11    \$$PRICE_11    $ID_11 - $NAME_11   $ADDTLINFO_11 \n";}
   if( $NAME_12 ){print MAIL "$QUANTITY_12    \$$PRICE_12    $ID_12 - $NAME_12   $ADDTLINFO_12 \n";}
   if( $NAME_13 ){print MAIL "$QUANTITY_13    \$$PRICE_13    $ID_13 - $NAME_13   $ADDTLINFO_13 \n";}
   if( $NAME_14 ){print MAIL "$QUANTITY_14    \$$PRICE_14    $ID_14 - $NAME_14   $ADDTLINFO_14 \n";}
   if( $NAME_15 ){print MAIL "$QUANTITY_15    \$$PRICE_15    $ID_15 - $NAME_15   $ADDTLINFO_15 \n";}
   if( $NAME_16 ){print MAIL "$QUANTITY_16    \$$PRICE_16    $ID_16 - $NAME_16   $ADDTLINFO_16 \n";}
   if( $NAME_17 ){print MAIL "$QUANTITY_17    \$$PRICE_17    $ID_17 - $NAME_17   $ADDTLINFO_17 \n";}
   if( $NAME_18 ){print MAIL "$QUANTITY_18    \$$PRICE_18    $ID_18 - $NAME_18   $ADDTLINFO_18 \n";}
   if( $NAME_19 ){print MAIL "$QUANTITY_19    \$$PRICE_19    $ID_19 - $NAME_19   $ADDTLINFO_19 \n";}
   if( $NAME_20 ){print MAIL "$QUANTITY_20    \$$PRICE_20    $ID_20 - $NAME_20   $ADDTLINFO_20 \n";}
   if( $NAME_21 ){print MAIL "$QUANTITY_21    \$$PRICE_21    $ID_21 - $NAME_21   $ADDTLINFO_21 \n";}
   if( $NAME_22 ){print MAIL "$QUANTITY_22    \$$PRICE_22    $ID_22 - $NAME_22   $ADDTLINFO_22 \n";}
   if( $NAME_23 ){print MAIL "$QUANTITY_23    \$$PRICE_23    $ID_23 - $NAME_23   $ADDTLINFO_23 \n";}
   if( $NAME_24 ){print MAIL "$QUANTITY_24    \$$PRICE_24    $ID_24 - $NAME_24   $ADDTLINFO_24 \n";}
   if( $NAME_25 ){print MAIL "$QUANTITY_25    \$$PRICE_25    $ID_25 - $NAME_25   $ADDTLINFO_25 \n";}
   print MAIL "===================================================================== \n";
   print MAIL "SUBTOTAL: $SUBTOTAL \n";
   print MAIL "SHIPPING: $SHIPPING \n";
   print MAIL "TAX: $TAX \n";
   print MAIL "TOTAL: $TOTAL \n";
   print MAIL "\n";
#   print MAIL "FREIGHT: $SHIPPING \n";
#   print MAIL "\n\n";
#   print MAIL "$Method \n";
   print MAIL "$USPS \n";
   print MAIL "\n";
   print MAIL "$payment_method \n";
   print MAIL "\n\n";
   print MAIL "Comments: \n";
   print MAIL "--------- \n";
   print MAIL "$comment \n";
#   print MAIL "\n\n";
#   print MAIL "Make cheques payable to Melanie Pracas, 14 Bethel Corner, Halls Head, Western Australia 6210. \n";
   print MAIL " \n";
   close MAIL;
}


if( $mode eq "BOTH" || $mode eq "FILE") {

   $csvcomments = $comment;
   #$csvcomments =~ s/\"/$csvquote/ig;

   open (CSVF,">>$csvfilename");
   print CSVF "\"";
   print CSVF "$months[$month] $day, $year $hour:$min:$sec";
   print CSVF "\",\"";
   print CSVF "$month$day$year$hour$min";
   print CSVF "\",\"";
   print CSVF "$b_first";
   print CSVF "\",\"";
   print CSVF "$b_last";
   print CSVF "\",\"";
   print CSVF "$b_addr";
   print CSVF "\",\"";
   print CSVF "$b_addr2";
   print CSVF "\",\"";
   print CSVF "$b_city";
   print CSVF "\",\"";
   print CSVF "$b_state";
   print CSVF "\",\"";
   print CSVF "$b_zip";
   print CSVF "\",\"";
   print CSVF "$b_fax";
   print CSVF "\",\"";
   print CSVF "$b_phone";
   print CSVF "\",\"";
   print CSVF "$b_email";
   print CSVF "\",\"";
   print CSVF "$a_bride";
   print CSVF "\",\"";
   print CSVF "$s_last";
   print CSVF "\",\"";
   print CSVF "$s_addr";
   print CSVF "\",\"";
   print CSVF "$s_addr2";
   print CSVF "\",\"";
   print CSVF "$s_city";
   print CSVF "\",\"";
   print CSVF "$s_state";
   print CSVF "\",\"";
   print CSVF "$s_zip";
   print CSVF "\",\"";
   print CSVF "$s_phone";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_1";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_1";
   print CSVF "\",\"";
   print CSVF "$ID_1";
   print CSVF "\",\"";
   print CSVF "$NAME_1";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_1";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_2";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_2";
   print CSVF "\",\"";
   print CSVF "$ID_2";
   print CSVF "\",\"";
   print CSVF "$NAME_2";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_2";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_3";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_3";
   print CSVF "\",\"";
   print CSVF "$ID_3";
   print CSVF "\",\"";
   print CSVF "$NAME_3";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_3";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_4";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_4";
   print CSVF "\",\"";
   print CSVF "$ID_4";
   print CSVF "\",\"";
   print CSVF "$NAME_4";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_4";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_5";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_5";
   print CSVF "\",\"";
   print CSVF "$ID_5";
   print CSVF "\",\"";
   print CSVF "$NAME_5";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_5";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_6";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_6";
   print CSVF "\",\"";
   print CSVF "$ID_6";
   print CSVF "\",\"";
   print CSVF "$NAME_6";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_6";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_7";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_7";
   print CSVF "\",\"";
   print CSVF "$ID_7";
   print CSVF "\",\"";
   print CSVF "$NAME_7";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_7";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_8";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_8";
   print CSVF "\",\"";
   print CSVF "$ID_8";
   print CSVF "\",\"";
   print CSVF "$NAME_8";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_8";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_9";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_9";
   print CSVF "\",\"";
   print CSVF "$ID_9";
   print CSVF "\",\"";
   print CSVF "$NAME_9";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_9";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_10";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_10";
   print CSVF "\",\"";
   print CSVF "$ID_10";
   print CSVF "\",\"";
   print CSVF "$NAME_10";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_10";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_11";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_11";
   print CSVF "\",\"";
   print CSVF "$ID_11";
   print CSVF "\",\"";
   print CSVF "$NAME_11";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_11";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_12";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_12";
   print CSVF "\",\"";
   print CSVF "$ID_12";
   print CSVF "\",\"";
   print CSVF "$NAME_12";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_12";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_13";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_13";
   print CSVF "\",\"";
   print CSVF "$ID_13";
   print CSVF "\",\"";
   print CSVF "$NAME_13";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_13";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_14";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_14";
   print CSVF "\",\"";
   print CSVF "$ID_14";
   print CSVF "\",\"";
   print CSVF "$NAME_14";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_14";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_15";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_15";
   print CSVF "\",\"";
   print CSVF "$ID_15";
   print CSVF "\",\"";
   print CSVF "$NAME_15";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_15";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_16";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_16";
   print CSVF "\",\"";
   print CSVF "$ID_16";
   print CSVF "\",\"";
   print CSVF "$NAME_16";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_16";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_17";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_17";
   print CSVF "\",\"";
   print CSVF "$ID_17";
   print CSVF "\",\"";
   print CSVF "$NAME_17";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_17";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_18";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_18";
   print CSVF "\",\"";
   print CSVF "$ID_18";
   print CSVF "\",\"";
   print CSVF "$NAME_18";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_18";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_19";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_19";
   print CSVF "\",\"";
   print CSVF "$ID_19";
   print CSVF "\",\"";
   print CSVF "$NAME_19";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_19";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_20";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_20";
   print CSVF "\",\"";
   print CSVF "$ID_20";
   print CSVF "\",\"";
   print CSVF "$NAME_20";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_20";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_21";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_21";
   print CSVF "\",\"";
   print CSVF "$ID_21";
   print CSVF "\",\"";
   print CSVF "$NAME_21";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_21";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_22";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_22";
   print CSVF "\",\"";
   print CSVF "$ID_22";
   print CSVF "\",\"";
   print CSVF "$NAME_22";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_22";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_23";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_23";
   print CSVF "\",\"";
   print CSVF "$ID_23";
   print CSVF "\",\"";
   print CSVF "$NAME_23";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_23";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_24";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_24";
   print CSVF "\",\"";
   print CSVF "$ID_24";
   print CSVF "\",\"";
   print CSVF "$NAME_24";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_24";
   print CSVF "\",\"";
   print CSVF "$QUANTITY_25";
   print CSVF "\",\"";
   print CSVF "\$$PRICE_25";
   print CSVF "\",\"";
   print CSVF "$ID_25";
   print CSVF "\",\"";
   print CSVF "$NAME_25";
   print CSVF "\",\"";
   print CSVF "$ADDTLINFO_25";
   print CSVF "\",\"";
   print CSVF "$SUBTOTAL";
   print CSVF "\",\"";
   print CSVF "$SHIPPING";
   print CSVF "\",\"";
   print CSVF "$TAX";
   print CSVF "\",\"";
   print CSVF "$TOTAL";
   print CSVF "\",\"";
#   print CSVF "$SHIPPING";
#   print CSVF "\",\"";
   print CSVF "$Method";
   print CSVF "$payment_method";
   print CSVF "\",\"";
   print CSVF "$comment";
   print CSVF "\"\n";
   close CSVF;
}

# Send email conformation to the customer.....
open (MAIL,"|$mailprogram");
print MAIL "To: $b_email\n";
print MAIL "From: $youremail\n";
print MAIL "Subject: MGP Webdesigns - Order Confirmation\n";
print MAIL "\n\n";
print MAIL "Thank you for your order. A summary of your order appears below.\n";
print MAIL "\n";
print MAIL "Order Date: $months[$month] $day, $year $hour:$min:$sec \n";
print MAIL " \n";
# added
print MAIL "Order Number: $month$day$year$hour$min \n";
print MAIL " \n";
# end added
print MAIL "Bill To: \n";
print MAIL "-------- \n";
print MAIL "   $b_first $b_last \n";
print MAIL "   $b_addr \n";
print MAIL "   $b_addr2 \n";
print MAIL "   $b_city, $b_state  $b_zip \n";
print MAIL "   $b_fax \n";
print MAIL "   $b_phone \n";
print MAIL "   $b_email \n";
print MAIL " \n";
print MAIL " \n";
print MAIL "Ship To: \n";
print MAIL "-------- \n";

if ( $s_addr eq "" ) {
   print MAIL "   Use Billing Address\n";
} else {
   print MAIL "   $a_bride $s_last \n";
   print MAIL "   $s_addr \n";
   print MAIL "   $s_addr2 \n";
   print MAIL "   $s_city, $s_state  $s_zip \n";
   print MAIL "   $s_phone \n";
}

print MAIL " \n";
print MAIL " \n";
print MAIL "Qty  Price(\$)   Prod ID  - Product Name\n";
print MAIL "===================================================================== \n";
print MAIL "$QUANTITY_1    \$$PRICE_1    $ID_1 - $NAME_1   $ADDTLINFO_1  \n";
if( $NAME_2 ) {print MAIL "$QUANTITY_2    \$$PRICE_2    $ID_2 - $NAME_2   $ADDTLINFO_2  \n";}
if( $NAME_3 ) {print MAIL "$QUANTITY_3    \$$PRICE_3    $ID_3 - $NAME_3   $ADDTLINFO_3  \n";}
if( $NAME_4 ) {print MAIL "$QUANTITY_4    \$$PRICE_4    $ID_4 - $NAME_4   $ADDTLINFO_4  \n";}
if( $NAME_5 ) {print MAIL "$QUANTITY_5    \$$PRICE_5    $ID_5 - $NAME_5   $ADDTLINFO_5  \n";}
if( $NAME_6 ) {print MAIL "$QUANTITY_6    \$$PRICE_6    $ID_6 - $NAME_6   $ADDTLINFO_6  \n";}
if( $NAME_7 ) {print MAIL "$QUANTITY_7    \$$PRICE_7    $ID_7 - $NAME_7   $ADDTLINFO_7  \n";}
if( $NAME_8 ) {print MAIL "$QUANTITY_8    \$$PRICE_8    $ID_8 - $NAME_8   $ADDTLINFO_8  \n";}
if( $NAME_9 ) {print MAIL "$QUANTITY_9    \$$PRICE_9    $ID_9 - $NAME_9   $ADDTLINFO_9  \n";}
if( $NAME_10 ){print MAIL "$QUANTITY_10    \$$PRICE_10    $ID_10 - $NAME_10   $ADDTLINFO_10 \n";}
if( $NAME_11 ){print MAIL "$QUANTITY_11    \$$PRICE_11    $ID_11 - $NAME_11   $ADDTLINFO_11 \n";}
if( $NAME_12 ){print MAIL "$QUANTITY_12    \$$PRICE_12    $ID_12 - $NAME_12   $ADDTLINFO_12 \n";}
if( $NAME_13 ){print MAIL "$QUANTITY_13    \$$PRICE_13    $ID_13 - $NAME_13   $ADDTLINFO_13 \n";}
if( $NAME_14 ){print MAIL "$QUANTITY_14    \$$PRICE_14    $ID_14 - $NAME_14   $ADDTLINFO_14 \n";}
if( $NAME_15 ){print MAIL "$QUANTITY_15    \$$PRICE_15    $ID_15 - $NAME_15   $ADDTLINFO_15 \n";}
if( $NAME_16 ){print MAIL "$QUANTITY_16    \$$PRICE_16    $ID_16 - $NAME_16   $ADDTLINFO_16 \n";}
if( $NAME_17 ){print MAIL "$QUANTITY_17    \$$PRICE_17    $ID_17 - $NAME_17   $ADDTLINFO_17 \n";}
if( $NAME_18 ){print MAIL "$QUANTITY_18    \$$PRICE_18    $ID_18 - $NAME_18   $ADDTLINFO_18 \n";}
if( $NAME_19 ){print MAIL "$QUANTITY_19    \$$PRICE_19    $ID_19 - $NAME_19   $ADDTLINFO_19 \n";}
if( $NAME_20 ){print MAIL "$QUANTITY_20    \$$PRICE_20    $ID_20 - $NAME_20   $ADDTLINFO_20 \n";}
if( $NAME_21 ){print MAIL "$QUANTITY_21    \$$PRICE_21    $ID_21 - $NAME_21   $ADDTLINFO_21 \n";}
if( $NAME_22 ){print MAIL "$QUANTITY_22    \$$PRICE_22    $ID_22 - $NAME_22   $ADDTLINFO_22 \n";}
if( $NAME_23 ){print MAIL "$QUANTITY_23    \$$PRICE_23    $ID_23 - $NAME_23   $ADDTLINFO_23 \n";}
if( $NAME_24 ){print MAIL "$QUANTITY_24    \$$PRICE_24    $ID_24 - $NAME_24   $ADDTLINFO_24 \n";}
if( $NAME_25 ){print MAIL "$QUANTITY_25    \$$PRICE_25    $ID_25 - $NAME_25   $ADDTLINFO_25 \n";}
print MAIL "===================================================================== \n";
print MAIL "SUBTOTAL: $SUBTOTAL \n";
print MAIL "SHIPPING: $SHIPPING \n";
print MAIL "TAX: $TAX \n";
print MAIL "TOTAL: $TOTAL \n";
print MAIL "\n";
#print MAIL "FREIGHT: $SHIPPING \n";
#print MAIL "\n\n";
#print MAIL "$Method \n";
print MAIL "$USPS \n";
print MAIL "\n";
print MAIL "$payment_method \n";
print MAIL "\n\n";
print MAIL "Comments: \n";
print MAIL "--------- \n";
print MAIL "$comment \n";
print MAIL "\n\n";
print MAIL "Make cheques payable to Melanie Pracas, 14 Bethel Corner, Halls Head, Western Australia 6210. \n";
print MAIL "\n";
print MAIL "Please contact us at $youremail if you have any questions or concerns. \n";
print MAIL " \n";
close MAIL;

print "Content-type: text/html\n\n";

open (HEAD, $header);
@LINES = <HEAD>;
close HEAD;
print @LINES;

print "&nbsp;<br /><table width=\"500\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\"><tr><td><font size=\"2\">";
print "Please contact us at $youremail if you have any questions or concerns.<br>";
print "<a href=\"$returnpage\" target=_top>Return Home</a>";
print "</font></td></tr></table>";

open (FOOT, $footer);
@LINES = <FOOT>;
close FOOT;

print @LINES;

exit;


Any help will be greatly appreciated.

Thank you
Melanie
melp
 
Posts: 5
Joined: Mon Feb 12, 2007 3:32 am
Top

Postby Koibito » Sat Apr 14, 2007 11:12 am

Hi Melanie,

I really like the way you did the "Post Options", especially the four international categories. I wanted to do something like that for Kamya, but the system for international postal rates our USPS uses is too complicated. Apparently, Australian Post has a simpler system.

We never had problems with customers not receiving e-mails because of Outlook's spam filters. I don't know that much about Outlook, but apparently it is looking at the headers of the e-mail to see if the message looks like spam. Your Sendmail program will add something to the e-mail headers too, and that might trigger Outlook's anti-spam mechanism. Could you post the header of some of a deleted e-mail here?
John
Koibito
Site Admin / Guru
 
Posts: 918
Joined: Sun May 28, 2006 1:59 am
Location: New Jersey, USA
Top

Postby melp » Sat Apr 14, 2007 1:18 pm

Thanks for your reply John.

With Australia Post they have set prices for the four international categories based on the weight, so it was quite easy. Domestic shipping was actually harder to figure out then international!

My sendmail isn't adding anything to the header. The subject on the header for the email I receive is: MGP Webdesigns - Order Confirmation. The subject on the header that gets sent to the deleted file is: MGP Web Design - New Online Order. So there is not much difference.

I've never had a problem with emails getting sent to the deleted file before. I am still receiving emails to my inbox. Any suggestions??

Melanie
melp
 
Posts: 5
Joined: Mon Feb 12, 2007 3:32 am
Top

Postby melp » Sat Apr 14, 2007 2:10 pm

Well I figured it out, for some reason my email address was on my blocked senders list, don't know how that happened! Good to know that it wasn't something i did wrong with my nopcart. Something so simple but it took me hours to figure out!!!
melp
 
Posts: 5
Joined: Mon Feb 12, 2007 3:32 am
Top
Post a reply

Return to Help: Perl/PHP/ASP Checkout

Who is online

Users browsing this forum: No registered users and 0 guests

Powered by phpBB® Forum Software © phpBB Group