diff options
author | Evan Prodromou <evan@controlyourself.ca> | 2009-07-02 08:51:10 -0400 |
---|---|---|
committer | Evan Prodromou <evan@controlyourself.ca> | 2009-07-02 08:51:10 -0400 |
commit | 5f9a4ebef493997557ef4470268bed0e5799b6cb (patch) | |
tree | f9a06c1773e511d3273c5d9223d06ca0806d5341 /scripts/showcache.php | |
parent | e52997e52fe02960908eb6a9637a3349a2c74dad (diff) | |
parent | d04ab14a5a15f9119bedca1332eb516ecf5ca483 (diff) |
Merge branch '0.8.x' into queuemanager
Diffstat (limited to 'scripts/showcache.php')
-rw-r--r-- | scripts/showcache.php | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/scripts/showcache.php b/scripts/showcache.php new file mode 100644 index 000000000..7a88fdbbb --- /dev/null +++ b/scripts/showcache.php @@ -0,0 +1,71 @@ +#!/usr/bin/env php +<?php +/* + * Laconica - a distributed open-source microblogging tool + * Copyright (C) 2009, Control Yourself, Inc. + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU Affero General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Affero General Public License for more details. + * + * You should have received a copy of the GNU Affero General Public License + * along with this program. If not, see <http://www.gnu.org/licenses/>. + */ + +define('INSTALLDIR', realpath(dirname(__FILE__) . '/..')); + +$shortoptions = "t:c:v:k:"; + +$helptext = <<<ENDOFHELP +USAGE: showcache.php <args> +shows 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 "Checking key '$k'...\n"; + +$c = common_memcache(); + +if (empty($c)) { + die("Can't initialize cache object!\n"); +} + +$obj = $c->get($k); + +if (empty($obj)) { + print "Empty.\n"; +} else { + var_dump($obj); + print "\n"; +} |