Lines 128-140
if ( $email_add ) {
Link Here
|
128 |
|
128 |
|
129 |
# Analysing information and getting mail properties |
129 |
# Analysing information and getting mail properties |
130 |
if ( $template_res =~ /<SUBJECT>\n(.*)\n?<END_SUBJECT>/s ) { |
130 |
if ( $template_res =~ /<SUBJECT>\n(.*)\n?<END_SUBJECT>/s ) { |
131 |
$mail{'subject'} = $1; |
131 |
$mail{'subject'} = encode_qp($1); |
132 |
} |
132 |
} |
133 |
else { $mail{'subject'} = "no subject"; } |
133 |
else { $mail{'subject'} = "no subject"; } |
134 |
|
134 |
|
135 |
my $email_header = ""; |
135 |
my $email_header = ""; |
136 |
if ( $template_res =~ /<HEADER>\n(.*)\n?<END_HEADER>/s ) { |
136 |
if ( $template_res =~ /<HEADER>\n(.*)\n?<END_HEADER>/s ) { |
137 |
$email_header = $1; |
137 |
$email_header = encode_qp($1); |
138 |
} |
138 |
} |
139 |
|
139 |
|
140 |
my $email_file = "basket.txt"; |
140 |
my $email_file = "basket.txt"; |
Lines 143-149
if ( $email_add ) {
Link Here
|
143 |
} |
143 |
} |
144 |
|
144 |
|
145 |
if ( $template_res =~ /<MESSAGE>\n(.*)\n?<END_MESSAGE>/s ) { |
145 |
if ( $template_res =~ /<MESSAGE>\n(.*)\n?<END_MESSAGE>/s ) { |
146 |
$body = $1; |
146 |
$body = encode_qp($1); |
147 |
} |
147 |
} |
148 |
|
148 |
|
149 |
my $boundary = "====" . time() . "===="; |
149 |
my $boundary = "====" . time() . "===="; |
150 |
- |
|
|