/**
* mime.class
*
- * Copyright (c) 2002 The SquirrelMail Project Team
- * Licensed under the GNU GPL. For full terms see the file COPYING.
+ * This file loads classes needed to handle mime messages.
*
- *
- * This contains functions needed to handle mime messages.
- *
- * $Id$
+ * @copyright 2003-2017 The SquirrelMail Project Team
+ * @license http://opensource.org/licenses/gpl-license.php GNU Public License
+ * @version $Id$
+ * @package squirrelmail
+ * @subpackage mime
*/
-
-
-/*
- * rdc822_header class
- * input: header_string or array
- */
-class rfc822_header
-{
- var $date = '',
- $subject = '',
- $from = array(),
- $sender = '',
- $reply_to = array(),
- $to = array(),
- $cc = array(),
- $bcc = array(),
- $in_reply_to = '',
- $message_id = '',
- $mime = false,
- $content_type = '',
- $disposition = '',
- $xmailer = '',
- $priority = 3,
- $dnt = '',
- $mlist = array(),
- $more_headers = array(); /* only needed for constructing headers
- in smtp.php */
-
- function parseHeader($hdr)
- {
- if (is_array($hdr))
- {
- $hdr = implode('',$hdr);
- }
- /* first we unfold the header */
- $hdr = trim(str_replace(array("\r\n\t","\r\n "),array('',''),$hdr));
- /*
- * now we can make a new header array with each element representing
- * a headerline
- */
- $hdr = explode("\r\n" , $hdr);
- foreach ($hdr as $line)
- {
- $pos = strpos($line,':');
- if ($pos > 0)
- {
- $field = substr($line,0,$pos);
- $value = trim(substr($line,$pos+1));
- if(!preg_match('/^X.*/i',$field)) {
- $value = $this->stripComments($value);
- }
- $this->parseField($field,$value);
- }
- }
- if ($this->content_type == '')
- {
- $this->parseContentType('text/plain; charset=us-ascii');
- }
- }
-
- function stripComments($value)
- {
- $cnt = strlen($value);
- $s = '';
- $i = 0;
- while ($i < $cnt)
- {
- switch ($value{$i})
- {
- case ('"'):
- $s .= '"';
- $i++;
- while ($value{$i} != '"')
- {
- if ($value{$i} == '\\')
- {
- $s .= '\\';
- $i++;
- }
- $s .= $value{$i};
- $i++;
- if ($i > $cnt) break;
- }
- $s .= $value{$i};
- break;
- case ('('):
- while ($value{$i} != ')')
- {
- if ($value{$i} == '\\')
- {
- $i++;
- }
- $i++;
- }
- break;
- default:
- $s .= $value{$i};
- break;
- }
- $i++;
- }
- return $s;
- }
-
- function parseField($field,$value)
- {
- $field = strtolower($field);
- switch($field)
- {
- case ('date'):
- $d = strtr($value, array(' ' => ' '));
- $d = explode(' ', $d);
- $this->date = getTimeStamp($d);
- break;
- case ('subject'):
- $this->subject = $value;
- break;
- case ('from'):
- $this->from = $this->parseAddress($value,true);
- break;
- case ('sender'):
- $this->sender = $this->parseAddress($value);
- break;
- case ('reply-to'):
- $this->reply_to = $this->parseAddress($value, true);
- break;
- case ('to'):
- $this->to = $this->parseAddress($value, true);
- break;
- case ('cc'):
- $this->cc = $this->parseAddress($value, true);
- break;
- case ('bcc'):
- $this->bcc = $this->parseAddress($value, true);
- break;
- case ('in-reply-to'):
- $this->in_reply_to = $value;
- break;
- case ('message_id'):
- $this->message_id = $value;
- break;
- case ('disposition-notification-to'):
- $this->dnt = $this->parseAddress($value);
- break;
- case ('mime-Version'):
- $value = str_replace(' ','',$value);
- if ($value == '1.0')
- {
- $this->mime = true;
- }
- break;
- case ('content-type'):
- $this->parseContentType($value);
- break;
- case ('content-disposition'):
- $this->parseDisposition($value);
- break;
- case ('x-mailer'):
- $this->xmailer = $value;
- break;
- case ('x-priority'):
- $this->priority = $value;
- break;
- case ('list-post'):
- $this->mlist('post',$value);
- break;
- case ('list-reply'):
- $this->mlist('reply',$value);
- break;
- case ('list-subscribe'):
- $this->mlist('subscribe',$value);
- break;
- case ('list-unsubscribe'):
- $this->mlist('unsubscribe',$value);
- break;
- case ('list-archive'):
- $this->mlist('archive',$value);
- break;
- case ('list-owner'):
- $this->mlist('owner',$value);
- break;
- case ('list-help'):
- $this->mlist('help',$value);
- break;
- case ('list-id'):
- $this->mlist('id',$value);
- break;
- default:
- break;
- }
- }
-
- function parseAddress($address, $ar=false, $addr_ar = array(), $group = '')
- {
- $pos = 0;
- $j = strlen( $address );
- $name = '';
- $addr = '';
- while ( $pos < $j ) {
- switch ($address{$pos})
- {
- case ('"'): /* get the personal name */
- $pos++;
- if ($address{$pos} == '"')
- {
- $pos++;
- } else
- {
- while ( $pos < $j && $address{$pos} != '"')
- {
- if (substr($address, $pos, 2) == '\\"')
- {
- $name .= $address{$pos};
- $pos++;
- } elseif (substr($address, $pos, 2) == '\\\\')
- {
- $name .= $address{$pos};
- $pos++;
- }
- $name .= $address{$pos};
- $pos++;
- }
- }
- $pos++;
- break;
- case ('<'): /* get email address */
- $addr_start=$pos;
- $pos++;
- while ( $pos < $j && $address{$pos} != '>' )
- {
- $addr .= $address{$pos};
- $pos++;
- }
- $pos++;
- break;
- case ('('): /* rip off comments */
- $addr_start=$pos;
- $pos++;
- while ( $pos < $j && $address{$pos} != ')' )
- {
- $addr .= $address{$pos};
- $pos++;
- }
- $address_start = substr($address,0,$addr_start);
- $address_end = substr($address,$pos+1);
- $address = $address_start . $address_end;
- $j = strlen( $address );
- $pos = $addr_start;
- $pos++;
- break;
- case (','): /* we reached a delimiter */
- if ($addr == '')
- {
- $addr = substr($address,0,$pos);
- } elseif ($name == '') {
- $name = trim(substr($address,0,$addr_start));
- }
-
- $at = strpos($addr, '@');
- $addr_structure = new address_structure();
- $addr_structure->personal = $name;
- $addr_structure->group = $group;
- if ($at)
- {
- $addr_structure->mailbox = substr($addr,0,$at);
- $addr_structure->host = substr($addr,$at+1);
- } else
- {
- $addr_structure->mailbox = $addr;
- }
- $address = trim(substr($address,$pos+1));
- $j = strlen( $address );
- $pos = 0;
- $name = '';
- $addr = '';
- $addr_ar[] = $addr_structure;
- break;
- case (':'): /* process the group addresses */
- /* group marker */
- $group = substr($address,0,$pos);
- $address = substr($address,$pos+1);
- $result = $this->parseAddress($address, $ar, $addr_ar, $group);
- $addr_ar = $result[0];
- $pos = $result[1];
- $address = substr($address,$pos);
- $j = strlen( $address );
- $group = '';
- $pos++;
- break;
- case (';'):
- if ($group)
- {
- $address = substr($address, 0, $pos-1);
- }
- $pos++;
- break;
- default:
- $pos++;
- break;
- }
-
- }
- if ($addr == '')
- {
- $addr = substr($address,0,$pos);
- } elseif ($name == '')
- {
- $name = trim(substr($address,0,$addr_start));
- }
- $at = strpos($addr, '@');
- $addr_structure = new address_structure();
- $addr_structure->group = $group;
- if ($at)
- {
- $addr_structure->mailbox = trim(substr($addr,0,$at));
- $addr_structure->host = trim(substr($addr,$at+1));
- } else
- {
- $addr_structure->mailbox = trim($addr);
- }
- if ($group && $addr == '') /* no addresses found in group */
- {
- $name = "$group: Undisclosed recipients;";
- $addr_structure->personal = $name;
- $addr_ar[] = $addr_structure;
- return (array($addr_ar,$pos+1));
- } else
- {
- $addr_structure->personal = $name;
- if ($name || $addr)
- {
- $addr_ar[] = $addr_structure;
- }
- }
- if ($ar)
- {
- return ($addr_ar);
- } else
- {
- return ($addr_ar[0]);
- }
- }
-
- function parseContentType($value)
- {
- $pos = strpos($value,';');
- $props = '';
- if ($pos > 0)
- {
- $type = trim(substr($value,0,$pos));
- $props = trim(substr($type,$pos+1));
- } else
- {
- $type = $value;
- }
- $content_type = new content_type($type);
- if ($props)
- {
- $properties = $this->parseProperties($props);
- if (!isset($properties['charset']))
- {
- $properties['charset'] = 'us-ascii';
- }
- $content_type->properties = $this->parseProperties($props);
- }
- $this->content_type = $content_type;
- }
-
- function parseProperties($value)
- {
- $propArray = explode(';',$value);
- $propResultArray = array();
- foreach ($propArray as $prop)
- {
- $prop = trim($prop);
- $pos = strpos($prop,'=');
- if ($pos>0)
- {
- $key = trim(substr($prop,0,$pos));
- $val = trim(substr($prop,$pos+1));
- if ($val{0} == '"')
- {
- $val = substr($val,1,-1);
- }
- $propResultArray[$key] = $val;
- }
- }
- return $propResultArray;
- }
-
- function parseDisposition($value)
- {
- $pos = strpos($value,';');
- $props = '';
- if ($pos > 0)
- {
- $name = trim(substr($value,0,$pos));
- $props = trim(substr($type,$pos+1));
- } else
- {
- $name = $value;
- }
- $props_a = $this->parseProperties($props);
- $disp = new disposition($name);
- $disp->properties = $props_a;
- $this->disposition = $disp;
- }
-
- function mlist($field, $value)
- {
- $res_a = array();
- $value_a = explode(',',$value);
- foreach ($value_a as $val) {
- $val = trim($val);
- if ($val{0} == '<')
- {
- $val = substr($val,1,-1);
- }
- if (substr($val,0,7) == 'mailto:')
- {
- $res_a['mailto'] = substr($val,7);
- } else
- {
- $res_a['href'] = $val;
- }
- }
- $this->mlist[$field] = $res_a;
- }
-
- /*
- * function to get the addres strings out of the header.
- * Arguments: string or array of strings !
- * example1: header->getAddr_s('to').
- * example2: header->getAddr_s(array('to','cc','bcc'))
- */
- function getAddr_s($arr, $separator=', ')
- {
- if (is_array($arr))
- {
- $s = '';
- foreach($arr as $arg )
- {
- $result = $this->getAddr_s($arg);
- if ($result)
- {
- $s .= $separator . $result;
- }
- }
- if ($s) $s = substr($s,2);
- return $s;
- } else
- {
- $s = '';
- eval('$addr = $this->'.$arr.';') ;
- if (is_array($addr))
- {
- foreach ($addr as $addr_o)
- {
- if (is_object($addr_o))
- {
- $s .= $addr_o->getAddress() . $separator;
- }
- }
- $s = substr($s,0,-strlen($separator));
- } else
- {
- if (is_object($addr))
- {
- $s .= $addr->getAddress();
- }
- }
- return $s;
- }
- }
-
- function getAddr_a($arg, $excl_arr=array(), $arr = array())
- {
- if (is_array($arg))
- {
- foreach($arg as $argument )
- {
- $arr = $this->getAddr_a($argument, $excl_arr, $arr);
- }
- return $arr;
- } else
- {
- eval('$addr = $this->'.$arg.';') ;
- if (is_array($addr))
- {
- foreach ($addr as $addr_o)
- {
- if (is_object($addr_o))
- {
- if (isset($addr_o->host) && $addr_o->host !='')
- {
- $email = $addr_o->mailbox.'@'.$addr_o->host;
- } else
- {
- $email = $addr_o->mailbox;
- }
- $email = strtolower($email);
- if ($email && !isset($arr[$email]) && !isset($excl_arr[$email]))
- {
- $arr[$email] = $addr_o->personal;
- }
- }
- }
- } else
- {
- if (is_object($addr))
- {
- if (isset($addr->host))
- {
- $email = $addr->mailbox.'@'.$addr->host;
- } else
- {
- $email = $addr->mailbox;
- }
- $email = strtolower($email);
- if ($email && !isset($arr[$email]) && !isset($excl_arr[$email]))
- {
- $arr[$email] = $addr->personal;
- }
- }
- }
- return $arr;
- }
- }
-
- function getContentType($type0, $type1)
- {
- $type0 = $this->content_type->type0;
- $type1 = $this->content_type->type1;
- return $this->content_type->properties;
- }
-}
-
-class msg_header
-{
- /** msg_header contains all variables available in a bodystructure **/
- /** entity like described in rfc2060 **/
-
- var $type0 = '',
- $type1 = '',
- $parameters = array(),
- $id = 0,
- $description = '',
- $encoding='',
- $size = 0,
- $md5='',
- $disposition = '',
- $language='';
-
- /*
- * returns addres_list of supplied argument
- * arguments: array('to', 'from', ...) or just a string like 'to'.
- * result: string: address1, addres2, ....
- */
-
- function setVar($var, $value)
- {
- $this->{$var} = $value;
- }
-
- function getParameter($par)
- {
- $value = strtolower($par);
- if (isset($this->parameters[$par]))
- {
- return $this->parameters[$par];
- }
- return '';
- }
-
- function setParameter($parameter, $value)
- {
- $this->parameters[strtolower($parameter)] = $value;
- }
-}
-
-
-
-class address_structure
-{
- var $personal = '', $adl = '', $mailbox = '', $host = '', $group = '';
-
- function getAddress($full=true)
- {
- if (is_object($this))
- {
- if (isset($this->host) && $this->host !='')
- {
- $email = $this->mailbox.'@'.$this->host;
- } else
- {
- $email = $this->mailbox;
- }
- if (trim($this->personal) !='')
- {
- if ($email)
- {
- $addr = '"' . $this->personal . '" <' .$email.'>';
- } else
- {
- $addr = $this->personal;
- }
- $best_dpl = $this->personal;
- } else
- {
- $addr = $email;
- $best_dpl = $email;
- }
- if ($full)
- {
- return $addr;
- } else
- {
- return $best_dpl;
- }
- } else return '';
- }
-}
-
-class message
-{
- /** message is the object that contains messages. It is a recursive
- object in that through the $entities variable, it can contain
- more objects of type message. See documentation in mime.txt for
- a better description of how this works.
- **/
- var $rfc822_header = '',
- $mime_header = '',
- $flags = '',
- $type0='',
- $type1='',
- $entities = array(),
- $parent_ent, $entity,
- $parent = '', $decoded_body='',
- $is_seen = 0, $is_answered = 0, $is_deleted = 0, $is_flagged = 0,
- $is_mdnsent = 0,
- $body_part = '',
- $offset = 0, /* for fetching body parts out of raw messages */
- $length = 0; /* for fetching body parts out of raw messages */
-
- function setEnt($ent)
- {
- $this->entity_id= $ent;
- }
-
- function addEntity ($msg)
- {
- $msg->parent = &$this;
- $this->entities[] = $msg;
- }
-
- function addRFC822Header($read)
- {
- $header = new rfc822_header();
- $this->rfc822_header = $header->parseHeader($read);
- }
-
- function getEntity($ent)
- {
- $cur_ent = $this->entity_id;
- $msg = $this;
- if ($cur_ent == '' || $cur_ent == '0')
- {
- $cur_ent_a = array();
- } else
- {
- $cur_ent_a = explode('.',$this->entity_id);
- }
- $ent_a = explode('.',$ent);
-
- $cnt = count($ent_a);
-
- for ($i=0;$i<$cnt -1;$i++)
- {
- if (isset($cur_ent_a[$i]) && $cur_ent_a[$i] != $ent_a[$i])
- {
- $msg = $msg->parent;
- $cur_ent_a = explode('.',$msg->entity_id);
- $i--;
- } else if (!isset($cur_ent_a[$i]))
- {
- if (isset($msg->entities[($ent_a[$i]-1)]))
- {
- $msg = $msg->entities[($ent_a[$i]-1)];
- } else {
- $msg = $msg->entities[0];
- }
- }
- if ($msg->type0 == 'message' && $msg->type1 == 'rfc822')
- {
- /*this is a header for a message/rfc822 entity */
- $msg = $msg->entities[0];
- }
- }
-
- if ($msg->type0 == 'message' && $msg->type1 == 'rfc822')
- {
- /*this is a header for a message/rfc822 entity */
- $msg = $msg->entities[0];
- }
-
- if (isset($msg->entities[($ent_a[$cnt-1])-1]))
- {
- if (is_object($msg->entities[($ent_a[$cnt-1])-1]))
- {
- $msg = $msg->entities[($ent_a[$cnt-1]-1)];
- }
- }
-
- return $msg;
- }
-
- function setBody($s)
- {
- $this->body_part = $s;
- }
-
- function clean_up()
- {
- $msg = $this;
- $msg->body_part = '';
- $i=0;
- while ( isset($msg->entities[$i]))
- {
- $msg->entities[$i]->clean_up();
- $i++;
- }
- }
-
- function getMailbox()
- {
- $msg = $this;
- while (is_object($msg->parent))
- {
- $msg = $msg->parent;
- }
- return $msg->mailbox;
- }
-
- function calcEntity($msg)
- {
- if ($this->type0 == 'message' && $this->type1 == 'rfc822')
- {
- $msg->entity_id = $this->entity_id .'.0'; /* header of message/rfc822 */
- } else if (isset($this->entity_id) && $this->entity_id !='')
- {
- $ent_no = count($this->entities)+1;
- $par_ent = substr($this->entity_id,-2);
- if ($par_ent{0} == '.')
- {
- $par_ent = $par_ent{1};
- }
- if ($par_ent == '0')
- {
- $ent_no = count($this->entities)+1;
- if ($ent_no > 0)
- {
- $ent = substr($this->entity_id,0,strrpos($this->entity_id,'.'));
- if ($ent)
- {
- $ent = $ent . ".$ent_no";
- } else
- {
- $ent = $ent_no;
- }
- $msg->entity_id = $ent;
- } else
- {
- $msg->entity_id = $ent_no;
- }
- } else
- {
- $ent = $this->entity_id . ".$ent_no";
- $msg->entity_id = $ent;
- }
- } else
- {
- $msg->entity_id = '0';
- }
- return $msg->entity_id;
- }
-
-
- /*
- * Bodystructure parser, a recursive function for generating the
- * entity-tree with all the mime-parts.
- *
- * It follows RFC2060 and stores all the described fields in the
- * message object.
- *
- * Question/Bugs:
- *
- * Ask for me (Marc Groot Koerkamp, stekkel@users.sourceforge.net.
- *
- */
- function parseStructure($read, $i=0)
- {
- $arg_no = 0;
- $arg_a = array();
- $cnt = strlen($read);
- while ($i < $cnt)
- {
- $char = strtoupper($read{$i});
- switch ($char)
- {
- case '(':
- if ($arg_no == 0 )
- {
- if (!isset($msg))
- {
- $msg = new message();
- $hdr = new msg_header();
- $hdr->type0 = 'text';
- $hdr->type1 = 'plain';
- $hdr->encoding = 'us-ascii';
- $msg->entity_id = $this->calcEntity($msg);
- } else
- {
- $msg->header->type0 = 'multipart';
- $msg->type0 = 'multipart';
- while ($read{$i} == '(')
- {
- $res = $msg->parseStructure($read,$i);
- $i = $res[1];
- $msg->addEntity($res[0]);
- }
- }
- } else
- {
- switch ($arg_no)
- {
- case 1:
- /* multipart properties */
- $i++;
- $res = $this->parseProperties($read,$i);
-
- $arg_a[] = $res[0];
- $i = $res[1];
- $arg_no++;
- break;
- case 2:
- if (isset($msg->type0) && $msg->type0 == 'multipart')
- {
- $i++;
- $res = $msg->parseDisposition($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- } else /* properties */
- {
- $res = $msg->parseProperties($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- }
- $arg_no++;
- break;
- case 3:
- if (isset($msg->type0) && $msg->type0 == 'multipart')
- {
- $i++;
- $res= $msg->parseLanguage($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- }
- case 7:
- if ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822')
- {
- $msg->header->type0 = $arg_a[0];
- $msg->type0 = $arg_a[0];
- $msg->header->type1 = $arg_a[1];
- $msg->type1 = $arg_a[1];
- $rfc822_hdr = new rfc822_header();
- $res = $msg->parseEnvelope($read,$i,$rfc822_hdr);
- $i = $res[1];
- $msg->rfc822_header = $res[0];
- $i++;
- while ($i < $cnt && $read{$i} != '(')
- {
- $i++;
- }
- $res = $msg->parseStructure($read,$i);
- $i = $res[1];
- $msg->addEntity($res[0]);
- }
- break;
- case 8:
- $i++;
- $res = $msg->parseDisposition($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- $arg_no++;
- break;
- case 9:
- if ($arg_a[0] == 'text' ||
- ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822'))
- {
- $i++;
- $res = $msg->parseDisposition($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- } else
- {
- $i++;
- $res = $msg->parseLanguage($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- }
- $arg_no++;
- break;
- case 10:
- if ($arg_a[0] == 'text' ||
- ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822'))
- {
- $i++;
- $res = $msg->parseLanguage($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- } else
- {
- $i = $msg->parseParenthesis($read,$i);
- $arg_a[] = ''; /* not yet desribed in rfc2060 */
- }
- $arg_no++;
- break;
- default:
- /* unknown argument, skip this part */
- $i = $msg->parseParenthesis($read,$i);
- $arg_a[] = '';
- $arg_no++;
- break;
- } /* switch */
- }
- break;
- case '"':
- /* inside an entity -> start processing */
- $debug = substr($read,$i,20);
- $res = $msg->parseQuote($read,$i);
- $arg_s = $res[0];
- $i = $res[1];
- $arg_no++;
- if ($arg_no < 3) $arg_s = strtolower($arg_s); /* type0 and type1 */
- $arg_a[] = $arg_s;
- break;
- case 'n':
- case 'N':
- /* probably NIL argument */
- if (strtoupper(substr($read,$i,4)) == 'NIL ' ||
- strtoupper(substr($read,$i,4)) == 'NIL)')
- {
- $arg_a[] = '';
- $arg_no++;
- $i = $i+2;
- }
- break;
- case '{':
- /* process the literal value */
- $res = $msg->parseLiteral($read,$i);
- $arg_s = $res[0];
- $i = $res[1];
- $arg_no++;
- break;
- case (is_numeric($read{$i}) ):
- /* process integers */
- if ($read{$i} == ' ') break;
- $arg_s = $read{$i};;
- $i++;
- while (preg_match('/^[0-9]{1}$/',$read{$i}))
- {
- $arg_s .= $read{$i};
- $i++;
- }
- $arg_no++;
- $arg_a[] = $arg_s;
- break;
- case ')':
- if (isset($msg->type0) && $msg->type0 == 'multipart')
- {
- $multipart = true;
- } else
- {
- $multipart = false;
- }
- if (!$multipart)
- {
- if ($arg_a[0] == 'text' ||
- ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822'))
- {
- $shifted_args = true;
- } else
- {
- $shifted_args = false;
- }
- $hdr->type0 = $arg_a[0];
- $hdr->type1 = $arg_a[1];
-
- $msg->type0 = $arg_a[0];
- $msg->type1 = $arg_a[1];
-
- $arr = $arg_a[2];
- if (is_array($arr))
- {
- $hdr->parameters = $arg_a[2];
- }
- $hdr->id = str_replace( '<', '', str_replace( '>', '', $arg_a[3] ) );
- $hdr->description = $arg_a[4];
- $hdr->encoding = strtolower($arg_a[5]);
- $hdr->entity_id = $msg->entity_id;
- $hdr->size = $arg_a[6];
- if ($shifted_args)
- {
- $hdr->lines = $arg_a[7];
- if (isset($arg_a[8]))
- {
- $hdr->md5 = $arg_a[8];
- }
- if (isset($arg_a[9]))
- {
- $hdr->disposition = $arg_a[9];
- }
- if (isset($arg_a[10]))
- {
- $hdr->language = $arg_a[10];
- }
- } else
- {
- if (isset($arg_a[7]))
- {
- $hdr->md5 = $arg_a[7];
- }
- if (isset($arg_a[8]))
- {
- $hdr->disposition = $arg_a[8];
- }
- if (isset($arg_a[9]))
- {
- $hdr->language = $arg_a[9];
- }
- }
- $msg->header = $hdr;
- $arg_no = 0;
- $i++;
- if (substr($msg->entity_id,-2) == '.0' && $msg->type0 !='multipart')
- {
- $msg->entity_id++;
- }
- return (array($msg, $i));
- } else
- {
- $hdr->type0 = 'multipart';
- $hdr->type1 = $arg_a[0];
- $msg->type0 = 'multipart';
- $msg->type1 = $arg_a[0];
- if (is_array($arg_a[1]))
- {
- $hdr->parameters = $arg_a[1];
- }
- if (isset($arg_a[2]))
- {
- $hdr->disposition = $arg_a[2];
- }
- if (isset($arg_a[3]))
- {
- $hdr->language = $arg_a[3];
- }
- $msg->header = $hdr;
- return (array($msg, $i));
- }
- default:
- break;
- } /* switch */
- $i++;
- } /* while */
- } /* parsestructure */
-
- function parseProperties($read, $i)
- {
- $properties = array();
- $arg_s = '';
- $prop_name = '';
- while ($read{$i} != ')')
- {
- if ($read{$i} == '"')
- {
- $res = $this->parseQuote($read,$i);
- $arg_s = $res[0];
- $i = $res[1];
- } else if ($read{$i} == '{')
- {
- $res = $this->parseLiteral($read,$i);
- $arg_s = $res[0];
- $i = $res[1];
- }
- if ($prop_name == '' && $arg_s)
- {
- $prop_name = strtolower($arg_s);
- $properties[$prop_name] = '';
- $arg_s = '';
- } elseif ($prop_name != '' && $arg_s != '')
- {
- $properties[$prop_name] = $arg_s;
- $prop_name = '';
- $arg_s = '';
- }
- $i++;
- }
- return (array($properties, $i));
- }
-
- function parseEnvelope($read, $i, $hdr)
- {
- $arg_no = 0;
- $arg_a = array();
- $cnt = strlen($read);
- while ($i< $cnt && $read{$i} != ')')
- {
- $i++;
- $char = strtoupper($read{$i});
- switch ($char)
- {
- case '"':
- $res = $this->parseQuote($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- $arg_no++;
- break;
- case '{':
- $res = $this->parseLiteral($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- $arg_no++;
- break;
- case 'N':
- /* probably NIL argument */
- if (strtoupper(substr($read,$i,3)) == 'NIL') {
- $arg_a[] = '';
- $arg_no++;
- $i = $i+2;
- }
- break;
- case '(':
- /* Address structure
- * With group support.
- * Note: Group support is useless on SMTP connections
- * because the protocol doesn't support it
- */
- $addr_a = array();
- $group = '';
- $a=0;
- while ($i < $cnt && $read{$i} != ')')
- {
- if ($read{$i} == '(')
- {
- $res = $this->parseAddress($read,$i);
- $addr = $res[0];
- $i = $res[1];
- if ($addr->host == '' && $addr->mailbox != '')
- {
- /* start of group */
- $group = $addr->mailbox;
- $group_addr = $addr;
- $j = $a;
- } elseif ($group && $addr->host == '' && $addr->mailbox == '')
- {
- /* end group */
- if ($a == $j+1) /* no group members */
- {
- $group_addr->group = $group;
- $group_addr->mailbox = '';
- $group_addr->personal = "$group: Undisclosed recipients;";
- $addr_a[] = $group_addr;
- $group ='';
- }
- } else
- {
- $addr->group = $group;
- $addr_a[] = $addr;
- }
- $a++;
- }
- $i++;
- }
- $arg_a[] = $addr_a;
- break;
- default:
- break;
- }
- $i++;
- }
- if (count($arg_a) > 9)
- {
- /* argument 1: date */
- $d = strtr($arg_a[0], array(' ' => ' '));
- $d = explode(' ', $d);
- $hdr->date = getTimeStamp($d);
- /* argument 2: subject */
- if (!trim($arg_a[1]))
- {
- $arg_a[1]= _("(no subject)");
- }
- $hdr->subject = $arg_a[1];
- /* argument 3: from */
- $hdr->from = $arg_a[2][0];
- /* argument 4: sender */
- $hdr->sender = $arg_a[3][0];
- /* argument 5: reply-to */
- $hdr->replyto = $arg_a[4][0];
- /* argument 6: to */
- $hdr->to = $arg_a[5];
- /* argument 7: cc */
- $hdr->cc = $arg_a[6];
- /* argument 8: bcc */
- $hdr->bcc = $arg_a[7];
- /* argument 9: in-reply-to */
- $hdr->inreplyto = $arg_a[8];
- /* argument 10: message-id */
- $hdr->message_id = $arg_a[9];
- }
- return (array($hdr,$i));
- }
-
- function parseLiteral($read, $i)
- {
- $lit_cnt = '';
- $i++;
- while ($read{$i} != '}')
- {
- $lit_cnt .= $read{$i};
- $i++;
- }
- $lit_cnt +=2; /* add the { and } characters */
- $s = '';
- for ($j = 0; $j < $lit_cnt; $j++)
- {
- $i++;
- $s .= $read{$i};
- }
- return (array($s, $i));
- }
-
- function parseQuote($read, $i)
- {
- $i++;
- $s = '';
- while ($read{$i} != '"')
- {
- if ($read{$i} == '\\')
- {
- $i++;
- }
- $s .= $read{$i};
- $i++;
- }
- return (array($s, $i));
- }
-
- function parseAddress($read, $i)
- {
- $arg_a = array();
- while ($read{$i} != ')' )
- {
- $char = strtoupper($read{$i});
- switch ($char)
- {
- case '"':
- $res = $this->parseQuote($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- break;
- case '{':
- $res = $this->parseLiteral($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- break;
- case 'n':
- case 'N':
- if (strtoupper(substr($read,$i,3)) == 'NIL') {
- $arg_a[] = '';
- $i = $i+2;
- }
- break;
- default:
- break;
- }
- $i++;
- }
- if (count($arg_a) == 4)
- {
- $adr = new address_structure();
- $adr->personal = $arg_a[0];
- $adr->adl = $arg_a[1];
- $adr->mailbox = $arg_a[2];
- $adr->host = $arg_a[3];
- } else
- {
- $adr = '';
- }
- return (array($adr,$i));
- }
-
- function parseDisposition($read,$i)
- {
- $arg_a = array();
- while ($read{$i} != ')')
- {
- switch ($read{$i})
- {
- case '"':
- $res = $this->parseQuote($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- break;
- case '{':
- $res = $this->parseLiteral($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- break;
- case '(':
- $res = $this->parseProperties($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- break;
- default:
- break;
- }
- $i++;
- }
- if (isset($arg_a[0]))
- {
- $disp = new disposition($arg_a[0]);
- if (isset($arg_a[1]))
- {
- $disp->properties = $arg_a[1];
- }
- }
- if (is_object($disp))
- {
- return (array($disp, $i));
- } else
- {
- return (array('',$i));
- }
- }
-
- function parseLanguage($read,$i)
- {
- /* no idea how to process this one without examples */
- $arg_a = array();
- while ($read{$i} != ')')
- {
- switch ($read{$i})
- {
- case '"':
- $res = $this->parseQuote($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- break;
- case '{':
- $res = $this->parseLiteral($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- break;
- case '(':
- $res = $this->parseProperties($read,$i);
- $arg_a[] = $res[0];
- $i = $res[1];
- break;
- default:
- break;
- }
- $i++;
- }
- if (isset($arg_a[0]))
- {
- $lang = new language($arg_a[0]);
- if (isset($arg_a[1]))
- {
- $lang->properties = $arg_a[1];
- }
- }
- if (is_object($lang))
- {
- return (array($lang, $i));
- } else
- {
- return (array('', $i));
- }
- }
-
- function parseParenthesis($read,$i)
- {
- while ($read{$i} != ')')
- {
- switch ($read{$i})
- {
- case '"':
- $res = $this->parseQuote($read,$i);
- $i = $res[1];
- break;
- case '{':
- $res = $this->parseLiteral($read,$i);
- $i = $res[1];
- break;
- case '(':
- $res = $this->parseParenthesis($read,$i);
- $i = $res[1];
- break;
- default:
- break;
- }
- $i++;
- }
- return $i;
- }
-
- /* function to fill the message structure in case the bodystructure
- isn't available NOT FINISHED YET
- */
- function parseMessage($read, $type0, $type1)
- {
- switch ($type0)
- {
- case 'message':
- $rfc822_header = true;
- $mime_header = false;
- break;
- case 'multipart':
- $mime_header = true;
- $rfc822_header = false;
- break;
- default:
- return $read;
- }
-
- for ($i=1; $i < $count; $i++)
- {
- $line = trim($body[$i]);
- if ( ( $mime_header || $rfc822_header) &&
- (preg_match("/^.*boundary=\"?(.+(?=\")|.+).*/i",$line,$reg)) )
- {
- $bnd = $reg[1];
- $bndreg = $bnd;
- $bndreg = str_replace("\\","\\\\",$bndreg);
- $bndreg = str_replace("?","\\?",$bndreg);
- $bndreg = str_replace("+","\\+",$bndreg);
- $bndreg = str_replace(".","\\.",$bndreg);
- $bndreg = str_replace("/","\\/",$bndreg);
- $bndreg = str_replace("-","\\-",$bndreg);
- $bndreg = str_replace("(","\\(",$bndreg);
- $bndreg = str_replace(")","\\)",$bndreg);
- } elseif ( $rfc822_header && $line == '' )
- {
- $rfc822_header = false;
- if ($msg->type0 == 'multipart')
- {
- $mime_header = true;
- }
- }
-
- if (($line{0} == '-' || $rfc822_header) && isset($boundaries[0]))
- {
- $cnt=count($boundaries)-1;
- $bnd = $boundaries[$cnt]['bnd'];
- $bndreg = $boundaries[$cnt]['bndreg'];
-
- $regstr = '/^--'."($bndreg)".".*".'/';
- if (preg_match($regstr,$line,$reg) )
- {
- $bndlen = strlen($reg[1]);
- $bndend = false;
- if (strlen($line) > ($bndlen + 3))
- {
- if ($line{$bndlen+2} == '-' && $line{$bndlen+3} == '-')
- $bndend = true;
- }
- if ($bndend)
- {
- /* calc offset and return $msg */
- // $entStr = CalcEntity("$entStr",-1);
- array_pop($boundaries);
- $mime_header = true;
- $bnd_end = true;
- } else
- {
- $mime_header = true;
- $bnd_end = false;
-// $entStr = CalcEntity("$entStr",0);
- $content_indx++;
- }
- } else
- {
- if ($header)
- {
- }
- }
- }
- }
- }
-
- function findDisplayEntity ($entity = array(), $alt_order = array('text/plain','text/html'))
- {
- $found = false;
- $type = $this->type0.'/'.$this->type1;
- if ( $type == 'multipart/alternative')
- {
- $msg = $this->findAlternativeEntity($alt_order);
- if (count($msg->entities) == 0)
- {
- $entity[] = $msg->entity_id;
- } else
- {
- $entity = $msg->findDisplayEntity($entity, $alt_order);
- }
- $found = true;
- } else if ( $type == 'multipart/related')
- {
- $msgs = $this->findRelatedEntity();
- foreach ($msgs as $msg)
- {
- if (count($msg->entities) == 0)
- {
- $entity[] = $msg->entity_id;
- } else
- {
- $entity = $msg->findDisplayEntity($entity,$alt_order);
- }
- }
- if (count($msgs) > 0) {
- $found = true;
- }
- } else if ($this->type0 == 'text' &&
- ($this->type1 == 'plain' ||
- $this->type1 == 'html' ||
- $this->type1 == 'message') &&
- isset($this->entity_id) )
- {
- if (count($this->entities) == 0)
- {
- if (strtolower($this->header->disposition->name) != 'attachment')
- {
- $entity[] = $this->entity_id;
- }
- }
- }
- $i = 0;
- if(!$found) {
- foreach ($this->entities as $ent) {
- if(strtolower($ent->header->disposition->name) != 'attachment' &&
- ($ent->type0 != 'message' && $ent->type1 != 'rfc822'))
- {
- $entity = $ent->findDisplayEntity($entity, $alt_order);
- }
- }
- }
- /*
- while ( isset($this->entities[$i]) && !$found &&
- (strtolower($this->entities[$i]->header->disposition->name)
- != 'attachment') &&
- ($this->entities[$i]->type0 != 'message' &&
- $this->entities[$i]->type1 != 'rfc822' )
- )
- {
- $entity = $this->entities[$i]->findDisplayEntity($entity, $alt_order);
- $i++;
- }
- */
- return( $entity );
- }
-
- function findAlternativeEntity ($alt_order)
- {
- /* if we are dealing with alternative parts then we choose the best
- * viewable message supported by SM.
- */
- $best_view = 0;
- $entity = array();
- $altcount = count($alt_order);
- foreach($this->entities as $ent)
- {
- $type = $ent->header->type0.'/'.$ent->header->type1;
- if ($type == 'multipart/related')
- {
- $type = $ent->header->getParameter('type');
- }
- for ($j = $best_view; $j < $altcount; $j++)
- {
- if ($alt_order[$j] == $type && $j >= $best_view)
- {
- $best_view = $j;
- $entity = $ent;
- }
- }
- }
- return $entity;
- }
-
- function findRelatedEntity ()
- {
- $msgs = array();
- $entcount = count($this->entities);
- for ($i = 0; $i < $entcount; $i++)
- {
- $type = $this->entities[$i]->header->type0.'/'.$this->entities[$i]->header->type1;
- if ($this->header->getParameter('type') == $type)
- {
- $msgs[] = $this->entities[$i];
- }
- }
- return $msgs;
- }
-
- function getAttachments($exclude_id=array(), $result = array())
- {
- if ($this->type0 == 'message' && $this->type1 == 'rfc822')
- {
- $this = $this->entities[0];
- }
- if (count($this->entities))
- {
- foreach ($this->entities as $entity)
- {
- $exclude = false;
- foreach ($exclude_id as $excl)
- {
- if ($entity->entity_id === $excl)
- {
- $exclude = true;
- }
- }
- if (!$exclude)
- {
- if ($entity->type0 == 'multipart' &&
- $entity->type1 != 'related')
- {
- $result = $entity->getAttachments($exclude_id, $result);
- } else if ($entity->type0 != 'multipart')
- {
- $result[] = $entity;
- }
- }
- }
- } else
- {
- $exclude = false;
- foreach ($exclude_id as $excl)
- {
- if ($this->entity_id == $excl)
- {
- $exclude = true;
- }
- }
- if (!$exclude)
- {
- $result[] = $this;
- }
- }
- return $result;
- }
-}
-
-class smime_message
-{
-}
-
-class disposition
-{
- function disposition($name)
- {
- $this->name = $name;
- $this->properties = array();
- }
-
- function getProperty($par)
- {
- $value = strtolower($par);
- if (isset($this->properties[$par]))
- {
- return $this->properties[$par];
- }
- return '';
- }
-
-}
-
-class language
-{
- function language($name)
- {
- $this->name = $name;
- $this->properties = array();
- }
-}
-
-class content_type
-{
- var $type0='text',
- $type1='plain',
- $properties='';
- function content_type($type)
- {
- $pos = strpos($type,'/');
- if ($pos > 0)
- {
- $this->type0 = substr($type,0,$pos);
- $this->type1 = substr($type,$pos+1);
- } else
- {
- $this->type0 = $type;
- }
- $this->properties = array();
- }
-}
-
-?>
+/** @ignore */
+if (! defined('SM_PATH')) define('SM_PATH','../');
+
+/** Load in the entire MIME system */
+require_once(SM_PATH . 'class/mime/Rfc822Header.class.php');
+require_once(SM_PATH . 'class/mime/MessageHeader.class.php');
+require_once(SM_PATH . 'class/mime/AddressStructure.class.php');
+require_once(SM_PATH . 'class/mime/Message.class.php');
+require_once(SM_PATH . 'class/mime/SMimeMessage.class.php');
+require_once(SM_PATH . 'class/mime/Disposition.class.php');
+require_once(SM_PATH . 'class/mime/Language.class.php');
+require_once(SM_PATH . 'class/mime/ContentType.class.php');