$txt['displayedValue'])),
Note that just saying array('first', 'second') will put 0 in the SQL for 'first'.
* A password input box. Used for passwords, no less!
ie. array('password', 'nameInModSettingsAndSQL', 'OptionalInputBoxWidth'),
* A permission - for picking groups who have a permission.
ie. array('permissions', 'manage_groups'),
* A BBC selection box.
ie. array('bbc', 'sig_bbc'),
For each option:
type (see above), variable name, size/possible values.
OR make type '' for an empty string for a horizontal rule.
SET preinput - to put some HTML prior to the input box.
SET postinput - to put some HTML following the input box.
SET invalid - to mark the data as invalid.
PLUS You can override label and help parameters by forcing their keys in the array, for example:
array('text', 'invalidlabel', 3, 'label' => 'Actual Label') */
// This is the main pass through function, it creates tabs and the like.
function ModifySettings()
{
global $context, $txt, $scripturl, $boarddir;
// This is just to keep the database password more secure.
isAllowedTo('admin_forum');
// Load up all the tabs...
$context[$context['admin_menu_name']]['tab_data'] = array(
'title' => $txt['admin_server_settings'],
'help' => 'serversettings',
'description' => $txt['admin_basic_settings'],
);
checkSession('request');
// The settings are in here, I swear!
loadLanguage('ManageSettings');
$context['page_title'] = $txt['admin_server_settings'];
$context['sub_template'] = 'show_settings';
$subActions = array(
'general' => 'ModifyGeneralSettings',
'database' => 'ModifyDatabaseSettings',
'cookie' => 'ModifyCookieSettings',
'cache' => 'ModifyCacheSettings',
'loads' => 'ModifyLoadBalancingSettings',
);
// By default we're editing the core settings
$_REQUEST['sa'] = isset($_REQUEST['sa']) && isset($subActions[$_REQUEST['sa']]) ? $_REQUEST['sa'] : 'general';
$context['sub_action'] = $_REQUEST['sa'];
// Warn the user if there's any relevant information regarding Settings.php.
if ($_REQUEST['sa'] != 'cache')
{
// Warn the user if the backup of Settings.php failed.
$settings_not_writable = !is_writable($boarddir . '/Settings.php');
$settings_backup_fail = !@is_writable($boarddir . '/Settings_bak.php') || !@copy($boarddir . '/Settings.php', $boarddir . '/Settings_bak.php');
if ($settings_not_writable)
$context['settings_message'] = '
' . $txt['settings_not_writable'] . '
';
elseif ($settings_backup_fail)
$context['settings_message'] = '' . $txt['admin_backup_fail'] . '
';
$context['settings_not_writable'] = $settings_not_writable;
}
// Call the right function for this sub-action.
$subActions[$_REQUEST['sa']]();
}
// General forum settings - forum name, maintenance mode, etc.
function ModifyGeneralSettings($return_config = false)
{
global $scripturl, $context, $txt;
/* If you're writing a mod, it's a bad idea to add things here....
For each option:
variable name, description, type (constant), size/possible values, helptext.
OR an empty string for a horizontal rule.
OR a string for a titled section. */
$config_vars = array(
array('mbname', $txt['admin_title'], 'file', 'text', 30),
'',
array('maintenance', $txt['admin_maintain'], 'file', 'check'),
array('mtitle', $txt['maintenance_subject'], 'file', 'text', 36),
array('mmessage', $txt['maintenance_message'], 'file', 'text', 36),
'',
array('webmaster_email', $txt['admin_webmaster_email'], 'file', 'text', 30),
'',
array('enableCompressedOutput', $txt['enableCompressedOutput'], 'db', 'check', null, 'enableCompressedOutput'),
array('disableTemplateEval', $txt['disableTemplateEval'], 'db', 'check', null, 'disableTemplateEval'),
array('disableHostnameLookup', $txt['disableHostnameLookup'], 'db', 'check', null, 'disableHostnameLookup'),
);
if ($return_config)
return $config_vars;
// Setup the template stuff.
$context['post_url'] = $scripturl . '?action=admin;area=serversettings;sa=general;save';
$context['settings_title'] = $txt['general_settings'];
// Saving settings?
if (isset($_REQUEST['save']))
{
saveSettings($config_vars);
redirectexit('action=admin;area=serversettings;sa=general;' . $context['session_var'] . '=' . $context['session_id']);
}
// Fill the config array.
prepareServerSettingsContext($config_vars);
}
// Basic database and paths settings - database name, host, etc.
function ModifyDatabaseSettings($return_config = false)
{
global $scripturl, $context, $settings, $txt, $boarddir;
/* If you're writing a mod, it's a bad idea to add things here....
For each option:
variable name, description, type (constant), size/possible values, helptext.
OR an empty string for a horizontal rule.
OR a string for a titled section. */
$config_vars = array(
array('db_server', $txt['database_server'], 'file', 'text'),
array('db_user', $txt['database_user'], 'file', 'text'),
array('db_passwd', $txt['database_password'], 'file', 'password'),
array('db_name', $txt['database_name'], 'file', 'text'),
array('db_prefix', $txt['database_prefix'], 'file', 'text'),
array('db_persist', $txt['db_persist'], 'file', 'check', null, 'db_persist'),
array('db_error_send', $txt['db_error_send'], 'file', 'check'),
array('ssi_db_user', $txt['ssi_db_user'], 'file', 'text', null, 'ssi_db_user'),
array('ssi_db_passwd', $txt['ssi_db_passwd'], 'file', 'password'),
'',
array('autoFixDatabase', $txt['autoFixDatabase'], 'db', 'check', false, 'autoFixDatabase'),
array('autoOptMaxOnline', $txt['autoOptMaxOnline'], 'db', 'int'),
'',
array('boardurl', $txt['admin_url'], 'file', 'text', 36),
array('boarddir', $txt['boarddir'], 'file', 'text', 36),
array('sourcedir', $txt['sourcesdir'], 'file', 'text', 36),
array('cachedir', $txt['cachedir'], 'file', 'text', 36),
);
if ($return_config)
return $config_vars;
// Setup the template stuff.
$context['post_url'] = $scripturl . '?action=admin;area=serversettings;sa=database;save';
$context['settings_title'] = $txt['database_paths_settings'];
$context['save_disabled'] = $context['settings_not_writable'];
// Saving settings?
if (isset($_REQUEST['save']))
{
saveSettings($config_vars);
redirectexit('action=admin;area=serversettings;sa=database;' . $context['session_var'] . '=' . $context['session_id']);
}
// Fill the config array.
prepareServerSettingsContext($config_vars);
}
// This function basically edits anything which is configuration and stored in the database, except for caching.
function ModifyCookieSettings($return_config = false)
{
global $context, $scripturl, $txt, $sourcedir, $modSettings, $cookiename, $user_settings;
// Define the variables we want to edit.
$config_vars = array(
// Cookies...
array('cookiename', $txt['cookie_name'], 'file', 'text', 20),
array('cookieTime', $txt['cookieTime'], 'db', 'int'),
array('localCookies', $txt['localCookies'], 'db', 'check', false, 'localCookies'),
array('globalCookies', $txt['globalCookies'], 'db', 'check', false, 'globalCookies'),
array('secureCookies', $txt['secureCookies'], 'db', 'check', false, 'secureCookies', 'disabled' => !isset($_SERVER['HTTPS']) || !(strtolower($_SERVER['HTTPS']) == 'on' || strtolower($_SERVER['HTTPS']) == '1')),
'',
// Sessions
array('databaseSession_enable', $txt['databaseSession_enable'], 'db', 'check', false, 'databaseSession_enable'),
array('databaseSession_loose', $txt['databaseSession_loose'], 'db', 'check', false, 'databaseSession_loose'),
array('databaseSession_lifetime', $txt['databaseSession_lifetime'], 'db', 'int', false, 'databaseSession_lifetime'),
);
if ($return_config)
return $config_vars;
$context['post_url'] = $scripturl . '?action=admin;area=serversettings;sa=cookie;save';
$context['settings_title'] = $txt['cookies_sessions_settings'];
// Saving settings?
if (isset($_REQUEST['save']))
{
saveSettings($config_vars);
// If the cookie name was changed, reset the cookie.
if ($cookiename != $_POST['cookiename'])
{
$original_session_id = $context['session_id'];
include_once($sourcedir . '/Subs-Auth.php');
// Remove the old cookie.
setLoginCookie(-3600, 0);
// Set the new one.
$cookiename = $_POST['cookiename'];
setLoginCookie(60 * $modSettings['cookieTime'], $user_settings['id_member'], sha1($user_settings['passwd'] . $user_settings['password_salt']));
redirectexit('action=admin;area=serversettings;sa=cookie;' . $context['session_var'] . '=' . $original_session_id, $context['server']['needs_login_fix']);
}
redirectexit('action=admin;area=serversettings;sa=cookie;' . $context['session_var'] . '=' . $context['session_id']);
}
// Fill the config array.
prepareServerSettingsContext($config_vars);
}
// Simply modifying cache functions
function ModifyCacheSettings($return_config = false)
{
global $context, $scripturl, $txt, $helptxt, $modSettings;
// Define the variables we want to edit.
$config_vars = array(
// Only a couple of settings, but they are important
array('select', 'cache_enable', array($txt['cache_off'], $txt['cache_level1'], $txt['cache_level2'], $txt['cache_level3'])),
array('text', 'cache_memcached'),
);
if ($return_config)
return $config_vars;
// Saving again?
if (isset($_GET['save']))
{
saveDBSettings($config_vars);
// We have to manually force the clearing of the cache otherwise the changed settings might not get noticed.
$modSettings['cache_enable'] = 1;
cache_put_data('modSettings', null, 90);
redirectexit('action=admin;area=serversettings;sa=cache;' . $context['session_var'] . '=' . $context['session_id']);
}
$context['post_url'] = $scripturl . '?action=admin;area=serversettings;sa=cache;save';
$context['settings_title'] = $txt['caching_settings'];
$context['settings_message'] = $txt['caching_information'];
// Detect an optimizer?
if (function_exists('eaccelerator_put'))
$detected = 'eAccelerator';
elseif (function_exists('mmcache_put'))
$detected = 'MMCache';
elseif (function_exists('apc_store'))
$detected = 'APC';
elseif (function_exists('output_cache_put'))
$detected = 'Zend';
elseif (function_exists('memcache_set'))
$detected = 'Memcached';
elseif (function_exists('xcache_set'))
$detected = 'XCache';
else
$detected = 'no_caching';
$context['settings_message'] = sprintf($context['settings_message'], $txt['detected_' . $detected]);
// Prepare the template.
prepareDBSettingContext($config_vars);
}
function ModifyLoadBalancingSettings($return_config = false)
{
global $txt, $scripturl, $context, $settings, $modSettings;
// Setup a warning message, but disabled by default.
$disabled = true;
$context['settings_message'] = $txt['loadavg_disabled_conf'];
if (strpos(strtolower(PHP_OS), 'win') === 0)
$context['settings_message'] = $txt['loadavg_disabled_windows'];
else
{
$modSettings['load_average'] = @file_get_contents('/proc/loadavg');
if (!empty($modSettings['load_average']) && preg_match('~^([^ ]+?) ([^ ]+?) ([^ ]+)~', $modSettings['load_average'], $matches) !== 0)
$modSettings['load_average'] = (float) $matches[1];
elseif (($modSettings['load_average'] = @`uptime`) !== null && preg_match('~load averages?: (\d+\.\d+), (\d+\.\d+), (\d+\.\d+)~i', $modSettings['load_average'], $matches) !== 0)
$modSettings['load_average'] = (float) $matches[1];
else
unset($modSettings['load_average']);
if (!empty($modSettings['load_average']))
{
$context['settings_message'] = sprintf($txt['loadavg_warning'], $modSettings['load_average']);
$disabled = false;
}
}
// Start with a simple checkbox.
$config_vars = array(
array('check', 'loadavg_enable'),
);
// Set the default values for each option.
$default_values = array(
'loadavg_auto_opt' => '1.0',
'loadavg_search' => '2.5',
'loadavg_allunread' => '2.0',
'loadavg_unreadreplies' => '3.5',
'loadavg_show_posts' => '2.0',
'loadavg_forum' => '40.0',
);
// Loop through the settings.
foreach ($default_values as $name => $value)
{
// Use the default value if the setting isn't set yet.
$value = !isset($modSettings[$name]) ? $value : $modSettings[$name];
$config_vars[] = array('text', $name, 'value' => $value, 'disabled' => $disabled);
}
if ($return_config)
return $config_vars;
$context['post_url'] = $scripturl . '?action=admin;area=serversettings;sa=loads;save';
$context['settings_title'] = $txt['load_balancing_settings'];
// Saving?
if (isset($_GET['save']))
{
// Stupidity is not allowed.
foreach ($_POST as $key => $value)
{
if (strpos($key, 'loadavg') === 0 || $key === 'loadavg_enable')
continue;
elseif ($key == 'loadavg_auto_opt' && $value <= 1)
$_POST['loadavg_auto_opt'] = '1.0';
elseif ($key == 'loadavg_forum' && $value < 10)
$_POST['loadavg_forum'] = '10.0';
elseif ($value < 2)
$_POST[$key] = '2.0';
}
saveDBSettings($config_vars);
redirectexit('action=admin;area=serversettings;sa=loads;' . $context['session_var'] . '=' . $context['session_id']);
}
prepareDBSettingContext($config_vars);
}
// This is the main function for the language area.
function ManageLanguages()
{
global $context, $txt, $scripturl, $modSettings;
loadLanguage('ManageSettings');
$context['page_title'] = $txt['edit_languages'];
$context['sub_template'] = 'show_settings';
$subActions = array(
'edit' => 'ModifyLanguages',
'add' => 'AddLanguage',
'settings' => 'ModifyLanguageSettings',
'downloadlang' => 'DownloadLanguage',
'editlang' => 'ModifyLanguage',
);
// By default we're managing languages.
$_REQUEST['sa'] = isset($_REQUEST['sa']) && isset($subActions[$_REQUEST['sa']]) ? $_REQUEST['sa'] : 'edit';
$context['sub_action'] = $_REQUEST['sa'];
// Load up all the tabs...
$context[$context['admin_menu_name']]['tab_data'] = array(
'title' => $txt['language_configuration'],
'description' => $txt['language_description'],
);
// Call the right function for this sub-acton.
$subActions[$_REQUEST['sa']]();
}
// Interface for adding a new language
function AddLanguage()
{
global $context, $sourcedir, $forum_version, $boarddir, $txt, $smcFunc, $scripturl;
// Are we searching for new languages courtesy of Simple Machines?
if (!empty($_POST['smf_add_sub']))
{
// Need fetch_web_data.
require_once($sourcedir . '/Subs-Package.php');
$context['smf_search_term'] = htmlspecialchars(trim($_POST['smf_add']));
// We're going to use this URL.
$url = 'http://download.simplemachines.org/fetch_language.php?version=' . urlencode(strtr($forum_version, array('SMF ' => '')));
// Load the class file and stick it into an array.
loadClassFile('Class-Package.php');
$language_list = new xmlArray(fetch_web_data($url), true);
// Check it exists.
if (!$language_list->exists('languages'))
$context['smf_error'] = 'no_response';
else
{
$language_list = $language_list->path('languages[0]');
$lang_files = $language_list->set('language');
$context['smf_languages'] = array();
foreach ($lang_files as $file)
{
// Were we searching?
if (!empty($context['smf_search_term']) && strpos($file->fetch('name'), $smcFunc['strtolower']($context['smf_search_term'])) === false)
continue;
$context['smf_languages'][] = array(
'id' => $file->fetch('id'),
'name' => $smcFunc['ucwords']($file->fetch('name')),
'version' => $file->fetch('version'),
'utf8' => $file->fetch('utf8'),
'description' => $file->fetch('description'),
'link' => $scripturl . '?action=admin;area=languages;sa=downloadlang;did=' . $file->fetch('id') . ';' . $context['session_var'] . '=' . $context['session_id'],
);
}
if (empty($context['smf_languages']))
$context['smf_error'] = 'no_files';
}
}
$context['sub_template'] = 'add_language';
}
// Download a language file from the Simple Machines website.
function DownloadLanguage()
{
global $context, $sourcedir, $forum_version, $boarddir, $txt, $smcFunc, $scripturl, $modSettings;
loadLanguage('ManageSettings');
require_once($sourcedir . '/Subs-Package.php');
// Clearly we need to know what to request.
if (!isset($_GET['did']))
fatal_lang_error('no_access', false);
// Some lovely context.
$context['download_id'] = $_GET['did'];
$context['sub_template'] = 'download_language';
$context['menu_data_' . $context['admin_menu_id']]['current_subsection'] = 'add';
// Can we actually do the installation - and do they want to?
if (!empty($_POST['do_install']) && !empty($_POST['copy_file']))
{
checkSession('get');
$chmod_files = array();
$install_files = array();
// Check writable status.
foreach ($_POST['copy_file'] as $file)
{
// Check it's not very bad.
if (strpos($file, '..') !== false || (substr($file, 0, 6) != 'Themes' && !preg_match('~agreement\.[A-Za-z-_0-9]+\.txt$~', $file)))
fatal_error($txt['languages_download_illegal_paths']);
$chmod_files[] = $boarddir . '/' . $file;
$install_files[] = $file;
}
// Call this in case we have work to do.
$file_status = create_chmod_control($chmod_files);
$files_left = $file_status['files']['notwritable'];
// Something not writable?
if (!empty($files_left))
$context['error_message'] = $txt['languages_download_not_chmod'];
// Otherwise, go go go!
elseif (!empty($install_files))
{
$archive_content = read_tgz_file('http://download.simplemachines.org/fetch_language.php?version=' . urlencode(strtr($forum_version, array('SMF ' => ''))) . ';fetch=' . urlencode($_GET['did']), $boarddir, false, true, $install_files);
// Make sure the files aren't stuck in the cache.
package_flush_cache();
$context['install_complete'] = sprintf($txt['languages_download_complete_desc'], $scripturl . '?action=admin;area=languages');
return;
}
}
// Open up the old china.
if (!isset($archive_content))
$archive_content = read_tgz_file('http://download.simplemachines.org/fetch_language.php?version=' . urlencode(strtr($forum_version, array('SMF ' => ''))) . ';fetch=' . urlencode($_GET['did']), null);
if (empty($archive_content))
fatal_error($txt['add_language_error_no_response']);
// Now for each of the files, let's do some *stuff*
$context['files'] = array(
'lang' => array(),
'other' => array(),
);
$context['make_writable'] = array();
foreach ($archive_content as $file)
{
$dirname = dirname($file['filename']);
$filename = basename($file['filename']);
$extension = substr($filename, strrpos($filename, '.') + 1);
// Don't do anything with files we don't understand.
if (!in_array($extension, array('php', 'jpg', 'gif', 'jpeg', 'png', 'txt')))
continue;
// Basic data.
$context_data = array(
'name' => $filename,
'destination' => $boarddir . '/' . $file['filename'],
'generaldest' => $file['filename'],
'size' => $file['size'],
// Does chmod status allow the copy?
'writable' => false,
// Should we suggest they copy this file?
'default_copy' => true,
// Does the file already exist, if so is it same or different?
'exists' => false,
);
// Does the file exist, is it different and can we overwrite?
if (file_exists($boarddir . '/' . $file['filename']))
{
if (is_writable($boarddir . '/' . $file['filename']))
$context_data['writable'] = true;
// Finally, do we actually think the content has changed?
if ($file['size'] == filesize($boarddir . '/' . $file['filename']) && $file['md5'] == md5_file($boarddir . '/' . $file['filename']))
{
$context_data['exists'] = 'same';
$context_data['default_copy'] = false;
}
// Attempt to discover newline character differences.
elseif ($file['md5'] == md5(preg_replace("~[\r]?\n~", "\r\n", file_get_contents($boarddir . '/' . $file['filename']))))
{
$context_data['exists'] = 'same';
$context_data['default_copy'] = false;
}
else
$context_data['exists'] = 'different';
}
// No overwrite?
else
{
// Can we at least stick it in the directory...
if (is_writable($boarddir . '/' . $dirname))
$context_data['writable'] = true;
}
// I love PHP files, that's why I'm a developer and not an artistic type spending my time drinking absinth and living a life of sin...
if ($extension == 'php' && preg_match('~\w+\.\w+(?:-utf8)?\.php~', $filename))
{
$context_data += array(
'version' => '??',
'cur_version' => false,
'version_compare' => 'newer',
);
list ($name, $language) = explode('.', $filename);
// Let's get the new version, I like versions, they tell me that I'm up to date.
if (preg_match('~\s*Version:\s+(.+?);\s*' . preg_quote($name, '~') . '~i', $file['preview'], $match) == 1)
$context_data['version'] = $match[1];
// Now does the old file exist - if so what is it's version?
if (file_exists($boarddir . '/' . $file['filename']))
{
// OK - what is the current version?
$fp = fopen($boarddir . '/' . $file['filename'], 'rb');
$header = fread($fp, 768);
fclose($fp);
// Find the version.
if (preg_match('~(?://|/\*)\s*Version:\s+(.+?);\s*' . preg_quote($name, '~') . '(?:[\s]{2}|\*/)~i', $header, $match) == 1)
{
$context_data['cur_version'] = $match[1];
// How does this compare?
if ($context_data['cur_version'] == $context_data['version'])
$context_data['version_compare'] = 'same';
elseif ($context_data['cur_version'] > $context_data['version'])
$context_data['version_compare'] = 'older';
// Don't recommend copying if the version is the same.
if ($context_data['version_compare'] != 'newer')
$context_data['default_copy'] = false;
}
}
// Add the context data to the main set.
$context['files']['lang'][] = $context_data;
}
else
{
// If we think it's a theme thing, work out what the theme is.
if (substr($dirname, 0, 6) == 'Themes' && preg_match('~Themes[\\/]([^\\/]+)[\\/]~', $dirname, $match))
$theme_name = $match[1];
else
$theme_name = 'misc';
// Assume it's an image, could be an acceptance note etc but rare.
$context['files']['images'][$theme_name][] = $context_data;
}
// Collect together all non-writable areas.
if (!$context_data['writable'])
$context['make_writable'][] = $context_data['destination'];
}
// So, I'm a perfectionist - let's get the theme names.
$theme_indexes = array();
foreach ($context['files']['images'] as $k => $dummy)
$indexes[] = $k;
$context['theme_names'] = array();
if (!empty($indexes))
{
$value_data = array(
'query' => array(),
'params' => array(),
);
foreach ($indexes as $k => $index)
{
$value_data['query'][] = 'value LIKE {string:value_' . $k . '}';
$value_data['params']['value_' . $k] = '%' . $index;
}
$request = $smcFunc['db_query']('', '
SELECT id_theme, value
FROM {db_prefix}themes
WHERE id_member = {int:no_member}
AND variable = {string:theme_dir}
AND (' . implode(' OR ', $value_data['query']) . ')',
array_merge($value_data['params'], array(
'no_member' => 0,
'theme_dir' => 'theme_dir',
'index_compare_explode' => 'value LIKE \'%' . implode('\' OR value LIKE \'%', $indexes) . '\'',
))
);
$themes = array();
while ($row = $smcFunc['db_fetch_assoc']($request))
{
// Find the right one.
foreach ($indexes as $index)
if (strpos($row['value'], $index) !== false)
$themes[$row['id_theme']] = $index;
}
$smcFunc['db_free_result']($request);
if (!empty($themes))
{
// Now we have the id_theme we can get the pretty description.
$request = $smcFunc['db_query']('', '
SELECT id_theme, value
FROM {db_prefix}themes
WHERE id_member = {int:no_member}
AND variable = {string:name}
AND id_theme IN ({array_int:theme_list})',
array(
'theme_list' => array_keys($themes),
'no_member' => 0,
'name' => 'name',
)
);
while ($row = $smcFunc['db_fetch_assoc']($request))
{
// Now we have it...
$context['theme_names'][$themes[$row['id_theme']]] = $row['value'];
}
$smcFunc['db_free_result']($request);
}
}
// Before we go to far can we make anything writable, eh, eh?
if (!empty($context['make_writable']))
{
// What is left to be made writable?
$file_status = create_chmod_control($context['make_writable']);
$context['still_not_writable'] = $file_status['files']['notwritable'];
// Mark those which are now writable as such.
foreach ($context['files'] as $type => $data)
{
if ($type == 'lang')
{
foreach ($data as $k => $file)
if (!$file['writable'] && !in_array($file['destination'], $context['still_not_writable']))
$context['files'][$type][$k]['writable'] = true;
}
else
{
foreach ($data as $theme => $files)
foreach ($files as $k => $file)
if (!$file['writable'] && !in_array($file['destination'], $context['still_not_writable']))
$context['files'][$type][$theme][$k]['writable'] = true;
}
}
// Are we going to need more language stuff?
if (!empty($context['still_not_writable']))
loadLanguage('Packages');
}
// This is the list for the main files.
$listOptions = array(
'id' => 'lang_main_files_list',
'title' => $txt['languages_download_main_files'],
'get_items' => array(
'function' => create_function('', '
global $context;
return $context[\'files\'][\'lang\'];
'),
),
'columns' => array(
'name' => array(
'header' => array(
'value' => $txt['languages_download_filename'],
),
'data' => array(
'function' => create_function('$rowData', '
global $context, $txt;
return \'\' . $rowData[\'name\'] . \' \' . $txt[\'languages_download_dest\'] . \': \' . $rowData[\'destination\'] . \' \' . ($rowData[\'version_compare\'] == \'older\' ? \' \' . $txt[\'languages_download_older\'] : \'\');
'),
),
),
'writable' => array(
'header' => array(
'value' => $txt['languages_download_writable'],
),
'data' => array(
'function' => create_function('$rowData', '
global $txt;
return \'\' . ($rowData[\'writable\'] ? $txt[\'yes\'] : $txt[\'no\']) . \' \';
'),
'style' => 'text-align: center',
),
),
'version' => array(
'header' => array(
'value' => $txt['languages_download_version'],
),
'data' => array(
'function' => create_function('$rowData', '
global $txt;
return \'\' . $rowData[\'version\'] . \' \';
'),
),
),
'exists' => array(
'header' => array(
'value' => $txt['languages_download_exists'],
),
'data' => array(
'function' => create_function('$rowData', '
global $txt;
return $rowData[\'exists\'] ? ($rowData[\'exists\'] == \'same\' ? $txt[\'languages_download_exists_same\'] : $txt[\'languages_download_exists_different\']) : $txt[\'no\'];
'),
),
),
'copy' => array(
'header' => array(
'value' => $txt['languages_download_copy'],
),
'data' => array(
'function' => create_function('$rowData', '
return \' \';
'),
'style' => 'text-align: center; width: 4%;',
),
),
),
);
// Kill the cache, as it is now invalid..
if (!empty($modSettings['cache_enable']))
{
cache_put_data('known_languages', null, !empty($modSettings['cache_enable']) && $modSettings['cache_enable'] < 1 ? 86400 : 3600);
cache_put_data('known_languages_all', null, !empty($modSettings['cache_enable']) && $modSettings['cache_enable'] < 1 ? 86400 : 3600);
}
require_once($sourcedir . '/Subs-List.php');
createList($listOptions);
$context['default_list'] = 'lang_main_files_list';
}
// This lists all the current languages and allows editing of them.
function ModifyLanguages()
{
global $txt, $context, $scripturl;
global $user_info, $smcFunc, $sourcedir, $language, $boarddir, $forum_version;
// Setting a new default?
if (!empty($_POST['set_default']) && !empty($_POST['def_language']))
{
checkSession();
getLanguages(true, false);
$lang_exists = false;
foreach ($context['languages'] as $lang)
{
if ($_POST['def_language'] == $lang['filename'])
{
$lang_exists = true;
break;
}
}
if ($_POST['def_language'] != $language && $lang_exists)
{
require_once($sourcedir . '/Subs-Admin.php');
updateSettingsFile(array('language' => '\'' . $_POST['def_language'] . '\''));
$language = $_POST['def_language'];
}
}
$listOptions = array(
'id' => 'language_list',
'items_per_page' => 20,
'base_href' => $scripturl . '?action=admin;area=languages',
'title' => $txt['edit_languages'],
'get_items' => array(
'function' => 'list_getLanguages',
),
'get_count' => array(
'function' => 'list_getNumLanguages',
),
'columns' => array(
'default' => array(
'header' => array(
'value' => $txt['languages_default'],
),
'data' => array(
'function' => create_function('$rowData', '
return \' \';
'),
'style' => 'text-align: center; width: 8%;',
),
),
'name' => array(
'header' => array(
'value' => $txt['languages_lang_name'],
),
'data' => array(
'function' => create_function('$rowData', '
global $scripturl, $context;
return sprintf(\'%3$s \', $scripturl, $rowData[\'id\'], $rowData[\'name\']);
'),
),
),
'character_set' => array(
'header' => array(
'value' => $txt['languages_character_set'],
),
'data' => array(
'db_htmlsafe' => 'char_set',
),
),
'count' => array(
'header' => array(
'value' => $txt['languages_users'],
),
'data' => array(
'db_htmlsafe' => 'count',
'style' => 'text-align: center',
),
),
'locale' => array(
'header' => array(
'value' => $txt['languages_locale'],
),
'data' => array(
'db_htmlsafe' => 'locale',
),
),
),
'form' => array(
'href' => $scripturl . '?action=admin;area=languages',
),
'additional_rows' => array(
array(
'position' => 'below_table_data',
'value' => ' ',
'style' => 'text-align: right;',
),
),
// For highlighting the default.
'javascript' => '
var prevClass = "";
var prevDiv = "";
function highlightSelected(box)
{
if (prevClass != "")
prevDiv.className = prevClass;
prevDiv = document.getElementById(box);
prevClass = prevDiv.className;
prevDiv.className = "highlight2";
}
highlightSelected("list_language_list_' . ($language == '' ? 'english' : $language). '");
',
);
// Display a warning if we cannot edit the default setting.
if (!is_writable($boarddir . '/Settings.php'))
$listOptions['additional_rows'][] = array(
'position' => 'after_title',
'value' => $txt['language_settings_writable'],
'class' => 'smalltext alert',
);
require_once($sourcedir . '/Subs-List.php');
createList($listOptions);
$context['sub_template'] = 'show_list';
$context['default_list'] = 'language_list';
}
// How many languages?
function list_getNumLanguages()
{
global $settings;
// Return how many we have.
return count(getLanguages(true, false));
}
// Fetch the actual language information.
function list_getLanguages()
{
global $settings, $smcFunc, $language, $context, $txt;
$languages = array();
// Keep our old entries.
$old_txt = $txt;
$backup_actual_theme_dir = $settings['actual_theme_dir'];
$backup_base_theme_dir = !empty($settings['base_theme_dir']) ? $settings['base_theme_dir'] : '';
// Override these for now.
$settings['actual_theme_dir'] = $settings['base_theme_dir'] = $settings['default_theme_dir'];
getLanguages(true, false);
// Put them back.
$settings['actual_theme_dir'] = $backup_actual_theme_dir;
if (!empty($backup_base_theme_dir))
$settings['base_theme_dir'] = $backup_base_theme_dir;
else
unset($settings['base_theme_dir']);
// Get the language files and data...
foreach ($context['languages'] as $lang)
{
// Load the file to get the character set.
require($settings['default_theme_dir'] . '/languages/index.' . $lang['filename'] . '.php');
$languages[$lang['filename']] = array(
'id' => $lang['filename'],
'count' => 0,
'char_set' => $txt['lang_character_set'],
'default' => $language == $lang['filename'] || ($language == '' && $lang['filename'] == 'english'),
'locale' => $txt['lang_locale'],
'name' => $smcFunc['ucwords'](strtr($lang['filename'], array('_' => ' ', '-utf8' => ''))),
);
}
// Work out how many people are using each language.
$request = $smcFunc['db_query']('', '
SELECT lngfile, COUNT(*) AS num_users
FROM {db_prefix}members
GROUP BY lngfile',
array(
)
);
while ($row = $smcFunc['db_fetch_assoc']($request))
{
// Default?
if (empty($row['lngfile']) || !isset($languages[$row['lngfile']]))
$row['lngfile'] = $language;
if (!isset($languages[$row['lngfile']]) && isset($languages['english']))
$languages['english']['count'] += $row['num_users'];
elseif (isset($languages[$row['lngfile']]))
$languages[$row['lngfile']]['count'] += $row['num_users'];
}
$smcFunc['db_free_result']($request);
// Restore the current users language.
$txt = $old_txt;
// Return how many we have.
return $languages;
}
// Edit language related settings.
function ModifyLanguageSettings($return_config = false)
{
global $scripturl, $context, $txt, $boarddir, $settings, $smcFunc;
// Warn the user if the backup of Settings.php failed.
$settings_not_writable = !is_writable($boarddir . '/Settings.php');
$settings_backup_fail = !@is_writable($boarddir . '/Settings_bak.php') || !@copy($boarddir . '/Settings.php', $boarddir . '/Settings_bak.php');
/* If you're writing a mod, it's a bad idea to add things here....
For each option:
variable name, description, type (constant), size/possible values, helptext.
OR an empty string for a horizontal rule.
OR a string for a titled section. */
$config_vars = array(
'language' => array('language', $txt['default_language'], 'file', 'select', array(), null, 'disabled' => $settings_not_writable),
array('userLanguage', $txt['userLanguage'], 'db', 'check', null, 'userLanguage'),
);
if ($return_config)
return $config_vars;
// Get our languages. No cache and use utf8.
getLanguages(false, false);
foreach ($context['languages'] as $lang)
$config_vars['language'][4][$lang['filename']] = array($lang['filename'], strtr($lang['name'], array('-utf8' => ' (UTF-8)')));
// Saving settings?
if (isset($_REQUEST['save']))
{
checkSession();
saveSettings($config_vars);
redirectexit('action=admin;area=languages;sa=settings');
}
// Setup the template stuff.
$context['post_url'] = $scripturl . '?action=admin;area=languages;sa=settings;save';
$context['settings_title'] = $txt['language_settings'];
$context['save_disabled'] = $settings_not_writable;
if ($settings_not_writable)
$context['settings_message'] = '' . $txt['settings_not_writable'] . '
';
elseif ($settings_backup_fail)
$context['settings_message'] = '' . $txt['admin_backup_fail'] . '
';
// Fill the config array.
prepareServerSettingsContext($config_vars);
}
// Edit a particular set of language entries.
function ModifyLanguage()
{
global $settings, $context, $smcFunc, $txt, $modSettings, $boarddir, $sourcedir, $language;
loadLanguage('ManageSettings');
// Select the languages tab.
$context['menu_data_' . $context['admin_menu_id']]['current_subsection'] = 'edit';
$context['page_title'] = $txt['edit_languages'];
$context['sub_template'] = 'modify_language_entries';
$context['lang_id'] = $_GET['lid'];
list($theme_id, $file_id) = empty($_REQUEST['tfid']) || strpos($_REQUEST['tfid'], '+') === false ? array(1, '') : explode('+', $_REQUEST['tfid']);
// Clean the ID - just in case.
preg_match('~([A-Za-z0-9_-]+)~', $context['lang_id'], $matches);
$context['lang_id'] = $matches[1];
// Get all the theme data.
$request = $smcFunc['db_query']('', '
SELECT id_theme, variable, value
FROM {db_prefix}themes
WHERE id_theme != {int:default_theme}
AND id_member = {int:no_member}
AND variable IN ({string:name}, {string:theme_dir})',
array(
'default_theme' => 1,
'no_member' => 0,
'name' => 'name',
'theme_dir' => 'theme_dir',
)
);
$themes = array(
1 => array(
'name' => $txt['dvc_default'],
'theme_dir' => $settings['default_theme_dir'],
),
);
while ($row = $smcFunc['db_fetch_assoc']($request))
$themes[$row['id_theme']][$row['variable']] = $row['value'];
$smcFunc['db_free_result']($request);
// This will be where we look
$lang_dirs = array();
// Check we have themes with a path and a name - just in case - and add the path.
foreach ($themes as $id => $data)
{
if (count($data) != 2)
unset($themes[$id]);
elseif (is_dir($data['theme_dir'] . '/languages'))
$lang_dirs[$id] = $data['theme_dir'] . '/languages';
// How about image directories?
if (is_dir($data['theme_dir'] . '/images/' . $context['lang_id']))
$images_dirs[$id] = $data['theme_dir'] . '/images/' . $context['lang_id'];
}
$current_file = $file_id ? $lang_dirs[$theme_id] . '/' . $file_id . '.' . $context['lang_id'] . '.php' : '';
// Now for every theme get all the files and stick them in context!
$context['possible_files'] = array();
foreach ($lang_dirs as $theme => $theme_dir)
{
// Open it up.
$dir = dir($theme_dir);
while ($entry = $dir->read())
{
// We're only after the files for this language.
if (preg_match('~^([A-Za-z]+)\.' . $context['lang_id'] . '\.php$~', $entry, $matches) == 0)
continue;
//!!! Temp!
if ($matches[1] == 'EmailTemplates')
continue;
if (!isset($context['possible_files'][$theme]))
$context['possible_files'][$theme] = array(
'id' => $theme,
'name' => $themes[$theme]['name'],
'files' => array(),
);
$context['possible_files'][$theme]['files'][] = array(
'id' => $matches[1],
'name' => isset($txt['lang_file_desc_' . $matches[1]]) ? $txt['lang_file_desc_' . $matches[1]] : $matches[1],
'selected' => $theme_id == $theme && $file_id == $matches[1],
);
}
$dir->close();
}
// We no longer wish to speak this language.
if (!empty($_POST['delete_main']) && $context['lang_id'] != 'english')
{
checkSession();
// !!! Todo: FTP Controls?
require_once($sourcedir . '/Subs-Package.php');
// First, Make a backup?
if (!empty($modSettings['package_make_backups']) && (!isset($_SESSION['last_backup_for']) || $_SESSION['last_backup_for'] != $context['lang_id'] . '$$$'))
{
$_SESSION['last_backup_for'] = $context['lang_id'] . '$$$';
package_create_backup('backup_lang_' . $context['lang_id']);
}
// Second, loop through the array to remove the files.
foreach ($lang_dirs as $curPath)
{
foreach ($context['possible_files'][1]['files'] as $lang)
if (file_exists($curPath . '/' . $lang['id'] . '.' . $context['lang_id'] . '.php'))
unlink($curPath . '/' . $lang['id'] . '.' . $context['lang_id'] . '.php');
// Check for the email template.
if (file_exists($curPath . '/EmailTemplates.' . $context['lang_id'] . '.php'))
unlink($curPath . '/EmailTemplates.' . $context['lang_id'] . '.php');
}
// Third, the agreement file.
if (file_exists($boarddir . '/agreement.' . $context['lang_id'] . '.txt'))
unlink($boarddir . '/agreement.' . $context['lang_id'] . '.txt');
// Fourth, a related images folder?
foreach ($images_dirs as $curPath)
if (is_dir($curPath))
deltree($curPath);
// Members can no longer use this language.
$smcFunc['db_query']('', '
UPDATE {db_prefix}members
SET lngfile = {string:empty_string}
WHERE lngfile = {string:current_language}',
array(
'empty_string' => '',
'current_language' => $context['lang_id'],
)
);
// Fifth, update getLanguages() cache.
if (!empty($modSettings['cache_enable']))
{
cache_put_data('known_languages', null, !empty($modSettings['cache_enable']) && $modSettings['cache_enable'] < 1 ? 86400 : 3600);
cache_put_data('known_languages_all', null, !empty($modSettings['cache_enable']) && $modSettings['cache_enable'] < 1 ? 86400 : 3600);
}
// Sixth, if we deleted the default language, set us back to english?
if ($context['lang_id'] == $language)
{
require_once($sourcedir . '/Subs-Admin.php');
$language = 'english';
updateSettingsFile(array('language' => '\'' . $language . '\''));
}
// Seventh, get out of here.
redirectexit('action=admin;area=languages;sa=edit;' . $context['session_var'] . '=' . $context['session_id']);
}
// Saving primary settings?
$madeSave = false;
if (!empty($_POST['save_main']) && !$current_file)
{
checkSession();
// Read in the current file.
$current_data = implode('', file($settings['default_theme_dir'] . '/languages/index.' . $context['lang_id'] . '.php'));
// These are the replacements. old => new
$replace_array = array(
'~\$txt\[\'lang_character_set\'\]\s=\s(\'|")[^\r\n]+~' => '$txt[\'lang_character_set\'] = \'' . preg_replace('~[^\w-]~i', '', $_POST['character_set']) . '\';',
'~\$txt\[\'lang_locale\'\]\s=\s(\'|")[^\r\n]+~' => '$txt[\'lang_locale\'] = \'' . preg_replace('~[^\w-]~i', '', $_POST['locale']) . '\';',
'~\$txt\[\'lang_dictionary\'\]\s=\s(\'|")[^\r\n]+~' => '$txt[\'lang_dictionary\'] = \'' . preg_replace('~[^\w-]~i', '', $_POST['dictionary']) . '\';',
'~\$txt\[\'lang_spelling\'\]\s=\s(\'|")[^\r\n]+~' => '$txt[\'lang_spelling\'] = \'' . preg_replace('~[^\w-]~i', '', $_POST['spelling']) . '\';',
'~\$txt\[\'lang_rtl\'\]\s=\s[A-Za-z0-9]+;~' => '$txt[\'lang_rtl\'] = ' . (!empty($_POST['rtl']) ? 'true' : 'false') . ';',
);
$current_data = preg_replace(array_keys($replace_array), array_values($replace_array), $current_data);
$fp = fopen($settings['default_theme_dir'] . '/languages/index.' . $context['lang_id'] . '.php', 'w+');
fwrite($fp, $current_data);
fclose($fp);
$madeSave = true;
}
// Quickly load index language entries.
$old_txt = $txt;
require($settings['default_theme_dir'] . '/languages/index.' . $context['lang_id'] . '.php');
$context['lang_file_not_writable_message'] = is_writable($settings['default_theme_dir'] . '/languages/index.' . $context['lang_id'] . '.php') ? '' : sprintf($txt['lang_file_not_writable'], $settings['default_theme_dir'] . '/languages/index.' . $context['lang_id'] . '.php');
// Setup the primary settings context.
$context['primary_settings'] = array(
'name' => $smcFunc['ucwords'](strtr($context['lang_id'], array('_' => ' ', '-utf8' => ''))),
'character_set' => $txt['lang_character_set'],
'locale' => $txt['lang_locale'],
'dictionary' => $txt['lang_dictionary'],
'spelling' => $txt['lang_spelling'],
'rtl' => $txt['lang_rtl'],
);
// Restore normal service.
$txt = $old_txt;
// Are we saving?
$save_strings = array();
if (isset($_POST['save_entries']) && !empty($_POST['entry']))
{
checkSession();
// Clean each entry!
foreach ($_POST['entry'] as $k => $v)
{
// Only try to save if it's changed!
if ($_POST['entry'][$k] != $_POST['comp'][$k])
$save_strings[$k] = cleanLangString($v, false);
}
}
// If we are editing a file work away at that.
if ($current_file)
{
$context['entries_not_writable_message'] = is_writable($current_file) ? '' : sprintf($txt['lang_entries_not_writable'], $current_file);
$entries = array();
// We can't just require it I'm afraid - otherwise we pass in all kinds of variables!
$multiline_cache = '';
foreach (file($current_file) as $line)
{
// Got a new entry?
if ($line[0] == '$' && !empty($multiline_cache))
{
preg_match('~\$(helptxt|txt)\[\'(.+)\'\]\s=\s(.+);~', strtr($multiline_cache, array("\n" => '', "\t" => '')), $matches);
if (!empty($matches[3]))
{
$entries[$matches[2]] = array(
'type' => $matches[1],
'full' => $matches[0],
'entry' => $matches[3],
);
$multiline_cache = '';
}
}
$multiline_cache .= $line . "\n";
}
// Last entry to add?
if ($multiline_cache)
{
preg_match('~\$(helptxt|txt)\[\'(.+)\'\]\s=\s(.+);~', strtr($multiline_cache, array("\n" => '', "\t" => '')), $matches);
if (!empty($matches[3]))
$entries[$matches[2]] = array(
'type' => $matches[1],
'full' => $matches[0],
'entry' => $matches[3],
);
}
// These are the entries we can definitely save.
$final_saves = array();
$context['file_entries'] = array();
foreach ($entries as $entryKey => $entryValue)
{
// Ignore some things we set separately.
$ignore_files = array('lang_character_set', 'lang_locale', 'lang_dictionary', 'lang_spelling', 'lang_rtl');
if (in_array($entryKey, $ignore_files))
continue;
// These are arrays that need breaking out.
$arrays = array('days', 'days_short', 'months', 'months_titles', 'months_short');
if (in_array($entryKey, $arrays))
{
// Get off the first bits.
$entryValue['entry'] = substr($entryValue['entry'], strpos($entryValue['entry'], '(') + 1, strrpos($entryValue['entry'], ')') - strpos($entryValue['entry'], '('));
$entryValue['entry'] = explode(',', strtr($entryValue['entry'], array(' ' => '')));
// Now create an entry for each item.
$cur_index = 0;
$save_cache = array(
'enabled' => false,
'entries' => array(),
);
foreach ($entryValue['entry'] as $id => $subValue)
{
// Is this a new index?
if (preg_match('~^(\d+)~', $subValue, $matches))
{
$cur_index = $matches[1];
$subValue = substr($subValue, strpos($subValue, '\''));
}
// Clean up some bits.
$subValue = strtr($subValue, array('"' => '', '\'' => '', ')' => ''));
// Can we save?
if (isset($save_strings[$entryKey . '-+- ' . $cur_index]))
{
$save_cache['entries'][$cur_index] = strtr($save_strings[$entryKey . '-+- ' . $cur_index], array('\'' => ''));
$save_cache['enabled'] = true;
}
else
$save_cache['entries'][$cur_index] = $subValue;
$context['file_entries'][] = array(
'key' => $entryKey . '-+- ' . $cur_index,
'value' => $subValue,
'rows' => 1,
);
$cur_index++;
}
// Do we need to save?
if ($save_cache['enabled'])
{
// Format the string, checking the indexes first.
$items = array();
$cur_index = 0;
foreach ($save_cache['entries'] as $k2 => $v2)
{
// Manually show the custom index.
if ($k2 != $cur_index)
{
$items[] = $k2 . ' => \'' . $v2 . '\'';
$cur_index = $k2;
}
else
$items[] = '\'' . $v2 . '\'';
$cur_index++;
}
// Now create the string!
$final_saves[$entryKey] = array(
'find' => $entryValue['full'],
'replace' => '$' . $entryValue['type'] . '[\'' . $entryKey . '\'] = array(' . implode(', ', $items) . ');',
);
}
}
else
{
// Saving?
if (isset($save_strings[$entryKey]) && $save_strings[$entryKey] != $entryValue['entry'])
{
// !!! Fix this properly.
if ($save_strings[$entryKey] == '')
$save_strings[$entryKey] = '\'\'';
// Set the new value.
$entryValue['entry'] = $save_strings[$entryKey];
// And we know what to save now!
$final_saves[$entryKey] = array(
'find' => $entryValue['full'],
'replace' => '$' . $entryValue['type'] . '[\'' . $entryKey . '\'] = ' . $save_strings[$entryKey] . ';',
);
}
$editing_string = cleanLangString($entryValue['entry'], true);
$context['file_entries'][] = array(
'key' => $entryKey,
'value' => $editing_string,
'rows' => (int) (strlen($editing_string) / 38) + substr_count($editing_string, "\n") + 1,
);
}
}
// Any saves to make?
if (!empty($final_saves))
{
checkSession();
$file_contents = implode('', file($current_file));
foreach ($final_saves as $save)
$file_contents = strtr($file_contents, array($save['find'] => $save['replace']));
// Save the actual changes.
$fp = fopen($current_file, 'w+');
fwrite($fp, $file_contents);
fclose($fp);
$madeSave = true;
}
// Another restore.
$txt = $old_txt;
}
// If we saved, redirect.
if ($madeSave)
redirectexit('action=admin;area=languages;sa=editlang;lid=' . $context['lang_id']);
}
// This function could be two functions - either way it cleans language entries to/from display.
function cleanLangString($string, $to_display = true)
{
global $smcFunc;
// If going to display we make sure it doesn't have any HTML in it - etc.
$new_string = '';
if ($to_display)
{
// Are we in a string (0 = no, 1 = single quote, 2 = parsed)
$in_string = 0;
$is_escape = false;
for ($i = 0; $i < strlen($string); $i++)
{
// Handle ecapes first.
if ($string{$i} == '\\')
{
// Toggle the escape.
$is_escape = !$is_escape;
// If we're now escaped don't add this string.
if ($is_escape)
continue;
}
// Special case - parsed string with line break etc?
elseif (($string{$i} == 'n' || $string{$i} == 't') && $in_string == 2 && $is_escape)
{
// Put the escape back...
$new_string .= $string{$i} == 'n' ? "\n" : "\t";
$is_escape = false;
continue;
}
// Have we got a single quote?
elseif ($string{$i} == '\'')
{
// Already in a parsed string, or escaped in a linear string, means we print it - otherwise something special.
if ($in_string != 2 && ($in_string != 1 || !$is_escape))
{
// Is it the end of a single quote string?
if ($in_string == 1)
$in_string = 0;
// Otherwise it's the start!
else
$in_string = 1;
// Don't actually include this character!
continue;
}
}
// Otherwise a double quote?
elseif ($string{$i} == '"')
{
// Already in a single quote string, or escaped in a parsed string, means we print it - otherwise something special.
if ($in_string != 1 && ($in_string != 2 || !$is_escape))
{
// Is it the end of a double quote string?
if ($in_string == 2)
$in_string = 0;
// Otherwise it's the start!
else
$in_string = 2;
// Don't actually include this character!
continue;
}
}
// A join/space outside of a string is simply removed.
elseif ($in_string == 0 && (empty($string{$i}) || $string{$i} == '.'))
continue;
// Start of a variable?
elseif ($in_string == 0 && $string{$i} == '$')
{
// Find the whole of it!
preg_match('~([\$A-Za-z0-9\'\[\]_-]+)~', substr($string, $i), $matches);
if (!empty($matches[1]))
{
// Come up with some pseudo thing to indicate this is a var.
//!!! Do better than this, please!
$new_string .= '{%' . $matches[1] . '%}';
// We're not going to reparse this.
$i += strlen($matches[1]) - 1;
}
continue;
}
// Right, if we're outside of a string we have DANGER, DANGER!
elseif ($in_string == 0)
{
continue;
}
// Actually add the character to the string!
$new_string .= $string{$i};
// If anything was escaped it ain't any longer!
$is_escape = false;
}
// Unhtml then rehtml the whole thing!
$new_string = htmlspecialchars(un_htmlspecialchars($new_string));
}
else
{
// Keep track of what we're doing...
$in_string = 0;
// This is for deciding whether to HTML a quote.
$in_html = false;
for ($i = 0; $i < strlen($string); $i++)
{
// Handle line breaks!
if ($string{$i} == "\n" || $string{$i} == "\t")
{
// Are we in a string? Is it the right type?
if ($in_string == 1)
{
// Change type!
$new_string .= '\' . "\\' . ($string{$i} == "\n" ? 'n' : 't');
$in_string = 2;
}
elseif ($in_string == 2)
$new_string .= '\\' . ($string{$i} == "\n" ? 'n' : 't');
// Otherwise start one off - joining if required.
else
$new_string .= ($new_string ? ' . ' : '') . '"\\' . ($string{$i} == "\n" ? 'n' : 't');
continue;
}
// We don't do parsed strings apart from for breaks.
elseif ($in_string == 2)
{
$in_string = 0;
$new_string .= '"';
}
// Not in a string yet?
if ($in_string != 1)
{
$in_string = 1;
$new_string .= ($new_string ? ' . ' : '') . '\'';
}
// Is this a variable?
if ($string{$i} == '{' && $string{$i + 1} == '%' && $string{$i + 2} == '$')
{
// Grab the variable.
preg_match('~\{%([\$A-Za-z0-9\'\[\]_-]+)%\}~', substr($string, $i), $matches);
if (!empty($matches[1]))
{
if ($in_string == 1)
$new_string .= '\' . ';
elseif ($new_string)
$new_string .= ' . ';
$new_string .= $matches[1];
$i += strlen($matches[1]) + 3;
$in_string = 0;
}
continue;
}
// Is this a lt sign?
elseif ($string{$i} == '<')
{
// Probably HTML?
if ($string{$i + 1} != ' ')
$in_html = true;
// Assume we need an entity...
else
{
$new_string .= '<';
continue;
}
}
// What about gt?
elseif ($string{$i} == '>')
{
// Will it be HTML?
if ($in_html)
$in_html = false;
// Otherwise we need an entity...
else
{
$new_string .= '>';
continue;
}
}
// Is it a slash? If so escape it...
if ($string{$i} == '\\')
$new_string .= '\\';
// The infamous double quote?
elseif ($string{$i} == '"')
{
// If we're in HTML we leave it as a quote - otherwise we entity it.
if (!$in_html)
{
$new_string .= '"';
continue;
}
}
// A single quote?
elseif ($string{$i} == '\'')
{
// Must be in a string so escape it.
$new_string .= '\\';
}
// Finally add the character to the string!
$new_string .= $string{$i};
}
// If we ended as a string then close it off.
if ($in_string == 1)
$new_string .= '\'';
elseif ($in_string == 2)
$new_string .= '"';
}
return $new_string;
}
// Helper function, it sets up the context for the manage server settings.
function prepareServerSettingsContext(&$config_vars)
{
global $context, $modSettings;
$context['config_vars'] = array();
foreach ($config_vars as $identifier => $config_var)
{
if (!is_array($config_var) || !isset($config_var[1]))
$context['config_vars'][] = $config_var;
else
{
$varname = $config_var[0];
global $$varname;
$context['config_vars'][] = array(
'label' => $config_var[1],
'help' => isset($config_var[5]) ? $config_var[5] : '',
'type' => $config_var[3],
'size' => empty($config_var[4]) ? 0 : $config_var[4],
'data' => isset($config_var[4]) && is_array($config_var[4]) ? $config_var[4] : array(),
'name' => $config_var[0],
'value' => $config_var[2] == 'file' ? htmlspecialchars($$varname) : (isset($modSettings[$config_var[0]]) ? htmlspecialchars($modSettings[$config_var[0]]) : (in_array($config_var[3], array('int', 'float')) ? 0 : '')),
'disabled' => !empty($context['settings_not_writable']) || !empty($config_var['disabled']),
'invalid' => false,
'javascript' => '',
'preinput' => '',
'postinput' => '',
);
}
}
}
// Helper function, it sets up the context for database settings.
function prepareDBSettingContext(&$config_vars)
{
global $txt, $helptxt, $context, $modSettings, $sourcedir;
loadLanguage('Help');
$context['config_vars'] = array();
$inlinePermissions = array();
$bbcChoice = array();
foreach ($config_vars as $config_var)
{
// HR?
if (!is_array($config_var))
$context['config_vars'][] = $config_var;
else
{
// If it has no name it doesn't have any purpose!
if (empty($config_var[1]))
continue;
// Special case for inline permissions
if ($config_var[0] == 'permissions' && allowedTo('manage_permissions'))
$inlinePermissions[] = $config_var[1];
elseif ($config_var[0] == 'permissions')
continue;
// Are we showing the BBC selection box?
if ($config_var[0] == 'bbc')
$bbcChoice[] = $config_var[1];
$context['config_vars'][$config_var[1]] = array(
'label' => isset($config_var['text_label']) ? $config_var['text_label'] : (isset($txt[$config_var[1]]) ? $txt[$config_var[1]] : (isset($config_var[3]) && !is_array($config_var[3]) ? $config_var[3] : '')),
'help' => isset($helptxt[$config_var[1]]) ? $config_var[1] : '',
'type' => $config_var[0],
'size' => !empty($config_var[2]) && !is_array($config_var[2]) ? $config_var[2] : (in_array($config_var[0], array('int', 'float')) ? 6 : 0),
'data' => array(),
'name' => $config_var[1],
'value' => isset($modSettings[$config_var[1]]) ? ($config_var[0] == 'select' ? $modSettings[$config_var[1]] : htmlspecialchars($modSettings[$config_var[1]])) : (in_array($config_var[0], array('int', 'float')) ? 0 : ''),
'disabled' => false,
'invalid' => !empty($config_var['invalid']),
'javascript' => '',
'var_message' => !empty($config_var['message']) && isset($txt[$config_var['message']]) ? $txt[$config_var['message']] : '',
'preinput' => isset($config_var['preinput']) ? $config_var['preinput'] : '',
'postinput' => isset($config_var['postinput']) ? $config_var['postinput'] : '',
);
// If this is a select box handle any data.
if (!empty($config_var[2]) && is_array($config_var[2]))
{
// If we allow multiple selections, we need to adjust a few things.
if ($config_var[0] == 'select' && !empty($config_var['multiple']))
{
$context['config_vars'][$config_var[1]]['name'] .= '[]';
$context['config_vars'][$config_var[1]]['value'] = !empty($context['config_vars'][$config_var[1]]['value']) ? unserialize($context['config_vars'][$config_var[1]]['value']) : array();
}
// If it's associative
if (isset($config_var[2][0]) && is_array($config_var[2][0]))
$context['config_vars'][$config_var[1]]['data'] = $config_var[2];
else
{
foreach ($config_var[2] as $key => $item)
$context['config_vars'][$config_var[1]]['data'][] = array($key, $item);
}
}
// Finally allow overrides - and some final cleanups.
foreach ($config_var as $k => $v)
{
if (!is_numeric($k))
{
if (substr($k, 0, 2) == 'on')
$context['config_vars'][$config_var[1]]['javascript'] .= ' ' . $k . '="' . $v . '"';
else
$context['config_vars'][$config_var[1]][$k] = $v;
}
// See if there are any other labels that might fit?
if (isset($txt['setting_' . $config_var[1]]))
$context['config_vars'][$config_var[1]]['label'] = $txt['setting_' . $config_var[1]];
elseif (isset($txt['groups_' . $config_var[1]]))
$context['config_vars'][$config_var[1]]['label'] = $txt['groups_' . $config_var[1]];
}
// Set the subtext in case it's part of the label.
// !!! Temporary. Preventing divs inside label tags.
$divPos = strpos($context['config_vars'][$config_var[1]]['label'], ']*>~', '', substr($context['config_vars'][$config_var[1]]['label'], $divPos));
$context['config_vars'][$config_var[1]]['label'] = substr($context['config_vars'][$config_var[1]]['label'], 0, $divPos);
}
}
}
// If we have inline permissions we need to prep them.
if (!empty($inlinePermissions) && allowedTo('manage_permissions'))
{
require_once($sourcedir . '/ManagePermissions.php');
init_inline_permissions($inlinePermissions, isset($context['permissions_excluded']) ? $context['permissions_excluded'] : array());
}
// What about any BBC selection boxes?
if (!empty($bbcChoice))
{
// What are the options, eh?
$temp = parse_bbc(false);
$bbcTags = array();
foreach ($temp as $tag)
$bbcTags[] = $tag['tag'];
$bbcTags = array_unique($bbcTags);
$totalTags = count($bbcTags);
// The number of columns we want to show the BBC tags in.
$numColumns = isset($context['num_bbc_columns']) ? $context['num_bbc_columns'] : 3;
// Start working out the context stuff.
$context['bbc_columns'] = array();
$tagsPerColumn = ceil($totalTags / $numColumns);
$col = 0; $i = 0;
foreach ($bbcTags as $tag)
{
if ($i % $tagsPerColumn == 0 && $i != 0)
$col++;
$context['bbc_columns'][$col][] = array(
'tag' => $tag,
// !!! 'tag_' . ?
'show_help' => isset($helptxt[$tag]),
);
$i++;
}
// Now put whatever BBC options we may have into context too!
$context['bbc_sections'] = array();
foreach ($bbcChoice as $bbc)
{
$context['bbc_sections'][$bbc] = array(
'title' => isset($txt['bbc_title_' . $bbc]) ? $txt['bbc_title_' . $bbc] : $txt['bbcTagsToUse_select'],
'disabled' => empty($modSettings['bbc_disabled_' . $bbc]) ? array() : $modSettings['bbc_disabled_' . $bbc],
'all_selected' => empty($modSettings['bbc_disabled_' . $bbc]),
);
}
}
}
// Helper function. Saves settings by putting them in Settings.php or saving them in the settings table.
function saveSettings(&$config_vars)
{
global $boarddir, $sc, $cookiename, $modSettings, $user_settings;
global $sourcedir, $context, $cachedir;
// Fix the darn stupid cookiename! (more may not be allowed, but these for sure!)
if (isset($_POST['cookiename']))
$_POST['cookiename'] = preg_replace('~[,;\s\.$]+~' . ($context['utf8'] ? 'u' : ''), '', $_POST['cookiename']);
// Fix the forum's URL if necessary.
if (isset($_POST['boardurl']))
{
if (substr($_POST['boardurl'], -10) == '/index.php')
$_POST['boardurl'] = substr($_POST['boardurl'], 0, -10);
elseif (substr($_POST['boardurl'], -1) == '/')
$_POST['boardurl'] = substr($_POST['boardurl'], 0, -1);
if (substr($_POST['boardurl'], 0, 7) != 'http://' && substr($_POST['boardurl'], 0, 7) != 'file://' && substr($_POST['boardurl'], 0, 8) != 'https://')
$_POST['boardurl'] = 'http://' . $_POST['boardurl'];
}
// Any passwords?
$config_passwords = array(
'db_passwd',
'ssi_db_passwd',
);
// All the strings to write.
$config_strs = array(
'mtitle', 'mmessage',
'language', 'mbname', 'boardurl',
'cookiename',
'webmaster_email',
'db_name', 'db_user', 'db_server', 'db_prefix', 'ssi_db_user',
'boarddir', 'sourcedir', 'cachedir',
);
// All the numeric variables.
$config_ints = array(
);
// All the checkboxes.
$config_bools = array(
'db_persist', 'db_error_send',
'maintenance',
);
// Now sort everything into a big array, and figure out arrays and etc.
$new_settings = array();
foreach ($config_passwords as $config_var)
{
if (isset($_POST[$config_var][1]) && $_POST[$config_var][0] == $_POST[$config_var][1])
$new_settings[$config_var] = '\'' . addcslashes($_POST[$config_var][0], '\'\\') . '\'';
}
foreach ($config_strs as $config_var)
{
if (isset($_POST[$config_var]))
$new_settings[$config_var] = '\'' . addcslashes($_POST[$config_var], '\'\\') . '\'';
}
foreach ($config_ints as $config_var)
{
if (isset($_POST[$config_var]))
$new_settings[$config_var] = (int) $_POST[$config_var];
}
foreach ($config_bools as $key)
{
if (!empty($_POST[$key]))
$new_settings[$key] = '1';
else
$new_settings[$key] = '0';
}
// Save the relevant settings in the Settings.php file.
require_once($sourcedir . '/Subs-Admin.php');
updateSettingsFile($new_settings);
// Now loopt through the remaining (database-based) settings.
$new_settings = array();
foreach ($config_vars as $config_var)
{
// We just saved the file-based settings, so skip their definitions.
if (!is_array($config_var) || $config_var[2] == 'file')
continue;
// Rewrite the definition a bit.
$new_settings[] = array($config_var[3], $config_var[0]);
}
// Save the new database-based settings, if any.
if (!empty($new_settings))
saveDBSettings($new_settings);
}
// Helper function for saving database settings.
function saveDBSettings(&$config_vars)
{
global $sourcedir, $context;
$inlinePermissions = array();
foreach ($config_vars as $var)
{
if (!isset($var[1]) || (!isset($_POST[$var[1]]) && $var[0] != 'check' && $var[0] != 'permissions' && ($var[0] != 'bbc' || !isset($_POST[$var[1] . '_enabledTags']))))
continue;
// Checkboxes!
elseif ($var[0] == 'check')
$setArray[$var[1]] = !empty($_POST[$var[1]]) ? '1' : '0';
// Select boxes!
elseif ($var[0] == 'select' && in_array($_POST[$var[1]], array_keys($var[2])))
$setArray[$var[1]] = $_POST[$var[1]];
elseif ($var[0] == 'select' && !empty($var['multiple']) && array_intersect($_POST[$var[1]], array_keys($var[2])) != array())
{
// For security purposes we validate this line by line.
$options = array();
foreach ($_POST[$var[1]] as $invar)
if (in_array($invar, array_keys($var[2])))
$options[] = $invar;
$setArray[$var[1]] = serialize($options);
}
// Integers!
elseif ($var[0] == 'int')
$setArray[$var[1]] = (int) $_POST[$var[1]];
// Floating point!
elseif ($var[0] == 'float')
$setArray[$var[1]] = (float) $_POST[$var[1]];
// Text!
elseif ($var[0] == 'text' || $var[0] == 'large_text')
$setArray[$var[1]] = $_POST[$var[1]];
// Passwords!
elseif ($var[0] == 'password')
{
if (isset($_POST[$var[1]][1]) && $_POST[$var[1]][0] == $_POST[$var[1]][1])
$setArray[$var[1]] = $_POST[$var[1]][0];
}
// BBC.
elseif ($var[0] == 'bbc')
{
$bbcTags = array();
foreach (parse_bbc(false) as $tag)
$bbcTags[] = $tag['tag'];
if (!isset($_POST[$var[1] . '_enabledTags']))
$_POST[$var[1] . '_enabledTags'] = array();
elseif (!is_array($_POST[$var[1] . '_enabledTags']))
$_POST[$var[1] . '_enabledTags'] = array($_POST[$var[1] . '_enabledTags']);
$setArray[$var[1]] = implode(',', array_diff($bbcTags, $_POST[$var[1] . '_enabledTags']));
}
// Permissions?
elseif ($var[0] == 'permissions')
$inlinePermissions[] = $var[1];
}
if (!empty($setArray))
updateSettings($setArray);
// If we have inline permissions we need to save them.
if (!empty($inlinePermissions) && allowedTo('manage_permissions'))
{
require_once($sourcedir . '/ManagePermissions.php');
save_inline_permissions($inlinePermissions);
}
}
?>