scripts/triminboxes.php

   1 #!/usr/bin/env php
   2 <?php
   3 /*
   4  * Laconica - a distributed open-source microblogging tool
   5  * Copyright (C) 2009, Control Yourself, 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 $shortoptions = 'u::';
  24 $longoptions = array('start-user-id::');
  25
  26 $helptext = <<<END_OF_TRIM_HELP
  27 Batch script for trimming notice inboxes to a reasonable size.
  28
  29     -u <id>
  30     --start-user-id=<id>   User ID to start after. Default is all.
  31
  32 END_OF_TRIM_HELP;
  33
  34 require_once INSTALLDIR.'/scripts/commandline.inc';
  35
  36 $id = null;
  37
  38 if (have_option('-u')) {
  39     $id = get_option_value('-u');
  40 } else if (have_option('--start-user-id')) {
  41     $id = get_option_value('--start-user-id');
  42 } else {
  43     $id = null;
  44 }
  45
  46 $user = new User();
  47
  48 if (!empty($id)) {
  49     $user->whereAdd('id > ' . $id);
  50 }
  51
  52 $cnt = $user->find();
  53
  54 while ($user->fetch()) {
  55
  56     $inbox_entry = new Notice_inbox();
  57     $inbox_entry->user_id = $user->id;
  58     $inbox_entry->orderBy('created DESC');
  59     $inbox_entry->limit(1000, 1);
  60
  61     $id = null;
  62
  63     if ($inbox_entry->find(true)) {
  64         $id = $inbox_entry->notice_id;
  65     }
  66
  67     $inbox_entry->free();
  68     unset($inbox_entry);
  69
  70     if (is_null($id)) {
  71         continue;
  72     }
  73
  74     $start = microtime(true);
  75
  76     $old_inbox = new Notice_inbox();
  77     $cnt = $old_inbox->query('DELETE from notice_inbox WHERE user_id = ' . $user->id . ' AND notice_id < ' . $id);
  78     $old_inbox->free();
  79     unset($old_inbox);
  80
  81     print "Deleted $cnt notices for $user->nickname ($user->id).\n";
  82
  83     $finish = microtime(true);
  84
  85     $delay = 3.0 * ($finish - $start);
  86
  87     print "Delaying $delay seconds...";
  88
  89     // Wait to let slaves catch up
  90
  91     usleep($delay * 1000000);
  92
  93     print "DONE.\n";
  94 }