Viewing file:  rfc822address.php (13.91 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
<?php
/**
* rfc822address.php
*
* Contains rfc822 email address function parsing functions.
*
* @copyright © 2004-2006 The SquirrelMail Project Team
* @license http://opensource.org/licenses/gpl-license.php GNU Public License
* @version $Id: rfc822address.php,v 1.10 2006/01/23 18:39:33 tokul Exp $
* @package squirrelmail
*/
/**
* parseRFC822Address: function for parsing RFC822 email address strings and store
* them in an address array
*
* @param string $address The email address string to parse
* @param integer $iLimit stop on $iLimit parsed addresses
* @public
* @author Marc Groot Koerkamp
*
**/
function parseRFC822Address($sAddress,$iLimit = 0) {
$aTokens = _getAddressTokens($sAddress);
$sPersonal = $sEmail = $sComment = $sGroup = '';
$aStack = $aComment = $aAddress = array();
foreach ($aTokens as $sToken) {
if ($iLimit && $iLimit == count($aAddress)) {
return $aAddress;
}
$cChar = $sToken{0};
switch ($cChar)
{
case '=':
case '"':
case ' ':
$aStack[] = $sToken;
break;
case '(':
$aComment[] = substr($sToken,1,-1);
break;
case ';':
if ($sGroup) {
$aAddress[] = _createAddressElement($aStack,$aComment,$sEmail);
$aAddr = end($aAddress);
if(!$aAddr || ((isset($aAddr)) && !$aAddr[SQM_ADDR_MAILBOX] && !$aAddr[SQM_ADDR_PERSONAL])) {
$sEmail = $sGroup . ':;';
}
$aAddress[] = _createAddressElement($aStack,$aComment,$sEmail);
$sGroup = '';
$aStack = $aComment = array();
break;
}
case ',':
$aAddress[] = _createAddressElement($aStack,$aComment,$sEmail);
break;
case ':':
$sGroup = trim(implode(' ',$aStack));
$sGroup = preg_replace('/\s+/',' ',$sGroup);
$aStack = array();
break;
case '<':
$sEmail = trim(substr($sToken,1,-1));
break;
case '>':
/* skip */
break;
default: $aStack[] = $sToken; break;
}
}
/* now do the action again for the last address */
$aAddress[] = _createAddressElement($aStack,$aComment,$sEmail);
return $aAddress;
}
/**
* Do the address array to string translation
*
* @param array $aAddressList list with email address arrays
* @param array $aProps associative array with properties
* @return string
* @public
* @see parseRFC822Address
* @author Marc Groot Koerkamp
*
**/
function getAddressString($aAddressList,$aProps) {
$aPropsDefault = array (
'separator' => ',', // address separator
'limit' => 0, // limits returned addresses
'personal' => true, // show persnal part
'email' => true, // show email part
'best' => false, // show personal if available
'encode' => false, // encode the personal part
'unique' => false, // make email addresses unique.
'exclude' => array() // array with exclude addresses
// format of address: mailbox@host
);
$aProps = is_array($aProps) ? array_merge($aPropsDefault,$aProps) : $aPropsDefault;
$aNewAddressList = array();
$aEmailUnique = array();
foreach ($aAddressList as $aAddr) {
if ($aProps['limit'] && count($aNewAddressList) == $aProps['limit']) {
break;
}
$sPersonal = (isset($aAddr[SQM_ADDR_PERSONAL])) ? $aAddr[SQM_ADDR_PERSONAL] : '';
$sMailbox = (isset($aAddr[SQM_ADDR_MAILBOX])) ? $aAddr[SQM_ADDR_MAILBOX] : '';
$sHost = (isset($aAddr[SQM_ADDR_HOST])) ? $aAddr[SQM_ADDR_HOST] : '';
$sEmail = ($sHost) ? "$sMailbox@$sHost": $sMailbox;
if (in_array($sEmail,$aProps['exclude'],true)) {
continue;
}
if ($aProps['unique']) {
if (in_array($sEmail,$aEmailUnique,true)) {
continue;
} else {
$aEmailUnique[] = $sEmail;
}
}
$s = '';
if ($aProps['best']) {
$s .= ($sPersonal) ? $sPersonal : $sEmail;
} else {
if ($aProps['personal'] && $sPersonal) {
if ($aProps['encode']) {
$sPersonal = encodeHeader($sPersonal);
}
$s .= $sPersonal;
}
if ($aProps['email'] && $sEmail) {
$s.= ($s) ? ' <'.$sEmail.'>': '<'.$sEmail.'>';
}
}
if ($s) {
$aNewAddressList[] = $s;
}
}
return implode($aProps['separator'],$aNewAddressList);
}
/**
* Do after address parsing handling. This is used by compose.php and should
* be moved to compose.php.
* The AddressStructure objetc is now obsolete and dependent parts of that will
* be adapted so that it can make use of this function
* After that we can remove the parseAddress method from the Rfc822Header class completely
* so we achieved 1 single instance of parseAddress instead of two like we have now.
*
* @param array $aAddressList list with email address arrays
* @param array $aProps associative array with properties
* @return string
* @public
* @see parseRFC822Address
* @see Rfc822Header
* @author Marc Groot Koerkamp
*
**/
function processAddressArray($aAddresses,$aProps) {
$aPropsDefault = array (
'domain' => '',
'limit' => 0,
'abooklookup' => false);
$aProps = is_array($aProps) ? array_merge($aPropsDefault,$aProps) : $aPropsDefault;
$aProcessedAddress = array();
foreach ($aAddresses as $aEntry) {
/*
* if the emailaddress does not contain the domainpart it can concern
* an alias or local (in the same domain as the user is) email
* address. In that case we try to look it up in the addressbook or add
* the local domain part
*/
if (!$aEntry[SQM_ADDR_HOST]) {
if ($cbLookup) {
$aAddr = call_user_func_array($cbLookup,array($aEntry[SQM_ADDR_MAILBOX]));
if (isset($aAddr['email'])) {
/*
* if the returned email address concerns multiple email
* addresses we have to process those as well
*/
if (strpos($aAddr['email'],',')) { /* multiple addresses */
/* add the parsed addresses to the processed address array */
$aProcessedAddress = array_merge($aProcessedAddress,parseAddress($aAddr['email']));
/* skip to next address, all processing is done */
continue;
} else { /* single address */
$iPosAt = strpos($aAddr['email'], '@');
$aEntry[SQM_ADDR_MAILBOX] = substr($aAddr['email'], 0, $iPosAt);
$aEntry[SQM_ADDR_HOST] = substr($aAddr['email'], $iPosAt+1);
if (isset($aAddr['name'])) {
$aEntry[SQM_ADDR_PERSONAL] = $aAddr['name'];
} else {
$aEntry[SQM_ADDR_PERSONAL] = encodeHeader($sPersonal);
}
}
}
}
/*
* append the domain
*
*/
if (!$aEntry[SQM_ADDR_MAILBOX]) {
$aEntry[SQM_ADDR_MAILBOX] = trim($sEmail);
}
if ($sDomain && !$aEntry[SQM_ADDR_HOST]) {
$aEntry[SQM_ADDR_HOST] = $sDomain;
}
}
if ($aEntry[SQM_ADDR_MAILBOX]) {
$aProcessedAddress[] = $aEntry;
}
}
return $aProcessedAddress;
}
/**
* Internal function for creating an address array
*
* @param array $aStack
* @param array $aComment
* @param string $sEmail
* @return array $aAddr array with personal (0), adl(1), mailbox(2) and host(3) info
* @private
* @author Marc Groot Koerkamp
*
**/
function _createAddressElement(&$aStack,&$aComment,&$sEmail) {
if (!$sEmail) {
while (count($aStack) && !$sEmail) {
$sEmail = trim(array_pop($aStack));
}
}
if (count($aStack)) {
$sPersonal = trim(implode('',$aStack));
} else {
$sPersonal = '';
}
if (!$sPersonal && count($aComment)) {
$sComment = trim(implode(' ',$aComment));
$sPersonal .= $sComment;
}
$aAddr = array();
// if ($sPersonal && substr($sPersonal,0,2) == '=?') {
// $aAddr[SQM_ADDR_PERSONAL] = encodeHeader($sPersonal);
// } else {
$aAddr[SQM_ADDR_PERSONAL] = $sPersonal;
// }
$iPosAt = strpos($sEmail,'@');
if ($iPosAt) {
$aAddr[SQM_ADDR_MAILBOX] = substr($sEmail, 0, $iPosAt);
$aAddr[SQM_ADDR_HOST] = substr($sEmail, $iPosAt+1);
} else {
$aAddr[SQM_ADDR_MAILBOX] = $sEmail;
$aAddr[SQM_ADDR_HOST] = false;
}
$sEmail = '';
$aStack = $aComment = array();
return $aAddr;
}
/**
* Tokenizer function for parsing the RFC822 email address string
*
* @param string $address The email address string to parse
* @return array $aTokens
* @private
* @author Marc Groot Koerkamp
*
**/
function _getAddressTokens($address) {
$aTokens = array();
$aSpecials = array('(' ,'<' ,',' ,';' ,':');
$aReplace = array(' (',' <',' ,',' ;',' :');
$address = str_replace($aSpecials,$aReplace,$address);
$iCnt = strlen($address);
$i = 0;
while ($i < $iCnt) {
$cChar = $address{$i};
switch($cChar)
{
case '<':
$iEnd = strpos($address,'>',$i+1);
if (!$iEnd) {
$sToken = substr($address,$i);
$i = $iCnt;
} else {
$sToken = substr($address,$i,$iEnd - $i +1);
$i = $iEnd;
}
$sToken = str_replace($aReplace, $aSpecials,$sToken);
if ($sToken) $aTokens[] = $sToken;
break;
case '"':
$iEnd = strpos($address,$cChar,$i+1);
if ($iEnd) {
// skip escaped quotes
$prev_char = $address{$iEnd-1};
while ($prev_char === '\\' && substr($address,$iEnd-2,2) !== '\\\\') {
$iEnd = strpos($address,$cChar,$iEnd+1);
if ($iEnd) {
$prev_char = $address{$iEnd-1};
} else {
$prev_char = false;
}
}
}
if (!$iEnd) {
$sToken = substr($address,$i);
$i = $iCnt;
} else {
// also remove the surrounding quotes
$sToken = substr($address,$i+1,$iEnd - $i -1);
$i = $iEnd;
}
$sToken = str_replace($aReplace, $aSpecials,$sToken);
if ($sToken) $aTokens[] = $sToken;
break;
case '(':
array_pop($aTokens); //remove inserted space
$iEnd = strpos($address,')',$i);
if (!$iEnd) {
$sToken = substr($address,$i);
$i = $iCnt;
} else {
$iDepth = 1;
$iComment = $i;
while (($iDepth > 0) && (++$iComment < $iCnt)) {
$cCharComment = $address{$iComment};
switch($cCharComment) {
case '\\':
++$iComment;
break;
case '(':
++$iDepth;
break;
case ')':
--$iDepth;
break;
default:
break;
}
}
if ($iDepth == 0) {
$sToken = substr($address,$i,$iComment - $i +1);
$i = $iComment;
} else {
$sToken = substr($address,$i,$iEnd - $i + 1);
$i = $iEnd;
}
}
// check the next token in case comments appear in the middle of email addresses
$prevToken = end($aTokens);
if (!in_array($prevToken,$aSpecials,true)) {
if ($i+1<strlen($address) && !in_array($address{$i+1},$aSpecials,true)) {
$iEnd = strpos($address,' ',$i+1);
if ($iEnd) {
$sNextToken = trim(substr($address,$i+1,$iEnd - $i -1));
$i = $iEnd-1;
} else {
$sNextToken = trim(substr($address,$i+1));
$i = $iCnt;
}
// remove the token
array_pop($aTokens);
// create token and add it again
$sNewToken = $prevToken . $sNextToken;
if($sNewToken) $aTokens[] = $sNewToken;
}
}
$sToken = str_replace($aReplace, $aSpecials,$sToken);
if ($sToken) $aTokens[] = $sToken;
break;
case ',':
case ':':
case ';':
case ' ':
$aTokens[] = $cChar;
break;
default:
$iEnd = strpos($address,' ',$i+1);
if ($iEnd) {
$sToken = trim(substr($address,$i,$iEnd - $i));
$i = $iEnd-1;
} else {
$sToken = trim(substr($address,$i));
$i = $iCnt;
}
if ($sToken) $aTokens[] = $sToken;
}
++$i;
}
return $aTokens;
}
?>
|