Okay...here is what I came up with. I'll try uploading this to my cgi-bin tonight and pray that it works OK. I keyed it to the items that are on my online ordering page (
http://www.raveswear.cc/orderpage.html), so please tell me that I did it right. Here goes:
This was modified from the page you sent me....
# BEGINNING OF PERL SCRIPT --------------------------------------------------------------
#!/usr/bin/perl
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{ @pairs = split(/&/, $ENV{'QUERY_STRING'}) }
elsif ($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);}
local($name, $value);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$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;
$gForm{$name} = $value;}
# You can safely delete any lines below here that say -- print MAIL ": $gForm{''}\n";
open(MAIL, "|/usr/lib/sendmail -t");
print MAIL "To: orders\@raveswear.cc\n";
print MAIL "From: $gForm{'Email'}\n";
print MAIL "Subject: My Rave's Order\n";
print MAIL "--------------------------------------------------------\n";
print MAIL "Name: $gForm{'Name'}\n";
print MAIL "Street: $gForm{'Street'}\n";
print MAIL "Apt#: $gForm{'Apt#'}\n";
print MAIL "City: $gForm{'City'}\n";
print MAIL "State: $gForm{'State'}\n";
print MAIL "BillingZip: $gForm{'BillingZip'}\n";
print MAIL "BillingCountry: $gform{'BillingCountry'}\n;
print MAIL "Item #1: $gForm{'Item1'}\n";
print MAIL "Size #1: $gForm{'Size1'}\n";
print MAIL "Description #1: $gForm{'Description1'}\n";
print MAIL "Color #1: $gForm{'Color1'}\n";
print MAIL "Price #1: $gForm{'Price1'}\n";
print MAIL "Quantity #1: $gForm{'Quantity1'}\n";
print MAIL "Subtotal #1: $gForm{'Subtotal1'}\n";
print MAIL "Item #2: $gForm{'Item2'}\n";
print MAIL "Size #2: $gForm{'Size2'}\n";
print MAIL "Description #2: $gForm{'Description2'}\n";
print MAIL "Color #2: $gForm{'Color2'}\n";
print MAIL "Price #2: $gForm{'Price2'}\n";
print MAIL "Quantity #2: $gForm{'Quantity2'}\n";
print MAIL "Subtotal #2: $gForm{'Subtotal2'}\n";
print MAIL "Item #3: $gForm{'Item3'}\n";
print MAIL "Size #3: $gForm{'Size3'}\n";
print MAIL "Description #3: $gForm{'Description3'}\n";
print MAIL "Color #3: $gForm{'Color3'}\n";
print MAIL "Price #3: $gForm{'Price3'}\n";
print MAIL "Quantity #3: $gForm{'Quantity3'}\n";
print MAIL "Subtotal #3: $gForm{'Subtotal3'}\n";
print MAIL "Item #4: $gForm{'Item4'}\n";
print MAIL "Size #4: $gForm{'Size4'}\n";
print MAIL "Description #4: $gForm{'Description4'}\n";
print MAIL "Color #4: $gForm{'Color4'}\n";
print MAIL "Price #4: $gForm{'Price4'}\n";
print MAIL "Quantity #4: $gForm{'Quantity4'}\n";
print MAIL "Subtotal #4: $gForm{'Subtotal4'}\n";
print MAIL "Item #5: $gForm{'Item5'}\n";
print MAIL "Size #5: $gForm{'Size5'}\n";
print MAIL "Description #5: $gForm{'Description5'}\n";
print MAIL "Color #5: $gForm{'Color5'}\n";
print MAIL "Price #5: $gForm{'Price5'}\n";
print MAIL "Quantity #5: $gForm{'Quantity5'}\n";
print MAIL "Subtotal #5: $gForm{'Subtotal5'}\n";
print MAIL "Item #6: $gForm{'Item6'}\n";
print MAIL "Size #6: $gForm{'Size6'}\n";
print MAIL "Description #6: $gForm{'Description6'}\n";
print MAIL "Color #6: $gForm{'Color6'}\n";
print MAIL "Price #6: $gForm{'Price6'}\n";
print MAIL "Quantity #6: $gForm{'Quantity6'}\n";
print MAIL "Subtotal #6: $gForm{'Subtotal6'}\n";
print MAIL "Item #7: $gForm{'Item7'}\n";
print MAIL "Size #7: $gForm{'Size7'}\n";
print MAIL "Description #7: $gForm{'Description7'}\n";
print MAIL "Color #7: $gForm{'Color7'}\n";
print MAIL "Price #7: $gForm{'Price7'}\n";
print MAIL "Quantity #7: $gForm{'Quantity7'}\n";
print MAIL "Subtotal #7: $gForm{'Subtotal7'}\n";
print MAIL "Item #8: $gForm{'Item8'}\n";
print MAIL "Size #8: $gForm{'Size8'}\n";
print MAIL "Description #8: $gForm{'Description8'}\n";
print MAIL "Color #8: $gForm{'Color8'}\n";
print MAIL "Price #8: $gForm{'Price8'}\n";
print MAIL "Quantity #8: $gForm{'Quantity8'}\n";
print MAIL "Subtotal #8: $gForm{'Subtotal8'}\n";
print MAIL "Item #9: $gForm{'Item9'}\n";
print MAIL "Size #9: $gForm{'Size9'}\n";
print MAIL "Description #9: $gForm{'Description9'}\n";
print MAIL "Color #9: $gForm{'Color9'}\n";
print MAIL "Price #9: $gForm{'Price9'}\n";
print MAIL "Quantity #9: $gForm{'Quantity9'}\n";
print MAIL "Subtotal #9: $gForm{'Subtotal9'}\n";
print MAIL "Item #10: $gForm{'Item10'}\n";
print MAIL "Size #10: $gForm{'Size10'}\n";
print MAIL "Description #10: $gForm{'Description10'}\n";
print MAIL "Color #10: $gForm{'Color10'}\n";
print MAIL "Price #10: $gForm{'Price10'}\n";
print MAIL "Quantity #10: $gForm{'Quantity10'}\n";
print MAIL "Subtotal #10: $gForm{'Subtotal10'}\n";
print MAIL "Total Amount Due: $gForm{'TotalAmountDue'}\n";
print MAIL "Credit Card Type: $gForm{'CreditCardType'}\n";
print MAIL "Credit Card Number: $gForm{'CreditCardNumber'}\n";
print MAIL "Expiration Date: $gForm{'ExpirationDate'}\n";
print MAIL "Messages: $gForm{'Messages'}\n";
close (MAIL);
print "location:
http://www.raveswear.cc/thankyou.html\n\n"; #End OF PERL SCRIPT
Oh..please please please tell me this will work
'Tis my first attempt at writing scripts
:whip
Thanks!
SQ
