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