mime.php

集成了投票调查、流量统计、文件上传、留言版、论坛、软件下载、文章赏析、通讯录、网上购物 等板块 管理账户为peilei 密码为800901

<?php
/*
  $Id: mime.php,v 1.5 2002/05/23 16:51:47 dgw_ Exp $

  网络商店 - 吉鑫网络
 http://www.chinaifc.com

Copyright (c) 2001,2003 网络商店

    汗化版权所有吉鑫网络
*/

class mime {
  var $_encoding;
  var $_subparts;
  var $_encoded;
  var $_headers;
  var $_body;

  /**
   * Constructor.
   * 
   * Sets up the object.
   *
   * @param $body   - The body of the mime part if any.
   * @param $params - An associative array of parameters:
   *                  content_type - The content type for this part eg multipart/mixed
   *                  encoding     - The encoding to use, 7bit, base64, or quoted-printable
   *                  cid          - Content ID to apply
   *                  disposition  - Content disposition, inline or attachment
   *                  dfilename    - Optional filename parameter for content disposition
   *                  description  - Content description
   * @access public
   */
  function mime($body, $params = '') {
    if ($params == '') {
      $params = array();
    }
    // Make sure we use the correct linfeed sequence
    if (EMAIL_LINEFEED == 'CRLF') {
      $this->lf = "\r\n";
    } else {
      $this->lf = "\n";
    }
    reset($params);
    while (list($key, $value) = each($params)) {
      switch ($key) {
        case 'content_type':
          $headers['Content-Type'] = $value . (isset($charset) ? '; charset="' . $charset . '"' : '');
          break;
        case 'encoding':
          $this->_encoding = $value;
          $headers['Content-Transfer-Encoding'] = $value;
          break;
        case 'cid':
          $headers['Content-ID'] = '<' . $value . '>';
          break;
        case 'disposition':
          $headers['Content-Disposition'] = $value . (isset($dfilename) ? '; filename="' . $dfilename . '"' : '');
          break;
        case 'dfilename':
          if (isset($headers['Content-Disposition'])) {
            $headers['Content-Disposition'] .= '; filename="' . $value . '"';
          } else {
            $dfilename = $value;
          }
          break;
        case 'description':
          $headers['Content-Description'] = $value;
          break;
        case 'charset':
          if (isset($headers['Content-Type'])) {
            $headers['Content-Type'] .= '; charset="' . $value . '"';
          } else {
            $charset = $value;
          }
          break;
      }
    }
    // Default content-type
    if (!isset($_headers['Content-Type'])) {
      $_headers['Content-Type'] = 'text/plain';
    }

    // Assign stuff to member variables
    $this->_encoded  =  array();
    $this->_headers  =& $headers;
    $this->_body     =  $body;
  }

  /**
   * encode()
   * 
   * Encodes and returns the email. Also stores
   * it in the encoded member variable
   *
   * @return An associative array containing two elements,
   *         body and headers. The headers element is itself
   *         an indexed array.
   * @access public
   */
  function encode() {
    $encoded =& $this->_encoded;

    if (!empty($this->_subparts)) {
      srand((double)microtime()*1000000);
      $boundary = '=_' . md5(uniqid(rand()) . microtime());
      $this->_headers['Content-Type'] .= ';' . $this->lf . chr(9) . 'boundary="' . $boundary . '"';

      // Add body parts to $subparts
      for ($i = 0; $i < count($this->_subparts); $i++) {
        $headers = array();
        $tmp = $this->_subparts[$i]->encode();
        reset($tmp['headers']);
        while (list($key, $value) = each($tmp['headers'])) {
          $headers[] = $key . ': ' . $value;
        }
        $subparts[] = implode($this->lf, $headers) . $this->lf . $this->lf . $tmp['body'];
      }

      $encoded['body'] = '--' . $boundary . $this->lf . implode('--' . $boundary . $this->lf, $subparts) . '--' . $boundary.'--' . $this->lf;
    } else {
      $encoded['body'] = $this->_getEncodedData($this->_body, $this->_encoding) . $this->lf;
    }

    // Add headers to $encoded
    $encoded['headers'] =& $this->_headers;

    return $encoded;
  }

  /**
   * &addSubPart()
   * 
   * Adds a subpart to current mime part and returns
   * a reference to it
   *
   * @param $body   The body of the subpart, if any.
   * @param $params The parameters for the subpart, same
   *                as the $params argument for constructor.
   * @return A reference to the part you just added. It is
   *         crucial if using multipart/* in your subparts that
   *         you use =& in your script when calling this function,
   *         otherwise you will not be able to add further subparts.
   * @access public
   */
  function &addSubPart($body, $params) {
    $this->_subparts[] = new mime($body, $params);
    return $this->_subparts[count($this->_subparts) - 1];
  }

  /**
   * _getEncodedData()
   * 
   * Returns encoded data based upon encoding passed to it
   *
   * @param $data     The data to encode.
   * @param $encoding The encoding type to use, 7bit, base64,
   *                  or quoted-printable.
   * @access private
   */
  function _getEncodedData($data, $encoding) {
    switch ($encoding) {
     case '7bit':
       return $data;
       break;
     case 'quoted-printable':
       return $this->_quotedPrintableEncode($data);
       break;
     case 'base64':
       return rtrim(chunk_split(base64_encode($data), 76, $this->lf));
       break;
    }
  }

  /**
   * quoteadPrintableEncode()
   * 
   * Encodes data to quoted-printable standard.
   *
   * @param $input    The data to encode
   * @param $line_max Optional max line length. Should 
   *                  not be more than 76 chars
   *
   * @access private
   */
  function _quotedPrintableEncode($input , $line_max = 76) {
    $lines    = preg_split("/\r\n|\r|\n/", $input);
    $eol    = $this->lf;
    $escape    = '=';
    $output    = '';
    while(list(, $line) = each($lines)){
      $linlen     = strlen($line);
      $newline = '';
      for ($i = 0; $i < $linlen; $i++) {
        $char = substr($line, $i, 1);
        $dec  = ord($char);
        if (($dec == 32) AND ($i == ($linlen - 1))){    // convert space at eol only
          $char = '=20';
        } elseif($dec == 9) {
          ; // Do nothing if a tab.
        } elseif(($dec == 61) OR ($dec < 32 ) OR ($dec > 126)) {
          $char = $escape . strtoupper(sprintf('%02s', dechex($dec)));
        }
        // $this->lf is not counted
        if ((strlen($newline) + strlen($char)) >= $line_max) {
          // soft line break; " =\r\n" is okay
          $output  .= $newline . $escape . $eol;
          $newline  = '';
        }
        $newline .= $char;
      }
      $output .= $newline . $eol;
    }
    // Don't want last crlf
    $output = substr($output, 0, -1 * strlen($eol));
    return $output;
  }
}
?>