source: frontend/core/mail/func.php@ 5

Last change on this file since 5 was 5, checked in by george, 18 years ago

import
File size: 13.9 KB
Line 
1<?php
2
3/***************************************************************************************
4 * *
5 * This file is part of the XPertMailer package (http://xpertmailer.sourceforge.net/) *
6 * *
7 * XPertMailer is free software; you can redistribute it and/or modify it under the *
8 * terms of the GNU General Public License as published by the Free Software *
9 * Foundation; either version 2 of the License, or (at your option) any later version. *
10 * *
11 * XPertMailer is distributed in the hope that it will be useful, but WITHOUT ANY *
12 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A *
13 * PARTICULAR PURPOSE. See the GNU General Public License for more details. *
14 * *
15 * You should have received a copy of the GNU General Public License along with *
16 * XPertMailer; if not, write to the Free Software Foundation, Inc., 51 Franklin St, *
17 * Fifth Floor, Boston, MA 02110-1301 USA *
18 * *
19 * XPertMailer SMTP & POP3 PHP Mail Client. Can send and read messages in MIME Format. *
20 * Copyright (C) 2006 Tanase Laurentiu Iulian *
21 * *
22 ***************************************************************************************/
23
24class FUNC {
25
26 function is_win(){
27 return (strtoupper(substr(PHP_OS, 0, 3)) == 'WIN');
28 }
29
30 function str_clear($strval, $addrep = array()){
31 $ret = '';
32 $rep = array("\r", "\n", "\t");
33 if(is_array($addrep) && count($addrep) > 0){
34 foreach($addrep as $strrep){
35 if(is_string($strrep) && $strrep != "") $rep[] = $strrep;
36 else trigger_error('Invalid array component value, on class FUNC::str_clear()', 512);
37 }
38 }
39 if(is_string($strval)) $ret = ($strval == "") ? '' : str_replace($rep, '', $strval);
40 else trigger_error('Invalid parameter type value, on class FUNC::str_clear()', 512);
41 return $ret;
42 }
43
44 function is_alpha($strval, $numeric = true, $addstr = ''){
45 if(is_string($strval) && $strval != ""){
46 $lists = "abcdefghijklmnoqprstuvwxyzABCDEFGHIJKLMNOQPRSTUVWXYZ";
47 if(is_bool($numeric)){
48 if($numeric) $lists .= "1234567890";
49 }else trigger_error('Invalid 2\'nd parameter type value, on class FUNC::is_alpha()', 512);
50 if(is_string($addstr)) $lists .= $addstr;
51 else trigger_error('Invalid 3\'rd parameter type value, on class FUNC::is_alpha()', 512);
52 $match = true;
53 $len1 = strlen($strval);
54 $len2 = strlen($lists);
55 for($i = 0; $i < $len1; $i++){
56 $found = false;
57 for($j = 0; $j < $len2; $j++){
58 if($lists{$j} == $strval{$i}){
59 $found = true;
60 break;
61 }
62 }
63 if(!$found){
64 $match = false;
65 break;
66 }
67 }
68 return $match;
69 }else{
70 trigger_error('Invalid 1\'st parameter type value, on class FUNC::is_alpha()', 512);
71 return false;
72 }
73 }
74
75 function is_hostname($strhost){
76 $ret = false;
77 if(is_string($strhost) && $strhost != ""){
78 if(FUNC::is_alpha($strhost, true, "-.")){
79 $exphost1 = explode('.', $strhost);
80 $exphost2 = explode('-', $strhost);
81 if(count($exphost1) > 1 && !(strstr($strhost, '.-') || strstr($strhost, '-.'))){
82 $set1 = $set2 = true;
83 foreach($exphost1 as $expstr1){
84 if($expstr1 == ""){
85 $set1 = false;
86 break;
87 }
88 }
89 foreach($exphost2 as $expstr2){
90 if($expstr2 == ""){
91 $set2 = false;
92 break;
93 }
94 }
95 $ext = $exphost1[count($exphost1)-1];
96 $len = strlen($ext);
97 if($set1 && $set2 && $len > 1 && $len < 7 && FUNC::is_alpha($ext, false)) $ret = true;
98 }
99 }
100 }
101 return $ret;
102 }
103
104 function getmxrr_win($hostname, &$mxhosts){
105 $mxhosts = array();
106 if(is_string($hostname) && $hostname != ""){
107 if(FUNC::is_hostname($hostname)){
108 $hostname = strtolower($hostname);
109 $retstr = exec('nslookup -type=mx '.$hostname, $retarr);
110 if($retstr && count($retarr) > 0){
111 foreach($retarr as $line){
112 if(preg_match('/.*mail exchanger = (.*)/', $line, $matches)) $mxhosts[] = $matches[1];
113 }
114 }
115 }else trigger_error('Invalid parameter format, on class FUNC::getmxrr_win()', 512);
116 }else trigger_error('Invalid parameter type value, on class FUNC::getmxrr_win()', 512);
117 return (count($mxhosts) > 0);
118 }
119
120 function is_ipv4($ipval){
121 $ret = false;
122 if(is_string($ipval) && $ipval != ""){
123 $expips = explode('.', $ipval);
124 if(count($expips) == 4){
125 $each = true;
126 foreach($expips as $number){
127 $partno = intval($number);
128 if(!($number === strval($partno) && $partno >= 0 && $partno <= 255)){
129 $each = false;
130 break;
131 }
132 }
133 $ret = $each;
134 }
135 }else trigger_error('Invalid parameter type value, on class FUNC::is_ipv4()', 512);
136 return $ret;
137 }
138
139 function is_connection($connection){
140 $ret = false;
141 if($connection && is_resource($connection)){
142 $status = stream_get_meta_data($connection);
143 if(!$status['timed_out']) $ret = true;
144 }
145 return $ret;
146 }
147
148 function close($connection){
149 $ret = false;
150 if(FUNC::is_connection($connection)) $ret = fclose($connection);
151 return $ret;
152 }
153
154 function is_mail($addr, $vermx = false){
155 $ret = false;
156 if(is_string($addr) && $addr != ""){
157 $regs = '^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,6})$';
158 if(eregi($regs, $addr)){
159 if(is_bool($vermx)){
160 if($vermx){
161 $exp = explode('@', $addr);
162 $ret = FUNC::is_win() ? FUNC::getmxrr_win($exp[1], $mxh) : getmxrr($exp[1], $mxh);
163 }else $ret = true;
164 }else trigger_error('Invalid secound parameter type value, on class FUNC::is_mail()', 512);
165 }
166 }else trigger_error('Invalid first parameter type value, on class FUNC::is_mail()', 512);
167 return $ret;
168 }
169
170 function delwspace($str){
171 if(is_string($str)){
172 if(strstr($str, ' ')){
173 $str = str_replace(' ', ' ', $str);
174 return FUNC::delwspace($str);
175 }
176 }else trigger_error('Invalid parameter type value, on class FUNC::delwspace()', 512);
177 return $str;
178 }
179
180 function split_msg($msg){
181 $ret = false;
182 if(is_string($msg) && $msg != ""){
183 $sep = "\n\n";
184 $arr['header'] = $arr['body'] = array();
185 $exp1 = explode($sep, $msg);
186 if(!(count($exp1) > 1)){
187 $sep = "\r\n\r\n";
188 $exp1 = explode($sep, $msg);
189 }
190 if(count($exp1) > 1){
191 $multipart = false;
192 $head = str_replace(array("\r\n\t", "\r\n "), " ", $exp1[0]);
193 $exp2 = explode("\r\n", $head);
194 if(count($exp2) > 1){
195 foreach($exp2 as $hval){
196 $exp3 = explode(': ', $hval);
197 $name = trim($exp3[0]);
198 if(count($exp3) > 1 && $name != "" && !strstr($name, ' ')){
199 $sval = strstr($hval, ': ');
200 $sval = substr($sval, 2);
201 $sval = FUNC::str_clear($sval);
202 $sval = trim(FUNC::delwspace($sval));
203 $arr['header'][] = array($name => $sval);
204 $hnm = strtolower($name);
205 if($hnm == "content-type"){
206 if(strstr($sval, 'multipart/') && strstr($sval, '; boundary=')){
207 $bex1 = explode('; boundary=', $sval);
208 if(count($bex1) > 1){
209 $data1 = trim($bex1[1]);
210 if($data1 != ""){
211 $bex2 = explode('; ', $data1);
212 $boundary = str_replace('"', '', $bex2[0]);
213 $boundary = trim($boundary);
214 if($boundary != ""){
215 $mex1 = explode('multipart/', $sval);
216 if(count($mex1) > 1){
217 $data2 = trim($mex1[1]);
218 if($data2 != ""){
219 $mex2 = explode('; ', $data2);
220 $mtype = trim(strtolower($mex2[0]));
221 if($mtype == "mixed" || $mtype == "related" || $mtype == "alternative") $multipart = $mtype;
222 }
223 }
224 }
225 }
226 }
227 }
228 }
229 }
230 }
231 }
232 if(count($arr['header']) > 0){
233 $body = strstr($msg, $sep);
234 $body = substr($body, strlen($sep));
235 if($multipart){
236 $arr['multipart'] = $multipart;
237 $arr['boundary'] = $boundary;
238 }
239 $arr['body'] = $body;
240 $ret = $arr;
241 }else trigger_error('Invalid 3 message value, on class FUNC::split_msg()', 512);
242 }else trigger_error('Invalid 2 message value, on class FUNC::split_msg()', 512);
243 }else trigger_error('Invalid 1 message value, on class FUNC::split_msg()', 512);
244 return $ret;
245 }
246
247 function split_reverse($body, $multipart, $boundary){
248 $ret = array();
249 if(strstr($body, '--'.$boundary.'--')){
250 $exp1 = explode('--'.$boundary.'--', $body);
251 if(strstr($exp1[0], "--".$boundary."\r\n")){
252 $exp2 = explode("--".$boundary."\r\n", $exp1[0]);
253 foreach($exp2 as $part){
254 if(stristr($part, 'Content-Type: ')){
255 $exp31 = explode('Content-Type: ', $part);
256 $exp32 = explode('Content-type: ', $part);
257 if(count($exp31) > 1 && substr($exp31[1], 0, 10) == "multipart/") $data = $exp31[1];
258 elseif(count($exp32) > 1 && substr($exp32[1], 0, 10) == "multipart/") $data = $exp32[1];
259 else $data = false;
260 if($data && strstr($data, 'boundary=')){
261 $exp4 = explode('multipart/', $data);
262 $exp5 = explode(';', $exp4[1]);
263 $multipart2 = $exp5[0];
264 if($multipart2 == "mixed" || $multipart2 == "related" || $multipart2 == "alternative"){
265 $exp6 = explode('boundary=', $data);
266 $exp7 = explode("\n", $exp6[1]);
267 $exp8 = explode("\r\n", $exp6[1]);
268 $boundary2 = (strlen($exp7[0]) <= strlen($exp8[0])) ? $exp7[0] : $exp8[0];
269 $boundary2 = str_replace('"', '', $boundary2);
270 if($boundary2 != "") $ret = FUNC::split_reverse($part, $multipart.', '.$multipart2, $boundary2);
271 }
272 }else{
273 if($res = FUNC::split_msg($part)){
274 $one = array();
275 foreach($res['header'] as $harr){
276 foreach($harr as $hnm => $hvl) if(strstr($hnm, 'Content-')) $one[$hnm] = $hvl;
277 }
278 $one['Multipart'] = $multipart;
279 $one['Data'] = $res['body'];
280 $ret[] = $one;
281 }
282 }
283 }
284 }
285 }
286 }
287 return $ret;
288 }
289
290 function split_content($str){
291 $ret = false;
292 if(is_string($str) && $str != ""){
293 if($res = FUNC::split_msg($str)){
294 $arr = array();
295 if(isset($res['multipart'], $res['boundary'])){
296 $arr['header'] = $res['header'];
297 $arr['multipart'] = 'yes';
298 $arr['body'] = FUNC::split_reverse($res['body'], $res['multipart'], $res['boundary']);
299 }else{
300 foreach($res['header'] as $harr){
301 foreach($harr as $hnm => $hvl) if(strstr($hnm, 'Content-')) $content[$hnm] = $hvl;
302 }
303 $content['Data'] = $res['body'];
304 $arr['header'] = $res['header'];
305 $arr['multipart'] = 'no';
306 $arr['body'][] = $content;
307 }
308 $ret = $arr;
309 }else trigger_error('Invalid 2 message value, on class FUNC::split_content()', 512);
310 }else trigger_error('Invalid 1 message value, on class FUNC::split_content()', 512);
311 return $ret;
312 }
313
314 function decode_content($str, $decode = "base64"){
315 if(is_string($str) && is_string($decode)){
316 $ret = $str;
317 $decode = trim(strtolower($decode));
318 if($decode == "base64"){
319 $str = FUNC::str_clear($str);
320 $str = trim($str);
321 $ret = base64_decode($str);
322 }elseif($decode == "quoted-printable"){
323 $ret = quoted_printable_decode($str);
324 }
325 }else trigger_error('Invalid parameter(s), on class FUNC::decode_content()', 512);
326 return $ret;
327 }
328
329 function mimetype($filename){
330 $retm = "application/octet-stream";
331 $mime = array(
332 'z' => "application/x-compress",
333 'xls' => "application/x-excel",
334 'gtar' => "application/x-gtar",
335 'gz' => "application/x-gzip",
336 'cgi' => "application/x-httpd-cgi",
337 'php' => "application/x-httpd-php",
338 'js' => "application/x-javascript",
339 'swf' => "application/x-shockwave-flash",
340 'tar' => "application/x-tar",
341 'tgz' => "application/x-tar",
342 'tcl' => "application/x-tcl",
343 'src' => "application/x-wais-source",
344 'zip' => "application/zip",
345 'kar' => "audio/midi",
346 'mid' => "audio/midi",
347 'midi' => "audio/midi",
348 'mp2' => "audio/mpeg",
349 'mp3' => "audio/mpeg",
350 'mpga' => "audio/mpeg",
351 'ram' => "audio/x-pn-realaudio",
352 'rm' => "audio/x-pn-realaudio",
353 'rpm' => "audio/x-pn-realaudio-plugin",
354 'wav' => "audio/x-wav",
355 'bmp' => "image/bmp",
356 'fif' => "image/fif",
357 'gif' => "image/gif",
358 'ief' => "image/ief",
359 'jpe' => "image/jpeg",
360 'jpeg' => "image/jpeg",
361 'jpg' => "image/jpeg",
362 'png' => "image/png",
363 'tif' => "image/tiff",
364 'tiff' => "image/tiff",
365 'css' => "text/css",
366 'htm' => "text/html",
367 'html' => "text/html",
368 'txt' => "text/plain",
369 'rtx' => "text/richtext",
370 'vcf' => "text/x-vcard",
371 'xml' => "text/xml",
372 'xsl' => "text/xsl",
373 'mpe' => "video/mpeg",
374 'mpeg' => "video/mpeg",
375 'mpg' => "video/mpeg",
376 'mov' => "video/quicktime",
377 'qt' => "video/quicktime",
378 'asf' => "video/x-ms-asf",
379 'asx' => "video/x-ms-asf",
380 'avi' => "video/x-msvideo",
381 'vrml' => "x-world/x-vrml",
382 'wrl' => "x-world/x-vrml"
383 );
384 if(is_string($filename)){
385 $filename = FUNC::str_clear($filename);
386 $filename = trim($filename);
387 if($filename != ""){
388 $expext = explode(".", $filename);
389 if(count($expext) >= 2){
390 $extnam = strtolower($expext[count($expext)-1]);
391 if(isset($mime[$extnam])) $retm = $mime[$extnam];
392 }
393 }else trigger_error('Invalid parameter value, on class FUNC::mimetype()', 512);
394 }else trigger_error('Invalid parameter type value, on class FUNC::mimetype()', 512);
395 return $retm;
396 }
397
398}
399
400?>
Note: See TracBrowser for help on using the repository browser.