0c81b5b3 |
1 | <?php |
4f96c398 |
2 | /* ***** BEGIN LICENSE BLOCK ***** |
3 | * |
4 | * The contents of this file are subject to Austrian copyright reegulations |
5 | * ("Urheberrecht"); you may not use this file except in compliance with |
6 | * those laws. |
7 | * This contents and any derived work, if it gets distributed in any way, |
8 | * is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, |
9 | * either express or implied. |
10 | * |
11 | * The Original Code is KaiRo's E-Mail module. |
12 | * |
13 | * The Initial Developer of the Original Code is |
14 | * KaiRo - Robert Kaiser. |
1d38ad3e |
15 | * Portions created by the Initial Developer are Copyright (C) 2003-2006 |
4f96c398 |
16 | * the Initial Developer. All Rights Reserved. |
17 | * |
18 | * Contributor(s): Robert Kaiser <kairo@kairo.at> |
19 | * |
20 | * ***** END LICENSE BLOCK ***** */ |
21 | |
0c81b5b3 |
22 | class email { |
23 | // email PHP class |
24 | // class/object for creating a new mail and send it |
25 | // |
3077a4f6 |
26 | // function __construct() |
0c81b5b3 |
27 | // CONSTRUCTOR |
28 | // |
3077a4f6 |
29 | // private $debug_toSingleAddress |
0c81b5b3 |
30 | // address to send mail to in debug mode |
31 | // |
3077a4f6 |
32 | // private $subject |
0c81b5b3 |
33 | // the mail's subject line |
34 | // |
3077a4f6 |
35 | // private $sender |
0c81b5b3 |
36 | // the mail's sender (array; fields see recipients) |
37 | // |
3077a4f6 |
38 | // private $replyto |
0c81b5b3 |
39 | // Reply-to address (array; fields see recipients) |
40 | // |
3077a4f6 |
41 | // private $recipients |
0c81b5b3 |
42 | // array of recipients (To: line) |
43 | // fields: name - real name |
44 | // mail - email address |
45 | // |
3077a4f6 |
46 | // private $cc |
0c81b5b3 |
47 | // array of CC recipients (fields like recipients) |
48 | // |
3077a4f6 |
49 | // private $bcc |
0c81b5b3 |
50 | // array of BCC recipients (fields like recipients) |
51 | // |
3077a4f6 |
52 | // private $headers |
0c81b5b3 |
53 | // array containing all additional headers |
54 | // fields: name - headers name |
55 | // content - header content |
56 | // |
3077a4f6 |
57 | // private $content_type |
0c81b5b3 |
58 | // the mail's content type (MIME-type) [default: text/plain] |
59 | // |
3077a4f6 |
60 | // private $charset |
0c81b5b3 |
61 | // the mail's charset [default: iso-8859-15] |
62 | // |
3077a4f6 |
63 | // private $mailtext |
0c81b5b3 |
64 | // the main mail body |
65 | // |
3077a4f6 |
66 | // private $attachments |
0c81b5b3 |
67 | // array containing all attachments |
68 | // fields: name - attachment name |
69 | // content - attachment content |
70 | // type - MIME type of that attachment |
71 | // |
3077a4f6 |
72 | // public function setDebugAddress($debug_email) |
0c81b5b3 |
73 | // debug mode: send only to this address |
74 | // |
3077a4f6 |
75 | // public function setSubject($newsubject) |
0c81b5b3 |
76 | // set subject of mail |
77 | // |
3077a4f6 |
78 | // public function setSender($email, [$name]) |
0c81b5b3 |
79 | // set sender of mail |
80 | // |
3077a4f6 |
81 | // public function setReplyTo($email, [$name]) |
0c81b5b3 |
82 | // set reply-to address |
83 | // |
3077a4f6 |
84 | // public function addRecipient($email, [$name]) |
0c81b5b3 |
85 | // add a recipient to the mail |
86 | // |
3077a4f6 |
87 | // public function addCC($email, [$name]) |
0c81b5b3 |
88 | // add a CC recipient to the mail |
89 | // |
3077a4f6 |
90 | // public function addBCC($email, [$name]) |
0c81b5b3 |
91 | // add a BCC recipient to the mail |
92 | // |
3077a4f6 |
93 | // public function addHeader($hname, [$hcontent]) |
0c81b5b3 |
94 | // add a header to the mail |
95 | // |
025016ca |
96 | // public function addHeaderAddress($hname, $email, [$name]) |
97 | // add an address header to the mail, possibly with both name and mail parts |
98 | // |
3077a4f6 |
99 | // public function addMailText($textpart) |
0c81b5b3 |
100 | // add some text to the mail |
101 | // |
3077a4f6 |
102 | // public function addAttachment($aname, $acontent, [$atype]) |
d3f5b37c |
103 | // add an attachment to the mail, use given file name, content and MIME type (defaults to application/octet-stream) |
104 | // |
3077a4f6 |
105 | // public function send() |
0c81b5b3 |
106 | // really send the mail |
107 | // |
4edf094e |
108 | // private function mimeencode($fieldtext, [$stringescape]) |
0c81b5b3 |
109 | // helper function: |
4edf094e |
110 | // encode given field text, ready to be placed into an e-mail MIME header |
111 | // if the boolean $stringescape is true, make sure this is sent as a single word in RFC2822 context (e.g. for names) |
112 | // see http://www.ietf.org/rfc/rfc2822.txt for the RFC in question |
0c81b5b3 |
113 | |
3077a4f6 |
114 | private $debug_toSingleAddress = ''; |
115 | private $subject; |
116 | private $sender = array(); |
117 | private $replyto = array(); |
118 | private $recipients = array(); |
119 | private $cc = array(); |
120 | private $bcc = array(); |
121 | private $headers = array(); |
122 | private $content_type = 'text/plain'; |
123 | private $charset = 'iso-8859-15'; |
124 | private $mailtext = ''; |
125 | private $attachments = array(); |
0c81b5b3 |
126 | |
3077a4f6 |
127 | function __construct() { |
0c81b5b3 |
128 | // *** constructor *** |
129 | } |
130 | |
3077a4f6 |
131 | public function setDebugAddress($debug_email) { $this->debug_toSingleAddress = $debug_email; } |
0c81b5b3 |
132 | |
3077a4f6 |
133 | public function setSubject($newsubject) { $this->subject = $newsubject; } |
0c81b5b3 |
134 | |
3077a4f6 |
135 | public function setSender($email, $name = '') { $this->sender = array('mail' => $email, 'name' => $name); } |
0c81b5b3 |
136 | |
3077a4f6 |
137 | public function setReplyTo($email, $name = '') { $this->replyto = array('mail' => $email, 'name' => $name); } |
0c81b5b3 |
138 | |
3077a4f6 |
139 | public function addRecipient($email, $name = '') { |
1d38ad3e |
140 | $this->recipients[] = array('mail' => $email, 'name' => $name); |
0c81b5b3 |
141 | } |
142 | |
3077a4f6 |
143 | public function addCC($email, $name = '') { |
1d38ad3e |
144 | $this->cc[] = array('mail' => $email, 'name' => $name); |
0c81b5b3 |
145 | } |
146 | |
3077a4f6 |
147 | public function addBCC($email, $name = '') { |
1d38ad3e |
148 | $this->bcc[] = array('mail' => $email, 'name' => $name); |
0c81b5b3 |
149 | } |
150 | |
3077a4f6 |
151 | public function addHeader($hname, $hcontent = '') { |
1d38ad3e |
152 | $this->headers[] = array('name' => $hname, 'content' => $hcontent); |
025016ca |
153 | } |
154 | |
155 | public function addHeaderAddress($hname, $email, $name = '') { |
156 | if (strlen($name)) { $hcontent = $this->mimeencode($name, true).' <'.$email.'>'; } |
157 | else { $hcontent = $email; } |
158 | $this->headers[] = array('name' => $hname, 'content' => $hcontent); |
0c81b5b3 |
159 | } |
160 | |
3077a4f6 |
161 | public function addMailText($textpart) { $this->mailtext .= $textpart; } |
0c81b5b3 |
162 | |
3077a4f6 |
163 | public function addAttachment($aname, $acontent, $atype = 'application/octet-stream') { |
1d38ad3e |
164 | $this->attachments[] = array('name' => $aname, 'content' => $acontent, 'type' => $atype); |
0c81b5b3 |
165 | } |
166 | |
3077a4f6 |
167 | public function send() { |
0c81b5b3 |
168 | global $util; |
1d38ad3e |
169 | $mtxt = ''; |
170 | $hdrs = 'MIME-Version: 1.0'."\n"; |
0c81b5b3 |
171 | $subj = $this->mimeencode($this->subject); |
1d38ad3e |
172 | if (strlen($this->sender['name'])) { |
4edf094e |
173 | $hdrs .= 'From: '.$this->mimeencode($this->sender['name'], true).' <'.$this->sender['mail'].'>'."\n"; |
0c81b5b3 |
174 | } |
1d38ad3e |
175 | else { $hdrs .= 'From: '.$this->sender['mail']."\n"; } |
0c81b5b3 |
176 | if (count($this->replyto)) { |
1d38ad3e |
177 | if (strlen($this->replyto['name'])) { |
4edf094e |
178 | $hdrs .= 'Reply-to: '.$this->mimeencode($this->replyto['name'], true).' <'.$this->replyto['mail'].'>'."\n"; |
0c81b5b3 |
179 | } |
1d38ad3e |
180 | else { $hdrs .= 'Reply-to: '.$this->replyto['mail']."\n"; } |
0c81b5b3 |
181 | } |
182 | if (count($this->recipients)) { |
1d38ad3e |
183 | $recpt = ''; |
0c81b5b3 |
184 | foreach ($this->recipients as $address) { |
4edf094e |
185 | if (strlen($address['name'])) { $recpt .= $this->mimeencode($address['name'], true).' <'.$address['mail'].'>,'; } |
1d38ad3e |
186 | else { $recpt .= $address['mail'].','; } |
0c81b5b3 |
187 | } |
1d38ad3e |
188 | $recpt = preg_replace('/,$/', '', $recpt); |
0c81b5b3 |
189 | } |
190 | if (count($this->cc)) { |
1d38ad3e |
191 | $adrs = ''; |
0c81b5b3 |
192 | foreach ($this->cc as $address) { |
4edf094e |
193 | if (strlen($address['name'])) { $adrs .= $this->mimeencode($address['name'], true).' <'.$address['mail'].'>,'; } |
1d38ad3e |
194 | else { $adrs .= $address['mail'].','; } |
0c81b5b3 |
195 | } |
1d38ad3e |
196 | $adrs = preg_replace('/,$/', '', $adrs); |
197 | $hdrs .= (strlen($this->debug_toSingleAddress)?'X-Real-':'').'Cc: '.$adrs."\n"; |
0c81b5b3 |
198 | } |
199 | if (count($this->bcc)) { |
1d38ad3e |
200 | $adrs = ''; |
0c81b5b3 |
201 | foreach ($this->bcc as $address) { |
4edf094e |
202 | if (strlen($address['name'])) { $adrs .= $this->mimeencode($address['name'], true).' <'.$address['mail'].'>,'; } |
1d38ad3e |
203 | else { $adrs .= $address['mail'].','; } |
0c81b5b3 |
204 | } |
1d38ad3e |
205 | $adrs = preg_replace('/,$/', '', $adrs); |
206 | $hdrs .= (strlen($this->debug_toSingleAddress)?'X-Real-':'').'Bcc: '.$adrs."\n"; |
0c81b5b3 |
207 | } |
208 | if (count($this->headers)) { |
209 | foreach ($this->headers as $header) { |
1d38ad3e |
210 | $hdrs .= $header['name'].': '.$header['content']."\n"; |
0c81b5b3 |
211 | } |
212 | } |
213 | if (count($this->attachments)) { |
269bd147 |
214 | // create random boundary, 20 chars, always beginning with KaiRo ;-) |
215 | $boundary = 'KaiRo'; |
1d38ad3e |
216 | for ($i = 1; $i <= 15; $i++) { |
217 | $r = rand(0, 61); |
218 | if ($r < 10) { $boundary .= chr($r + 48); } |
219 | elseif ($r < 36) { $boundary .= chr($r + 55); } |
220 | elseif ($r < 62) { $boundary .= chr($r + 61); } |
269bd147 |
221 | } |
1d38ad3e |
222 | $hdrs .= 'Content-Type: multipart/mixed; boundary="'.$boundary.'";'."\n"; |
223 | $hdrs .= 'Content-Transfer-Encoding: 7bit'."\n"; |
224 | $mtxt .= 'This part of the E-mail should never be seen. If'."\n"; |
225 | $mtxt .= 'you are reading this, consider upgrading your e-mail'."\n"; |
226 | $mtxt .= 'client to a MIME-compatible client.'."\n"; |
227 | $mtxt .= "\n".'--'.$boundary."\n"; |
228 | if (preg_match('|^text/|', $this->content_type)) { |
229 | $mtxt .= 'Content-Type: '.$this->content_type.'; charset="'.$this->charset.'"'."\n"; |
0c81b5b3 |
230 | } |
231 | else { |
1d38ad3e |
232 | $mtxt .= 'Content-Type: '.$this->content_type."\n"; |
0c81b5b3 |
233 | } |
1d38ad3e |
234 | $mtxt .= 'Content-Transfer-Encoding: 8bit'."\n\n"; |
0c81b5b3 |
235 | } |
236 | else { |
1d38ad3e |
237 | if (preg_match('|^text/|', $this->content_type)) { |
238 | $hdrs .= 'Content-Type: '.$this->content_type.'; charset="'.$this->charset.'"'."\n"; |
0c81b5b3 |
239 | } |
240 | else { |
1d38ad3e |
241 | $hdrs .= 'Content-Type: '.$this->content_type."\n"; |
0c81b5b3 |
242 | } |
1d38ad3e |
243 | $hdrs .= 'Content-Transfer-Encoding: 8bit'."\n"; |
0c81b5b3 |
244 | } |
245 | $mtxt .= stripslashes($this->mailtext); |
246 | if (count($this->attachments)) { |
247 | foreach ($this->attachments as $attach) { |
1d38ad3e |
248 | $mtxt .= "\n".'--'.$boundary."\n"; |
249 | $mtxt .= 'Content-Type: '.$attach['type'].'; name="'.$attach['name'].'";'."\n"; |
1b1735d1 |
250 | if (preg_match('/^(text|message)\//', $attach['type'])) { |
251 | $mtxt .= 'Content-Transfer-Encoding: 8bit'."\n"; |
252 | $mtxt .= 'Content-Disposition: attachment'."\n\n"; |
253 | $mtxt .= $attach['content']; |
254 | $mtxt .= "\n"; |
255 | } |
256 | else { |
257 | $mtxt .= 'Content-Transfer-Encoding: base64'."\n"; |
258 | $mtxt .= 'Content-Disposition: attachment'."\n\n"; |
259 | $mtxt .= rtrim(chunk_split(base64_encode($attach['content']), 76)); ; |
260 | $mtxt .= "\n"; |
261 | } |
0c81b5b3 |
262 | } |
1b1735d1 |
263 | $mtxt .= '--'.$boundary.'--'."\n"; |
0c81b5b3 |
264 | } |
265 | |
266 | if (strlen($this->debug_toSingleAddress)) { |
1d38ad3e |
267 | $hdrs .= 'X-Real-To: '.$recpt."\n"; |
0c81b5b3 |
268 | $recpt = $this->debug_toSingleAddress; |
269 | } |
270 | |
1d38ad3e |
271 | //print('Subject: '.$util->htmlify($subj).'<br>'."\n"); |
272 | //print('To: '.$util->htmlify($recpt).'<br>'."\n"); |
0c81b5b3 |
273 | //print(nl2br($util->htmlify($hdrs))); |
274 | //print(nl2br($util->htmlify($mtxt))); |
61432682 |
275 | return mail($recpt, $subj, $mtxt, $hdrs); |
0c81b5b3 |
276 | } |
277 | |
4edf094e |
278 | private function mimeencode($fieldtext, $stringescape = false) { |
0c81b5b3 |
279 | $mText = imap_8bit($fieldtext); |
4edf094e |
280 | $is_qpformat = ($mText != $fieldtext); |
281 | if ($stringescape && preg_match('/[^\w !#$%&\'*+\/=?^`{|}~-]/', $mText)) { |
282 | // if needed, make this a quoted-string instead of an atom (to speak in RFC2822 language) |
283 | $mText = '"'.strtr($mText, array('"' => '\"', '\\' => '\\\\')).'"'; |
284 | } |
285 | if ($is_qpformat) { |
286 | $mText = strtr($mText, array('_' => '=5F', ' ' => '_', '?' => '=3F')); |
1d38ad3e |
287 | $mText = '=?'.strtoupper($this->charset).'?Q?'.$mText.'?='; |
0c81b5b3 |
288 | } |
289 | return $mText; |
290 | } |
291 | |
292 | |
293 | } |
294 | ?> |