使用php的编码功能-mime.inc

<?php
// $Horde: horde/lib/MIME.php,v 1.63 2001/08/08 21:00:27 chuck Exp $

$mime_types =
array(
TYPETEXT = 'text', 'text' = TYPETEXT,
TYPEMULTIPART = 'multipart', 'multipart' = TYPEMULTIPART,
TYPEMESSAGE = 'message', 'message' = TYPEMESSAGE,
TYPEAPPLICATION = 'application', 'application' = TYPEAPPLICATION,
TYPEAUDIO = 'audio', 'audio' = TYPEAUDIO,
TYPEIMAGE = 'image', 'image' = TYPEIMAGE,
TYPEVIDEO = 'video', 'video' = TYPEVIDEO,
TYPEOTHER = 'unknown', 'unknown' = TYPEOTHER
);

$mime_encodings =
array(
ENC7BIT = '7bit', '7bit' = ENC7BIT,
ENC8BIT = '8bit', '8bit' = ENC8BIT,
ENCBINARY = 'binary', 'binary' = ENCBINARY,
ENCBASE64 = 'base64', 'base64' = ENCBASE64,
ENCQUOTEDPRINTABLE = 'quoted-printable', 'quoted-printable' = ENCQUOTEDPRINTABLE,
ENCOTHER = 'unknown', 'unknown' = ENCOTHER
);


/**
* The MIME:: class provides methods for dealing with MIME standards.
*
* @author Chuck Hagenbuch <chuck@horde.org
* @version $Revision: 1.64 $
* @since Horde 1.3
* @package horde.mime
*/
class MIME {

/**
* Determine if a string contains 8-bit characters.
* @access private
*
* @param string $string The string to check.
* @return boolean true if it does, false if it doesn't.
*/
function is8bit($string)
{
if (is_string($string)) {
for ($i = 0; $i < strlen($string); $i ) {
if (ord($string[$i]) 7)
return true;
}
return false;
}
return false;
}

/**
* Encode a string containing non-ascii characters according to RFC 2047.
*
* @param string $text The text to encode.
* @param string $charset (optional) The character set of the text.
* @param boolean $outer Is this the final iteration?
*
* @return string The text, encoded only if it contains non-ascii characters.
*/
function encode($text, $charset = null, $outer = true)
{
if (MIME::is8bit($text)) {
if (((strlen($text) * 3) strlen($charset) 7) 76) {
$text = MIME::encode(substr($text, 0, (23 - strlen($charset))), $charset) . MIME::encode(substr($text, (23 - strlen($charset))), $charset, false);
} else {
$text = "=?$charset?B?" . strtr(trim(base64_encode($text)), ' ', '_') . "?=nt";
}
}

// if this is the final iteration, take off any trailing
// newline/tab chars.
if ($outer && (substr($text, -2) == "nt"))
$text = substr($text, 0, -2);

return $text;
}

/**
* Encode a string containing email addresses according to RFC 2047.
*
* This differs from MIME::encode() because it keeps email
* addresses legal, only encoding the personal information.
*
* @param string $text The email addresses to encode.
* @param string $charset (optional) The character set of the text.
* @param string $defserver (optional) The default domain to append to mailboxes.
*
* @return string The text, encoded only if it contains non-ascii characters.
*/
function encodeAddress($text, $charset = null, $defserver = null)
{
include_once 'Mail/RFC822.php';

$addr_arr = Mail_RFC822::parseAddressList($text, $defserver, false, false);
$text = '';
if (is_array($addr_arr)) {
foreach ($addr_arr as $addr) {
if (empty($addr-personal)) {
$personal = '';
} else {
if ((substr($addr-personal, 0, 1) == '"') &&
(substr($addr-personal, -1) == '"')) {
$addr-personal = substr($addr-personal, 1, -1);
}
$personal = MIME::encode($addr-personal, $charset);
}
if (strlen($text) != 0) $text .= ', ';
// FIXME: dependency on imap module
$text .= MIME::trimEmailAddress(