From: Evan Prodromou Date: Mon, 1 Feb 2010 03:58:29 +0000 (-0500) Subject: Add a script to clear the cache for a given key X-Git-Url: https://git.mxchange.org/?a=commitdiff_plain;h=5d2c0838997824b2f2b9105a1aa269b5a8b79f82;p=quix0rs-gnu-social.git Add a script to clear the cache for a given key Like showcache.php, clearcache.php clears the cache for a given key. --- diff --git a/scripts/clearcache.php b/scripts/clearcache.php new file mode 100644 index 0000000000..702c1e3d67 --- /dev/null +++ b/scripts/clearcache.php @@ -0,0 +1,70 @@ +#!/usr/bin/env php +. + */ + +define('INSTALLDIR', realpath(dirname(__FILE__) . '/..')); + +$shortoptions = "t:c:v:k:"; + +$helptext = << +clears the cached object based on the args + + -t table Table to look up + -c column Column to look up, default "id" + -v value Value to look up + -k key Key to look up; other args are ignored + +ENDOFHELP; + +require_once INSTALLDIR.'/scripts/commandline.inc'; + +$karg = get_option_value('k'); + +if (!empty($karg)) { + $k = common_cache_key($karg); +} else { + $table = get_option_value('t'); + if (empty($table)) { + die("No table or key specified\n"); + } + $column = get_option_value('c'); + if (empty($column)) { + $column = 'id'; + } + $value = get_option_value('v'); + + $k = Memcached_DataObject::cacheKey($table, $column, $value); +} + +print "Clearing key '$k'..."; + +$c = common_memcache(); + +if (empty($c)) { + die("Can't initialize cache object!\n"); +} + +$result = $c->delete($k); + +if ($result) { + print "OK.\n"; +} else { + print "FAIL.\n"; +}