#! /usr/local/bin/perl
#Sales (perl) - returns a receipt to the client and
# - E-mails the order to billing & shipping.
$mailprog = '/usr/sbin/sendmail';
$recipient = 'charley@aug.com';
#
print "Content-type: text/html\n\n";
print "Mayday! Mayday! Mayday! Order\n" ;
#
#######
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
#debug print "STDIN = $buffer" ;
@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/~!/ ~!/g;
#debug print "Setting $name to $value";
$FORM{$name} = $value;
}
if ($FORM{'to'}) # check if there is an E-mail address
{ # here if there is a E-mail address (else is at the end of the script)
#debug print "\n Byer is = $FORM{'byer-name'}\n";
if ( $FORM{'byer-name'} eq "" ) #is byer-name blank? then to-name is buyer
{
# debug print "is no byer: $FORM{'byer-name'} \& $FORM{'to-name'} \n";
$FORM{'byer-name'} = $FORM{'to-name'};
}
print "
Thank you $FORM{'byer-name'}.
" ;
print "Send To: $FORM{'to-name'}\n";
print " $FORM{'to-address'}\n";
print " $FORM{'to-city'}, $FORM{'to-state'} $FORM{'to-zip'}
\n";
print "\n\n\n";
print "CREDIT CARD NUMBER
\n";
print "
\n";
print "| $FORM{'cardnumber'} |
\n";
print "\n";
print "| QTY | \n";
print "CLASS | \n";
print "DESCRIPTION | \n";
print "PRICE | \n";
print "AMOUNT | \n";
print "| 1 | \n";
print " | \n";
print "";
print "Mayday! Mayday! Mayday! | \n";
print "\$24.95 | \n";
print "\$24.95 |
\n";
print "| | \n";
print " | \n";
print "Shipping \& Handling | \n";
print "\$2.85 | \n";
$subtotal = 27.80;
print "\$2.85 |
\n";
print "| | \n";
print " | \n";
#debug print "$FORM{'GiftWrap'}\n\n";
if ( $FORM{'GiftWrap'} eq "yes" )
{ $subtotal = $subtotal + 4.00;
print "Gift Wrap | \n";
print "\$4.00 | \n";
print "\$4.00 |
\n";
} else {
print "| | \n";
print " | \n";
print " |
\n";
}
print "| | \n";
print " | \n";
#debug print "$FORM{'Express'}\n\n\n";
if ( $FORM{'Express'} eq "yes" )
{ $subtotal = $subtotal + 3.00;
print "Express Delivery | \n";
print "\$3.00 | \n";
print "\$3.00 |
\n";
} else {
print "| | \n";
print " | \n";
print " |
\n";
}
print "| ";
####################################################################
# need: $today =~ |$date +\%e \%b \%Y;# print "$today" | \n";
print " \n";
print " | \n";
print "SUB TOT | \n";
print "\$$subtotal 0 |
\n";
print "![]() ";
print "![](\"http://www.oldcity.com/~charley/mc.gif\") \n";
print " | TAX | \n";
$tax = ($subtotal * .06) + .005;
#debug print "$tax";
$tax = int ($tax * 100) / 100;
#debug print " $tax\n\n";
print "\n";
print "\$$tax | \n";
print "
| TOTAL | \n";
$total = $subtotal + $tax;
print "\$$total | \n";
print "
\n";
#
# $FORM{''}
#
print "GOOD THRU\n";
print "";
print "| $FORM{'expiremonth'}/$FORM{'expireyear'} |
";
print "
\n"; #
print "WORD PROFESSIONALS
700 047 726
\n";
print "ANNAPOLIS MD
\n";
print "X $FORM{'byer-name'} ($FORM{'to'})
";
########### if $FORM{''}\n";
#
print "The issuer of the card identified on this item is ";
print "authorized to pay the amount shown as TOTAL upon proper ";
print "presentation. I promise to pay such TOTAL (together with any other ";
print "charges due thereon) subject to and in accordance with the ";
print "agreement governing the use of such card. CUSTOMER: ";
print "PRINT AND RETAIN THIS COPY FOR YOUR ";
print "RECORDS \n";
print "" ;
print "Billing to:
$FORM{'byer-name'}
\n";
if ($FORM{'byer-address'} ne "") { print " $FORM{'byer-address'}
\n" };
if ($FORM{'byer-city'} ne "") { print " $FORM{'byer-city'}, " };
if ($FORM{'byer-state'} ne "") { print " $FORM{'byer-state'} " };
if ($FORM{'byer-zip'} ne "") { print " $FORM{'byer-zip'}
\n" };
open (MAIL, "|$mailprog -f $FORM{'to'} ccoleman\@aug.com") || die die ;
print MAIL "From: $FORM{'to'} $FORM{'buyer-name'}\n";
print MAIL "Subject: Internet Order for Mayday!\n";
print MAIL "------------------------------------------------------------\n";
print MAIL "TO: $FORM{'to-name'}\n";
print MAIL " $FORM{'to-address'}\n";
print MAIL " $FORM{'to-city'}, $FORM{'to-state'} $FORM{'to-zip'}
\n";
print MAIL "\n\n\n";
print MAIL "CREDIT CARD NUMBER
\n";
print MAIL "
\n";
print MAIL "| $FORM{'cardnumber'} |
\n";
print MAIL "\n";
print MAIL "| QTY | \n";
print MAIL "CLASS | \n";
print MAIL "DESCRIPTION | \n";
print MAIL "PRICE | \n";
print MAIL "AMOUNT | \n";
print MAIL "| 1 | \n";
print MAIL " | \n";
print MAIL "";
print MAIL "Mayday! Mayday! Mayday! | \n";
print MAIL "\$24.95 | \n";
print MAIL "\$24.95 |
\n";
print MAIL "| | \n";
print MAIL " | \n";
print MAIL "Shipping \& Handling | \n";
print MAIL "\$2.85 | \n";
print MAIL "\$2.85 |
\n";
print MAIL "| | \n";
print MAIL " | \n";
if ( $FORM{'GiftWrap'} eq "yes" )
{
print MAIL "Gift Wrap | \n";
print MAIL "\$4.00 | \n";
print MAIL "\$4.00 |
\n";
} else {
print MAIL "| | \n";
print MAIL " | \n";
print MAIL " |
\n";
}
print MAIL "| | \n";
print MAIL " | \n";
print MAIL "$FORM{'Express'}\n\n\n";
if ( $FORM{'Express'} eq "yes" )
{
print MAIL "Express Delivery | \n";
print MAIL "\$3.00 | \n";
print MAIL "\$3.00 |
\n";
} else {
print MAIL "| | \n";
print MAIL " | \n";
print MAIL " |
\n";
}
print MAIL "| ";
# need: $today =~ |$date +\%e \%b \%Y;# print "$today" | \n";
print MAIL " \n";
print MAIL " | \n";
print MAIL "SUB TOT | \n";
print MAIL "\$$subtotal 0 |
\n";
print MAIL "![]() ";
print MAIL "\n";
print MAIL " | TAX | \n";
print MAIL "\n";
print MAIL "\$$tax | \n";
print MAIL "
| TOTAL | \n";
print MAIL "\$$total | \n";
print MAIL "
\n";
print MAIL "GOOD THRU\n";
print MAIL "";
print MAIL "| $FORM{'expiremonth'}/$FORM{'expireyear'} |
";
print MAIL "
\n"; #
print MAIL "WORD PROFESSIONALS
700 047 726
\n";
print MAIL "ANNAPOLIS MD
\n";
print MAIL "X $FORM{'byer-name'} ($FORM{'to'})
";
print MAIL "The issuer of the card identified on this item is ";
print MAIL "authorized to pay the amount shown as TOTAL upon proper ";
print MAIL "presentation. I promise to pay such TOTAL (together with any other ";
print MAIL "charges due thereon) subject to and in accordance with the ";
print MAIL "agreement governing the use of such card. CUSTOMER: ";
print MAIL "PRINT AND RETAIN THIS COPY FOR YOUR ";
print MAIL "RECORDS
\n";
print MAIL "" ;
print MAIL "Bill to:
$FORM{'byer-name'}
\n";
if ($FORM{'byer-address'} ne "") { print MAIL " $FORM{'byer-address'}
\n" };
if ($FORM{'byer-city'} ne "") { print MAIL " $FORM{'byer-city'}, " };
if ($FORM{'byer-state'} ne "") { print MAIL " $FORM{'byer-state'} " };
if ($FORM{'byer-zip'} ne "") { print MAIL " $FORM{'byer-zip'}
\n" };
print MAIL "\n------------------------------------------------------------\n";
print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
print MAIL "Debugging information = STDIN = $buffer" ;
close (MAIL);
} else { # there is no e-mail address
print " Your E-mail address is required to return to return your receipt. ";
print " Please go back and fill it in.
\n";
open ( logfile, ">>Orderlog");
print( logfile !time, "**ERROR IN ORDER** Form submitted = ", $buffer );
close( logfile)
}
exit(0);