This file is indexed.

/usr/bin/ansel-garbage-collection is in php-horde-ansel 3.0.1+debian0-4.

This file is owned by root:root, with mode 0o755.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
#!/usr/bin/env php
<?php
/**
 * This script looks for images in the VFS that have no pointer in the
 * database. Any non-referenced images it finds get moved to a garbage
 * folder in Ansel's VFS directory.
 *
 * Make sure to run this as a user who has full permissions on the VFS
 * directory.
 *
 * @author Ben Chavet <ben@horde.org>
 * @author Michael J Rubinsky <mrubinsk@horde.org>
 * @pacakge Ansel
 */

if (file_exists(__DIR__ . '/../../ansel/lib/Application.php')) {
    $baseDir = __DIR__ . '/../';
} else {
    require_once 'PEAR/Config.php';
    $baseDir = PEAR_Config::singleton()
        ->get('horde_dir', null, 'pear.horde.org') . '/ansel/';
}
require_once $baseDir . 'lib/Application.php';
Horde_Registry::appInit('ansel', array('cli' => true));

$parser = new Horde_Argv_Parser(
    array(
        'usage' => '%prog [--options]',
        'optionList' => array(
            new Horde_Argv_Option(
                '-m',
                '--move',
                array(
                    'help' => 'Actually move dangling images to GC folder.',
                    'default' => false,
                    'action' => 'store_true'
                )
            ),

            new Horde_Argv_Option(
                '-v',
                '--verbose',
                array(
                    'help' => 'Verbose output',
                    'default' => false,
                    'action' => 'store_true'
                )
            )
        )
    )
);
list($opts, $args) = $parser->parseArgs();

$vfs = $GLOBALS['injector']->getInstance('Horde_Core_Factory_Vfs')->create();
$vfspath = '.horde/ansel/';
$garbagepath = $vfspath . 'garbage/';
$hash = $vfs->listFolder($vfspath, null, false, true);
sort($hash);
$styles = $injector->getInstance('Ansel_Storage')->getHashes();
$count = 0;
foreach ($hash as $dir) {
    if ($dir['name'] == 'garbage') {
        continue;
    }
    try {
        $images = $vfs->listFolder($vfspath . $dir['name'] . '/full/');
    } catch (Horde_Vfs_Exception $e) {
        continue;
    }
    foreach ($images as $image) {
        $image_id = strpos($image['name'], '.') ? substr($image['name'], 0, strpos($image['name'], '.')) : $image['name'];
        $result = $ansel_db->selectValue('SELECT 1 FROM ansel_images WHERE image_id = ' . (int)$image_id);
        if (!$result) {
            if (!$count && !$vfs->isFolder($vfspath, 'garbage')) {
                $vfs->createFolder($vfspath, 'garbage');
            }

            $count++;

            if ($opts['verbose']) {
                $cli->message($vfspath . $image['name'] . ' -> ' . $garbagepath . $image['name'], 'cli.info');
            }

            if ($opts['move']) {
                try {
                    $vfs->move($vfspath . $dir['name'] . '/full/', $image['name'], $garbagepath);
                } catch (Horde_Vfs_Exception $e) {
                    $cli->fatal($e->getMessage());
                }
                // These may fail, and it's ok if they do. Might not exist.
                try {
                    $vfs->deleteFile($vfspath . $dir['name'] . '/screen/', $image['name']);
                    $vfs->deleteFile($vfspath . $dir['name'] . '/thumb/', $image['name']);
                    $vfs->deleteFile($vfspath . $dir['name'] . '/mini/', $image['name']);
                    foreach ($styles as $style) {
                        $vfs->deleteFile($vfspath . $dir['name'] . '/' . $style . '/', $image['name']);
                    }
                } catch (Horde_Vfs_Exception $e) {
                }

                // Might also fail if directories are not empty...and that's
                // to be expected.
                try {
                    $vfs->deleteFolder($vfspath . $dir['name'], 'full');
                    $vfs->deleteFolder($vfspath . $dir['name'], 'screen');
                    $vfs->deleteFolder($vfspath . $dir['name'], 'thumb');
                    $vfs->deleteFolder($vfspath . $dir['name'], 'mini');
                    foreach ($styles as $style) {
                        $vfs->deleteFolder($vfspath . $dir['name'], $style);
                    }
                    $vfs->deleteFolder($vfspath, $dir['name']);
                } catch (Horde_Vfs_Exception $e) {
                }
            }
        }
    }
}

if ($count) {
    $msg = 'Found dangling images';
    if ($opts['move']) {
        $msg .= ' and moved $count to ' . $garbagepath . '.';
    } else {
        $msg .= ', run this script with --move to clean them up.';
    }
    $cli->message($msg, 'cli.success');
} else {
    $cli->message('No cleanup necessary.', 'cli.success');
}