<?php
/**
 * Redis 操作，支持 Master/Slave 的负载集群
 *
 * @author jackluo
 */
class RedisCluster{
  // 是否使用 M/S 的读写集群方案
  private $_isUseCluster = false;
  // Slave 句柄标记
  private $_sn = 0;
  // 服务器连接句柄
  private $_linkHandle = array(
    'master'=>null,// 只支持一台 Master
    'slave'=>array(),// 可以有多台 Slave
  );
  /**
   * 构造函数
   *
   * @param boolean $isUseCluster 是否采用 M/S 方案
   */
  public function __construct($isUseCluster=false){
    $this->_isUseCluster = $isUseCluster;
  }
  /**
   * 连接服务器,注意：这里使用长连接，提高效率，但不会自动关闭
   *
   * @param array $config Redis服务器配置
   * @param boolean $isMaster 当前添加的服务器是否为 Master 服务器
   * @return boolean
   */
  public function connect($config=array('host'=>'127.0.0.1','port'=>6379), $isMaster=true){
    // default port
    if(!isset($config['port'])){
      $config['port'] = 6379;
    }
    // 设置 Master 连接
    if($isMaster){
      $this->_linkHandle['master'] = new Redis();
      $ret = $this->_linkHandle['master']->pconnect($config['host'],$config['port']);
    }else{
      // 多个 Slave 连接
      $this->_linkHandle['slave'][$this->_sn] = new Redis();
      $ret = $this->_linkHandle['slave'][$this->_sn]->pconnect($config['host'],$config['port']);
      ++$this->_sn;
    }
    return $ret;
  }
  /**
   * 关闭连接
   *
   * @param int $flag 关闭选择 0:关闭 Master 1:关闭 Slave 2:关闭所有
   * @return boolean
   */
  public function close($flag=2){
    switch($flag){
      // 关闭 Master
      case 0:
        $this->getRedis()->close();
      break;
      // 关闭 Slave
      case 1:
        for($i=0; $i<$this->_sn; ++$i){
          $this->_linkHandle['slave'][$i]->close();
        }
      break;
      // 关闭所有
      case 1:
        $this->getRedis()->close();
        for($i=0; $i<$this->_sn; ++$i){
          $this->_linkHandle['slave'][$i]->close();
        }
      break;
    }
    return true;
  }
  /**
   * 得到 Redis 原始对象可以有更多的操作
   *
   * @param boolean $isMaster 返回服务器的类型 true:返回Master false:返回Slave
   * @param boolean $slaveOne 返回的Slave选择 true:负载均衡随机返回一个Slave选择 false:返回所有的Slave选择
   * @return redis object
   */
  public function getRedis($isMaster=true,$slaveOne=true){
    // 只返回 Master
    if($isMaster){
      return $this->_linkHandle['master'];
    }else{
      return $slaveOne ? $this->_getSlaveRedis() : $this->_linkHandle['slave'];
    }
  }
  /**
   * 写缓存
   *
   * @param string $key 组存KEY
   * @param string $value 缓存值
   * @param int $expire 过期时间， 0:表示无过期时间
   */
  public function set($key, $value, $expire=0){
    // 永不超时
    if($expire == 0){
      $ret = $this->getRedis()->set($key, $value);
    }else{
      $ret = $this->getRedis()->setex($key, $expire, $value);
    }
    return $ret;
  }
  /**
   * 读缓存
   *
   * @param string $key 缓存KEY,支持一次取多个 $key = array('key1','key2')
   * @return string || boolean 失败返回 false, 成功返回字符串
   */
  public function get($key){
    // 是否一次取多个值
    $func = is_array($key) ? 'mGet' : 'get';
    // 没有使用M/S
    if(! $this->_isUseCluster){
      return $this->getRedis()->{$func}($key);
    }
    // 使用了 M/S
    return $this->_getSlaveRedis()->{$func}($key);
  }
/*
  // magic function 
  public function __call($name,$arguments){
    return call_user_func($name,$arguments);  
  }
*/
  /**
   * 条件形式设置缓存，如果 key 不存时就设置，存在时设置失败
   *
   * @param string $key 缓存KEY
   * @param string $value 缓存值
   * @return boolean
   */
  public function setnx($key, $value){
    return $this->getRedis()->setnx($key, $value);
  }
  /**
   * 删除缓存
   *
   * @param string || array $key 缓存KEY，支持单个健:"key1" 或多个健:array('key1','key2')
   * @return int 删除的健的数量
   */
  public function remove($key){
    // $key => "key1" || array('key1','key2')
    return $this->getRedis()->delete($key);
  }
  /**
   * 值加加操作,类似 ++$i ,如果 key 不存在时自动设置为 0 后进行加加操作
   *
   * @param string $key 缓存KEY
   * @param int $default 操作时的默认值
   * @return int　操作后的值
   */
  public function incr($key,$default=1){
    if($default == 1){
      return $this->getRedis()->incr($key);
    }else{
      return $this->getRedis()->incrBy($key, $default);
    }
  }
  /**
   * 值减减操作,类似 --$i ,如果 key 不存在时自动设置为 0 后进行减减操作
   *
   * @param string $key 缓存KEY
   * @param int $default 操作时的默认值
   * @return int　操作后的值
   */
  public function decr($key,$default=1){
    if($default == 1){
      return $this->getRedis()->decr($key);
    }else{
      return $this->getRedis()->decrBy($key, $default);
    }
  }
  /**
   * 添空当前数据库
   *
   * @return boolean
   */
  public function clear(){
    return $this->getRedis()->flushDB();
  }
  /* =================== 以下私有方法 =================== */
  /**
   * 随机 HASH 得到 Redis Slave 服务器句柄
   *
   * @return redis object
   */
  private function _getSlaveRedis(){
    // 就一台 Slave 机直接返回
    if($this->_sn <= 1){
      return $this->_linkHandle['slave'][0];
    }
    // 随机 Hash 得到 Slave 的句柄
    $hash = $this->_hashId(mt_rand(), $this->_sn);
    return $this->_linkHandle['slave'][$hash];
  }
  /**
   * 根据ID得到 hash 后 0～m-1 之间的值
   *
   * @param string $id
   * @param int $m
   * @return int
   */
  private function _hashId($id,$m=10)
  {
    //把字符串K转换为 0～m-1 之间的一个值作为对应记录的散列地址
    $k = md5($id);
    $l = strlen($k);
    $b = bin2hex($k);
    $h = 0;
    for($i=0;$i<$l;$i++)
    {
      //相加模式HASH
      $h += substr($b,$i*2,2);
    }
    $hash = ($h*1)%$m;
    return $hash;
  }
  /**
   *  lpush 
   */
  public function lpush($key,$value){
    return $this->getRedis()->lpush($key,$value);
  }
  /**
   *  add lpop
   */
  public function lpop($key){
    return $this->getRedis()->lpop($key);
  }
  /**
   * lrange 
   */
  public function lrange($key,$start,$end){
    return $this->getRedis()->lrange($key,$start,$end);  
  }
  /**
   *  set hash opeation
   */
  public function hset($name,$key,$value){
    if(is_array($value)){
      return $this->getRedis()->hset($name,$key,serialize($value));  
    }
    return $this->getRedis()->hset($name,$key,$value);
  }
  /**
   *  get hash opeation
   */
  public function hget($name,$key = null,$serialize=true){
    if($key){
      $row = $this->getRedis()->hget($name,$key);
      if($row && $serialize){
        unserialize($row);
      }
      return $row;
    }
    return $this->getRedis()->hgetAll($name);
  }
  /**
   *  delete hash opeation
   */
  public function hdel($name,$key = null){
    if($key){
      return $this->getRedis()->hdel($name,$key);
    }
    return $this->getRedis()->hdel($name);
  }
  /**
   * Transaction start
   */
  public function multi(){
    return $this->getRedis()->multi();  
  }
  /**
   * Transaction send
   */
  public function exec(){
    return $this->getRedis()->exec();  
  }
}// End Class
// ================= TEST DEMO =================
// 只有一台 Redis 的应用
$redis = new RedisCluster();
$redis->connect(array('host'=>'127.0.0.1','port'=>6379));
//*
$cron_id = 10001;
$CRON_KEY = 'CRON_LIST'; //
$PHONE_KEY = 'PHONE_LIST:'.$cron_id;//
//cron info
$cron = $redis->hget($CRON_KEY,$cron_id);
if(empty($cron)){
  $cron = array('id'=>10,'name'=>'jackluo');//mysql data
  $redis->hset($CRON_KEY,$cron_id,$cron); // set redis  
}
//phone list
$phone_list = $redis->lrange($PHONE_KEY,0,-1);
print_r($phone_list);
if(empty($phone_list)){
  $phone_list =explode(',','13228191831,18608041585');  //mysql data
  //join list
  if($phone_list){
    $redis->multi();
    foreach ($phone_list as $phone) {
      $redis->lpush($PHONE_KEY,$phone);      
    }
    $redis->exec();
  }
}
print_r($phone_list);
/*$list = $redis->hget($cron_list,);
var_dump($list);*/
//*/
//$redis->set('id',35);
/*
  $redis->lpush('test','1111');
  $redis->lpush('test','2222');
  $redis->lpush('test','3333');
  $list = $redis->lrange('test',0,-1);
  print_r($list);
  $lpop = $redis->lpop('test');
  print_r($lpop);
  $lpop = $redis->lpop('test');
  print_r($lpop);
  $lpop = $redis->lpop('test');
  print_r($lpop);
*/
//  var_dump($redis->get('id'));