more useful options | |
PerlMonks |
Re: UTF-8 Email Formby Polyglot (Chaplain) |
on Mar 18, 2018 at 16:10 UTC ( [id://1211191]=note: print w/replies, xml ) | Need Help?? |
The ubiquitous "sendmail" handles UTF8 just fine. A very simple subroutine I have used to handle a specific form in Thai is presented below. (NOTE: It appears that perlmonks.org converts all UTF8 characters to HTML-entitites, even in <code></code> blocks, which is not the way I used it, so I have had to format my code in HTML style for proper readability.)
sub emailFormResults { # Email the form results open ( MAIL, "| /usr/lib/sendmail -t" ); #open ( MAIL, "| /usr/lib/sendmail", "-oi", "-t"); print MAIL "From: $sending_email_address\n"; print MAIL "To: $recipient_address\n"; print MAIL "BCC: $bcc_address\n"; print MAIL "Subject: $message_subject\n\n"; print MAIL <<END_OF_MESSAGE; 1. Personal Information / ข้อมูลส่วนตัว * National ID / หมายเลขประจำตัว(ตามบัตรประจำตัวประชาชน): $national_id * Title (นาย/นางสาว/นาง/ยศ): $title * Full Name / ชื่อ-สกุล: $fullname * Maiden Name / ชื่อ-สกุลเดิม(ถ้ามี): $maiden_name * Birthday / วดป.เกิด: $birthday * Current Address / ที่อยู่ปัจจุบัน บ้านเลขที่: $current_address * Home Phone / หมายเลขโทรศัพท์บ้าน: $home_phone * Cell Phone / มือถือ: $cell_phone * Email: $email_address * LINE Id: $line_id * Facebook: $facebook 2. Occupational Information / ข้อมูลการประกอบอาชีพ ปัจจุบันประกอบอาชีพ: $occupation * Position / ตำแหน่ง: $position * Company / ชื่อ สถานที่ทำงาน: $company * Salary / รายได้ต่อเดือน: $salary บาท ฝากข้อความ: $comments END_OF_MESSAGE print MAIL "\n.\n"; close ( MAIL ); } # END SUB emailFormResults Note that the form itself should be set to accept only UTF-8, and the HTML for the page should be properly set as well. I have used the following pieces successfully. print <<HTML; <html lang="th"> <head> <meta http-equiv="content-type" content="text/html;charset=utf-8"> <title>ใบสมัครสมาชิก</title> . . . </head> <body> <form name="myform" id="myform" action="$0" method="post" accept-charset="UTF-8"> HTML Blessings, ~Polyglot~
In Section
Seekers of Perl Wisdom
|
|