# Suite 330, Boston, MA 02111-1307 USA
use strict;
-require Exporter;
+
use CGI;
+use Encode qw(encode);
+
use Mail::Sendmail;
use MIME::QuotedPrint;
use MIME::Base64;
$email_file = $1;
}
- if ( $template_res =~ /<MESSAGE>\n(.*)\n<END_MESSAGE>/s ) { $body = $1; }
+ if ( $template_res =~ /<MESSAGE>\n(.*)\n<END_MESSAGE>/s ) { $body = encode_qp($1); }
my $boundary = "====" . time() . "====";
# # Writing mail
# $mail{body} =
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
- my $isofile = encode_base64($iso2709);
+ my $isofile = encode_base64(encode("UTF-8", $iso2709));
$boundary = '--' . $boundary;
$mail{body} = <<END_OF_BODY;
$boundary
-Content-Type: text/plain; charset="iso-8859-1"
+Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable
+$email_header
$body
$boundary
Content-Type: application/octet-stream; name="basket.iso2709"