[Sommaire] [Imprimer]

   1  <?php
   2  
   3  // security - hide paths

   4  if (!defined('ADODB_DIR')) die();
   5  
   6  global $ADODB_INCLUDED_MEMCACHE;
   7  $ADODB_INCLUDED_MEMCACHE = 1;
   8  
   9  /* 

  10  

  11    V4.90 8 June 2006  (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved.

  12    Released under both BSD license and Lesser GPL library license. 

  13    Whenever there is any discrepancy between the two licenses, 

  14    the BSD license will take precedence. See License.txt. 

  15    Set tabs to 4 for best viewing.

  16    

  17    Latest version is available at http://adodb.sourceforge.net

  18    

  19  */
  20  
  21      function &getmemcache($key,&$err, $timeout=0, $host, $port)
  22      {
  23          $false = false;
  24          $err = false;
  25  
  26          if (!function_exists('memcache_pconnect')) {
  27              $err = 'Memcache module PECL extension not found!';
  28              return $false;
  29          }
  30  
  31          $memcache = new Memcache;
  32          if (!@$memcache->pconnect($host, $port)) {
  33              $err = 'Can\'t connect to memcache server on: '.$host.':'.$port;
  34              return $false;
  35          }
  36  
  37          $rs = $memcache->get($key);
  38          if (!$rs) {
  39              $err = 'Item with such key doesn\'t exists on the memcached server.';
  40              return $false;
  41          }
  42  
  43          $tdiff = intval($rs->timeCreated+$timeout - time());
  44          if ($tdiff <= 2) {
  45              switch($tdiff) {
  46                  case 2: 
  47                      if ((rand() & 15) == 0) {
  48                          $err = "Timeout 2";
  49                          return $false;
  50                      }
  51                      break;
  52                  case 1:
  53                      if ((rand() & 3) == 0) {
  54                          $err = "Timeout 1";
  55                          return $false;
  56                      }
  57                      break;
  58                  default: 
  59                      $err = "Timeout 0";
  60                      return $false;
  61              }
  62          }
  63          return $rs;
  64      }
  65  
  66  	function putmemcache($key, $rs, $host, $port, $compress, $debug=false)
  67      {
  68          $false = false;
  69          $true = true;
  70  
  71          if (!function_exists('memcache_pconnect')) {
  72              if ($debug) ADOConnection::outp(" Memcache module PECL extension not found!<br>\n");
  73              return $false;
  74          }
  75  
  76          $memcache = new Memcache;
  77          if (!@$memcache->pconnect($host, $port)) {
  78              if ($debug) ADOConnection::outp(" Can't connect to memcache server on: $host:$port<br>\n");
  79              return $false;
  80          }
  81  
  82          $rs->timeCreated = time();
  83          if (!$memcache->set($key, $rs, $compress, 0)) {
  84              if ($debug) ADOConnection::outp(" Failed to save data at the memcached server!<br>\n");
  85              return $false;
  86          }
  87          return $true;
  88      }
  89  
  90  	function flushmemcache($key=false, $host, $port, $debug=false)
  91      {
  92          if (!function_exists('memcache_pconnect')) {
  93              if ($debug) ADOConnection::outp(" Memcache module PECL extension not found!<br>\n");
  94              return;
  95          }
  96  
  97          $memcache = new Memcache;
  98          if (!@$memcache->pconnect($host, $port)) {
  99              if ($debug) ADOConnection::outp(" Can't connect to memcache server on: $host:$port<br>\n");
 100              return;
 101          }
 102  
 103          if ($key) {
 104              if (!$memcache->delete($key)) {
 105                  if ($debug) ADOConnection::outp("CacheFlush: $key entery doesn't exist on memcached server!<br>\n");
 106              } else {
 107                  if ($debug) ADOConnection::outp("CacheFlush: $key entery flushed from memcached server!<br>\n");
 108              }
 109          } else {
 110              if (!$memcache->flush()) {
 111                  if ($debug) ADOConnection::outp("CacheFlush: Failure flushing all enteries from memcached server!<br>\n");
 112              } else {
 113                  if ($debug) ADOConnection::outp("CacheFlush: All enteries flushed from memcached server!<br>\n");
 114              }
 115          }
 116          return;
 117      }
 118  ?>