scripts/decache.php

   1 #!/usr/bin/env php
   2 <?php
   3 /*
   4  * StatusNet - the distributed open-source microblogging tool
   5  * Copyright (C) 2009, StatusNet, Inc.
   6  *
   7  * This program is free software: you can redistribute it and/or modify
   8  * it under the terms of the GNU Affero General Public License as published by
   9  * the Free Software Foundation, either version 3 of the License, or
  10  * (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU Affero General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Affero General Public License
  18  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 define('INSTALLDIR', realpath(dirname(__FILE__) . '/..'));
  22
  23 $helptext = <<<ENDOFHELP
  24 USAGE: decache.php <table> <id> [<column>]
  25 Clears the cache for the object in table <table> with id <id>
  26 If <column> is specified, use that instead of 'id'
  27
  28
  29 ENDOFHELP;
  30
  31 require_once INSTALLDIR.'/scripts/commandline.inc';
  32
  33 if (count($args) < 2 || count($args) > 3) {
  34     show_help();
  35 }
  36
  37 $table = $args[0];
  38 $id = $args[1];
  39 if (count($args) > 2) {
  40     $column = $args[2];
  41 } else {
  42     $column = 'id';
  43 }
  44
  45 $object = Memcached_DataObject::staticGet($table, $column, $id);
  46
  47 if (!$object) {
  48     print "No such '$table' with $column = '$id'; it's possible some cache keys won't be cleared properly.\n";
  49     $class = ucfirst($table);
  50     $object = new $class();
  51     $object->column = $id;
  52 }
  53
  54 $result = $object->decache();