p11creative email class

<?php
# | p11creative mime email class
# | $Id: mime.php,v 1.1.1.1 2004/01/21 00:17:16 ryan Exp $
 
# | define a few MIME types
define('BASE64', 'base64');
define('BIT7', '7bit');
define('QP', 'quoted_printable');
define('NOSUBJECT', '(No Subject)');
define('WARNING', 'This is a MIME encoded message');
define('OCTET', 'application/octet-stream');
define('TEXT', 'text/plain');
define('HTML', 'text/html');
define('PNG', 'image/png');
define('PDF', 'application/pdf');
define('JPEG', 'image/jpg');
define('GIF', 'image/gif');
define('CRLF', "
");
define('CHARSET', 'us-ascii');
define('INLINE', 'inline');
define('ATTACH', 'attachment');
define('BODY', CRLF.'BODY'.CRLF);
 
class MIME_mail {
  var $to;
  var $from;
  var $subject;
  var $body;
  var $headers = "";
  var $errstr="";
 
  var $base64_func= '';      # | use default php base64 function
  var $qp_func = '';        # | leave blank for now
  var $mailer = "";          # | set to alternate mailer 
 
  # | private:
  var $mimeparts = array(); 
 
  function MIME_mail($from="", $to="", $subject="", $body="", $headers = "") {
    $this->to = $to;
    $this->from = $from;
    $this->subject = $subject;
    $this->body = $body;
 
    if (is_array($headers)) {
      if (sizeof($headers)>1) 
        $headers=join(CRLF, $headers);
      else
        $headers=$headers[0];
    }
 
    if ($from) {
      $headers = preg_replace("!(from:\ ?.+?[
]?\b)!i", '', $headers);
    }
 
    $this->headers = chop($headers);
    $this->mimeparts[] = "";
    $this->errstr = "";
    return;
  }
 
  # | Attach a 'file' to e-mail message
  # | Pass a file name to attach.
  # | This function returns a success/failure code/key of current
  # | attachment in array (+1). Read attach() below.
  function fattach($path, $description = "", $contenttype = OCTET, $encoding = BASE64, $disp = '') {
    $this->errstr = "";
    if (!file_exists($path)) {
      $this->errstr = printf("File '%s' does not exist", $path);
      return 0;
    }
 
    $fp = fopen($path, "rb");
    if (!$fp) {
      $this->errstr = "fopen() failed";
      return 0;
    }
 
    $contenttype .= ";
\tname=".basename($path);
    $data = fread($fp, filesize($path));
    return $this->attach($data, 
                         $description, 
                         $contenttype,
                         $encoding,
                         $disp);  
  }
 
  # | Attach data provided by user (rather than a file)
  # | Useful when you want to MIME encode user input
  # | like HTML. NOTE: This function returns key at which the requested
  # | data is attached. IT IS CURRENT KEY VALUE + 1!!
  # | Construct the body with MIME parts
  function attach($data, $description = "", $contenttype = OCTET, $encoding = BASE64, $disp = '') {
    $this->errstr = "";
 
    if (empty($data)) {
      $this->errstr = "No data to be attached";
      return 0;
    }
 
    if (trim($contenttype) == '') $contenttype = OCTET ;
    if (trim($encoding) == '') $encoding = BASE64;
    if ($encoding == BIT7) $emsg = $data;
    elseif ($encoding == QP) 
      $emsg = $$this->qp_func($data);
    elseif ($encoding == BASE64) {
      if (!$this->base64_func)
        $emsg = base64_encode($data);
      else 
        $emsg = $$this->base64_func($data);
    }
 
    if ($contenttype != (HTML || TEXT)) {
      $emsg = chunk_split($emsg);
    }
 
    # | Check if content-type is text/plain and if charset is not specified append default CHARSET
    if (preg_match("!^".TEXT."!i", $contenttype) && !preg_match("!;charset=!i", $contenttype)) 
      $contenttype .= ";
\tcharset=".CHARSET ;
 
    $msg = sprintf("Content-Type: %sContent-Transfer-Encoding: %s%s%s%s",
           $contenttype.CRLF, 
           $encoding.CRLF,
           ((($description) && (BODY != $description))?"Content-Description: $description".CRLF:""),
           ($disp?"Content-Disposition: $disp".CRLF:""),
           CRLF.$emsg.CRLF);
 
    BODY == $description? $this->mimeparts[0] = $msg: $this->mimeparts[] = $msg ;
 
    return sizeof($this->mimeparts);
   }
 
  # | Construct mail message header from info already given.
  # | This is a very important function.  It shows how exactly
  # | the MIME message is constructed.
  function build_message() {
    $this->errstr = "";
    $msg = "";
    $boundary = 'PM'.chr(rand(65, 91)).'------'.md5(uniqid(rand()));  # Boundary marker
    $nparts = sizeof($this->mimeparts);
 
    # | Attachment list is there.  Therefore MIME Message header must have multipart/mixed
     if (is_array($this->mimeparts) && ($nparts > 1)):
      $c_ver = "MIME-Version: 1.0".CRLF;
      $c_type = 'Content-Type: multipart/mixed;'.CRLF."\tboundary=\"$boundary\"".CRLF;
      $c_enc = "Content-Transfer-Encoding: ".BIT7.CRLF;
      $c_desc = $c_desc?"Content-Description: $c_desc".CRLF:"";
      $warning = CRLF.WARNING.CRLF.CRLF ;
 
      # | Since we are here, it means we do have attachments => body must become an attachment too.
      if (!empty($this->body)) {
        $this->attach($this->body, BODY, TEXT, BIT7);
      }
 
      # | Now create the MIME parts of the email!
      for ($i=0 ; $i < $nparts; $i++) {
        if (!empty($this->mimeparts[$i])) 
               $msg .= CRLF.'--'.$boundary.CRLF.$this->mimeparts[$i].CRLF;
      }
      $msg .= '--'.$boundary.'--'.CRLF;
      $msg = $c_ver.$c_type.$c_enc.$c_desc.$warning.$msg;
    else:
      if (!empty($this->body)) $msg .= $this->body.CRLF.CRLF;
    endif;
 
    return $msg;
  }
 
 
  # | Now Generate the entire Mail Message, header and body et al.
  function gen_email($force=false) {
    $this->errstr = "";
    if (!empty($this->email) && !$force) return $this->email ;  # | saves processing
    $email = "";
    if (empty($this->subject)) $this->subject = NOSUBJECT;
    if (!empty($this->from)) $email .= 'From: '.$this->from.CRLF;
    if (!empty($this->headers)) $email .= $this->headers.CRLF;
    $email .= $this->build_message();
    $this->email = $email;
 
    return $this->email;
  }
 
  # | Printable form
  function print_mail($force=false) {
    $this->errstr = "";
    $email =  $this->gen_email($force);
    if (!empty($this->to)) $email = 'To: '.$this->to.CRLF.$email;
    if (!empty($this->subject)) $email = 'Subject: '.$this->subject.CRLF.$email;
 
    print $email;
  }
 
  # | Send mail via local mailer
  function send_mail($force=false) {
    $this->errstr = "";
    $email = $this->gen_email($force);
 
    if (empty($this->to)) {
      $this->errstr = "To Address not specified";
      return 0;
    }
 
    if (is_array($this->mailer) && (1 ==  sizeof($this->mailer)) ) {
      $mail_obj = $this->mailer['name'];
      $mail_method = $this->mailer['method'];
 
      if (empty($mail_obj)) {
        $this->errstr = "Invalid object name passed to send_mail()";
        return 0;
      }
 
      global $mail_obj;
      eval("$ret = \$$mail_obj".'->'."$mail_method;");
      return $ret;
    }  
 
    return mail($this->to, $this->subject, "", $email);
  }
 
}
 
?>