|
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 |
- |
|
|