Lines 19-25
use strict;
Link Here
|
19 |
use warnings; |
19 |
use warnings; |
20 |
|
20 |
|
21 |
use CGI; |
21 |
use CGI; |
22 |
use Encode qw(encode); |
22 |
use Encode qw(decode encode); |
23 |
use Carp; |
23 |
use Carp; |
24 |
|
24 |
|
25 |
use Mail::Sendmail; |
25 |
use Mail::Sendmail; |
Lines 131-138
if ( $email_add ) {
Link Here
|
131 |
} |
131 |
} |
132 |
|
132 |
|
133 |
if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) { |
133 |
if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) { |
134 |
$body = encode_qp($1); |
134 |
$body = $1; |
135 |
$body =~ s|\n?(.*)\n?|$1|; |
135 |
$body =~ s|\n?(.*)\n?|$1|; |
|
|
136 |
$body = encode("UTF-8", encode_qp(decode("UTF-8", $body))); |
136 |
} |
137 |
} |
137 |
|
138 |
|
138 |
my $boundary = "====" . time() . "===="; |
139 |
my $boundary = "====" . time() . "===="; |
139 |
- |
|
|