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