tedkulp / cmsmadesimple-2-0 fork watch download tarball
public
Description: Git mirror of the CMS Made Simple 2.0 rewrite
Homepage: http://cmsmadesimple.org
Clone URL: git://github.com/tedkulp/cmsmadesimple-2-0.git
cmsmadesimple-2-0 / lib / adodb5 / adodb-memcache.lib.inc.php
100644 119 lines (100 sloc) 3.081 kb
raw history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119

<?php
 
// security - hide paths
if (!defined('ADODB_DIR')) die();
 
global $ADODB_INCLUDED_MEMCACHE;
$ADODB_INCLUDED_MEMCACHE = 1;
 
/* 
 
  V4.90 8 June 2006  (c) 2000-2008 John Lim (jlim#natsoft.com.my). All rights reserved.
  Released under both BSD license and Lesser GPL library license. 
  Whenever there is any discrepancy between the two licenses, 
  the BSD license will take precedence. See License.txt. 
  Set tabs to 4 for best viewing.
  
  Latest version is available at http://adodb.sourceforge.net
  
*/
 
  function getmemcache($key,&$err, $timeout=0, $host, $port)
  {
    $false = false;
    $err = false;
 
    if (!function_exists('memcache_pconnect')) {
      $err = 'Memcache module PECL extension not found!';
      return $false;
    }
 
    $memcache = new Memcache;
    if (!@$memcache->pconnect($host, $port)) {
      $err = 'Can\'t connect to memcache server on: '.$host.':'.$port;
      return $false;
    }
 
    $rs = $memcache->get($key);
    if (!$rs) {
      $err = 'Item with such key doesn\'t exists on the memcached server.';
      return $false;
    }
 
    $tdiff = intval($rs->timeCreated+$timeout - time());
    if ($tdiff <= 2) {
      switch($tdiff) {
        case 2: 
          if ((rand() & 15) == 0) {
            $err = "Timeout 2";
            return $false;
          }
          break;
        case 1:
          if ((rand() & 3) == 0) {
            $err = "Timeout 1";
            return $false;
          }
          break;
        default: 
          $err = "Timeout 0";
          return $false;
      }
    }
    return $rs;
  }
 
  function putmemcache($key, $rs, $host, $port, $compress, $debug=false)
  {
    $false = false;
    $true = true;
 
    if (!function_exists('memcache_pconnect')) {
      if ($debug) ADOConnection::outp(" Memcache module PECL extension not found!<br>\n");
      return $false;
    }
 
    $memcache = new Memcache;
    if (!@$memcache->pconnect($host, $port)) {
      if ($debug) ADOConnection::outp(" Can't connect to memcache server on: $host:$port<br>\n");
      return $false;
    }
 
    $rs->timeCreated = time();
    if (!$memcache->set($key, $rs, $compress, 0)) {
      if ($debug) ADOConnection::outp(" Failed to save data at the memcached server!<br>\n");
      return $false;
    }
    return $true;
  }
 
  function flushmemcache($key=false, $host, $port, $debug=false)
  {
    if (!function_exists('memcache_pconnect')) {
      if ($debug) ADOConnection::outp(" Memcache module PECL extension not found!<br>\n");
      return;
    }
 
    $memcache = new Memcache;
    if (!@$memcache->pconnect($host, $port)) {
      if ($debug) ADOConnection::outp(" Can't connect to memcache server on: $host:$port<br>\n");
      return;
    }
 
    if ($key) {
      if (!$memcache->delete($key)) {
        if ($debug) ADOConnection::outp("CacheFlush: $key entery doesn't exist on memcached server!<br>\n");
      } else {
        if ($debug) ADOConnection::outp("CacheFlush: $key entery flushed from memcached server!<br>\n");
      }
    } else {
      if (!$memcache->flush()) {
        if ($debug) ADOConnection::outp("CacheFlush: Failure flushing all enteries from memcached server!<br>\n");
      } else {
        if ($debug) ADOConnection::outp("CacheFlush: All enteries flushed from memcached server!<br>\n");
      }
    }
    return;
  }
?>