<?php

/*
 * Textpattern Content Management System
 * http://textpattern.com
 *
 * Copyright (C) 2016 The Textpattern Development Team
 *
 * This file is part of Textpattern.
 *
 * Textpattern 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, version 2.
 *
 * Textpattern 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 Textpattern. If not, see <http://www.gnu.org/licenses/>.
 */

if (!defined('TXP_UPDATE')) {
    exit("Nothing here. You can't access this file directly.");
}

safe_delete('txp_category', "name = ''");
safe_delete('txp_category', "name = ' '");

$txpcat = getThings("DESCRIBE `".PFX."txp_category`");

if (!in_array('id', $txpcat)) {
    safe_alter('txp_category', "ADD id INT NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST");
}

if (!in_array('parent', $txpcat)) {
    safe_alter('txp_category', "ADD parent VARCHAR(64) NOT NULL DEFAULT ''");
}

if (!in_array('lft', $txpcat)) {
    safe_alter('txp_category', "ADD lft INT NOT NULL DEFAULT '0'");
}

if (!in_array('rgt', $txpcat)) {
    safe_alter('txp_category', "ADD rgt INT NOT NULL DEFAULT '0'");
}

if (in_array('level', $txpcat)) {
    safe_alter('txp_category', "DROP level");
}

$txp = getThings("DESCRIBE `".PFX."textpattern`");

if (!in_array('Keywords', $txp)) {
    safe_alter('textpattern', "ADD Keywords VARCHAR(255) NOT NULL");
}

if (in_array('Listing1', $txp) && !in_array('textile_body', $txp)) {
    safe_alter('textpattern', "CHANGE Listing1 textile_body INT DEFAULT '1' NOT NULL");
}

if (in_array('Listing2', $txp) && !in_array('textile_excerpt', $txp)) {
    safe_alter('textpattern', "CHANGE Listing2 textile_excerpt INT DEFAULT '1' NOT NULL");
}

if (!in_array('url_title', $txp)) {
    safe_alter('textpattern', "ADD url_title VARCHAR(255) NOT NULL");
}

if (!in_array('Excerpt', $txp)) {
    safe_alter('textpattern', "ADD Excerpt MEDIUMTEXT NOT NULL AFTER Body_html");
}

// Excerpt_html added in 1.0.
if (!in_array('Excerpt_html', $txp)) {
    safe_alter('textpattern', "ADD Excerpt_html MEDIUMTEXT NOT NULL AFTER Excerpt ");
}

// Comments count cache field.
if (!in_array('comments_count', $txp)) {
    safe_alter('textpattern', "ADD comments_count INT NOT NULL AFTER AnnotateInvite ");
}

// Custom fields added for g1.19.
if (!in_array('custom_1', $txp)) {
    safe_alter('textpattern', "ADD custom_1 VARCHAR(255) NOT NULL");
}

if (!in_array('custom_2', $txp)) {
    safe_alter('textpattern', "ADD custom_2 VARCHAR(255) NOT NULL");
}

if (!in_array('custom_3', $txp)) {
    safe_alter('textpattern', "ADD custom_3 VARCHAR(255) NOT NULL");
}

if (!in_array('custom_4', $txp)) {
    safe_alter('textpattern', "ADD custom_4 VARCHAR(255) NOT NULL");
}

if (!in_array('custom_5', $txp)) {
    safe_alter('textpattern', "ADD custom_5 VARCHAR(255) NOT NULL");
}

if (!in_array('custom_6', $txp)) {
    safe_alter('textpattern', "ADD custom_6 VARCHAR(255) NOT NULL");
}

if (!in_array('custom_7', $txp)) {
    safe_alter('textpattern', "ADD custom_7 VARCHAR(255) NOT NULL");
}

if (!in_array('custom_8', $txp)) {
    safe_alter('textpattern', "ADD custom_8 VARCHAR(255) NOT NULL");
}

if (!in_array('custom_9', $txp)) {
    safe_alter('textpattern', "ADD custom_9 VARCHAR(255) NOT NULL");
}

if (!in_array('custom_10', $txp)) {
    safe_alter('textpattern', "ADD custom_10 VARCHAR(255) NOT NULL");
}

$txpsect = getThings("DESCRIBE `".PFX."txp_section`");

if (!in_array('searchable', $txpsect)) {
    safe_alter('txp_section', "ADD searchable INT NOT NULL DEFAULT 1");
}

$txpuser = getThings("DESCRIBE `".PFX."txp_users`");

if (!in_array('nonce', $txpuser)) {
    safe_alter('txp_users', "ADD nonce VARCHAR(64) NOT NULL");
};

// 1.0rc: checking nonce in txp_users table.
$txpusers = safe_rows_start("name, nonce", 'txp_users', "1 = 1");

if ($txpusers) {
    while ($a = nextRow($txpusers)) {
        extract($a);
        if (!$nonce) {
            $nonce = md5(uniqid(rand(), true));
            safe_update('txp_users', "nonce = '$nonce'", "name = '".doSlash($name)."'");
        }
    }
}

// 1.0rc: expanding password field in txp_users.
safe_alter('txp_users',   "MODIFY pass VARCHAR(128) NOT NULL");

safe_alter('textpattern', "MODIFY Body      MEDIUMTEXT NOT NULL");
safe_alter('textpattern', "MODIFY Body_html MEDIUMTEXT NOT NULL");
safe_alter('textpattern', "MODIFY Excerpt   TEXT       NOT NULL");

$popcom = fetch("*", 'txp_form', 'name', "popup_comments");

if (!$popcom) {
    $popform = <<<eod
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<link rel="Stylesheet" href="<txp:css />" type="text/css" />
<title><txp:page_title /></title>
</head>
<body>
<div style="text-align: left; padding: 1em; width:300px">

<txp:popup_comments />

</div>
</body>
</html>
eod;
    $popform = addslashes($popform);
    safe_insert('txp_form', "name = 'popup_comments', type = 'comment', Form = '$popform'");
}

safe_update('txp_category', "lft = 0, rgt = 0", "name != 'root'");

safe_delete('txp_category', "name = 'root'");

safe_update('txp_category', "parent = 'root'", "parent = ''");

safe_insert('txp_category', "name = 'root', parent = '', type = 'article', lft = 1, rgt = 0");
rebuild_tree('root', 1, 'article');

safe_insert('txp_category', "name = 'root', parent = '', type = 'link', lft = 1, rgt = 0");
rebuild_tree('root', 1, 'link');

safe_insert('txp_category', "name = 'root', parent = '', type = 'image', lft = 1, rgt = 0");
rebuild_tree('root', 1, 'image');

if (safe_field("val", 'txp_prefs', "name = 'article_list_pageby'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'article_list_pageby', val = 25");
}

if (safe_field("val", 'txp_prefs', "name = 'link_list_pageby'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'link_list_pageby', val = 25");
}

if (safe_field("val", 'txp_prefs', "name = 'image_list_pageby'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'image_list_pageby', val = 25");
}

if (safe_field("val", 'txp_prefs', "name = 'log_list_pageby'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'log_list_pageby', val = 25");
}

if (safe_field("val", 'txp_prefs', "name = 'comment_list_pageby'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'comment_list_pageby', val = 25");
}

if (safe_field("val", 'txp_prefs', "name = 'permlink_mode'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'permlink_mode', val = 'section_id_title'");
}

if (safe_field("val", 'txp_prefs', "name = 'comments_are_ol'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'comments_are_ol', val = '1'");
}

if (safe_field("name", 'txp_prefs', "name = 'path_to_site'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'path_to_site', val = ''");
}

// 1.0: need to get non-manually set url-only titles into the textpattern table,
// so we can start using title as an url search option.

$rs = mysqli_query($DB->link, "SELECT ID, Title FROM `".PFX."textpattern` WHERE url_title LIKE ''");

while ($a = mysqli_fetch_array($rs)) {
    extract($a);
    $url_title = addslashes(stripSpace($Title, 1));
    assert_int($ID);
    safe_update('textpattern', "url_title = '$url_title'", "ID = $ID");
}

// 1.0: properly i18n.
// Change current language names by language codes.
$lang = fetch("val", 'txp_prefs', 'name', 'language');

switch ($lang) {
    case 'czech':
        $rs = safe_update('txp_prefs', "val = 'cs-cs'", "name = 'language' AND val = 'czech'");
    break;
    case 'danish':
        $rs = safe_update('txp_prefs', "val = 'da-da'", "name = 'language' AND val = 'danish'");
    break;
    case 'dutch':
        $rs = safe_update('txp_prefs', "val = 'nl-nl'", "name = 'language' AND val = 'dutch'");
    break;
    case 'finish':
        $rs = safe_update('txp_prefs', "val = 'fi-fi'", "name = 'language' AND val = 'finish'");
    break;
    case 'french':
        $rs = safe_update('txp_prefs', "val = 'fr-fr'", "name = 'language' AND val = 'french'");
    break;
    case 'german':
        $rs = safe_update('txp_prefs', "val = 'de-de'", "name = 'language' AND val = 'german'");
    break;
    case 'italian':
        $rs = safe_update('txp_prefs', "val = 'it-it'", "name = 'language' AND val = 'italian'");
    break;
    case 'polish':
        $rs = safe_update('txp_prefs', "val = 'pl-pl'", "name = 'language' AND val = 'polish'");
    break;
    case 'portuguese':
        $rs = safe_update('txp_prefs', "val = 'pt-pt'", "name = 'language' AND val = 'portuguese'");
    break;
    case 'russian':
        $rs = safe_update('txp_prefs', "val = 'ru-ru'", "name = 'language' AND val = 'russian'");
    break;
    case 'scotts':
        //I'm not sure of this one
        $rs = safe_update('txp_prefs', "val = 'gl-gl'", "name = 'language' AND val = 'scotts'");
    break;
    case 'spanish':
        $rs = safe_update('txp_prefs', "val = 'es-es'", "name = 'language' AND val = 'spanish'");
    break;
    case 'swedish':
        $rs = safe_update('txp_prefs', "val = 'sv-sv'", "name = 'language' AND val = 'swedish'");
    break;
    case 'tagalog':
        $rs = safe_update('txp_prefs', "val = 'tl-tl'", "name = 'language' AND val = 'tagalog'");
    break;
    case 'english':
    default:
        $rs = safe_update('txp_prefs', "val = 'en-gb'", "name = 'language' AND val = 'english'");
    break;
}

// 1.0: new time zone offset.
// If we check for a val, and the val is 0, this add another empty one.
if (safe_field("name", 'txp_prefs', "name = 'is_dst'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'is_dst', val = 0");
}

// FIXME: this presupposes 'gmtoffset' won't be set at clean install (RC4+ probably will)
if (safe_field("val", 'txp_prefs', "name = 'gmtoffset'") === false) {
    $old_offset = safe_field("val", 'txp_prefs', "name = 'timeoffset'");
    $serveroffset = gmmktime(0, 0, 0) - mktime(0, 0, 0);
    $gmtoffset = sprintf("%+d", $serveroffset + $old_offset);
    safe_insert('txp_prefs', "prefs_id = 1, name = 'gmtoffset', val = '".doSlash($gmtoffset)."'");
}

$tempdir = doSlash(find_temp_dir());

// 1.0: locale support.
if (safe_field("val", 'txp_prefs', "name = 'locale'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'locale', val = 'en_GB'");
}

// 1.0: temp dir.
if (safe_field("val", 'txp_prefs', "name = 'tempdir'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'tempdir', val = '$tempdir'");
}

// Non image file upload tab.
if (safe_field("val", 'txp_prefs', "name = 'file_list_pageby'") === false) {
    safe_insert('txp_prefs', "val = 25, name = 'file_list_pageby', prefs_id = 1");
}

// 1.0: max file upload size.
if (safe_field("val", 'txp_prefs', "name = 'file_max_upload_size'") === false) {
    safe_insert('txp_prefs', "prefs_id = 1, name = 'file_max_upload_size', val = 2000000");
}

// 1.0: txp_file root cat.
if (!safe_field("name", 'txp_category', "type = 'file' AND name = 'root'")) {
    safe_insert('txp_category', "name = 'root', type = 'file', lft = 1, rgt = 0");
}
rebuild_tree('root', 1, 'file');

// 1.0: txp_file folder.
if (safe_field("val", 'txp_prefs', "name = 'file_base_path'") === false) {
    safe_insert('txp_prefs', "val = '$tempdir', name = 'file_base_path', prefs_id = 1");
}

// 1.0: txp_file table.
safe_create('txp_file', "
    id          INT          NOT NULL AUTO_INCREMENT,
    filename    VARCHAR(255) NOT NULL DEFAULT '',
    category    VARCHAR(255) NOT NULL DEFAULT '',
    permissions VARCHAR(32)  NOT NULL DEFAULT '0',
    description TEXT         NOT NULL,
    downloads   INT UNSIGNED NOT NULL DEFAULT '0',
    PRIMARY KEY     (id),
    UNIQUE filename (filename)"
);

if (safe_field("name", 'txp_form', "type = 'file'") === false) {
    safe_insert('txp_form', "
        name = 'files',
        type = 'file',
        Form = '<txp:text item=\"file\" />: \n<txp:file_download_link>\n<txp:file_download_name /> [<txp:file_download_size format=\"auto\" decimals=\"2\" />]\n</txp:file_download_link>\n<br />\n<txp:text item=\"category\" />: <txp:file_download_category /><br />\n<txp:text item=\"download\" />: <txp:file_download_downloads />'");
}
// EOF: non image file upload tab.

// 1.0: improved comment spam nonce.
$txpnonce = getThings("DESCRIBE `".PFX."txp_discuss_nonce`");
if (!in_array('secret', $txpnonce)) {
    safe_alter('txp_discuss_nonce', "ADD secret VARCHAR(255) NOT NULL DEFAULT ''");
}

// 1.0: flag for admin-side plugins.
$txpplugin = getThings("DESCRIBE `".PFX."txp_plugin`");
if (!in_array('type', $txpplugin)) {
    safe_alter('txp_plugin', "ADD type INT NOT NULL DEFAULT '0'");
}

// 1.0: log status and method.
$txplog = getThings("DESCRIBE `".PFX."txp_log`");

if (!in_array('status', $txplog)) {
    safe_alter('txp_log', "ADD status INT NOT NULL DEFAULT '200'");
}

if (!in_array('method', $txplog)) {
    safe_alter('txp_log', "ADD method VARCHAR(16) NOT NULL DEFAULT 'GET'");
}

if (!in_array('ip', $txplog)) {
    safe_alter('txp_log', "ADD ip VARCHAR(16) NOT NULL DEFAULT ''");
}

// 1.0: need to get Excerpt_html values into the textpattern table, so catch
// empty ones and populate them.
$rs = mysqli_query($DB->link, "SELECT ID, Excerpt, textile_excerpt FROM `".PFX."textpattern` WHERE Excerpt_html LIKE ''");
$textile = new \Netcarver\Textile\Parser();

while ($a = @mysqli_fetch_assoc($rs)) {
    extract($a);
    assert_int($ID);
    $lite = ($textile_excerpt) ? '' : 1;
    $Excerpt_html = $textile->textileThis($Excerpt, $lite);
    safe_update('textpattern', "Excerpt_html = '".doSlash($Excerpt_html)."'", "ID = $ID");
}

// 1.0 feed unique ids.

// Blog unique id.
if (safe_field("val", 'txp_prefs', "name = 'blog_uid'") === false) {
    $prefs['blog_uid'] = md5(uniqid(rand(), true));
    safe_insert('txp_prefs', "name = 'blog_uid', val = '".$prefs['blog_uid']."', prefs_id = '1'");
}

if (safe_field("name", 'txp_prefs', "name = 'blog_mail_uid'") === false) {
    $mail = safe_field('email', 'txp_users', "privs = '1' LIMIT 1");
    safe_insert('txp_prefs', "name = 'blog_mail_uid', val = '".doSlash($mail)."', prefs_id = '1'");
}

if (safe_field("val", 'txp_prefs', "name = 'blog_time_uid'") === false) {
    safe_insert('txp_prefs', "name = 'blog_time_uid', val = '".date("Y")."', prefs_id = '1'");
}

// Articles unique id.
if (!in_array('uid', $txp)) {
    safe_alter('textpattern', "ADD uid VARCHAR(32) NOT NULL");
    safe_alter('textpattern', "ADD feed_time DATE NOT NULL DEFAULT 1970-01-01");
    safe_update('textpattern', "feed_time = DATE(Posted)", "feed_time = '1970-01-01'");
    safe_alter('textpattern', "MODIFY feed_time DATE NOT NULL");

    $rs = safe_rows_start('ID, Posted', 'textpattern', '1');

    if ($rs) {
        while ($a = nextRow($rs)) {
            assert_int($a['ID']);
            $feed_time = substr($a['Posted'], 0, 10);
            safe_update('textpattern', "uid = '".md5(uniqid(rand(), true))."', feed_time = '".doSlash($feed_time)."'", "ID = {$a['ID']}");
        }
    }
}

// 1.0: populate comments_count field.

$rs = safe_rows_start("parentid, count(*) AS thecount", 'txp_discuss', "visible = 1 GROUP BY parentid");

if ($rs) {
    while ($a = nextRow($rs)) {
        assert_int($a['parentid']);
        safe_update('textpattern', "comments_count = ".$a['thecount'], "ID = ".$a['parentid']);
    }
}

// 1.0: Human-friendly title for sections and categories, to solve i18n problems.
if (!in_array('title', $txpsect)) {
    safe_alter('txp_section', "ADD title VARCHAR(255) NOT NULL DEFAULT ''");
}

if (!in_array('title', $txpcat)) {
    safe_alter('txp_category', "ADD title VARCHAR(255) NOT NULL DEFAULT ''");
}

if (safe_count('txp_section', "title = ''") > 0) {
    safe_update('txp_section', "title = name", "title = ''");
}

if (safe_count('txp_category', "title = ''") > 0) {
    safe_update('txp_category', "title = name", "title = ''");
}

// 1.0: Unique key and 'type' field for the txp_prefs table.
safe_create_index('txp_prefs', 'prefs_id, name', 'prefs_idx', 'unique');

$txpprefs = getThings('DESCRIBE `'.PFX.'txp_prefs`');

if (!in_array('type', $txpprefs)) {
    safe_alter('txp_prefs', "ADD type SMALLINT UNSIGNED NOT NULL DEFAULT '2'");
}

// Update the updated with default hidden type for old plugins prefs.
safe_alter('txp_prefs', "MODIFY type SMALLINT UNSIGNED NOT NULL DEFAULT '2'");

if (!in_array('event', $txpprefs)) {
    safe_alter('txp_prefs', "ADD event VARCHAR(12) NOT NULL DEFAULT 'publish'");
}

if (!in_array('html', $txpprefs)) {
    safe_alter('txp_prefs', "ADD html VARCHAR(64) NOT NULL DEFAULT ''");
}

if (!in_array('position', $txpprefs)) {
    safe_alter('txp_prefs', "ADD position SMALLINT UNSIGNED NOT NULL DEFAULT '0'");

    // Add new column values to prefs.
    $prefs_new_cols = array(
        'attach_titles_to_permalinks' => array('html' => 'yesnoradio',       'event' => 'publish',  'type' => '1', 'position' => '1'),
        'sitename'                    => array('html' => 'text_input',       'event' => 'publish',  'type' => '0', 'position' => '1'),
        'siteurl'                     => array('html' => 'text_input',       'event' => 'publish',  'type' => '0', 'position' => '2'),
        'site_slogan'                 => array('html' => 'text_input',       'event' => 'publish',  'type' => '0', 'position' => '3'),
        'language'                    => array('html' => 'languages',        'event' => 'publish',  'type' => '0', 'position' => '4'),
        'gmtoffset'                   => array('html' => 'gmtoffset_select', 'event' => 'publish',  'type' => '0', 'position' => '5'),
        'is_dst'                      => array('html' => 'yesnoradio',       'event' => 'publish',  'type' => '0', 'position' => '6'),
        'dateformat'                  => array('html' => 'dateformats',      'event' => 'publish',  'type' => '0', 'position' => '7'),
        'archive_dateformat'          => array('html' => 'dateformats',      'event' => 'publish',  'type' => '0', 'position' => '8'),
        'permlink_mode'               => array('html' => 'permlinkmodes',    'event' => 'publish',  'type' => '0', 'position' => '9'),
        'send_lastmod'                => array('html' => 'yesnoradio',       'event' => 'admin',    'type' => '1', 'position' => '0'),
        'ping_weblogsdotcom'          => array('html' => 'yesnoradio',       'event' => 'publish',  'type' => '1', 'position' => '0'),
        'use_comments'                => array('html' => 'yesnoradio',       'event' => 'publish',  'type' => '0', 'position' => '12'),
        'logging'                     => array('html' => 'logging',          'event' => 'publish',  'type' => '0', 'position' => '10'),
        'use_textile'                 => array('html' => 'pref_text',        'event' => 'publish',  'type' => '0', 'position' => '11'),
        'tempdir'                     => array('html' => 'text_input',       'event' => 'admin',    'type' => '1', 'position' => '0'),
        'file_base_path'              => array('html' => 'text_input',       'event' => 'admin',    'type' => '1', 'position' => '0'),
        'file_max_upload_size'        => array('html' => 'text_input',       'event' => 'admin',    'type' => '1', 'position' => '0'),
        'comments_moderate'           => array('html' => 'yesnoradio',       'event' => 'comments', 'type' => '0', 'position' => '13'),
        'comments_on_default'         => array('html' => 'yesnoradio',       'event' => 'comments', 'type' => '0', 'position' => '14'),
        'comments_are_ol'             => array('html' => 'yesnoradio',       'event' => 'comments', 'type' => '0', 'position' => '15'),
        'comments_sendmail'           => array('html' => 'yesnoradio',       'event' => 'comments', 'type' => '0', 'position' => '16'),
        'comments_disallow_images'    => array('html' => 'yesnoradio',       'event' => 'comments', 'type' => '0', 'position' => '17'),
        'comments_default_invite'     => array('html' => 'text_input',       'event' => 'comments', 'type' => '0', 'position' => '18'),
        'comments_dateformat'         => array('html' => 'dateformats',      'event' => 'comments', 'type' => '0', 'position' => '19'),
        'comments_mode'               => array('html' => 'commentmode',      'event' => 'comments', 'type' => '0', 'position' => '20'),
        'comments_disabled_after'     => array('html' => 'weeks',            'event' => 'comments', 'type' => '0', 'position' => '21'),
        'img_dir'                     => array('html' => 'text_input',       'event' => 'admin',    'type' => '1', 'position' => '0'),
        'rss_how_many'                => array('html' => 'text_input',       'event' => 'admin',    'type' => '1', 'position' => '0'),
    );

    foreach ($prefs_new_cols as $pref_key => $pref_val) {
        safe_update('txp_prefs', "html = '$pref_val[html]', event = '$pref_val[event]', type = '$pref_val[type]', position = '$pref_val[position]'", "name = '$pref_key' AND prefs_id = '1'");
    }

    $prefs_hidden_rows = array('prefs_id', 'use_categories', 'use_sections', 'path_from_root', 'url_mode', 'record_mentions',
        'locale', 'file_base_path', 'lastmod', 'version', 'path_to_site', 'dbupdatetime', 'timeoffset', 'article_list_pageby',
        'blog_mail_uid', 'blog_time_uid', 'blog_uid', 'comment_list_pageby', 'file_list_pageby', 'image_list_pageby', 'link_list_pageby',
        'log_list_pageby',);

    foreach ($prefs_hidden_rows as $hidden_pref) {
        safe_update('txp_prefs', "type = '2'", "name = '$hidden_pref' AND prefs_id = '1'");
    }

    global $txpac;

    // Advanced prefs.
    foreach ($txpac as $key => $val) {
        if (!in_array($key, array_keys($prefs))) {
            switch ($key) {
                case 'custom_1_set':
                case 'custom_2_set':
                case 'custom_3_set':
                case 'custom_4_set':
                case 'custom_5_set':
                case 'custom_6_set':
                case 'custom_7_set':
                case 'custom_8_set':
                case 'custom_9_set':
                case 'custom_10_set':
                    $evt = 'custom';
                    $html = 'text_input';
                break;

                case 'edit_raw_css_by_default':
                    $evt = 'css';
                    $html = 'yesnoradio';
                break;
                case 'spam_blacklists':
                case 'expire_logs_after':
                case 'max_url_len':
                    $html = 'text_input';
                    $evt = 'publish';
                break;
                case 'textile_links':
                    $html = 'yesnoradio';
                    $evt = 'link';
                break;
                case 'show_article_category_count':
                    $html = 'yesnoradio';
                    $evt = 'category';
                break;
                case 'comments_require_name':
                case 'comments_require_email':
                    $html = 'yesnoradio';
                    $evt = 'comments';
                break;
                default:
                    $html = 'yesnoradio';
                    $evt = 'publish';
                break;
            }
            safe_insert('txp_prefs', "val = '$val', name = '$key' , prefs_id = '1', type = '1', html = '$html', event = '$evt'");
        }
    }
}

safe_alter('txp_prefs', "MODIFY html VARCHAR(64) DEFAULT 'text_input' NOT NULL");
safe_update('txp_prefs', "html = 'text_input'", "html = ''");

if (!fetch("form", 'txp_form', 'name', 'search_results')) {
    $form = <<<EOF
<h3><txp:permlink><txp:title /></txp:permlink></h3>
<p><txp:search_result_excerpt /><br/>
<small><txp:permlink><txp:permlink /></txp:permlink> &middot;
<txp:posted /></small></p>
EOF;
    safe_insert('txp_form', "name = 'search_results', type = 'article', Form = '".doSlash($form)."'");
}

if (!safe_query("SELECT 1 FROM `".PFX."txp_lang` LIMIT 0")) {
    // Do install.
    safe_query("CREATE TABLE `".PFX."txp_lang` (
        id      INT         NOT NULL AUTO_INCREMENT,
        lang    VARCHAR(16) NOT NULL,
        name    VARCHAR(64) NOT NULL,
        event   VARCHAR(64) NOT NULL,
        data    TINYTEXT,
        lastmod TIMESTAMP,
        PRIMARY KEY   (id),
        UNIQUE lang   (lang, name),
        INDEX  lang_2 (lang, event)
    ) $tabletype ");

    require_once txpath.'/lib/IXRClass.php';

    $client = new IXR_Client('http://rpc.textpattern.com');

    if (!$client->query('tups.getLanguage', $prefs['blog_uid'], LANG)) {
        echo '<p style="color:red">Error trying to install language. Please, try it again again.<br />
        If problem connecting to the RPC server persists, you can go to <a href="http://rpc.textpattern.com/lang/">http://rpc.textpattern.com/lang/</a>, download the
        desired language file and place it in the /lang/ directory of your textpattern install. You can then install the language from file.</p>';
    } else {
        $response = $client->getResponse();
        $lang_struct = unserialize($response);

        function install_lang_key($value, $key)
        {
            $q = "name = '".doSlash($value[name])."', event = '".doSlash($value[event])."', data = '".doSlash($value[data])."', lastmod = '".doSlash(strftime('%Y%m%d%H%M%S', $value['uLastmod']))."'";
            safe_insert('txp_lang', $q.", lang = '".LANG."'");
        }

        array_walk($lang_struct, 'install_lang_key');
    }
}

$maxpos = safe_field("MAX(position)", 'txp_prefs', "1 = 1");

// 1.0: production_status setting to control error reporting.
if (safe_field("val", 'txp_prefs', "name = 'production_status'") === false) {
    safe_insert('txp_prefs', "name = 'production_status', val = 'testing', prefs_id = '1', type = '0', position = '".doSlash($maxpos)."', html = 'prod_levels'");
}

// Multiply position on prefs to allow easy reordering.
if (intval($maxpos) < 100) {
    safe_update('txp_prefs', "position = position * 10", "1 = 1");
}

// Remove, remove.
if (safe_field("name", 'txp_prefs', "name = 'logs_expire'") !== false) {
    safe_delete('txp_prefs', "name = 'logs_expire'");
}

// Let's make this visible in advanced prefs.
safe_update('txp_prefs', "type = '1'", "name = 'file_base_path'");

// 1.0: add option to override charset for emails (ISO-8559-1 instead of UTF-8).
if (safe_field("name", 'txp_prefs', "name = 'override_emailcharset'") === false) {
    safe_insert('txp_prefs', "name = 'override_emailcharset', val = '0', prefs_id = '1', type = '1', event = 'admin', position = '".doSlash($maxpos)."', html = 'yesnoradio'");
}

if (safe_field("val", 'txp_prefs', "name = 'comments_auto_append'") === false) {
    safe_insert('txp_prefs', "val = '1', name = 'comments_auto_append' , prefs_id = '1', type = '0', html = 'yesnoradio', event = 'comments', position = '211'");

    if (safe_field("name", 'txp_form', "name = 'comments_display'") === false) {
        $form = <<<EOF
<txp:comments />
<txp:if_comments_allowed>
<txp:comments_form />
</txp:if_comments_allowed>
EOF;
        safe_insert('txp_form', "name = 'comments_display', type = 'article', Form = '".doSlash($form)."'");
    }
}

// /tmp is bad for permanent storage of files, if no files are uploaded yet,
// switch to the files directory in the top-txp dir.
if (!safe_count('txp_file', "1")) {
    $tempdir = find_temp_dir();

    if ($tempdir === safe_field("val", 'txp_prefs', "name = 'file_base_path'")) {
        safe_update('txp_prefs', "val = '".doSlash(dirname(txpath).DS.'files')."', prefs_id = 1", "name = 'file_base_path'");
    }
}

// After this point the changes after RC4.

// Let's get the advanced fields in the right order.
for ($i = 1; $i <= 10; $i++) {
    safe_update('txp_prefs', "position = $i", "name = 'custom_${i}_set'");
}

// Index ip column in txp_log.
safe_create_index('txp_log', 'ip', 'ip');

// Language selection moves to Manage languages, Hide it from prefs.
safe_update('txp_prefs', "type = 2", "name = 'language'");

// Show gmt-selection in prefs.
safe_update('txp_prefs', "type = 0, html = 'gmtoffset_select', position = 50", "name = 'gmtoffset'");

if (safe_field("name", 'txp_prefs', "prefs_id = 1 AND name = 'plugin_cache_dir'") === false) {
    $maxpos = safe_field("MAX(position)", 'txp_prefs', "1 = 1");
    safe_insert('txp_prefs', "name = 'plugin_cache_dir', val = '', prefs_id = '1', type = '1', event = 'admin', position = '".doSlash($maxpos)."', html = 'text_input'");
}

// Update version.
safe_delete('txp_prefs', "name = 'version'");
safe_insert('txp_prefs', "prefs_id = 1, name = 'version', val = '4.0', type = '2'");