|
1
|
|
|
<?php |
|
2
|
|
|
|
|
3
|
|
|
/* usage |
|
4
|
|
|
|
|
5
|
|
|
simple: |
|
6
|
|
|
|
|
7
|
|
|
if ( !$image = ar('cache')->getIfFresh( $name ) ) { |
|
8
|
|
|
$image = expensiveOperation(); |
|
9
|
|
|
ar('cache')->set( $naam, $image ); |
|
10
|
|
|
} |
|
11
|
|
|
echo $image; |
|
12
|
|
|
|
|
13
|
|
|
with locking: |
|
14
|
|
|
|
|
15
|
|
|
if ( !$image = ar('cache')->getIfFresh( $naam ) ) { |
|
16
|
|
|
if ( ar('cache')->lock( $naam ) ) { |
|
17
|
|
|
$image = expensiveOperation(); |
|
18
|
|
|
ar('cache')->set( $naam, $image, '2 hours' ); |
|
19
|
|
|
} else if ( ar('cache')->wait( $naam ) ) { // lock failed, another process is generating the cache |
|
20
|
|
|
// continues here when the lock to be lifted |
|
21
|
|
|
$image = ar('cache')->get($naam); |
|
22
|
|
|
} else { |
|
23
|
|
|
// couldn't lock the file in a reasonable time, you could generate an error here |
|
24
|
|
|
// or just go with a stale image, or simply do the calculation: |
|
25
|
|
|
$image = expensiveOperation(); |
|
26
|
|
|
} |
|
27
|
|
|
} |
|
28
|
|
|
echo $image; |
|
29
|
|
|
|
|
30
|
|
|
*/ |
|
31
|
|
|
|
|
32
|
|
|
ar_pinp::allow('ar_cache'); |
|
33
|
|
|
ar_pinp::allow('ar_cacheStore'); |
|
34
|
|
|
ar_pinp::allow('ar_cacheProxy'); |
|
35
|
|
|
|
|
36
|
|
|
class ar_cache extends arBase { |
|
37
|
|
|
|
|
38
|
|
|
public static $cacheStore = null; |
|
39
|
|
|
|
|
40
|
|
|
public static function config( $options ) { |
|
41
|
|
|
if ( $options['cacheStore'] ) { |
|
42
|
|
|
self::$cacheStore = $options['cacheStore']; |
|
43
|
|
|
} |
|
44
|
|
|
} |
|
45
|
|
|
|
|
46
|
|
|
public static function create( $prefix = null, $timeout = 7200 ) { |
|
47
|
|
|
// this method is used by pinp scripts to create a specific cache |
|
48
|
|
|
// so it must be more restrictive than the constructor of the cacheStore |
|
49
|
|
|
// which must be able to clear any and all caches |
|
50
|
|
|
if ( !$prefix ) { // make sure you have a default prefix, so you won't clear other prefixes unintended |
|
51
|
|
|
$prefix = 'default'; |
|
52
|
|
|
} |
|
53
|
|
|
$prefix = 'pinp/'.$prefix; // make sure the pinp scripts have their own top level |
|
54
|
|
|
$prefix = $prefix . ar::context()->getPath(); // make sure the cache store is limited to the current path in the context stack |
|
55
|
|
|
try { |
|
56
|
|
|
return new ar_cacheStore( $prefix, $timeout ); |
|
57
|
|
|
} catch( Exception $e ) { |
|
58
|
|
|
return ar_error::raiseError( $e->getMessage(), $e->getCode() ); |
|
59
|
|
|
} |
|
60
|
|
|
} |
|
61
|
|
|
|
|
62
|
|
|
public static function get( $name ) { |
|
63
|
|
|
if ( !self::$cacheStore ) { |
|
64
|
|
|
self::$cacheStore = self::create(); |
|
65
|
|
|
} |
|
66
|
|
|
return self::$cacheStore->get( $name ); |
|
67
|
|
|
} |
|
68
|
|
|
|
|
69
|
|
|
public static function getIfFresh( $name, $freshness=0 ) { |
|
70
|
|
|
if ( !self::$cacheStore ) { |
|
71
|
|
|
self::$cacheStore = self::create(); |
|
72
|
|
|
} |
|
73
|
|
|
return self::$cacheStore->getIfFresh( $name, $freshness ); |
|
|
|
|
|
|
74
|
|
|
} |
|
75
|
|
|
|
|
76
|
|
|
public static function lock( $name ) { |
|
77
|
|
|
if ( !self::$cacheStore ) { |
|
78
|
|
|
self::$cacheStore = self::create(); |
|
79
|
|
|
} |
|
80
|
|
|
return self::$cacheStore->lock( $name ); |
|
|
|
|
|
|
81
|
|
|
} |
|
82
|
|
|
|
|
83
|
|
|
public static function wait( $name ) { |
|
84
|
|
|
if ( !self::$cacheStore ) { |
|
85
|
|
|
self::$cacheStore = self::create(); |
|
86
|
|
|
} |
|
87
|
|
|
return self::$cacheStore->wait( $name ); |
|
|
|
|
|
|
88
|
|
|
} |
|
89
|
|
|
|
|
90
|
|
|
public static function set( $name, $value, $timeout = 7200 ) { |
|
91
|
|
|
if ( !self::$cacheStore ) { |
|
92
|
|
|
self::$cacheStore = self::create(); |
|
93
|
|
|
} |
|
94
|
|
|
return self::$cacheStore->set( $name, $value, $timeout ); |
|
|
|
|
|
|
95
|
|
|
} |
|
96
|
|
|
|
|
97
|
|
|
public static function info( $name ) { |
|
98
|
|
|
if ( !self::$cacheStore ) { |
|
99
|
|
|
self::$cacheStore = self::create(); |
|
100
|
|
|
} |
|
101
|
|
|
return self::$cacheStore->info( $name ); |
|
|
|
|
|
|
102
|
|
|
} |
|
103
|
|
|
|
|
104
|
|
|
public static function clear( $name = null ) { |
|
105
|
|
|
if ( !self::$cacheStore ) { |
|
106
|
|
|
self::$cacheStore = self::create(); |
|
107
|
|
|
} |
|
108
|
|
|
return self::$cacheStore->clear( $name ); |
|
|
|
|
|
|
109
|
|
|
} |
|
110
|
|
|
|
|
111
|
|
|
public static function purge( $name = null ) { |
|
112
|
|
|
if ( !self::$cacheStore ) { |
|
113
|
|
|
self::$cacheStore = self::create(); |
|
114
|
|
|
} |
|
115
|
|
|
return self::$cacheStore->purge( $name ); |
|
|
|
|
|
|
116
|
|
|
} |
|
117
|
|
|
|
|
118
|
|
|
public static function proxy( $object, $timeout = null ) { |
|
119
|
|
|
if ( !self::$cacheStore ) { |
|
120
|
|
|
self::$cacheStore = self::create(); |
|
121
|
|
|
} |
|
122
|
|
|
return new ar_cacheProxy( $object, self::$cacheStore, $timeout ); |
|
123
|
|
|
} |
|
124
|
|
|
|
|
125
|
|
|
} |
|
126
|
|
|
|
|
127
|
|
|
class ar_cacheProxy extends arWrapper { |
|
128
|
|
|
// TODO: allow more control on retrieval: |
|
129
|
|
|
// - get contents from cache even though cache may be stale |
|
130
|
|
|
// perhaps through an extra option in __construct? |
|
131
|
|
|
public $cacheStore = null; |
|
132
|
|
|
public $cacheController = null; |
|
133
|
|
|
public $cacheTimeout = '2 hours'; |
|
134
|
|
|
|
|
135
|
|
|
public function __construct( $object, $cacheStore, $cacheTimeout = null, $cacheController = null ) { |
|
136
|
|
|
parent::__construct( $object ); |
|
137
|
|
|
$this->cacheStore = $cacheStore; |
|
138
|
|
|
$this->cacheController = $cacheController; |
|
139
|
|
|
if ( isset($cacheTimeout) ) { |
|
140
|
|
|
$this->cacheTimeout = $cacheTimeout; |
|
141
|
|
|
} |
|
142
|
|
|
} |
|
143
|
|
|
|
|
144
|
|
|
protected function __callCatch( $method, $args ) { |
|
145
|
|
|
ob_start(); |
|
146
|
|
|
$result = parent::__call( $method, $args ); |
|
147
|
|
|
$output = ob_get_contents(); |
|
148
|
|
|
ob_end_clean(); |
|
149
|
|
|
return array( |
|
150
|
|
|
'output' => $output, |
|
151
|
|
|
'result' => $result |
|
152
|
|
|
); |
|
153
|
|
|
} |
|
154
|
|
|
|
|
155
|
|
|
protected function __callCached( $method, $args, $path ) { |
|
156
|
|
|
if ( !$cacheData = $this->cacheStore->getIfFresh( $path ) ) { |
|
157
|
|
|
if ( $this->cacheStore->lock( $path ) ) { |
|
158
|
|
|
$cacheData = $this->__callCatch( $method, $args ); |
|
159
|
|
|
$this->cacheStore->set( $path, $cacheData, $this->cacheTimeout ); |
|
160
|
|
|
} else if ( $this->cacheStore->wait( $path ) ){ |
|
161
|
|
|
$cacheData = $this->cacheStore->get( $path ); |
|
162
|
|
|
} else { |
|
163
|
|
|
$cacheData = $this->__callCatch( $method, $args ); // just get the result and return it |
|
164
|
|
|
} |
|
165
|
|
|
} |
|
166
|
|
|
return $cacheData; |
|
167
|
|
|
} |
|
168
|
|
|
|
|
169
|
|
|
public function __call( $method, $args ) { |
|
170
|
|
|
$path = $method . '(' . md5( serialize($args) ) . ')'; |
|
171
|
|
|
$cacheData = $this->__callCached( $method, $args, $path ); |
|
172
|
|
|
echo $cacheData['output']; |
|
173
|
|
|
$result = $cacheData['result']; |
|
174
|
|
|
if ( is_object( $result ) ) { |
|
175
|
|
|
$result = new ar_cacheProxy( $result, $this->cacheStore->subStore( $path ) ); |
|
176
|
|
|
} |
|
177
|
|
|
return $result; |
|
178
|
|
|
} |
|
179
|
|
|
|
|
180
|
|
|
public function __get( $name ) { |
|
181
|
|
|
$result = parent::__get( $name ); |
|
182
|
|
|
if ( is_object( $result ) ) { |
|
183
|
|
|
$result = new ar_cacheProxy( $result, $this->cacheStore->subStore( $name ) ); |
|
184
|
|
|
} |
|
185
|
|
|
return $result; |
|
186
|
|
|
} |
|
187
|
|
|
|
|
188
|
|
|
} |
|
189
|
|
|
|
|
190
|
|
|
interface ar_cacheStoreInterface { |
|
191
|
|
|
public function get( $path ); |
|
192
|
|
|
public function set( $path, $value, $timeout = 7200 ); |
|
193
|
|
|
public function info( $path ); |
|
194
|
|
|
public function clear( $path = null ); |
|
195
|
|
|
public function subStore( $path ); |
|
196
|
|
|
public function isFresh( $path ); |
|
197
|
|
|
public function purge( $name = null ); |
|
198
|
|
|
public function getIfFresh( $name, $freshness=0 ); |
|
199
|
|
|
} |
|
200
|
|
|
|
|
201
|
|
|
class ar_cacheStore implements ar_cacheStoreInterface, arKeyValueStoreInterface { |
|
202
|
|
|
|
|
203
|
|
|
protected $basePath = ''; |
|
204
|
|
|
protected $timeout = 7200; |
|
205
|
|
|
protected $mode = 0777; |
|
206
|
|
|
|
|
207
|
|
|
public function __construct( $basePath, $timeout = 7200, $mode = 0777 ) { |
|
208
|
|
|
$this->basePath = preg_replace('/\.\./', '', $basePath); |
|
209
|
|
|
|
|
210
|
|
|
if ( is_string($timeout) ) { |
|
211
|
|
|
$timeout = strtotime( $timeout, 0); |
|
212
|
|
|
} |
|
213
|
|
|
$this->timeout = $timeout; |
|
214
|
|
|
$this->mode = $mode; |
|
215
|
|
|
|
|
216
|
|
|
if ( !defined("ARCacheDir") ) { |
|
217
|
|
|
define( "ARCacheDir", sys_get_temp_dir().'/ar_cache/' ); |
|
218
|
|
|
} |
|
219
|
|
|
if ( !file_exists( ARCacheDir ) ) { |
|
220
|
|
|
mkdir( ARCacheDir, $this->mode ); |
|
221
|
|
|
} |
|
222
|
|
|
if ( !file_exists( ARCacheDir ) ) { |
|
223
|
|
|
throw new ar_error("Cache Directory does not exist ( ".ARCacheDir." )", 1); |
|
224
|
|
|
} |
|
225
|
|
|
if ( !is_dir( ARCacheDir ) ) { |
|
226
|
|
|
throw new ar_error("Cache Directory is not a directory ( ".ARCacheDir." )", 1); |
|
227
|
|
|
} |
|
228
|
|
|
if ( !is_writable( ARCacheDir ) ) { |
|
229
|
|
|
throw new ar_error("Cache Directory is not writable ( ".ARCacheDir." )", 1); |
|
230
|
|
|
} |
|
231
|
|
|
} |
|
232
|
|
|
|
|
233
|
|
|
protected function cachePath( $path ) { |
|
234
|
|
|
// last '=' is added to prevent conflicts between subdirectories and cache images |
|
235
|
|
|
// images always end in a '=', directories never end in a '=' |
|
236
|
|
|
return ARCacheDir . $this->basePath . preg_replace('/(\.\.|\=)/', '', $path) . '='; |
|
237
|
|
|
} |
|
238
|
|
|
|
|
239
|
|
|
public function subStore( $path ) { |
|
240
|
|
|
return new ar_cacheStore( $this->basePath . preg_replace('/(\.\.|\=)/', '', $path) ); |
|
241
|
|
|
} |
|
242
|
|
|
|
|
243
|
|
|
public function get( $path ) { |
|
244
|
|
|
$cachePath = $this->cachePath( $path ); |
|
245
|
|
|
if ( file_exists( $cachePath ) ) { |
|
246
|
|
|
return unserialize( file_get_contents( $cachePath ) ); |
|
247
|
|
|
} else { |
|
248
|
|
|
return null; |
|
249
|
|
|
} |
|
250
|
|
|
} |
|
251
|
|
|
|
|
252
|
|
|
public function getvar( $name ) { |
|
253
|
|
|
return $this->get( $name ); |
|
254
|
|
|
} |
|
255
|
|
|
|
|
256
|
|
|
public function isFresh( $path ) { |
|
257
|
|
|
$cachePath = $this->cachePath( $path ); |
|
258
|
|
|
if ( file_exists( $cachePath ) ) { |
|
259
|
|
|
return ( filemtime( $cachePath ) > time() ); |
|
260
|
|
|
} else { |
|
261
|
|
|
return false; |
|
262
|
|
|
} |
|
263
|
|
|
} |
|
264
|
|
|
|
|
265
|
|
|
public function getIfFresh( $path, $freshness = 0 ) { |
|
266
|
|
|
$info = $this->info( $path ); |
|
267
|
|
|
if ( $info && $info['timeout'] >= $freshness ) { |
|
268
|
|
|
return $this->get( $path ); |
|
269
|
|
|
} else { |
|
270
|
|
|
return false; |
|
271
|
|
|
} |
|
272
|
|
|
} |
|
273
|
|
|
|
|
274
|
|
|
public function lock( $path, $blocking = false ) { |
|
275
|
|
|
// locks the file against writing by other processes, so generation of time or resource expensive images |
|
276
|
|
|
// will not happen by multiple processes simultaneously |
|
277
|
|
|
$cachePath = $this->cachePath( $path ); |
|
278
|
|
|
$dir = dirname( $cachePath ); |
|
279
|
|
|
if ( !file_exists( $dir ) ) { |
|
280
|
|
|
mkdir( $dir, $this->mode, true ); //recursive |
|
281
|
|
|
} |
|
282
|
|
|
$lockFile = fopen( $cachePath, 'c' ); |
|
283
|
|
|
$lockMode = LOCK_EX; |
|
284
|
|
|
if ( !$blocking ) { |
|
285
|
|
|
$lockMode = $lockMode|LOCK_NB; |
|
286
|
|
|
} |
|
287
|
|
|
return flock( $lockFile, $lockMode ); |
|
288
|
|
|
} |
|
289
|
|
|
|
|
290
|
|
|
public function wait( $path ) { |
|
291
|
|
|
$cachePath = $this->cachePath( $path ); |
|
292
|
|
|
$lockFile = fopen( $cachePath, 'c' ); |
|
293
|
|
|
$result = flock( $lockFile, LOCK_EX ); |
|
294
|
|
|
fclose( $lockFile ); |
|
295
|
|
|
return $result; |
|
296
|
|
|
} |
|
297
|
|
|
|
|
298
|
|
|
public function putvar( $name, $value ) { |
|
299
|
|
|
return $this->set( $name, $value ); |
|
300
|
|
|
} |
|
301
|
|
|
|
|
302
|
|
|
public function set( $path, $value, $timeout = null ) { |
|
303
|
|
|
$cachePath = $this->cachePath( $path ); |
|
304
|
|
|
if ( !isset( $timeout ) ) { |
|
305
|
|
|
$timeout = $this->timeout; |
|
306
|
|
|
} |
|
307
|
|
|
if ( is_string( $timeout ) ) { |
|
308
|
|
|
$timeout = strtotime( $timeout, 0); |
|
309
|
|
|
} |
|
310
|
|
|
$dir = dirname( $cachePath ); |
|
311
|
|
|
if ( !file_exists( $dir ) ) { |
|
312
|
|
|
mkdir( $dir, $this->mode, true ); //recursive |
|
313
|
|
|
} |
|
314
|
|
|
if ( false !== file_put_contents( $cachePath, serialize( $value ), LOCK_EX ) ) { |
|
315
|
|
|
// FIXME: check dat de lock gemaakt met lock() weg is na file_put_contents |
|
316
|
|
|
touch( $cachePath, time() + $timeout ); |
|
317
|
|
|
} else { |
|
318
|
|
|
return false; |
|
319
|
|
|
} |
|
320
|
|
|
} |
|
321
|
|
|
|
|
322
|
|
|
public function info( $path ) { |
|
323
|
|
|
$cachePath = $this->cachePath( $path ); |
|
324
|
|
|
if ( file_exists( $cachePath ) && is_readable( $cachePath ) ) { |
|
325
|
|
|
return array( |
|
326
|
|
|
'size' => filesize($cachePath), |
|
327
|
|
|
'fresh' => $this->isFresh( $path ), |
|
328
|
|
|
'ctime' => filectime( $cachePath ), |
|
329
|
|
|
'timeout' => filemtime( $cachePath ) - time() |
|
330
|
|
|
); |
|
331
|
|
|
} else { |
|
332
|
|
|
return false; |
|
333
|
|
|
} |
|
334
|
|
|
} |
|
335
|
|
|
|
|
336
|
|
|
public function clear( $path = null ) { |
|
337
|
|
|
$cachePath = $this->cachePath( $path ); |
|
338
|
|
|
if ( file_exists( $cachePath ) ) { |
|
339
|
|
|
return unlink( $cachePath ); |
|
340
|
|
|
} else { |
|
341
|
|
|
return true; |
|
342
|
|
|
} |
|
343
|
|
|
} |
|
344
|
|
|
|
|
345
|
|
|
public function purge( $path = null ) { |
|
346
|
|
|
$this->clear( $path ); |
|
347
|
|
|
$cachePath = substr( $this->cachePath( $path ), 0, -1 ); // remove last '=' |
|
348
|
|
|
if ( file_exists( $cachePath ) ) { |
|
349
|
|
|
if ( is_dir( $cachePath ) ){ |
|
350
|
|
|
$cacheDir = dir( $cachePath ); |
|
351
|
|
|
while (false !== ($entry = $cacheDir->read())) { |
|
352
|
|
|
if ( $entry != '.' && $entry != '..' ) { |
|
353
|
|
|
$this->purge( $path . '/' . $entry ); |
|
354
|
|
|
} |
|
355
|
|
|
} |
|
356
|
|
|
return rmdir( $cachePath ); |
|
357
|
|
|
} else { |
|
358
|
|
|
return unlink( $cachePath ); |
|
359
|
|
|
} |
|
360
|
|
|
} else { |
|
361
|
|
|
return true; |
|
362
|
|
|
} |
|
363
|
|
|
} |
|
364
|
|
|
} |
|
365
|
|
|
|
It seems like the method you are trying to call exists only in some of the possible types.
Let’s take a look at an example:
Available Fixes
Add an additional type-check:
Only allow a single type to be passed if the variable comes from a parameter: