mime.php

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

<?php
/*
  $Id: mime.php,v 1.3 2002/01/31 21:06:12 uid65040 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 = array())
  {
     if (EMAIL_LINEFEED == 'CRLF') {
      $this->lf = "\r\n";
    } else {
      $this->lf = "\n";
    }
    foreach ($params as $key => $value) {
      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();
                foreach ($tmp['headers'] as $key => $value) {
                    $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)));
                }
    
       if ((strlen($newline) + strlen($char)) >= $line_max) {        // $this->lf is not counted
        $output  .= $newline . $escape . $eol;                    // soft line break; " =\r\n" is okay
        $newline  = '';
      }
      $newline .= $char;
     } // end of for
     $output .= $newline . $eol;
    }
    $output = substr($output, 0, -1 * strlen($eol)); // Don't want last crlf
    return $output;
  }
} // End of class
?>