Lines 113-119
if ($email) {
Link Here
|
113 |
|
113 |
|
114 |
# Analysing information and getting mail properties |
114 |
# Analysing information and getting mail properties |
115 |
if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) { |
115 |
if ( $template_res =~ /<SUBJECT>(.*)<END_SUBJECT>/s ) { |
116 |
$mail{'subject'} = Encode::encode("UTF-8", $1); |
116 |
$mail{'subject'} = encode('MIME-Header', $1); |
117 |
$mail{subject} =~ s|\n?(.*)\n?|$1|; |
117 |
$mail{subject} =~ s|\n?(.*)\n?|$1|; |
118 |
} |
118 |
} |
119 |
else { $mail{'subject'} = "no subject"; } |
119 |
else { $mail{'subject'} = "no subject"; } |
120 |
- |
|
|