|
Lines 133-139
if ( $email_add ) {
Link Here
|
| 133 |
if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) { |
133 |
if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) { |
| 134 |
$body = $1; |
134 |
$body = $1; |
| 135 |
$body =~ s|\n?(.*)\n?|$1|; |
135 |
$body =~ s|\n?(.*)\n?|$1|; |
| 136 |
$body = encode("UTF-8", encode_qp($body)); |
136 |
$body = encode_qp(Encode::encode("UTF-8", $body)); |
| 137 |
} |
137 |
} |
| 138 |
|
138 |
|
| 139 |
my $boundary = "====" . time() . "===="; |
139 |
my $boundary = "====" . time() . "===="; |