We have received your order and it will be shipped out immediately.
A copy of the order has also been emailed to you for your records.
~; if ($cart_count) { $thank_you_page .= qq~ Order #$form_data{'ordnum'} ~; } return($thank_you_page); } ############################################################ # Send Mail ############################################################ sub send_mail { my ($from, $to, $subject, $messagebody) = @_; my ($old_path) = $ENV{"PATH"}; $ENV{"PATH"} = ""; $ENV{ENV} = ""; open (MAIL, "|$mail_program") || die ("Could Not Open Mail Program"); $ENV{"PATH"} = $old_path; print MAIL qq~To: $to\n~; print MAIL qq~From: $from\n~; print MAIL qq~Subject: $subject\n\n~; print MAIL qq~$messagebody\n~; close (MAIL); } ############################################################ # Cart Header ############################################################ sub cart_header { my ($cart_header); $cart_header = qq~ ~; if (!($form_data{'confirm_order'})) { $cart_footer .= qq~