redis-caching-civi46.patch

diff --git a/CRM/Utils/Cache.php b/CRM/Utils/Cache.php
index 94b2cfb..d03955d 100644
--- a/CRM/Utils/Cache.php
+++ b/CRM/Utils/Cache.php
@@ -105,6 +105,7 @@ class CRM_Utils_Cache {
         $defaults = array();
         break;
 
+      case 'Redis':
       case 'Memcache':
       case 'Memcached':
         $defaults = array(
diff --git a/CRM/Utils/Cache/Redis.php b/CRM/Utils/Cache/Redis.php
new file mode 100644
index 0000000..a44fc44
--- /dev/null
+++ b/CRM/Utils/Cache/Redis.php
@@ -0,0 +1,130 @@
+<?php
+/*
+ +--------------------------------------------------------------------+
+ | CiviCRM version 4.6                                                |
+ +--------------------------------------------------------------------+
+ | Copyright CiviCRM LLC (c) 2004-2014                                |
+ +--------------------------------------------------------------------+
+ | This file is a part of CiviCRM.                                    |
+ |                                                                    |
+ | CiviCRM is free software; you can copy, modify, and distribute it  |
+ | under the terms of the GNU Affero General Public License           |
+ | Version 3, 19 November 2007 and the CiviCRM Licensing Exception.   |
+ |                                                                    |
+ | CiviCRM is distributed in the hope that it will be useful, but     |
+ | WITHOUT ANY WARRANTY; without even the implied warranty of         |
+ | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.               |
+ | See the GNU Affero General Public License for more details.        |
+ |                                                                    |
+ | You should have received a copy of the GNU Affero General Public   |
+ | License and the CiviCRM Licensing Exception along                  |
+ | with this program; if not, contact CiviCRM LLC                     |
+ | at info[AT]civicrm[DOT]org. If you have questions about the        |
+ | GNU Affero General Public License or the licensing of CiviCRM,     |
+ | see the CiviCRM license FAQ at http://civicrm.org/licensing        |
+ +--------------------------------------------------------------------+
+*/
+
+/**
+ *
+ * @package CRM
+ * @copyright CiviCRM LLC (c) 2004-2013
+ * $Id$
+ *
+ */
+class CRM_Utils_Cache_Redis {
+	const DEFAULT_HOST    = 'localhost';
+	const DEFAULT_PORT    = 11211;
+	const DEFAULT_TIMEOUT = 3600;
+	const DEFAULT_PREFIX  = '';
+
+	/**
+	 * The host name of the redisd server
+	 *
+	 * @var string
+	 */
+	protected $_host = self::DEFAULT_HOST;
+
+	/**
+	 * The port on which to connect on
+	 *
+	 * @var int
+	 */
+	protected $_port = self::DEFAULT_PORT;
+
+	/**
+	 * The default timeout to use
+	 *
+	 * @var int
+	 */
+	protected $_timeout = self::DEFAULT_TIMEOUT;
+
+	/**
+	 * The prefix prepended to cache keys.
+	 *
+	 * If we are using the same redis instance for multiple CiviCRM
+	 * installs, we must have a unique prefix for each install to prevent
+	 * the keys from clobbering each other.
+	 *
+	 * @var string
+	 */
+	protected $_prefix = self::DEFAULT_PREFIX;
+
+	/**
+	 * The actual redis object
+	 *
+	 * @var resource
+	 */
+	protected $_cache;
+
+	/**
+	 * Constructor
+	 *
+	 * @param array   $config  an array of configuration params
+	 *
+	 * @return void
+	 */
+	function __construct($config) {
+		if (isset($config['host'])) {
+			$this->_host = $config['host'];
+		}
+		if (isset($config['port'])) {
+			$this->_port = $config['port'];
+		}
+		if (isset($config['timeout'])) {
+			$this->_timeout = $config['timeout'];
+		}
+		if (isset($config['prefix'])) {
+			$this->_prefix = $config['prefix'];
+		}
+
+		$this->_cache = new Redis();
+		if (!$this->_cache->connect($this->_host, $this->_port)) {
+			// dont use fatal here since we can go in an infinite loop
+			echo 'Could not connect to redisd server';
+			CRM_Utils_System::civiExit();
+		}
+		$this->_cache->auth(CIVICRM_DB_CACHE_PASSWORD);
+	}
+
+	function set($key, &$value) {
+		if (!$this->_cache->set($this->_prefix . $key, serialize($value), $this->_timeout)) {
+			return FALSE;
+		}
+		return TRUE;
+	}
+
+	function &get($key) {
+		$result = $this->_cache->get($this->_prefix . $key);
+		return unserialize($result);
+	}
+
+	function delete($key) {
+		return $this->_cache->delete($this->_prefix . $key);
+	}
+
+	function flush() {
+		return $this->_cache->flushDB();;
+	}
+}
+