Code Coverage
 
Classes and Traits
Functions and Methods
Lines
Total
0.00% covered (danger)
0.00%
0 / 1
0.00% covered (danger)
0.00%
0 / 16
CRAP
11.76% covered (danger)
11.76%
16 / 136
SqliteInstaller
0.00% covered (danger)
0.00%
0 / 1
0.00% covered (danger)
0.00%
0 / 16
1195.77
11.76% covered (danger)
11.76%
16 / 136
 getName
0.00% covered (danger)
0.00%
0 / 1
2
0.00% covered (danger)
0.00%
0 / 1
 isCompiled
0.00% covered (danger)
0.00%
0 / 1
2
0.00% covered (danger)
0.00%
0 / 1
 checkPrerequisites
0.00% covered (danger)
0.00%
0 / 1
6
0.00% covered (danger)
0.00%
0 / 5
 getGlobalDefaults
0.00% covered (danger)
0.00%
0 / 1
6
0.00% covered (danger)
0.00%
0 / 10
 getConnectForm
0.00% covered (danger)
0.00%
0 / 1
2
0.00% covered (danger)
0.00%
0 / 9
 realpath
0.00% covered (danger)
0.00%
0 / 1
6
0.00% covered (danger)
0.00%
0 / 4
 submitConnectForm
0.00% covered (danger)
0.00%
0 / 1
6
0.00% covered (danger)
0.00%
0 / 8
 checkDataDir
0.00% covered (danger)
0.00%
0 / 1
6.14
64.29% covered (warning)
64.29%
9 / 14
 createDataDir
0.00% covered (danger)
0.00%
0 / 1
3.02
87.50% covered (warning)
87.50%
7 / 8
 openConnection
0.00% covered (danger)
0.00%
0 / 1
6
0.00% covered (danger)
0.00%
0 / 8
 needsUpgrade
0.00% covered (danger)
0.00%
0 / 1
6
0.00% covered (danger)
0.00%
0 / 5
 setupDatabase
0.00% covered (danger)
0.00%
0 / 1
42
0.00% covered (danger)
0.00%
0 / 36
 makeStubDBFile
0.00% covered (danger)
0.00%
0 / 1
20
0.00% covered (danger)
0.00%
0 / 7
 createTables
0.00% covered (danger)
0.00%
0 / 1
6
0.00% covered (danger)
0.00%
0 / 4
 setupSearchIndex
0.00% covered (danger)
0.00%
0 / 1
30
0.00% covered (danger)
0.00%
0 / 14
 getLocalSettings
0.00% covered (danger)
0.00%
0 / 1
2
0.00% covered (danger)
0.00%
0 / 2
<?php
/**
 * Sqlite-specific installer.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program; if not, write to the Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 * http://www.gnu.org/copyleft/gpl.html
 *
 * @file
 * @ingroup Installer
 */
use Wikimedia\Rdbms\Database;
use Wikimedia\Rdbms\DatabaseSqlite;
use Wikimedia\Rdbms\DBConnectionError;
/**
 * Class for setting up the MediaWiki database using SQLLite.
 *
 * @ingroup Installer
 * @since 1.17
 */
class SqliteInstaller extends DatabaseInstaller {
    public static $minimumVersion = '3.8.0';
    protected static $notMinimumVersionMessage = 'config-outdated-sqlite';
    /**
     * @var DatabaseSqlite
     */
    public $db;
    protected $globalNames = [
        'wgDBname',
        'wgSQLiteDataDir',
    ];
    public function getName() {
        return 'sqlite';
    }
    public function isCompiled() {
        return self::checkExtension( 'pdo_sqlite' );
    }
    /**
     * @return Status
     */
    public function checkPrerequisites() {
        // Bail out if SQLite is too old
        $db = DatabaseSqlite::newStandaloneInstance( ':memory:' );
        $result = static::meetsMinimumRequirement( $db->getServerVersion() );
        // Check for FTS3 full-text search module
        if ( DatabaseSqlite::getFulltextSearchModule() != 'FTS3' ) {
            $result->warning( 'config-no-fts3' );
        }
        return $result;
    }
    public function getGlobalDefaults() {
        global $IP;
        $defaults = parent::getGlobalDefaults();
        if ( !empty( $_SERVER['DOCUMENT_ROOT'] ) ) {
            $path = dirname( $_SERVER['DOCUMENT_ROOT'] );
        } else {
            // We use $IP when unable to get $_SERVER['DOCUMENT_ROOT']
            $path = $IP;
        }
        $defaults['wgSQLiteDataDir'] = str_replace(
            [ '/', '\\' ],
            DIRECTORY_SEPARATOR,
            $path . '/data'
        );
        return $defaults;
    }
    public function getConnectForm() {
        return $this->getTextBox(
            'wgSQLiteDataDir',
            'config-sqlite-dir', [],
            $this->parent->getHelpBox( 'config-sqlite-dir-help' )
        ) .
        $this->getTextBox(
            'wgDBname',
            'config-db-name',
            [],
            $this->parent->getHelpBox( 'config-sqlite-name-help' )
        );
    }
    /**
     * Safe wrapper for PHP's realpath() that fails gracefully if it's unable to canonicalize the path.
     *
     * @param string $path
     *
     * @return string
     */
    private static function realpath( $path ) {
        $result = realpath( $path );
        if ( !$result ) {
            return $path;
        }
        return $result;
    }
    /**
     * @return Status
     */
    public function submitConnectForm() {
        $this->setVarsFromRequest( [ 'wgSQLiteDataDir', 'wgDBname' ] );
        # Try realpath() if the directory already exists
        $dir = self::realpath( $this->getVar( 'wgSQLiteDataDir' ) );
        $result = self::checkDataDir( $dir );
        if ( $result->isOK() ) {
            # Try expanding again in case we've just created it
            $dir = self::realpath( $dir );
            $this->setVar( 'wgSQLiteDataDir', $dir );
        }
        # Table prefix is not used on SQLite, keep it empty
        $this->setVar( 'wgDBprefix', '' );
        return $result;
    }
    /**
     * Check if the data directory is writable or can be created
     * @param string $dir Path to the data directory
     * @return Status Return fatal Status if $dir un-writable or no permission to create a directory
     */
    private static function checkDataDir( $dir ) : Status {
        if ( is_dir( $dir ) ) {
            if ( !is_readable( $dir ) ) {
                return Status::newFatal( 'config-sqlite-dir-unwritable', $dir );
            }
        } else {
            // Check the parent directory if $dir not exists
            if ( !is_writable( dirname( $dir ) ) ) {
                $webserverGroup = Installer::maybeGetWebserverPrimaryGroup();
                if ( $webserverGroup !== null ) {
                    return Status::newFatal(
                        'config-sqlite-parent-unwritable-group',
                        $dir, dirname( $dir ), basename( $dir ),
                        $webserverGroup
                    );
                } else {
                    return Status::newFatal(
                        'config-sqlite-parent-unwritable-nogroup',
                        $dir, dirname( $dir ), basename( $dir )
                    );
                }
            }
        }
        return Status::newGood();
    }
    /**
     * @param string $dir Path to the data directory
     * @return Status Return good Status if without error
     */
    private static function createDataDir( $dir ) : Status {
        if ( !is_dir( $dir ) ) {
            Wikimedia\suppressWarnings();
            $ok = wfMkdirParents( $dir, 0700, __METHOD__ );
            Wikimedia\restoreWarnings();
            if ( !$ok ) {
                return Status::newFatal( 'config-sqlite-mkdir-error', $dir );
            }
        }
        # Put a .htaccess file in case the user didn't take our advice
        file_put_contents( "$dir/.htaccess", "Deny from all\n" );
        return Status::newGood();
    }
    /**
     * @return Status
     */
    public function openConnection() {
        $status = Status::newGood();
        $dir = $this->getVar( 'wgSQLiteDataDir' );
        $dbName = $this->getVar( 'wgDBname' );
        try {
            # @todo FIXME: Need more sensible constructor parameters, e.g. single associative array
            $db = Database::factory( 'sqlite', [ 'dbname' => $dbName, 'dbDirectory' => $dir ] );
            $status->value = $db;
        } catch ( DBConnectionError $e ) {
            $status->fatal( 'config-sqlite-connection-error', $e->getMessage() );
        }
        return $status;
    }
    /**
     * @return bool
     */
    public function needsUpgrade() {
        $dir = $this->getVar( 'wgSQLiteDataDir' );
        $dbName = $this->getVar( 'wgDBname' );
        // Don't create the data file yet
        if ( !file_exists( DatabaseSqlite::generateFileName( $dir, $dbName ) ) ) {
            return false;
        }
        // If the data file exists, look inside it
        return parent::needsUpgrade();
    }
    /**
     * @return Status
     */
    public function setupDatabase() {
        $dir = $this->getVar( 'wgSQLiteDataDir' );
        # Sanity check (Only available in web installation). We checked this before but maybe someone
        # deleted the data dir between then and now
        $dir_status = self::checkDataDir( $dir );
        if ( $dir_status->isGood() ) {
            $res = self::createDataDir( $dir );
            if ( !$res->isGood() ) {
                return $res;
            }
        } else {
            return $dir_status;
        }
        $db = $this->getVar( 'wgDBname' );
        # Make the main and cache stub DB files
        $status = Status::newGood();
        $status->merge( $this->makeStubDBFile( $dir, $db ) );
        $status->merge( $this->makeStubDBFile( $dir, "wikicache" ) );
        $status->merge( $this->makeStubDBFile( $dir, "{$db}_l10n_cache" ) );
        $status->merge( $this->makeStubDBFile( $dir, "{$db}_jobqueue" ) );
        if ( !$status->isOK() ) {
            return $status;
        }
        # Nuke the unused settings for clarity
        $this->setVar( 'wgDBserver', '' );
        $this->setVar( 'wgDBuser', '' );
        $this->setVar( 'wgDBpassword', '' );
        $this->setupSchemaVars();
        # Create the l10n cache DB
        try {
            $conn = Database::factory(
                'sqlite', [ 'dbname' => "{$db}_l10n_cache", 'dbDirectory' => $dir ] );
            # @todo: don't duplicate l10n_cache definition, though it's very simple
            $sql =
<<<EOT
    CREATE TABLE l10n_cache (
        lc_lang BLOB NOT NULL,
        lc_key TEXT NOT NULL,
        lc_value BLOB NOT NULL,
        PRIMARY KEY (lc_lang, lc_key)
    );
EOT;
            $conn->query( $sql, __METHOD__ );
            $conn->query( "PRAGMA journal_mode=WAL", __METHOD__ ); // this is permanent
            $conn->close( __METHOD__ );
        } catch ( DBConnectionError $e ) {
            return Status::newFatal( 'config-sqlite-connection-error', $e->getMessage() );
        }
        # Create the job queue DB
        try {
            $conn = Database::factory(
                'sqlite', [ 'dbname' => "{$db}_jobqueue", 'dbDirectory' => $dir ] );
            # @todo: don't duplicate job definition, though it's very static
            $sql =
<<<EOT
    CREATE TABLE job (
        job_id INTEGER  NOT NULL PRIMARY KEY AUTOINCREMENT,
        job_cmd BLOB NOT NULL default '',
        job_namespace INTEGER NOT NULL,
        job_title TEXT  NOT NULL,
        job_timestamp BLOB NULL default NULL,
        job_params BLOB NOT NULL,
        job_random integer  NOT NULL default 0,
        job_attempts integer  NOT NULL default 0,
        job_token BLOB NOT NULL default '',
        job_token_timestamp BLOB NULL default NULL,
        job_sha1 BLOB NOT NULL default ''
    );
    CREATE INDEX job_sha1 ON job (job_sha1);
    CREATE INDEX job_cmd_token ON job (job_cmd,job_token,job_random);
    CREATE INDEX job_cmd_token_id ON job (job_cmd,job_token,job_id);
    CREATE INDEX job_cmd ON job (job_cmd, job_namespace, job_title, job_params);
    CREATE INDEX job_timestamp ON job (job_timestamp);
EOT;
            $conn->query( $sql, __METHOD__ );
            $conn->query( "PRAGMA journal_mode=WAL", __METHOD__ ); // this is permanent
            $conn->close( __METHOD__ );
        } catch ( DBConnectionError $e ) {
            return Status::newFatal( 'config-sqlite-connection-error', $e->getMessage() );
        }
        # Open the main DB
        return $this->getConnection();
    }
    /**
     * @param string $dir
     * @param string $db
     * @return Status
     */
    protected function makeStubDBFile( $dir, $db ) {
        $file = DatabaseSqlite::generateFileName( $dir, $db );
        if ( file_exists( $file ) ) {
            if ( !is_writable( $file ) ) {
                return Status::newFatal( 'config-sqlite-readonly', $file );
            }
        } elseif ( file_put_contents( $file, '' ) === false ) {
            return Status::newFatal( 'config-sqlite-cant-create-db', $file );
        }
        return Status::newGood();
    }
    /**
     * @return Status
     */
    public function createTables() {
        $status = parent::createTables();
        if ( $status->isGood() ) {
            $status = parent::createManualTables();
        }
        return $this->setupSearchIndex( $status );
    }
    /**
     * @param Status &$status
     * @return Status
     */
    public function setupSearchIndex( &$status ) {
        global $IP;
        $module = DatabaseSqlite::getFulltextSearchModule();
        $searchIndexSql = (string)$this->db->selectField(
            $this->db->addIdentifierQuotes( 'sqlite_master' ),
            'sql',
            [ 'tbl_name' => $this->db->tableName( 'searchindex', 'raw' ) ],
            __METHOD__
        );
        $fts3tTable = ( stristr( $searchIndexSql, 'fts' ) !== false );
        if ( $fts3tTable && !$module ) {
            $status->warning( 'config-sqlite-fts3-downgrade' );
            $this->db->sourceFile( "$IP/maintenance/sqlite/archives/searchindex-no-fts.sql" );
        } elseif ( !$fts3tTable && $module == 'FTS3' ) {
            $this->db->sourceFile( "$IP/maintenance/sqlite/archives/searchindex-fts3.sql" );
        }
        return $status;
    }
    /**
     * @return string
     */
    public function getLocalSettings() {
        $dir = LocalSettingsGenerator::escapePhpString( $this->getVar( 'wgSQLiteDataDir' ) );
        // These tables have frequent writes and are thus split off from the main one.
        // Since the code using these tables only uses transactions for writes then set
        // them to using BEGIN IMMEDIATE. This avoids frequent lock errors on first write.
        return "# SQLite-specific settings
\$wgSQLiteDataDir = \"{$dir}\";
\$wgObjectCaches[CACHE_DB] = [
    'class' => SqlBagOStuff::class,
    'loggroup' => 'SQLBagOStuff',
    'server' => [
        'type' => 'sqlite',
        'dbname' => 'wikicache',
        'tablePrefix' => '',
        'variables' => [ 'synchronous' => 'NORMAL' ],
        'dbDirectory' => \$wgSQLiteDataDir,
        'trxMode' => 'IMMEDIATE',
        'flags' => 0
    ]
];
\$wgLocalisationCacheConf['storeServer'] = [
    'type' => 'sqlite',
    'dbname' => \"{\$wgDBname}_l10n_cache\",
    'tablePrefix' => '',
    'variables' => [ 'synchronous' => 'NORMAL' ],
    'dbDirectory' => \$wgSQLiteDataDir,
    'trxMode' => 'IMMEDIATE',
    'flags' => 0
];
\$wgJobTypeConf['default'] = [
    'class' => 'JobQueueDB',
    'claimTTL' => 3600,
    'server' => [
        'type' => 'sqlite',
        'dbname' => \"{\$wgDBname}_jobqueue\",
        'tablePrefix' => '',
        'variables' => [ 'synchronous' => 'NORMAL' ],
        'dbDirectory' => \$wgSQLiteDataDir,
        'trxMode' => 'IMMEDIATE',
        'flags' => 0
    ]
];";
    }
}