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