Lines 113-122
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('MIME-Header', $1); |
116 |
$mail{subject} = $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 |
$mail{subject} = encode( 'MIME-Header', $mail{subject} ); |
120 |
|
121 |
|
121 |
my $email_header = ""; |
122 |
my $email_header = ""; |
122 |
if ( $template_res =~ /<HEADER>(.*)<END_HEADER>/s ) { |
123 |
if ( $template_res =~ /<HEADER>(.*)<END_HEADER>/s ) { |
123 |
- |
|
|