6 * Copyright (c) 2002 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
10 * This contains functions needed to handle mime messages.
19 * input: header_string or array
40 $more_headers = array(); /* only needed for constructing headers
43 function parseHeader($hdr)
47 $hdr = implode('',$hdr);
49 /* first we unfold the header */
50 $hdr = trim(str_replace(array("\r\n\t","\r\n "),array('',''),$hdr));
52 * now we can make a new header array with each element representing
55 $hdr = explode("\r\n" , $hdr);
56 foreach ($hdr as $line)
58 $pos = strpos($line,':');
61 $field = substr($line,0,$pos);
62 $value = trim(substr($line,$pos+
1));
63 if(!preg_match('/^X.*/i',$field)) {
64 $value = $this->stripComments($value);
66 $this->parseField($field,$value);
69 if ($this->content_type
== '')
71 $this->parseContentType('text/plain; charset=us-ascii');
75 function stripComments($value)
77 $cnt = strlen($value);
87 while ($value{$i} != '"')
89 if ($value{$i} == '\\')
101 while ($value{$i} != ')')
103 if ($value{$i} == '\\')
119 function parseField($field,$value)
121 $field = strtolower($field);
125 $d = strtr($value, array(' ' => ' '));
126 $d = explode(' ', $d);
127 $this->date
= getTimeStamp($d);
130 $this->subject
= $value;
133 $this->from
= $this->parseAddress($value,true);
136 $this->sender
= $this->parseAddress($value);
139 $this->reply_to
= $this->parseAddress($value, true);
142 $this->to
= $this->parseAddress($value, true);
145 $this->cc
= $this->parseAddress($value, true);
148 $this->bcc
= $this->parseAddress($value, true);
150 case ('in-reply-to'):
151 $this->in_reply_to
= $value;
154 $this->message_id
= $value;
156 case ('disposition-notification-to'):
157 $this->dnt
= $this->parseAddress($value);
159 case ('mime-Version'):
160 $value = str_replace(' ','',$value);
166 case ('content-type'):
167 $this->parseContentType($value);
169 case ('content-disposition'):
170 $this->parseDisposition($value);
173 $this->xmailer
= $value;
176 $this->priority
= $value;
179 $this->mlist('post',$value);
182 $this->mlist('reply',$value);
184 case ('list-subscribe'):
185 $this->mlist('subscribe',$value);
187 case ('list-unsubscribe'):
188 $this->mlist('unsubscribe',$value);
190 case ('list-archive'):
191 $this->mlist('archive',$value);
194 $this->mlist('owner',$value);
197 $this->mlist('help',$value);
200 $this->mlist('id',$value);
207 function parseAddress($address, $ar=false, $addr_ar = array(), $group = '')
210 $j = strlen( $address );
213 while ( $pos < $j ) {
214 switch ($address{$pos})
216 case ('"'): /* get the personal name */
218 if ($address{$pos} == '"')
223 while ( $pos < $j && $address{$pos} != '"')
225 if (substr($address, $pos, 2) == '\\"')
227 $name .= $address{$pos};
229 } elseif (substr($address, $pos, 2) == '\\\\')
231 $name .= $address{$pos};
234 $name .= $address{$pos};
240 case ('<'): /* get email address */
243 while ( $pos < $j && $address{$pos} != '>' )
245 $addr .= $address{$pos};
250 case ('('): /* rip off comments */
253 while ( $pos < $j && $address{$pos} != ')' )
255 $addr .= $address{$pos};
258 $address_start = substr($address,0,$addr_start);
259 $address_end = substr($address,$pos+
1);
260 $address = $address_start . $address_end;
261 $j = strlen( $address );
265 case (','): /* we reached a delimiter */
268 $addr = substr($address,0,$pos);
269 } elseif ($name == '') {
270 $name = trim(substr($address,0,$addr_start));
273 $at = strpos($addr, '@');
274 $addr_structure = new address_structure();
275 $addr_structure->personal
= $name;
276 $addr_structure->group
= $group;
279 $addr_structure->mailbox
= substr($addr,0,$at);
280 $addr_structure->host
= substr($addr,$at+
1);
283 $addr_structure->mailbox
= $addr;
285 $address = trim(substr($address,$pos+
1));
286 $j = strlen( $address );
290 $addr_ar[] = $addr_structure;
292 case (':'): /* process the group addresses */
294 $group = substr($address,0,$pos);
295 $address = substr($address,$pos+
1);
296 $result = $this->parseAddress($address, $ar, $addr_ar, $group);
297 $addr_ar = $result[0];
299 $address = substr($address,$pos);
300 $j = strlen( $address );
307 $address = substr($address, 0, $pos-1);
319 $addr = substr($address,0,$pos);
320 } elseif ($name == '')
322 $name = trim(substr($address,0,$addr_start));
324 $at = strpos($addr, '@');
325 $addr_structure = new address_structure();
326 $addr_structure->group
= $group;
329 $addr_structure->mailbox
= trim(substr($addr,0,$at));
330 $addr_structure->host
= trim(substr($addr,$at+
1));
333 $addr_structure->mailbox
= trim($addr);
335 if ($group && $addr == '') /* no addresses found in group */
337 $name = "$group: Undisclosed recipients;";
338 $addr_structure->personal
= $name;
339 $addr_ar[] = $addr_structure;
340 return (array($addr_ar,$pos+
1));
343 $addr_structure->personal
= $name;
346 $addr_ar[] = $addr_structure;
354 return ($addr_ar[0]);
358 function parseContentType($value)
360 $pos = strpos($value,';');
364 $type = trim(substr($value,0,$pos));
365 $props = trim(substr($type,$pos+
1));
370 $content_type = new content_type($type);
373 $properties = $this->parseProperties($props);
374 if (!isset($properties['charset']))
376 $properties['charset'] = 'us-ascii';
378 $content_type->properties
= $this->parseProperties($props);
380 $this->content_type
= $content_type;
383 function parseProperties($value)
385 $propArray = explode(';',$value);
386 $propResultArray = array();
387 foreach ($propArray as $prop)
390 $pos = strpos($prop,'=');
393 $key = trim(substr($prop,0,$pos));
394 $val = trim(substr($prop,$pos+
1));
397 $val = substr($val,1,-1);
399 $propResultArray[$key] = $val;
402 return $propResultArray;
405 function parseDisposition($value)
407 $pos = strpos($value,';');
411 $name = trim(substr($value,0,$pos));
412 $props = trim(substr($type,$pos+
1));
417 $props_a = $this->parseProperties($props);
418 $disp = new disposition($name);
419 $disp->properties
= $props_a;
420 $this->disposition
= $disp;
423 function mlist($field, $value)
426 $value_a = explode(',',$value);
427 foreach ($value_a as $val) {
431 $val = substr($val,1,-1);
433 if (substr($val,0,7) == 'mailto:')
435 $res_a['mailto'] = substr($val,7);
438 $res_a['href'] = $val;
441 $this->mlist
[$field] = $res_a;
445 * function to get the addres strings out of the header.
446 * Arguments: string or array of strings !
447 * example1: header->getAddr_s('to').
448 * example2: header->getAddr_s(array('to','cc','bcc'))
450 function getAddr_s($arr, $separator=', ')
455 foreach($arr as $arg )
457 $result = $this->getAddr_s($arg);
460 $s .= $separator . $result;
463 if ($s) $s = substr($s,2);
468 eval('$addr = $this->'.$arr.';') ;
471 foreach ($addr as $addr_o)
473 if (is_object($addr_o))
475 $s .= $addr_o->getAddress() . $separator;
478 $s = substr($s,0,-strlen($separator));
481 if (is_object($addr))
483 $s .= $addr->getAddress();
490 function getAddr_a($arg, $excl_arr=array(), $arr = array())
494 foreach($arg as $argument )
496 $arr = $this->getAddr_a($argument, $excl_arr, $arr);
501 eval('$addr = $this->'.$arg.';') ;
504 foreach ($addr as $addr_o)
506 if (is_object($addr_o))
508 if (isset($addr_o->host
) && $addr_o->host
!='')
510 $email = $addr_o->mailbox
.'@'.$addr_o->host
;
513 $email = $addr_o->mailbox
;
515 $email = strtolower($email);
516 if ($email && !isset($arr[$email]) && !isset($excl_arr[$email]))
518 $arr[$email] = $addr_o->personal
;
524 if (is_object($addr))
526 if (isset($addr->host
))
528 $email = $addr->mailbox
.'@'.$addr->host
;
531 $email = $addr->mailbox
;
533 $email = strtolower($email);
534 if ($email && !isset($arr[$email]) && !isset($excl_arr[$email]))
536 $arr[$email] = $addr->personal
;
544 function getContentType($type0, $type1)
546 $type0 = $this->content_type
->type0
;
547 $type1 = $this->content_type
->type1
;
548 return $this->content_type
->properties
;
554 /** msg_header contains all variables available in a bodystructure **/
555 /** entity like described in rfc2060 **/
559 $parameters = array(),
569 * returns addres_list of supplied argument
570 * arguments: array('to', 'from', ...) or just a string like 'to'.
571 * result: string: address1, addres2, ....
574 function setVar($var, $value)
576 $this->{$var} = $value;
579 function getParameter($par)
581 $value = strtolower($par);
582 if (isset($this->parameters
[$par]))
584 return $this->parameters
[$par];
589 function setParameter($parameter, $value)
591 $this->parameters
[strtolower($parameter)] = $value;
597 class address_structure
599 var $personal = '', $adl = '', $mailbox = '', $host = '', $group = '';
601 function getAddress($full=true)
603 if (is_object($this))
605 if (isset($this->host
) && $this->host
!='')
607 $email = $this->mailbox
.'@'.$this->host
;
610 $email = $this->mailbox
;
612 if (trim($this->personal
) !='')
616 $addr = '"' . $this->personal
. '" <' .$email.'>';
619 $addr = $this->personal
;
621 $best_dpl = $this->personal
;
640 /** message is the object that contains messages. It is a recursive
641 object in that through the $entities variable, it can contain
642 more objects of type message. See documentation in mime.txt for
643 a better description of how this works.
645 var $rfc822_header = '',
651 $parent_ent, $entity,
652 $parent = '', $decoded_body='',
653 $is_seen = 0, $is_answered = 0, $is_deleted = 0, $is_flagged = 0,
656 $offset = 0, /* for fetching body parts out of raw messages */
657 $length = 0; /* for fetching body parts out of raw messages */
659 function setEnt($ent)
661 $this->entity_id
= $ent;
664 function addEntity ($msg)
666 $msg->parent
= &$this;
667 $this->entities
[] = $msg;
670 function addRFC822Header($read)
672 $header = new rfc822_header();
673 $this->rfc822_header
= $header->parseHeader($read);
676 function getEntity($ent)
678 $cur_ent = $this->entity_id
;
680 if ($cur_ent == '' ||
$cur_ent == '0')
682 $cur_ent_a = array();
685 $cur_ent_a = explode('.',$this->entity_id
);
687 $ent_a = explode('.',$ent);
689 $cnt = count($ent_a);
691 for ($i=0;$i<$cnt -1;$i++
)
693 if (isset($cur_ent_a[$i]) && $cur_ent_a[$i] != $ent_a[$i])
696 $cur_ent_a = explode('.',$msg->entity_id
);
698 } else if (!isset($cur_ent_a[$i]))
700 if (isset($msg->entities
[($ent_a[$i]-1)]))
702 $msg = $msg->entities
[($ent_a[$i]-1)];
704 $msg = $msg->entities
[0];
707 if ($msg->type0
== 'message' && $msg->type1
== 'rfc822')
709 /*this is a header for a message/rfc822 entity */
710 $msg = $msg->entities
[0];
714 if ($msg->type0
== 'message' && $msg->type1
== 'rfc822')
716 /*this is a header for a message/rfc822 entity */
717 $msg = $msg->entities
[0];
720 if (isset($msg->entities
[($ent_a[$cnt-1])-1]))
722 $msg = $msg->entities
[($ent_a[$cnt-1]-1)];
730 $this->body_part
= $s;
736 $msg->body_part
= '';
738 while ( isset($msg->entities
[$i]))
740 $msg->entities
[$i]->clean_up();
745 function getMailbox()
748 while (is_object($msg->parent
))
752 return $msg->mailbox
;
755 function calcEntity($msg)
757 if ($this->type0
== 'message' && $this->type1
== 'rfc822')
759 $msg->entity_id
= $this->entity_id
.'.0'; /* header of message/rfc822 */
760 } else if (isset($this->entity_id
) && $this->entity_id
!='')
762 $ent_no = count($this->entities
)+
1;
763 $par_ent = substr($this->entity_id
,-2);
764 if ($par_ent{0} == '.')
766 $par_ent = $par_ent{1};
770 $ent_no = count($this->entities
)+
1;
773 $ent = substr($this->entity_id
,0,strrpos($this->entity_id
,'.'));
776 $ent = $ent . ".$ent_no";
781 $msg->entity_id
= $ent;
784 $msg->entity_id
= $ent_no;
788 $ent = $this->entity_id
. ".$ent_no";
789 $msg->entity_id
= $ent;
793 $msg->entity_id
= '0';
795 return $msg->entity_id
;
800 * Bodystructure parser, a recursive function for generating the
801 * entity-tree with all the mime-parts.
803 * It follows RFC2060 and stores all the described fields in the
808 * Ask for me (Marc Groot Koerkamp, stekkel@users.sourceforge.net.
811 function parseStructure($read, $i=0)
815 $cnt = strlen($read);
818 $char = strtoupper($read{$i});
826 $msg = new message();
827 $hdr = new msg_header();
828 $hdr->type0
= 'text';
829 $hdr->type1
= 'plain';
830 $hdr->encoding
= 'us-ascii';
831 $msg->entity_id
= $this->calcEntity($msg);
834 $msg->header
->type0
= 'multipart';
835 $msg->type0
= 'multipart';
836 while ($read{$i} == '(')
838 $res = $msg->parseStructure($read,$i);
840 $msg->addEntity($res[0]);
848 /* multipart properties */
850 $res = $this->parseProperties($read,$i);
857 if (isset($msg->type0
) && $msg->type0
== 'multipart')
860 $res = $msg->parseDisposition($read,$i);
863 } else /* properties */
865 $res = $msg->parseProperties($read,$i);
872 if (isset($msg->type0
) && $msg->type0
== 'multipart')
875 $res= $msg->parseLanguage($read,$i);
880 if ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822')
882 $msg->header
->type0
= $arg_a[0];
883 $msg->type0
= $arg_a[0];
884 $msg->header
->type1
= $arg_a[1];
885 $msg->type1
= $arg_a[1];
886 $rfc822_hdr = new rfc822_header();
887 $res = $msg->parseEnvelope($read,$i,$rfc822_hdr);
889 $msg->rfc822_header
= $res[0];
891 while ($i < $cnt && $read{$i} != '(')
895 $res = $msg->parseStructure($read,$i);
897 $msg->addEntity($res[0]);
902 $res = $msg->parseDisposition($read,$i);
908 if ($arg_a[0] == 'text' ||
909 ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822'))
912 $res = $msg->parseDisposition($read,$i);
918 $res = $msg->parseLanguage($read,$i);
925 if ($arg_a[0] == 'text' ||
926 ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822'))
929 $res = $msg->parseLanguage($read,$i);
934 $i = $msg->parseParenthesis($read,$i);
935 $arg_a[] = ''; /* not yet desribed in rfc2060 */
940 /* unknown argument, skip this part */
941 $i = $msg->parseParenthesis($read,$i);
949 /* inside an entity -> start processing */
950 $debug = substr($read,$i,20);
951 $res = $msg->parseQuote($read,$i);
955 if ($arg_no < 3) $arg_s = strtolower($arg_s); /* type0 and type1 */
960 /* probably NIL argument */
961 if (strtoupper(substr($read,$i,4)) == 'NIL ' ||
962 strtoupper(substr($read,$i,4)) == 'NIL)')
970 /* process the literal value */
971 $res = $msg->parseLiteral($read,$i);
976 case (is_numeric($read{$i}) ):
977 /* process integers */
978 if ($read{$i} == ' ') break;
981 while (preg_match('/^[0-9]{1}$/',$read{$i}))
990 if (isset($msg->type0
) && $msg->type0
== 'multipart')
999 if ($arg_a[0] == 'text' ||
1000 ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822'))
1002 $shifted_args = true;
1005 $shifted_args = false;
1007 $hdr->type0
= $arg_a[0];
1008 $hdr->type1
= $arg_a[1];
1010 $msg->type0
= $arg_a[0];
1011 $msg->type1
= $arg_a[1];
1016 $hdr->parameters
= $arg_a[2];
1018 $hdr->id
= str_replace( '<', '', str_replace( '>', '', $arg_a[3] ) );
1019 $hdr->description
= $arg_a[4];
1020 $hdr->encoding
= strtolower($arg_a[5]);
1021 $hdr->entity_id
= $msg->entity_id
;
1022 $hdr->size
= $arg_a[6];
1025 $hdr->lines
= $arg_a[7];
1026 if (isset($arg_a[8]))
1028 $hdr->md5
= $arg_a[8];
1030 if (isset($arg_a[9]))
1032 $hdr->disposition
= $arg_a[9];
1034 if (isset($arg_a[10]))
1036 $hdr->language
= $arg_a[10];
1040 if (isset($arg_a[7]))
1042 $hdr->md5
= $arg_a[7];
1044 if (isset($arg_a[8]))
1046 $hdr->disposition
= $arg_a[8];
1048 if (isset($arg_a[9]))
1050 $hdr->language
= $arg_a[9];
1053 $msg->header
= $hdr;
1056 if (substr($msg->entity_id
,-2) == '.0' && $msg->type0
!='multipart')
1060 return (array($msg, $i));
1063 $hdr->type0
= 'multipart';
1064 $hdr->type1
= $arg_a[0];
1065 $msg->type0
= 'multipart';
1066 $msg->type1
= $arg_a[0];
1067 if (is_array($arg_a[1]))
1069 $hdr->parameters
= $arg_a[1];
1071 if (isset($arg_a[2]))
1073 $hdr->disposition
= $arg_a[2];
1075 if (isset($arg_a[3]))
1077 $hdr->language
= $arg_a[3];
1079 $msg->header
= $hdr;
1080 return (array($msg, $i));
1087 } /* parsestructure */
1089 function parseProperties($read, $i)
1091 $properties = array();
1094 while ($read{$i} != ')')
1096 if ($read{$i} == '"')
1098 $res = $this->parseQuote($read,$i);
1101 } else if ($read{$i} == '{')
1103 $res = $this->parseLiteral($read,$i);
1107 if ($prop_name == '' && $arg_s)
1109 $prop_name = strtolower($arg_s);
1110 $properties[$prop_name] = '';
1112 } elseif ($prop_name != '' && $arg_s != '')
1114 $properties[$prop_name] = $arg_s;
1120 return (array($properties, $i));
1123 function parseEnvelope($read, $i, $hdr)
1127 $cnt = strlen($read);
1128 while ($i< $cnt && $read{$i} != ')')
1131 $char = strtoupper($read{$i});
1135 $res = $this->parseQuote($read,$i);
1141 $res = $this->parseLiteral($read,$i);
1147 /* probably NIL argument */
1148 if (strtoupper(substr($read,$i,3)) == 'NIL') {
1155 /* Address structure
1156 * With group support.
1157 * Note: Group support is useless on SMTP connections
1158 * because the protocol doesn't support it
1163 while ($i < $cnt && $read{$i} != ')')
1165 if ($read{$i} == '(')
1167 $res = $this->parseAddress($read,$i);
1170 if ($addr->host
== '' && $addr->mailbox
!= '')
1172 /* start of group */
1173 $group = $addr->mailbox
;
1174 $group_addr = $addr;
1176 } elseif ($group && $addr->host
== '' && $addr->mailbox
== '')
1179 if ($a == $j+
1) /* no group members */
1181 $group_addr->group
= $group;
1182 $group_addr->mailbox
= '';
1183 $group_addr->personal
= "$group: Undisclosed recipients;";
1184 $addr_a[] = $group_addr;
1189 $addr->group
= $group;
1203 if (count($arg_a) > 9)
1205 /* argument 1: date */
1206 $d = strtr($arg_a[0], array(' ' => ' '));
1207 $d = explode(' ', $d);
1208 $hdr->date
= getTimeStamp($d);
1209 /* argument 2: subject */
1210 if (!trim($arg_a[1]))
1212 $arg_a[1]= _("(no subject)");
1214 $hdr->subject
= $arg_a[1];
1215 /* argument 3: from */
1216 $hdr->from
= $arg_a[2][0];
1217 /* argument 4: sender */
1218 $hdr->sender
= $arg_a[3][0];
1219 /* argument 5: reply-to */
1220 $hdr->replyto
= $arg_a[4][0];
1221 /* argument 6: to */
1222 $hdr->to
= $arg_a[5];
1223 /* argument 7: cc */
1224 $hdr->cc
= $arg_a[6];
1225 /* argument 8: bcc */
1226 $hdr->bcc
= $arg_a[7];
1227 /* argument 9: in-reply-to */
1228 $hdr->inreplyto
= $arg_a[8];
1229 /* argument 10: message-id */
1230 $hdr->message_id
= $arg_a[9];
1232 return (array($hdr,$i));
1235 function parseLiteral($read, $i)
1239 while ($read{$i} != '}')
1241 $lit_cnt .= $read{$i};
1244 $lit_cnt +
=2; /* add the { and } characters */
1246 for ($j = 0; $j < $lit_cnt; $j++
)
1251 return (array($s, $i));
1254 function parseQuote($read, $i)
1258 while ($read{$i} != '"')
1260 if ($read{$i} == '\\')
1267 return (array($s, $i));
1270 function parseAddress($read, $i)
1273 while ($read{$i} != ')' )
1275 $char = strtoupper($read{$i});
1279 $res = $this->parseQuote($read,$i);
1284 $res = $this->parseLiteral($read,$i);
1290 if (strtoupper(substr($read,$i,3)) == 'NIL') {
1300 if (count($arg_a) == 4)
1302 $adr = new address_structure();
1303 $adr->personal
= $arg_a[0];
1304 $adr->adl
= $arg_a[1];
1305 $adr->mailbox
= $arg_a[2];
1306 $adr->host
= $arg_a[3];
1311 return (array($adr,$i));
1314 function parseDisposition($read,$i)
1317 while ($read{$i} != ')')
1322 $res = $this->parseQuote($read,$i);
1327 $res = $this->parseLiteral($read,$i);
1332 $res = $this->parseProperties($read,$i);
1341 if (isset($arg_a[0]))
1343 $disp = new disposition($arg_a[0]);
1344 if (isset($arg_a[1]))
1346 $disp->properties
= $arg_a[1];
1349 if (is_object($disp))
1351 return (array($disp, $i));
1354 return (array('',$i));
1358 function parseLanguage($read,$i)
1360 /* no idea how to process this one without examples */
1362 while ($read{$i} != ')')
1367 $res = $this->parseQuote($read,$i);
1372 $res = $this->parseLiteral($read,$i);
1377 $res = $this->parseProperties($read,$i);
1386 if (isset($arg_a[0]))
1388 $lang = new language($arg_a[0]);
1389 if (isset($arg_a[1]))
1391 $lang->properties
= $arg_a[1];
1394 if (is_object($lang))
1396 return (array($lang, $i));
1399 return (array('', $i));
1403 function parseParenthesis($read,$i)
1405 while ($read{$i} != ')')
1410 $res = $this->parseQuote($read,$i);
1414 $res = $this->parseLiteral($read,$i);
1418 $res = $this->parseParenthesis($read,$i);
1429 /* function to fill the message structure in case the bodystructure
1430 isn't available NOT FINISHED YET
1432 function parseMessage($read, $type0, $type1)
1437 $rfc822_header = true;
1438 $mime_header = false;
1441 $mime_header = true;
1442 $rfc822_header = false;
1448 for ($i=1; $i < $count; $i++
)
1450 $line = trim($body[$i]);
1451 if ( ( $mime_header ||
$rfc822_header) &&
1452 (preg_match("/^.*boundary=\"?(.+(?=\")|.+).*/i",$line,$reg)) )
1456 $bndreg = str_replace("\\","\\\\",$bndreg);
1457 $bndreg = str_replace("?","\\?",$bndreg);
1458 $bndreg = str_replace("+","\\+",$bndreg);
1459 $bndreg = str_replace(".","\\.",$bndreg);
1460 $bndreg = str_replace("/","\\/",$bndreg);
1461 $bndreg = str_replace("-","\\-",$bndreg);
1462 $bndreg = str_replace("(","\\(",$bndreg);
1463 $bndreg = str_replace(")","\\)",$bndreg);
1464 } elseif ( $rfc822_header && $line == '' )
1466 $rfc822_header = false;
1467 if ($msg->type0
== 'multipart')
1469 $mime_header = true;
1473 if (($line{0} == '-' ||
$rfc822_header) && isset($boundaries[0]))
1475 $cnt=count($boundaries)-1;
1476 $bnd = $boundaries[$cnt]['bnd'];
1477 $bndreg = $boundaries[$cnt]['bndreg'];
1479 $regstr = '/^--'."($bndreg)".".*".'/';
1480 if (preg_match($regstr,$line,$reg) )
1482 $bndlen = strlen($reg[1]);
1484 if (strlen($line) > ($bndlen +
3))
1486 if ($line{$bndlen+
2} == '-' && $line{$bndlen+
3} == '-')
1491 /* calc offset and return $msg */
1492 // $entStr = CalcEntity("$entStr",-1);
1493 array_pop($boundaries);
1494 $mime_header = true;
1498 $mime_header = true;
1500 // $entStr = CalcEntity("$entStr",0);
1513 function findDisplayEntity ($entity = array(), $alt_order = array('text/plain','text/html'))
1516 $type = $this->type0
.'/'.$this->type1
;
1517 if ( $type == 'multipart/alternative')
1519 $msg = $this->findAlternativeEntity($alt_order);
1520 if (count($msg->entities
) == 0)
1522 $entity[] = $msg->entity_id
;
1525 $entity = $msg->findDisplayEntity($entity, $alt_order);
1528 } else if ( $type == 'multipart/related')
1530 $msgs = $this->findRelatedEntity();
1531 for ($i = 0; $i < count($msgs); $i++
)
1534 if (count($msg->entities
) == 0)
1536 $entity[] = $msg->entity_id
;
1539 $entity = $msg->findDisplayEntity($entity,$alt_order);
1543 } else if ( $this->type0
== 'text' &&
1544 ( $this->type1
== 'plain' ||
1545 $this->type1
== 'html' ||
1546 $this->type1
== 'message') &&
1547 isset($this->entity_id
) )
1549 if (count($this->entities
) == 0)
1551 if (strtolower($this->header
->disposition
->name
) != 'attachment')
1553 $entity[] = $this->entity_id
;
1558 while ( isset($this->entities
[$i]) && !$found &&
1559 (strtolower($this->entities
[$i]->header
->disposition
->name
)
1561 ($this->entities
[$i]->type0
!= 'message' &&
1562 $this->entities
[$i]->type1
!= 'rfc822' )
1565 $entity = $this->entities
[$i]->findDisplayEntity($entity, $alt_order);
1571 function findAlternativeEntity ($alt_order)
1573 /* if we are dealing with alternative parts then we choose the best
1574 * viewable message supported by SM.
1579 for ($i = 0; $i < count($this->entities
); $i ++
)
1581 $type = $this->entities
[$i]->header
->type0
.'/'.$this->entities
[$i]->header
->type1
;
1582 if ($type == 'multipart/related')
1584 $type = $this->entities
[$i]->header
->getParameter('type');
1586 for ($j = $k; $j < count($alt_order); $j++
)
1588 if ($alt_order[$j] == $type && $j > $best_view)
1596 return $this->entities
[$ent_id];
1599 function findRelatedEntity ()
1602 for ($i = 0; $i < count($this->entities
); $i ++
)
1604 $type = $this->entities
[$i]->header
->type0
.'/'.$this->entities
[$i]->header
->type1
;
1605 if ($this->header
->getParameter('type') == $type)
1607 $msgs[] = $this->entities
[$i];
1613 function getAttachments($exclude_id=array(), $result = array())
1615 if ($this->type0
== 'message' && $this->type1
== 'rfc822')
1617 $this = $this->entities
[0];
1619 if (count($this->entities
))
1621 foreach ($this->entities
as $entity)
1624 foreach ($exclude_id as $excl)
1626 if ($entity->entity_id
== $excl)
1633 if ($entity->type0
== 'multipart' &&
1634 $entity->type1
!= 'related')
1636 $result = $entity->getAttachments($exclude_id, $result);
1637 } else if ($entity->type0
!= 'multipart')
1639 $result[] = $entity;
1646 foreach ($exclude_id as $excl)
1648 if ($this->entity_id
== $excl)
1668 function disposition($name)
1670 $this->name
= $name;
1671 $this->properties
= array();
1674 function getProperty($par)
1676 $value = strtolower($par);
1677 if (isset($this->properties
[$par]))
1679 return $this->properties
[$par];
1688 function language($name)
1690 $this->name
= $name;
1691 $this->properties
= array();
1700 function content_type($type)
1702 $pos = strpos($type,'/');
1705 $this->type0
= substr($type,0,$pos);
1706 $this->type1
= substr($type,$pos+
1);
1709 $this->type0
= $type;
1711 $this->properties
= array();