use Mail::Sendmail;
use MIME::QuotedPrint;
use MIME::Base64;
-use HTML::FormatText;
use C4::Biblio;
use C4::Items;
use C4::Auth;
To => $email_add,
From => $email_from,
'Reply-To' => $email_replyto,
- 'X-Orig-IP' => $ENV{'REMOTE_ADDR'},
+# 'X-Orig-IP' => $ENV{'REMOTE_ADDR'},
+# FIXME Commented out for now: discussion on privacy issue
'X-Abuse-Report' => C4::Context->preference('KohaAdminEmailAddress'),
);
my $email_header = "";
if ( $template_res =~ /<HEADER>\n(.*)\n?<END_HEADER>/s ) {
- $email_header = $1;
+ $email_header = encode_qp($1);
}
my $email_file = "basket.txt";
}
if ( $template_res =~ /<MESSAGE>\n(.*)\n?<END_MESSAGE>/s ) {
- $body = $1;
+ $body = encode_qp($1);
}
my $boundary = "====" . time() . "====";