3 +--------------------------------------------------------------------+
4 | CiviCRM version 4.6 |
5 +--------------------------------------------------------------------+
6 | Copyright CiviCRM LLC (c) 2004-2014 |
7 +--------------------------------------------------------------------+
8 | This file is a part of CiviCRM. |
10 | CiviCRM is free software; you can copy, modify, and distribute it |
11 | under the terms of the GNU Affero General Public License |
12 | Version 3, 19 November 2007 and the CiviCRM Licensing Exception. |
14 | CiviCRM is distributed in the hope that it will be useful, but |
15 | WITHOUT ANY WARRANTY; without even the implied warranty of |
16 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. |
17 | See the GNU Affero General Public License for more details. |
19 | You should have received a copy of the GNU Affero General Public |
20 | License and the CiviCRM Licensing Exception along |
21 | with this program; if not, contact CiviCRM LLC |
22 | at info[AT]civicrm[DOT]org. If you have questions about the |
23 | GNU Affero General Public License or the licensing of CiviCRM, |
24 | see the CiviCRM license FAQ at http://civicrm.org/licensing |
25 +--------------------------------------------------------------------+
29 * Class to handle encoding and decoding Variable Enveleope Return Path (VERP)
33 * @copyright CiviCRM LLC (c) 2004-2014
37 class CRM_Utils_Verp
{
38 /* Mapping of reserved characters to hex codes */
40 static $encodeMap = array(
51 /* Mapping of hex codes to reserved characters */
53 static $decodeMap = array(
65 * Encode the sender's address with the VERPed recipient.
67 * @param string $sender
68 * The address of the sender.
69 * @param string $recipient
70 * The address of the recipient.
73 * The VERP encoded address
75 public static function encode($sender, $recipient) {
76 preg_match('/(.+)\@([^\@]+)$/', $sender, $match);
80 preg_match('/(.+)\@([^\@]+)$/', $recipient, $match);
81 $rlocal = CRM_Utils_Array
::value(1, $match);
82 $rdomain = CRM_Utils_Array
::value(2, $match);
84 foreach (self
::$encodeMap as $char => $code) {
85 $rlocal = preg_replace('/' . preg_quote($char) . '/i', "+$code", $rlocal);
86 $rdomain = preg_replace('/' . preg_quote($char) . '/i', "+$code", $rdomain);
89 return "$slocal-$rlocal=$rdomain@$sdomain";
93 * Decode the address and return the sender and recipient as an array.
95 * @param string $address
96 * The address to be decoded.
99 * The tuple ($sender, $recipient)
101 public static function &verpdecode($address) {
102 preg_match('/^(.+)-([^=]+)=([^\@]+)\@(.+)/', $address, $match);
106 $rdomain = $match[3];
107 $sdomain = $match[4];
109 foreach (self
::$decodeMap as $code => $char) {
110 $rlocal = preg_replace("/+$code/i", $char, $rlocal);
111 $rdomain = preg_replace("/+$code/i", $char, $rdomain);
114 return array("$slocal@$sdomain", "$rlocal@$rdomain");