clearcache.php 1.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172
  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. define('INSTALLDIR', dirname(__DIR__));
  21. define('PUBLICDIR', INSTALLDIR . DIRECTORY_SEPARATOR . 'public');
  22. $shortoptions = "t:l:v:k:";
  23. $helptext = <<<END_OF_CLEARCACHE_HELP
  24. USAGE: clearcache.php <args>
  25. clears the cached object based on the args
  26. -t table Table to look up
  27. -l column Column to look up, default "id"
  28. -v value Value to look up
  29. -k key Key to look up; other args are ignored
  30. END_OF_CLEARCACHE_HELP;
  31. require_once INSTALLDIR.'/scripts/commandline.inc';
  32. $karg = get_option_value('k', 'key');
  33. if (!empty($karg)) {
  34. $k = Cache::key($karg);
  35. } else {
  36. $table = get_option_value('t', 'table');
  37. if (empty($table)) {
  38. die("No table or key specified\n");
  39. }
  40. $column = get_option_value('l', 'column');
  41. if (empty($column)) {
  42. $column = 'id';
  43. }
  44. $value = get_option_value('v', 'value');
  45. $k = Memcached_DataObject::cacheKey($table, $column, $value);
  46. }
  47. print "Clearing key '$k'...";
  48. $c = Cache::instance();
  49. if (empty($c)) {
  50. die("Can't initialize cache object!\n");
  51. }
  52. $result = $c->delete($k);
  53. if ($result) {
  54. print "OK.\n";
  55. } else {
  56. print "FAIL.\n";
  57. }