gacl/adodb/adodb-memcache.lib.inc.php

   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-2006 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 ?>