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 +--------------------------------------------------------------------+
31 * @copyright CiviCRM LLC (c) 2004-2014
35 class CRM_Mailing_BAO_TrackableURL
extends CRM_Mailing_DAO_TrackableURL
{
40 public function __construct() {
41 parent
::__construct();
45 * Given a url, mailing id and queue event id, find or construct a
46 * trackable url and redirect url.
49 * The target url to track.
50 * @param int $mailing_id
51 * The id of the mailing.
52 * @param int $queue_id
53 * The queue event id (contact clicking through).
56 * The redirect/tracking url
58 public static function getTrackerURL($url, $mailing_id, $queue_id) {
60 static $urlCache = array();
62 if (array_key_exists($url, $urlCache)) {
63 return $urlCache[$url] . "&qid=$queue_id";
66 // hack for basic CRM-1014 and CRM-1151 and CRM-3492 compliance:
67 // let's not replace possible image URLs and CiviMail ones
68 if (preg_match('/\.(png|jpg|jpeg|gif|css)[\'"]?$/i', $url)
69 or substr_count($url, 'civicrm/extern/')
70 or substr_count($url, 'civicrm/mailing/')
72 // let's not cache these, so they don't get &qid= appended to them
78 $config = CRM_Core_Config
::singleton();
80 $tracker = new CRM_Mailing_BAO_TrackableURL();
81 if (preg_match('/^href/i', $url)) {
82 $url = preg_replace('/^href[ ]*=[ ]*[\'"](.*?)[\'"]$/i', '$1', $url);
87 $tracker->mailing_id
= $mailing_id;
88 if (strlen($tracker->url
) > 254) {
91 if (!$tracker->find(TRUE)) {
97 $redirect = $config->userFrameworkResourceURL
. "extern/url.php?u=$id";
98 $urlCache[$url] = $redirect;
101 $returnUrl = "{$urlCache[$url]}&qid={$queue_id}";
104 $returnUrl = "href='{$returnUrl}'";
115 * Url id of the given url and mail
117 public static function getTrackerURLId($url, $mailing_id) {
118 $tracker = new CRM_Mailing_BAO_TrackableURL();
119 $tracker->url
= $url;
120 $tracker->mailing_id
= $mailing_id;
121 if ($tracker->find(TRUE)) {
130 * @param int $mailing_id
131 * @param int $queue_id
132 * @param bool $onlyHrefs
134 public static function scan_and_replace(&$msg, $mailing_id, $queue_id, $onlyHrefs = FALSE) {
139 $protos = '(https?|ftp)';
141 $gunk = '/#~:.?+=&%@!\-';
143 $any = "{$letters}{$gunk}{$punc}";
145 $pattern = "{\\b(href=([\"'])?($protos:[$any]+?(?=[$punc]*[^$any]|$))([\"'])?)}im";
148 $pattern = "{\\b($protos:[$any]+?(?=[$punc]*[^$any]|$))}eim";
151 $trackURL = CRM_Mailing_BAO_TrackableURL
::getTrackerURL('\\1', $mailing_id, $queue_id);
152 $replacement = $onlyHrefs ?
("href=\"{$trackURL}\"") : ("\"{$trackURL}\"");
154 $msg = preg_replace($pattern, $replacement, $msg);