if ($input{'action'} eq 'confirm'){
open (DATABASE,"$ssldatabase");
@DB=<DATABASE>;
foreach $rec (@ODB){
chomp($rec);
($orderno,$name,$email,$tel,$tot,$misc1,$misc2,$misc3,$date,$misc4,$add1,$add2,$add3,$pcode,$ctry,$tran,$misc5,$ip,$expm,$expy,$cardt,$cardn)=split(/\|/,$rec);
if ($orderno eq $input{'orderno'}){

open (MAIL, "|/usr/lib/sendmail -t") || &ErrorMessage("error opening sendmail");

print MAIL "To: $email\n";

#print MAIL "Cc: $cc\n";

print MAIL "From: $from\n";
print MAIL "Subject: $subject $days[$wday], $months[$mon] $mday\n\n";
print MAIL "On $days[$wday], $months[$mon] $mday\n";
print MAIL "-------------------------------------------------------------\n";
print MAIL "-------------------------------------------------------------\n\n";
print MAIL "$name Thank you for your order \n\n";
print MAIL "$message \n\n";

####
# I'll use these later
####
}
}
close (MAIL);
}