Lines 122-127
if ( $email_add ) {
Link Here
|
122 |
if ( $template_res =~ /<HEADER>(.*)<END_HEADER>/s ) { |
122 |
if ( $template_res =~ /<HEADER>(.*)<END_HEADER>/s ) { |
123 |
$email_header = $1; |
123 |
$email_header = $1; |
124 |
$email_header =~ s|\n?(.*)\n?|$1|; |
124 |
$email_header =~ s|\n?(.*)\n?|$1|; |
|
|
125 |
$email_header = encode_qp($email_header); |
125 |
} |
126 |
} |
126 |
|
127 |
|
127 |
my $email_file = "basket.txt"; |
128 |
my $email_file = "basket.txt"; |
Lines 133-151
if ( $email_add ) {
Link Here
|
133 |
if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) { |
134 |
if ( $template_res =~ /<MESSAGE>(.*)<END_MESSAGE>/s ) { |
134 |
$body = $1; |
135 |
$body = $1; |
135 |
$body =~ s|\n?(.*)\n?|$1|; |
136 |
$body =~ s|\n?(.*)\n?|$1|; |
136 |
$body = encode("UTF-8", encode_qp($body)); |
137 |
$body = encode_qp($body); |
137 |
} |
138 |
} |
138 |
|
139 |
|
139 |
my $boundary = "====" . time() . "===="; |
140 |
my $boundary = "====" . time() . "===="; |
140 |
|
141 |
|
141 |
# $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\""; |
142 |
# Writing mail |
142 |
# |
|
|
143 |
# $email_header = encode_qp($email_header); |
144 |
# |
145 |
# $boundary = "--".$boundary; |
146 |
# |
147 |
# # Writing mail |
148 |
# $mail{body} = |
149 |
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\""; |
143 |
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\""; |
150 |
my $isofile = encode_base64(encode("UTF-8", $iso2709)); |
144 |
my $isofile = encode_base64(encode("UTF-8", $iso2709)); |
151 |
$boundary = '--' . $boundary; |
145 |
$boundary = '--' . $boundary; |