include/email.php

   1 <?php
   2
   3 function email_connect($mailbox,$username,$password) {
   4         if(! function_exists('imap_open'))
   5                 return false;
   6
   7         $mbox = imap_open($mailbox,$username,$password);
   8
   9         return $mbox;
  10 }
  11
  12 function email_poll($mbox,$email_addr) {
  13
  14         if(! ($mbox && $email_addr))
  15                 return array();;
  16
  17         $search = imap_search($mbox,'FROM "' . $email_addr . '"', SE_UID);
  18         return (($search) ? $search : array());
  19 }
  20
  21
  22 function construct_mailbox_name($mailacct) {
  23         $ret = '{' . $mailacct['server'] . (($mailacct['port']) ? ':' . $mailacct['port'] : '');
  24         $ret .= (($mailacct['ssltype']) ?  '/' . $mailacct['ssltype'] . '/novalidate-cert' : '');
  25         $ret .= '}' . $mailacct['mailbox'];
  26         return $ret;
  27 }
  28
  29
  30 function email_msg_meta($mbox,$uid) {
  31         $ret = (($mbox && $uid) ? imap_fetch_overview($mbox,$uid,FT_UID) : array(array()));
  32         return ((count($ret)) ? $ret[0] : array());
  33 }
  34
  35
  36 function email_get_msg($mbox,$uid) {
  37         $ret = array();
  38
  39         $struc = (($mbox && $uid) ? imap_fetchstructure($mbox,$uid,FT_UID) : null);
  40
  41         if(! $struc)
  42                 return $ret;
  43
  44         if(! $struc->parts) {
  45                 $ret['body'] = email_get_part($mbox,$uid,$struc,0);
  46         }
  47         else {
  48                 foreach($struc->parts as $ptop => $p) {
  49                         $x = email_get_part($mbox,$uid,$p,$ptop + 1);
  50                         if($x)
  51                                 $ret['body'] = $x;
  52                 }
  53         }
  54         return $ret;
  55 }
  56
  57 // At the moment - only return plain/text.
  58 // Later we'll repackage inline images as data url's and make the HTML safe
  59
  60 function email_get_part($mbox,$uid,$p,$partno) {
  61     // $partno = '1', '2', '2.1', '2.1.3', etc for multipart, 0 if simple
  62     global $htmlmsg,$plainmsg,$charset,$attachments;
  63
  64         echo $partno;
  65
  66     // DECODE DATA
  67     $data = ($partno)
  68                 ? imap_fetchbody($mbox,$uid,$partno, FT_UID|FT_PEEK)
  69         : imap_body($mbox,$uid,FT_UID|FT_PEEK);
  70
  71     // Any part may be encoded, even plain text messages, so check everything.
  72     if ($p->encoding==4)
  73         $data = quoted_printable_decode($data);
  74     elseif ($p->encoding==3)
  75         $data = base64_decode($data);
  76
  77     // PARAMETERS
  78     // get all parameters, like charset, filenames of attachments, etc.
  79     $params = array();
  80     if ($p->parameters)
  81         foreach ($p->parameters as $x)
  82             $params[strtolower($x->attribute)] = $x->value;
  83     if ($p->dparameters)
  84         foreach ($p->dparameters as $x)
  85             $params[strtolower($x->attribute)] = $x->value;
  86
  87     // ATTACHMENT
  88     // Any part with a filename is an attachment,
  89     // so an attached text file (type 0) is not mistaken as the message.
  90
  91     if ($params['filename'] || $params['name']) {
  92         // filename may be given as 'Filename' or 'Name' or both
  93         $filename = ($params['filename'])? $params['filename'] : $params['name'];
  94         // filename may be encoded, so see imap_mime_header_decode()
  95         $attachments[$filename] = $data;  // this is a problem if two files have same name
  96     }
  97
  98     // TEXT
  99     if ($p->type == 0 && $data) {
 100         // Messages may be split in different parts because of inline attachments,
 101         // so append parts together with blank row.
 102         if (strtolower($p->subtype)=='plain')
 103             return (trim($data) ."\n\n");
 104         else
 105                         $data = '';
 106
 107  //           $htmlmsg .= $data ."<br><br>";
 108         $charset = $params['charset'];  // assume all parts are same charset
 109     }
 110
 111     // EMBEDDED MESSAGE
 112     // Many bounce notifications embed the original message as type 2,
 113     // but AOL uses type 1 (multipart), which is not handled here.
 114     // There are no PHP functions to parse embedded messages,
 115     // so this just appends the raw source to the main message.
 116 //    elseif ($p->type==2 && $data) {
 117 //        $plainmsg .= $data."\n\n";
 118 //    }
 119
 120     // SUBPART RECURSION
 121     if ($p->parts) {
 122         foreach ($p->parts as $partno0=>$p2) {
 123             $x =  email_get_part($mbox,$uid,$p2,$partno . '.' . ($partno0+1));  // 1.2, 1.2.1, etc.
 124                         if($x)
 125                                 return $x;
 126                 }
 127     }
 128 }
 129
 130
 131