path: root/app/cron.php

<?php

/*
 * SCROTT IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 * IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR
 * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
 * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
 * OTHER DEALINGS IN THE SOFTWARE.
 *
 * For more information, please refer to UNLICENSE
 */

require_once "class/database.class.php";

/*
 * This file is intended to be run periodically by the local cron daemon
 * and will perform tasks such as reacting to incoming emails and running
 * garbage collection on the object database.
 */

/*
 * Remove all orphaned objects from Scrott's object database.  These are
 * any object with either a parent or owner set, which doesn't exist.
 * Metadata tables (members, views, etc.) are also updated to drop all rows
 * related to purged objects.
 */
function gc() : void
{
    $query = "CREATE TEMPORARY TABLE IF NOT EXISTS objtmp AS (SELECT * FROM objects)";
    database::query($query);

    /* cleanup base objects table */
    $query = "DELETE FROM objects WHERE parent != '' AND parent NOT IN (SELECT guid FROM objtmp)";
    database::query($query);

    $query = "DELETE FROM objects WHERE owner != '' AND owner NOT IN (SELECT guid FROM objtmp)";
    database::query($query);

    /* cleanup sub tables */
    $query = "DELETE FROM users WHERE guid NOT IN (SELECT guid FROM objects)";
    database::query($query);

    $query = "DELETE FROM groups WHERE guid NOT IN (SELECT guid FROM objects)";
    database::query($query);

    $query = "DELETE FROM pads WHERE guid NOT IN (SELECT guid FROM objects)";
    database::query($query);

    $query = "DELETE FROM stages WHERE guid NOT IN (SELECT guid FROM objects)";
    database::query($query);

    $query = "DELETE FROM issues WHERE guid NOT IN (SELECT guid FROM objects)";
    database::query($query);

    $query = "DELETE FROM mesgs WHERE guid NOT IN (SELECT guid FROM objects)";
    database::query($query);

    /* cleanup metadata tables */
    $query = "DELETE FROM members WHERE guid NOT IN (SELECT guid FROM objects) " .
        "OR member NOT IN (SELECT guid FROM objects)";
    database::query($query);

    $query = "DELETE FROM views WHERE guid NOT IN (SELECT guid FROM objects) " .
        "OR viewer NOT IN (SELECT guid FROM objects)";
    database::query($query);
}

/* Run maintenance routines */
gc();

?>