CONSIGN MAILOUT ================ $file="/home4/thomas/public_html/ontarioauctioneer/consign/consign.txt"; # open mailout to notify The Auction Advertiser and Auctioneer of record of a Consignment Submission open(BREF,">$file"); $aem=$EMail::email{$au[0]}; #print "STARTING SUBMISSION EMAIL

\n"; print BREF "From: $in{'em'}\n"; print BREF "To: $aem\n"; print BREF "Cc: admin\@ontarioauctioneer.com\n"; print BREF "Subject: $au[0] Consignment Submission\n"; print BREF "MIME-Version: 1.0\n"; print BREF "Content-Type: text/html; charset=us-ascii\n"; print BREF "Content-Transfer-Encoding: 7bit\n"; X X X print BREF "Content-Disposition: inline; filename=\"consign.txt\"\n"; print BREF "Content-Base: https://www.ontarioauctioneer.com/consign/\n"; print BREF "\n"; X X X print BREF "\n"; print BREF "\n"; print BREF "\n"; print BREF "\n"; print BREF "The Auction Advertiser\n"; print BREF "
\n"; print BREF "
\n"; print BREF "A CONSIGNMENT SUBMISSION has been received and archived for you.
\n"; print BREF "It will remain archived for 4 weeks (30 days) unless you choose to delete it sooner.

\n"; print BREF "You can view and print this consignment now by clicking here.

\n"; print BREF "You can review all your archived consignments by clicking here. (Bookmark this link!).

\n"; print BREF "
Thom McLauchlin
The Auction Advertiser
613-885-8466 Voice/Text
\n"; print BREF "

\n"; print BREF "
\n"; close(BREF); #print "ENDING SUBMISSION EMAIL

\n"; $command="/usr/sbin/sendmail -t < $file"; system($command);