summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEvan Prodromou <evan@controlyourself.ca>2009-01-25 19:28:25 +0100
committerEvan Prodromou <evan@controlyourself.ca>2009-01-25 19:28:25 +0100
commit01c9d5e240167ac2d9571d5dcdcd9039fbb21c0d (patch)
treed29feae9aed9dbdb4fcd8e3ce77dd30d7cb36698
parentf06d5eff1028b82ebcce7753ad864dab070d6779 (diff)
Add a script for decaching an object
-rw-r--r--scripts/decache.php59
1 files changed, 59 insertions, 0 deletions
diff --git a/scripts/decache.php b/scripts/decache.php
new file mode 100644
index 000000000..b18eaa2cd
--- /dev/null
+++ b/scripts/decache.php
@@ -0,0 +1,59 @@
+#!/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/>.
+ */
+
+# Abort if called from a web server
+if (isset($_SERVER) && array_key_exists('REQUEST_METHOD', $_SERVER)) {
+ print "This script must be run from the command line\n";
+ exit(1);
+}
+
+ini_set("max_execution_time", "0");
+ini_set("max_input_time", "0");
+set_time_limit(0);
+mb_internal_encoding('UTF-8');
+
+define('INSTALLDIR', realpath(dirname(__FILE__) . '/..'));
+define('LACONICA', true);
+
+require_once(INSTALLDIR . '/lib/common.php');
+
+if ($argc < 3 || $argc > 4) {
+ print "USAGE: decache.php <table> <id> [<column>]\n";
+ print "Clears the cache for the object in table <table> with id <id>.\n\n";
+ print "If <column> is specified, use that instead of 'id'\n";
+ exit(1);
+}
+
+$table = $argv[1];
+$id = $argv[2];
+if ($argc > 3) {
+ $column = $argv[3];
+} else {
+ $colum = 'id';
+}
+
+$object = Memcached_DataObject::staticGet($table, $column, $id);
+
+if (!$object) {
+ print "No such '$table' with $column = '$id'.\n";
+ exit(1);
+}
+
+$result = $object->decache();