/**
* Called once our DB connection becomes active.
*/
function _general_db_init()
{
global $TABLE_LANG_FIELDS;
if (count($TABLE_LANG_FIELDS) > 0) {
return;
}
$TABLE_LANG_FIELDS = function_exists('persistant_cache_get') ? persistant_cache_get('TABLE_LANG_FIELDS') : NULL;
if ($TABLE_LANG_FIELDS === NULL) {
$TABLE_LANG_FIELDS = array();
$_table_lang_fields = $GLOBALS['SITE_DB']->query('SELECT m_name,m_table FROM ' . get_table_prefix() . 'db_meta WHERE ' . db_string_equal_to('m_type', 'SHORT_TRANS') . ' OR ' . db_string_equal_to('m_type', 'LONG_TRANS') . ' OR ' . db_string_equal_to('m_type', '*SHORT_TRANS') . ' OR ' . db_string_equal_to('m_type', '*LONG_TRANS') . ' OR ' . db_string_equal_to('m_type', '?SHORT_TRANS') . ' OR ' . db_string_equal_to('m_type', '?LONG_TRANS'), NULL, NULL, true);
if ($_table_lang_fields !== NULL) {
foreach ($_table_lang_fields as $lang_field) {
if ($lang_field['m_table'] == 'f_member_custom_fields') {
continue;
}
if (!isset($TABLE_LANG_FIELDS[$lang_field['m_table']])) {
$TABLE_LANG_FIELDS[$lang_field['m_table']] = array();
}
$TABLE_LANG_FIELDS[$lang_field['m_table']][] = $lang_field['m_name'];
}
}
if (function_exists('persistant_cache_set')) {
persistant_cache_set('TABLE_LANG_FIELDS', $TABLE_LANG_FIELDS);
}
}
}
/**
* Put a result into the cache.
*
* @param ID_TEXT The codename to check for cacheing
* @param integer The TTL of what is being cached in minutes
* @param LONG_TEXT The requisite situational information (a serialized map) [-> further restraints when reading]
* @param mixed The result we are cacheing
* @param ?array A list of the language files that need loading to use tempcode embedded in the cache (NULL: none required)
* @param ?array A list of the javascript files that need loading to use tempcode embedded in the cache (NULL: none required)
* @param ?array A list of the css files that need loading to use tempcode embedded in the cache (NULL: none required)
* @param boolean Whether we are cacheing Tempcode (needs special care)
* @param ?ID_TEXT The theme this is being cached for (NULL: current theme)
* @param ?LANGUAGE_NAME The language this is being cached for (NULL: current language)
*/
function put_into_cache($codename, $ttl, $cache_identifier, $cache, $_langs_required = NULL, $_javascripts_required = NULL, $_csss_required = NULL, $tempcode = false, $theme = NULL, $lang = NULL)
{
if ($theme === NULL) {
$theme = $GLOBALS['FORUM_DRIVER']->get_theme();
}
if ($lang === NULL) {
$lang = user_lang();
}
global $KEEP_MARKERS, $SHOW_EDIT_LINKS;
if ($KEEP_MARKERS || $SHOW_EDIT_LINKS) {
return;
}
$langs_required = is_null($_langs_required) ? '' : implode(':', $_langs_required);
$langs_required .= '!';
$langs_required .= is_null($_javascripts_required) ? '' : implode(':', $_javascripts_required);
$langs_required .= '!';
$langs_required .= is_null($_csss_required) ? '' : implode(':', $_csss_required);
if (!is_null($GLOBALS['MEM_CACHE'])) {
$pcache = persistant_cache_get(array('CACHE', $codename));
if (is_null($pcache)) {
$pcache = array();
}
$pcache[$cache_identifier][$lang][$theme] = array('langs_required' => $langs_required, 'date_and_time' => time(), 'the_value' => $cache);
persistant_cache_set(array('CACHE', $codename), $pcache, false, $ttl * 60);
} else {
$GLOBALS['SITE_DB']->query_delete('cache', array('lang' => $lang, 'the_theme' => $theme, 'cached_for' => $codename, 'identifier' => md5($cache_identifier)), '', 1);
$GLOBALS['SITE_DB']->query_insert('cache', array('langs_required' => $langs_required, 'lang' => $lang, 'cached_for' => $codename, 'the_value' => $tempcode ? $cache->to_assembly($lang) : serialize($cache), 'date_and_time' => time(), 'the_theme' => $theme, 'identifier' => md5($cache_identifier)), false, true);
}
}
/**
* Show poll block.
*
* @param boolean Whether to get the output instead of outputting it directly
* @param ?AUTO_LINK Poll ID (NULL: read from environment)
* @return ?object Output (NULL: outputted it already)
*/
function poll_script($ret = false, $param = NULL)
{
require_lang('polls');
require_css('polls');
if (is_null($param)) {
$param = get_param_integer('param');
}
$zone = get_param('zone', get_module_zone('polls'));
if ($param == -1) {
$rows = persistant_cache_get('POLL');
if (is_null($rows)) {
$rows = $GLOBALS['SITE_DB']->query_select('poll', array('*'), array('is_current' => 1), 'ORDER BY id DESC', 1);
persistant_cache_set('POLL', $rows);
}
} else {
$rows = $GLOBALS['SITE_DB']->query_select('poll', array('*'), array('id' => $param), '', 1);
}
if (has_actual_page_access(NULL, 'cms_polls', NULL, NULL) && has_submit_permission('mid', get_member(), get_ip_address(), 'cms_polls')) {
$submit_url = build_url(array('page' => 'cms_polls', 'type' => 'ad', 'redirect' => get_self_url(true, false)), get_module_zone('cms_polls'));
} else {
$submit_url = new ocp_tempcode();
}
if (!array_key_exists(0, $rows)) {
$content = do_template('BLOCK_NO_ENTRIES', array('_GUID' => 'fdc85bb2e14bdf00830347e52f25cdac', 'HIGH' => true, 'TITLE' => do_lang_tempcode('POLL'), 'MESSAGE' => do_lang_tempcode('NO_ENTRIES'), 'ADD_NAME' => do_lang_tempcode('ADD_POLL'), 'SUBMIT_URL' => $submit_url));
} else {
$myrow = $rows[0];
$ip = get_ip_address();
// Show the poll normally
$show_poll_results = get_param_integer('show_poll_results_' . strval($myrow['id']), 0);
if ($show_poll_results == 0) {
$content = show_poll(false, $myrow, $zone);
} else {
// Voting
$cast = post_param_integer('cast_' . strval($myrow['id']), -1);
if ($cast != -1) {
if (may_vote_in_poll($myrow)) {
if (addon_installed('points')) {
require_code('points');
$_before = point_info(get_member());
$before = array_key_exists('points_gained_voting', $_before) ? $_before['points_gained_voting'] : 0;
$GLOBALS['FORUM_DRIVER']->set_custom_field(get_member(), 'points_gained_voting', $before + 1);
}
$GLOBALS['SITE_DB']->query_update('poll', array('votes' . strval($cast) => $myrow['votes' . strval($cast)] + 1), array('id' => $myrow['id']), '', 1);
$GLOBALS['SITE_DB']->query_insert('poll_votes', array('v_poll_id' => $myrow['id'], 'v_voter_id' => get_member(), 'v_voter_ip' => $ip, 'v_vote_for' => $cast));
$myrow['votes' . strval($cast)]++;
}
} else {
// Viewing the results
if (may_vote_in_poll($myrow)) {
$GLOBALS['SITE_DB']->query_insert('poll_votes', array('v_poll_id' => $myrow['id'], 'v_voter_id' => is_guest() ? NULL : get_member(), 'v_voter_ip' => $ip, 'v_vote_for' => NULL));
}
}
// Show poll, with results
$content = show_poll(true, $myrow, $zone);
}
}
if ($ret) {
return $content;
}
// Display
$echo = do_template('STYLED_HTML_WRAP', array('TITLE' => do_lang_tempcode('POLL'), 'FRAME' => true, 'CONTENT' => $content));
$echo->handle_symbol_preprocessing();
$echo->evaluate_echo();
return NULL;
}
/**
* Standard code module initialisation function.
*/
function init__users()
{
global $MEMBERS_BLOCKED, $MEMBERS_BLOCKING_US;
$MEMBERS_BLOCKED = NULL;
$MEMBERS_BLOCKING_US = NULL;
global $SESSION_CACHE, $MEMBER_CACHED, $ADMIN_GROUP_CACHE, $MODERATOR_GROUP_CACHE, $USERGROUP_LIST_CACHE;
global $USER_NAME_CACHE, $MEMBER_EMAIL_CACHE, $USERS_GROUPS_CACHE;
global $SESSION_CONFIRMED, $GETTING_MEMBER, $EMOTICON_CACHE, $CACHED_THEME, $EMOTICON_LEVELS, $EMOTICON_SET_DIR;
$EMOTICON_LEVELS = NULL;
$USER_NAME_CACHE = array();
$MEMBER_EMAIL_CACHE = array();
$USERGROUP_LIST_CACHE = NULL;
$USERS_GROUPS_CACHE = array();
$ADMIN_GROUP_CACHE = NULL;
$MODERATOR_GROUP_CACHE = NULL;
$MEMBER_CACHED = NULL;
$SESSION_CONFIRMED = 0;
$GETTING_MEMBER = false;
$EMOTICON_CACHE = NULL;
$CACHED_THEME = NULL;
$EMOTICON_SET_DIR = NULL;
global $IS_ACTUALLY_ADMIN;
$IS_ACTUALLY_ADMIN = false;
global $IS_A_COOKIE_LOGIN;
$IS_A_COOKIE_LOGIN = false;
// Load all sessions into memory, if possible
if (get_value('session_prudence') !== '1') {
$SESSION_CACHE = persistant_cache_get('SESSION_CACHE');
} else {
$SESSION_CACHE = NULL;
}
global $IN_MINIKERNEL_VERSION;
if (!is_array($SESSION_CACHE) && $IN_MINIKERNEL_VERSION == 0) {
if (get_value('session_prudence') !== '1') {
$where = '';
} else {
$where = ' WHERE the_session=' . strval(get_session_id()) . ' OR ' . db_string_equal_to('ip', get_ip_address());
}
$SESSION_CACHE = array();
if (get_forum_type() == 'ocf' && get_db_site() == get_db_forums() && get_db_site_host() == get_db_forums_host()) {
$GLOBALS['NO_DB_SCOPE_CHECK'] = true;
$_s = $GLOBALS['SITE_DB']->query('SELECT s.*,m.m_primary_group FROM ' . get_table_prefix() . 'sessions s LEFT JOIN ' . $GLOBALS['SITE_DB']->get_table_prefix() . 'f_members m ON m.id=s.the_user' . $where);
$SESSION_CACHE = list_to_map('the_session', $_s);
$GLOBALS['NO_DB_SCOPE_CHECK'] = false;
} else {
$SESSION_CACHE = list_to_map('the_session', $GLOBALS['SITE_DB']->query('SELECT * FROM ' . get_table_prefix() . 'sessions' . $where));
}
if (get_value('session_prudence') !== '1') {
persistant_cache_set('SESSION_CACHE', $SESSION_CACHE);
}
}
// Canonicalise various disparities in how HTTP auth environment variables are set
if (array_key_exists('REDIRECT_REMOTE_USER', $_SERVER)) {
$_SERVER['PHP_AUTH_USER'] = preg_replace('#@.*$#', '', $_SERVER['REDIRECT_REMOTE_USER']);
}
if (array_key_exists('PHP_AUTH_USER', $_SERVER)) {
$_SERVER['PHP_AUTH_USER'] = preg_replace('#@.*$#', '', $_SERVER['PHP_AUTH_USER']);
}
if (array_key_exists('REMOTE_USER', $_SERVER)) {
$_SERVER['PHP_AUTH_USER'] = preg_replace('#@.*$#', '', $_SERVER['REMOTE_USER']);
}
}
/**
* Get the parsed contents of a comcode page.
*
* @param PATH The relative (to ocPortal's base directory) path to the page (e.g. pages/comcode/EN/start.txt)
* @param ID_TEXT The zone the page is being loaded from
* @param ID_TEXT The codename of the page
* @param ?PATH The file base to load from (NULL: standard)
* @param boolean Whether the page is being included from another
* @return tempcode The page
*/
function load_comcode_page($string, $zone, $codename, $file_base = NULL, $being_included = false)
{
if ($file_base === NULL) {
$file_base = get_file_base();
}
if (!$being_included) {
$GLOBALS['TITLE_CALLED'] = true;
}
$is_panel = substr($codename, 0, 6) == 'panel_' || strpos($codename, 'panel_') !== false && get_param_integer('keep_theme_test', 0) == 1;
if ($zone == '' && $codename == '404') {
global $EXTRA_HEAD;
$EXTRA_HEAD->attach('<meta name="robots" content="noindex" />');
// XHTMLXHTML
$GLOBALS['HTTP_STATUS_CODE'] = '404';
if (!headers_sent()) {
if (!browser_matches('ie') && strpos(ocp_srv('SERVER_SOFTWARE'), 'IIS') === false) {
header('HTTP/1.0 404 Not Found');
}
}
}
if (($is_panel || $codename[0] == '_') && get_page_name() == $codename) {
global $EXTRA_HEAD;
$EXTRA_HEAD->attach('<meta name="robots" content="noindex" />');
// XHTMLXHTML
}
if ($zone == 'adminzone') {
require_code('site_adminzone');
adminzone_special_cases($codename);
}
if ($codename == 'sitemap') {
$GLOBALS['FEED_URL'] = find_script('backend') . '?mode=comcode_pages&filter=' . $zone;
}
global $PAGE_STRING, $COMCODE_PARSE_TITLE, $LAST_COMCODE_PARSED_TITLE;
$COMCODE_PARSE_TITLE = NULL;
if ($PAGE_STRING === NULL && !$being_included && !$is_panel) {
$PAGE_STRING = $string;
}
$new_comcode_page_row = array('the_zone' => $zone, 'the_page' => $codename, 'p_parent_page' => '', 'p_validated' => 1, 'p_edit_date' => NULL, 'p_add_date' => NULL, 'p_submitter' => NULL, 'p_show_as_edit' => 0);
if ((get_option('is_on_comcode_page_cache') == '1' || get_param_integer('keep_cache', 0) == 1 || get_param_integer('cache', 0) == 1 || get_param_integer('cache_blocks', 0) == 1) && get_param_integer('keep_cache', NULL) !== 0 && get_param_integer('cache_blocks', NULL) !== 0 && get_param_integer('cache', NULL) !== 0 && get_param_integer('keep_print', 0) == 0) {
global $SITE_INFO;
$support_smart_decaching = !isset($SITE_INFO['disable_smart_decaching']) || $SITE_INFO['disable_smart_decaching'] == '0';
if (is_browser_decacheing()) {
$comcode_page = $GLOBALS['SITE_DB']->query_select('cached_comcode_pages', array('string_index', 'cc_page_title'), array('the_page' => $codename, 'the_zone' => $zone, 'the_theme' => $GLOBALS['FORUM_DRIVER']->get_theme()), '', 1, 0, false, array());
if (array_key_exists(0, $comcode_page)) {
if ($comcode_page[0]['string_index'] !== NULL) {
delete_lang($comcode_page[0]['string_index']);
}
$GLOBALS['SITE_DB']->query_delete('cached_comcode_pages', array('the_page' => $codename, 'the_zone' => $zone));
}
}
$theme = $GLOBALS['FORUM_DRIVER']->get_theme();
if ($GLOBALS['MEM_CACHE'] !== NULL) {
if ($support_smart_decaching) {
$mtime = filemtime($file_base . '/' . $string);
if ($mtime > time()) {
$mtime = time();
}
// Timezone error, we have to assume that cache is ok rather than letting us get in a loop decacheing the file. It'll get fixed automatically in a few hours when the hours of the timezone difference passes.
$pcache = persistant_cache_get(array('COMCODE_PAGE', $codename, $zone, $theme, user_lang()), $mtime);
} else {
$pcache = persistant_cache_get(array('COMCODE_PAGE', $codename, $zone, $theme, user_lang()));
}
} else {
$pcache = NULL;
}
if ($pcache === NULL) {
$comcode_page = $GLOBALS['SITE_DB']->query_select('cached_comcode_pages a JOIN ' . $GLOBALS['SITE_DB']->get_table_prefix() . 'comcode_pages b ON (a.the_page=b.the_page AND a.the_zone=b.the_zone)', array('*'), array('a.the_page' => $codename, 'a.the_zone' => $zone, 'the_theme' => $theme), '', 1, NULL, false, array('string_index', 'cc_page_title'));
if (array_key_exists(0, $comcode_page)) {
if ($support_smart_decaching) {
$mtime = filemtime($file_base . '/' . $string);
if ($mtime > time()) {
$mtime = time();
}
// Timezone error, we have to assume that cache is ok rather than letting us get in a loop decacheing the file. It'll get fixed automatically in a few hours when the hours of the timezone difference passes.
}
if (!$support_smart_decaching || ($comcode_page[0]['p_edit_date'] !== NULL && $comcode_page[0]['p_edit_date'] >= $mtime || $comcode_page[0]['p_edit_date'] === NULL && $comcode_page[0]['p_add_date'] !== NULL && $comcode_page[0]['p_add_date'] >= $mtime)) {
$comcode_page_row = $comcode_page[0];
$db_set = get_translated_tempcode($comcode_page[0]['string_index'], NULL, user_lang(), true, true, true);
unset($GLOBALS['RECORDED_LANG_STRINGS_CONTENT'][$comcode_page[0]['string_index']]);
} else {
$mtime = filemtime($file_base . '/' . $string);
if ($mtime > time()) {
$mtime = time();
}
// Timezone error, we have to assume that cache is ok rather than letting us get in a loop decacheing the file. It'll get fixed automatically in a few hours when the hours of the timezone difference passes.
$GLOBALS['SITE_DB']->query_update('comcode_pages', array('p_edit_date' => $mtime), array('the_page' => $codename, 'the_zone' => $zone), '', 1);
$GLOBALS['SITE_DB']->query_delete('cached_comcode_pages', array('the_zone' => $zone, 'the_page' => $codename));
delete_lang($comcode_page[0]['string_index']);
$db_set = NULL;
$comcode_page_row = NULL;
}
} else {
$db_set = NULL;
$comcode_page_row = NULL;
}
if ($db_set !== NULL) {
$index = $comcode_page[0]['string_index'];
$title_to_use = $comcode_page[0]['cc_page_title'];
if ($title_to_use !== NULL) {
$title_to_use = get_translated_text($title_to_use, NULL, NULL, true);
if ($title_to_use === NULL) {
$title_to_use = $codename;
}
}
$html = $db_set;
} else {
$comcode_page = $GLOBALS['SITE_DB']->query_select('comcode_pages', array('*'), array('the_page' => $codename, 'the_zone' => $zone), '', 1);
if (array_key_exists(0, $comcode_page)) {
$comcode_page_row = $comcode_page[0];
}
require_code('site2');
$new_comcode_page_row['p_add_date'] = filectime($file_base . '/' . $string);
list($html, $title_to_use, $comcode_page_row) = _load_comcode_page_not_cached($string, $zone, $codename, $file_base, $comcode_page_row, $new_comcode_page_row, $being_included);
}
persistant_cache_set(array('COMCODE_PAGE', $codename, $zone, $theme, user_lang()), array($html, $title_to_use, $comcode_page_row));
} else {
list($html, $title_to_use, $comcode_page_row) = $pcache;
}
} else {
require_code('site2');
$new_comcode_page_row['p_add_date'] = filectime($file_base . '/' . $string);
list($html, $comcode_page_row, $title_to_use) = _load_comcode_page_cache_off($string, $zone, $codename, $file_base, $new_comcode_page_row, $being_included);
}
$filtered_title_to_use = mixed();
if (!$is_panel && !$being_included) {
if ($title_to_use !== NULL && $title_to_use != '') {
get_page_title($title_to_use, false);
// Little hack - this gets shift encoded, but shift encoding can't survive a tempcode cache. This will force it to reshift. It'll also make sure DISPLAYED_TITLE gets set.
$filtered_title_to_use = @html_entity_decode(strip_tags($title_to_use), ENT_QUOTES, get_charset());
}
seo_meta_load_for('comcode_page', $zone . ':' . $codename, $filtered_title_to_use);
}
$LAST_COMCODE_PARSED_TITLE = $title_to_use;
if ($html->is_definitely_empty() && $being_included) {
return $html;
}
if (has_actual_page_access(get_member(), 'cms_comcode_pages', NULL, NULL, $comcode_page_row['p_submitter'] == get_member() && !is_guest() ? 'edit_own_highrange_content' : 'edit_highrange_content')) {
$redirect = get_self_url(true, false, array('redirect' => NULL, 'redirected' => NULL));
if (($codename == 'panel_left' || $codename == 'panel_right') && has_js() && has_actual_page_access(get_member(), 'admin_zones')) {
$edit_url = build_url(array('page' => 'admin_zones', 'type' => '_editor', 'id' => get_zone_name(), 'redirect' => $redirect, 'wide' => 1), get_module_zone('admin_zones'));
} else {
$edit_url = build_url(array('page' => 'cms_comcode_pages', 'type' => '_ed', 'page_link' => $zone . ':' . $codename, 'redirect' => $redirect), get_module_zone('cms_comcode_pages'));
}
$add_child_url = get_option('is_on_comcode_page_children') == '1' ? build_url(array('page' => 'cms_comcode_pages', 'type' => '_ed', 'parent_page' => $codename, 'page_link' => $zone . ':'), get_module_zone('cms_comcode_pages')) : new ocp_tempcode();
} else {
$edit_url = new ocp_tempcode();
$add_child_url = new ocp_tempcode();
}
$warning_details = new ocp_tempcode();
if ($comcode_page_row['p_validated'] !== NULL && $comcode_page_row['p_validated'] == 0) {
require_code('site2');
$warning_details = get_page_warning_details($zone, $codename, $edit_url);
}
if (!$is_panel && $title_to_use !== NULL && !$being_included) {
global $PT_PAIR_CACHE_CP;
$PT_PAIR_CACHE_CP[$codename]['cc_page_title'] = $title_to_use === NULL ? do_lang_tempcode('NA_EM') : make_string_tempcode($title_to_use);
$PT_PAIR_CACHE_CP[$codename]['p_parent_page'] = $comcode_page_row['p_parent_page'];
$comcode_breadcrumbs = comcode_breadcrumbs($codename, $zone, get_param('root', ''), $comcode_page_row['p_parent_page'] == '' || !has_specific_permission(get_member(), 'open_virtual_roots'));
breadcrumb_add_segment($comcode_breadcrumbs);
$GLOBALS['META_DATA'] += array('created' => date('Y-m-d', $comcode_page_row['p_add_date']), 'creator' => is_guest($comcode_page_row['p_submitter']) ? '' : $GLOBALS['FORUM_DRIVER']->get_username($comcode_page_row['p_submitter']), 'publisher' => '', 'modified' => $comcode_page_row['p_edit_date'] === NULL ? '' : date('Y-m-d', $comcode_page_row['p_edit_date']), 'type' => 'Comcode page', 'title' => $title_to_use, 'identifier' => $zone . ':' . $codename, 'description' => '');
}
if ($html->is_definitely_empty() && $is_panel) {
return $html;
}
global $SCREEN_TEMPLATE_CALLED;
$st = $SCREEN_TEMPLATE_CALLED;
$ret = do_template('COMCODE_PAGE_SCREEN', array('_GUID' => '0fc4fe4f27e54aaaa2b7e4848c02bacb', 'IS_PANEL' => $is_panel, 'BEING_INCLUDED' => $being_included, 'SUBMITTER' => strval($comcode_page_row['p_submitter']), 'TAGS' => get_loaded_tags('comcode_pages'), 'WARNING_DETAILS' => $warning_details, 'EDIT_DATE_RAW' => $comcode_page_row['p_edit_date'] === NULL ? '' : strval($comcode_page_row['p_edit_date']), 'SHOW_AS_EDIT' => $comcode_page_row['p_show_as_edit'] == 1, 'CONTENT' => $html, 'EDIT_URL' => $edit_url, 'ADD_CHILD_URL' => $add_child_url, 'NAME' => $codename));
if ($is_panel || $being_included) {
$SCREEN_TEMPLATE_CALLED = $st;
}
return $ret;
}
/**
* Load up hooks needed to detect how to use monikers.
*/
function load_moniker_hooks()
{
global $CONTENT_OBS;
if ($CONTENT_OBS === NULL) {
$CONTENT_OBS = function_exists('persistant_cache_get') ? persistant_cache_get('CONTENT_OBS') : NULL;
if ($CONTENT_OBS !== NULL) {
foreach ($CONTENT_OBS as $ob_info) {
if ($ob_info['title_field'] !== NULL && strpos($ob_info['title_field'], 'CALL:') !== false) {
require_code('hooks/systems/content_meta_aware/' . $ob_info['_hook']);
}
}
return;
}
$CONTENT_OBS = array();
$hooks = find_all_hooks('systems', 'content_meta_aware');
foreach ($hooks as $hook => $sources_dir) {
$info_function = extract_module_functions(get_file_base() . '/' . $sources_dir . '/hooks/systems/content_meta_aware/' . $hook . '.php', array('info'));
if ($info_function[0] !== NULL) {
$ob_info = is_array($info_function[0]) ? call_user_func_array($info_function[0][0], $info_function[0][1]) : eval($info_function[0]);
if ($ob_info === NULL) {
continue;
}
$ob_info['_hook'] = $hook;
$CONTENT_OBS[$ob_info['view_pagelink_pattern']] = $ob_info;
if ($ob_info['title_field'] !== NULL && strpos($ob_info['title_field'], 'CALL:') !== false) {
require_code('hooks/systems/content_meta_aware/' . $hook);
}
}
}
if (function_exists('persistant_cache_set')) {
persistant_cache_set('CONTENT_OBS', $CONTENT_OBS);
}
}
}
/**
* Find the URL to a certain external handler script (ocPortal allows these to be moved around between zones, to suit site .htaccess requirements).
*
* @param string The codename of the needed script
* @param boolean Whether to append keep variables
* @param integer Code representing what base URL type to use (0=guess, 1=http, 2=https)
* @set 0 1 2
* @return URLPATH The URL to the script
*/
function find_script($name, $append_keep = false, $base_url_code = 0)
{
$append = '';
if ($append_keep) {
$keep = symbol_tempcode('KEEP', array('1'));
$append .= $keep->evaluate();
}
global $CACHE_FIND_SCRIPT;
if ($CACHE_FIND_SCRIPT === array()) {
if (function_exists('persistant_cache_get')) {
$CACHE_FIND_SCRIPT = persistant_cache_get('SCRIPT_PLACES');
}
if ($CACHE_FIND_SCRIPT === NULL) {
$CACHE_FIND_SCRIPT = array();
}
}
if (isset($CACHE_FIND_SCRIPT[$name][$append_keep][$base_url_code])) {
return $CACHE_FIND_SCRIPT[$name][$append_keep][$base_url_code] . $append;
}
$zones = array(get_zone_name());
if (!in_safe_mode()) {
$zones[] = 'data_custom';
}
$zones[] = 'data';
$zones = array_merge($zones, find_all_zones());
foreach ($zones as $zone) {
if (is_file(get_file_base() . '/' . $zone . '/' . $name . '.php')) {
$ret = get_base_url() . '/' . $zone . ($zone != '' ? '/' : '') . $name . '.php';
$CACHE_FIND_SCRIPT[$name][$append_keep][$base_url_code] = $ret;
if (function_exists('persistant_cache_set')) {
persistant_cache_set('SCRIPT_PLACES', $CACHE_FIND_SCRIPT, true);
}
return $ret . $append;
}
}
$ret = get_base_url($base_url_code == 0 ? NULL : $base_url_code == 2) . '/site/' . $name . '.php';
$CACHE_FIND_SCRIPT[$name][$append_keep][$base_url_code] = $ret;
if (function_exists('persistant_cache_set')) {
persistant_cache_set('SCRIPT_PLACES', $CACHE_FIND_SCRIPT, true);
}
return $ret . $append;
}
/**
* This function is a very important one when coding. It allows you to include a source code file (from root/sources/ or root/sources_custom/) through the proper channels.
* You should remember this function, and not substitute anything else for it, as that will likely make your code unstable.
* It is key to source code modularity in ocPortal.
*
* @param string The codename for the source module to load (or a full relative path, ending with .php; if custom checking is needed, this must be the custom version)
* @param boolean Whether to cleanly fail when a source file is missing
*/
function require_code($codename, $light_exit = false)
{
$hphp = defined('HIPHOP_PHP');
if ($hphp) {
if ($codename == 'tempcode') {
$codename = 'tempcode__runtime';
}
if ($codename == 'tempcode_compiler') {
$codename = 'tempcode_compiler__runtime';
}
}
global $_REQUIRED_CODE, $FILE_BASE, $SITE_INFO;
if (isset($_REQUIRED_CODE[$codename])) {
return;
}
$_REQUIRED_CODE[$codename] = 1;
$shorthand = strpos($codename, '.php') === false;
if (!$shorthand) {
$non_custom_codename = str_replace('_custom/', '/', $codename);
$_REQUIRED_CODE[$non_custom_codename] = 1;
}
$codename = filter_naughty($codename);
static $mue = NULL;
if ($mue === NULL) {
$mue = function_exists('memory_get_usage');
}
if ($mue && isset($_GET['keep_show_loading']) && $_GET['keep_show_loading'] == '1') {
if (function_exists('memory_get_usage')) {
$before = memory_get_usage();
}
}
$worked = false;
$path_a = $FILE_BASE . '/' . ($shorthand ? 'sources_custom/' . $codename . '.php' : $codename);
$path_b = $FILE_BASE . '/' . ($shorthand ? 'sources/' . $codename . '.php' : $non_custom_codename);
$has_original = NULL;
if (isset($GLOBALS['MEM_CACHE'])) {
global $CODE_OVERRIDES;
if (!isset($CODE_OVERRIDES)) {
$CODE_OVERRIDES = persistant_cache_get('CODE_OVERRIDES');
if ($CODE_OVERRIDES === NULL) {
$CODE_OVERRIDES = array();
}
}
if (isset($CODE_OVERRIDES[$codename])) {
$has_override = $CODE_OVERRIDES[$codename];
$has_original = $CODE_OVERRIDES['!' . $codename];
} else {
$has_override = is_file($path_a);
$has_original = is_file($path_b);
$CODE_OVERRIDES[$codename] = $has_override;
$CODE_OVERRIDES['!' . $codename] = $has_original;
persistant_cache_set('CODE_OVERRIDES', $CODE_OVERRIDES, true);
}
} else {
$has_override = is_file($path_a);
}
if (isset($SITE_INFO['safe_mode']) && $SITE_INFO['safe_mode'] == '1') {
$has_override = false;
}
if ($has_override && (!function_exists('in_safe_mode') || !in_safe_mode() || !is_file($path_b))) {
$done_init = false;
$init_func = 'init__' . str_replace('/', '__', str_replace('.php', '', $codename));
if (!isset($has_original)) {
$has_original = is_file($path_b);
}
if ($path_a != $path_b && $has_original) {
$orig = str_replace(array('?' . '>', '<?php'), array('', ''), file_get_contents($path_b));
$a = file_get_contents($path_a);
if ((strpos($codename, '.php') === false || strpos($a, 'class Mx_') === false) && (function_exists('quercus_version') || !$hphp)) {
$functions_before = get_defined_functions();
$classes_before = get_declared_classes();
include $path_a;
// Include our overrride
$functions_after = get_defined_functions();
$classes_after = get_declared_classes();
$functions_diff = array_diff($functions_after['user'], $functions_before['user']);
// Our override defined these functions
$classes_diff = array_diff($classes_after, $classes_before);
$pure = true;
// We will set this to false if it does not have all functions the main one has. If it does have all functions we know we should not run the original init, as it will almost certainly just have been the same code copy&pasted through.
$overlaps = false;
foreach ($functions_diff as $function) {
if (strpos($orig, 'function ' . $function . '(') !== false) {
$orig = str_replace('function ' . $function . '(', 'function non_overrided__' . $function . '(', $orig);
$overlaps = true;
} else {
$pure = false;
}
}
foreach ($classes_diff as $class) {
if (substr(strtolower($class), 0, 6) == 'module') {
$class = ucfirst($class);
}
if (substr(strtolower($class), 0, 4) == 'hook') {
$class = ucfirst($class);
}
if (strpos($orig, 'class ' . $class) !== false) {
$orig = str_replace('class ' . $class, 'class non_overrided__' . $class, $orig);
$overlaps = true;
} else {
$pure = false;
}
}
// See if we can get away with loading init function early. If we can we do a special version of it that supports fancy code modification. Our override isn't allowed to call the non-overridden init function as it won't have been loaded up by PHP in time. Instead though we will call it ourselves if it still exists (hasn't been removed by our own init function) because it likely serves a different purpose to our code-modification init function and copy&paste coding is bad.
$doing_code_modifier_init = function_exists($init_func);
if ($doing_code_modifier_init) {
$test = call_user_func_array($init_func, array($orig));
if (is_string($test)) {
$orig = $test;
}
$done_init = true;
}
if (!$doing_code_modifier_init && !$overlaps) {
include $path_b;
} else {
eval($orig);
// Load up modified original
}
if (!$pure && $doing_code_modifier_init && function_exists('non_overrided__init__' . str_replace('/', '__', str_replace('.php', '', $codename)))) {
call_user_func('non_overrided__init__' . str_replace('/', '__', str_replace('.php', '', $codename)));
}
} else {
// Note we load the original and then the override. This is so function_exists can be used in the overrides (as we can't support the re-definition) OR in the case of Mx_ class derivation, so that the base class is loaded first.
if (isset($_GET['keep_show_parse_errors']) && (function_exists('quercus_version') || !$hphp)) {
@ini_set('display_errors', '0');
$orig = str_replace('?' . '>', '', str_replace('<?php', '', file_get_contents($path_b)));
if (eval($orig) === false) {
if (!function_exists('fatal_exit') || $codename == 'failure') {
critical_error('PASSON', @strval($php_errormsg) . ' [sources/' . $codename . '.php]');
}
fatal_exit(@strval($php_errormsg) . ' [sources/' . $codename . '.php]');
}
} else {
include $path_b;
}
if (isset($_GET['keep_show_parse_errors']) && (function_exists('quercus_version') || !$hphp)) {
@ini_set('display_errors', '0');
$orig = str_replace('?' . '>', '', str_replace('<?php', '', file_get_contents($path_a)));
if (eval($orig) === false) {
if (!function_exists('fatal_exit') || $codename == 'failure') {
critical_error('PASSON', @strval($php_errormsg) . ' [sources_custom/' . $codename . '.php]');
}
fatal_exit(@strval($php_errormsg) . ' [sources_custom/' . $codename . '.php]');
}
} else {
include $path_a;
}
}
} else {
if (isset($_GET['keep_show_parse_errors']) && (function_exists('quercus_version') || !$hphp)) {
@ini_set('display_errors', '0');
$orig = str_replace('?' . '>', '', str_replace('<?php', '', file_get_contents($path_a)));
if (eval($orig) === false) {
if (!function_exists('fatal_exit') || $codename == 'failure') {
critical_error('PASSON', @strval($php_errormsg) . ' [sources_custom/' . $codename . '.php]');
}
fatal_exit(@strval($php_errormsg) . ' [sources_custom/' . $codename . '.php]');
}
} else {
include $path_a;
}
}
if ($mue && isset($_GET['keep_show_loading']) && $_GET['keep_show_loading'] == '1') {
if (function_exists('memory_get_usage')) {
print '<!-- require_code: ' . htmlentities($codename) . ' (' . number_format(memory_get_usage() - $before) . ' bytes used, now at ' . number_format(memory_get_usage()) . ') -->' . "\n";
flush();
}
}
if (!$done_init) {
if (function_exists($init_func)) {
call_user_func($init_func);
}
}
$worked = true;
} else {
if (isset($_GET['keep_show_parse_errors']) && (function_exists('quercus_version') || !$hphp)) {
$contents = @file_get_contents($path_b);
if ($contents !== false) {
@ini_set('display_errors', '0');
$orig = str_replace(array('?' . '>', '<' . '?php'), array('', ''), $contents);
if (eval($orig) === false) {
if (!function_exists('fatal_exit') || $codename == 'failure') {
critical_error('PASSON', @strval($php_errormsg) . ' [sources/' . $codename . '.php]');
}
fatal_exit(@strval($php_errormsg) . ' [sources/' . $codename . '.php]');
}
$worked = true;
}
} else {
$php_errormsg = '';
@(include $path_b);
if ($php_errormsg == '') {
$worked = true;
}
}
if ($worked) {
if ($mue && isset($_GET['keep_show_loading']) && $_GET['keep_show_loading'] == '1') {
if (function_exists('memory_get_usage')) {
print '<!-- require_code: ' . htmlentities($codename) . ' (' . number_format(memory_get_usage() - $before) . ' bytes used, now at ' . number_format(memory_get_usage()) . ') -->' . "\n";
flush();
}
}
$init_func = 'init__' . str_replace(array('/', '.php'), array('__', ''), $codename);
if (function_exists($init_func)) {
call_user_func($init_func);
}
}
}
if ($worked) {
return;
}
if ($light_exit) {
warn_exit(do_lang_tempcode('MISSING_SOURCE_FILE', escape_html($codename), escape_html($path_b)));
}
if (!function_exists('do_lang')) {
if ($codename == 'critical_errors') {
exit('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' . chr(10) . '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="EN" lang="EN"><head><title>Critical startup error</title></head><body><h1>ocPortal startup error</h1><p>The ocPortal critical error message file, sources/critical_errors.php, could not be located. This is almost always due to an incomplete upload of the ocPortal system, so please check all files are uploaded correctly.</p><p>Once all ocPortal files are in place, ocPortal must actually be installed by running the installer. You must be seeing this message either because your system has become corrupt since installation, or because you have uploaded some but not all files from our manual installer package: the quick installer is easier, so you might consider using that instead.</p><p>ocProducts maintains full documentation for all procedures and tools, especially those for installation. These may be found on the <a href="http://ocportal.com">ocPortal website</a>. If you are unable to easily solve this problem, we may be contacted from our website and can help resolve it for you.</p><hr /><p style="font-size: 0.8em">ocPortal is a website engine created by ocProducts.</p></body></html>');
require $GLOBALS['FILE_BASE'] . '/sources/global.php';
}
critical_error('MISSING_SOURCE', $codename);
}
fatal_exit(do_lang_tempcode('MISSING_SOURCE_FILE', escape_html($codename), escape_html($path_b)));
}
/**
* Get the default page for a zone.
*
* @param ID_TEXT Zone name
* @return ID_TEXT Default page
*/
function get_zone_default_page($zone_name)
{
if ($zone_name == '_SELF') {
$zone_name = get_zone_name();
}
$p_test = persistant_cache_get(array('ZONE', $zone_name));
if ($p_test !== NULL) {
return $p_test['zone_default_page'];
}
global $ZONE;
if ($ZONE['zone_name'] == $zone_name && $ZONE['zone_default_page'] !== NULL) {
return $ZONE['zone_default_page'];
} else {
global $ZONE_DEFAULT_PAGES;
if (!isset($ZONE_DEFAULT_PAGES[$zone_name])) {
$_zone_default_page = NULL;
if (function_exists('persistant_cache_set')) {
$temp = persistant_cache_get('ALL_ZONES_TITLED');
if ($temp !== NULL) {
$_zone_default_page = array();
foreach ($temp as $_temp) {
list($_zone_name, , , $zone_default_page) = $_temp;
$_zone_default_page[] = array('zone_name' => $_zone_name, 'zone_default_page' => $zone_default_page);
}
}
}
if ($_zone_default_page === NULL) {
$_zone_default_page = $GLOBALS['SITE_DB']->query_select('zones', array('zone_name', 'zone_default_page'), NULL, 'ORDER BY zone_title', 50);
}
$ZONE_DEFAULT_PAGES[$zone_name] = 'start';
$ZONE_DEFAULT_PAGES['collaboration'] = 'start';
// Set this in case collaboration zone removed but still referenced. Performance tweak!
foreach ($_zone_default_page as $zone_row) {
$ZONE_DEFAULT_PAGES[$zone_row['zone_name']] = $zone_row['zone_default_page'];
}
}
return $ZONE_DEFAULT_PAGES[$zone_name];
}
}
/**
* Find the installed zones, up to the first $max installed
*
* @param boolean Whether to search the file system and return zones that might not be fully in the system (otherwise will just use the database)
* @param boolean Whether to get titles for the zones as well. Only if !$search
* @param boolean Whether to insist on getting all zones (there could be thousands in theory...)
* @param integer Start position to get results from
* @param integer Maximum zones to get
* @return array A list of zone names / a list of quartets (name, title, show in menu, default page)
*/
function find_all_zones($search = false, $get_titles = false, $force_all = false, $start = 0, $max = 50)
{
if ($search) {
$out = array('');
$dh = opendir(get_file_base());
while (($file = readdir($dh)) !== false) {
if ($file != '.' && $file != '..' && is_dir($file) && is_readable(get_file_base() . '/' . $file) && is_file(get_file_base() . '/' . $file . '/index.php') && is_dir(get_file_base() . '/' . $file . '/pages/modules')) {
if (get_option('collapse_user_zones', true) === '1' && $file == 'site') {
continue;
}
$out[] = $file;
if (!$force_all && count($out) == $max) {
break;
}
}
}
closedir($dh);
return $out;
}
global $ALL_ZONES, $ALL_ZONES_TITLED, $SITE_INFO;
$using_default_params = !$force_all && $start == 0 && $max == 50;
if ($using_default_params) {
if ($get_titles) {
if ($ALL_ZONES_TITLED === NULL) {
$ALL_ZONES_TITLED = function_exists('persistant_cache_get') ? persistant_cache_get('ALL_ZONES_TITLED') : NULL;
}
if ($ALL_ZONES_TITLED !== NULL) {
return $ALL_ZONES_TITLED;
}
} else {
if ($ALL_ZONES === NULL) {
$ALL_ZONES = function_exists('persistant_cache_get') ? persistant_cache_get('ALL_ZONES') : NULL;
}
if ($ALL_ZONES !== NULL) {
return $ALL_ZONES;
}
}
}
$rows = $GLOBALS['SITE_DB']->query_select('zones', array('*', 'zone_title AS _zone_title'), NULL, 'ORDER BY zone_name', $force_all ? NULL : $max, $start);
if (!$force_all && count($rows) == $max) {
$rows = $GLOBALS['SITE_DB']->query_select('zones', array('*', 'zone_title AS _zone_title'), NULL, 'ORDER BY zone_title', $max);
}
$zones_titled = array();
$zones = array();
foreach ($rows as $zone) {
if (get_option('collapse_user_zones', true) === '1' && $zone['zone_name'] == 'site') {
continue;
}
$zone['zone_title'] = get_translated_text($zone['_zone_title']);
$folder = get_file_base() . '/' . $zone['zone_name'] . '/pages';
if (isset($SITE_INFO['no_disk_sanity_checks']) && $SITE_INFO['no_disk_sanity_checks'] == '1' || is_file(get_file_base() . '/' . $zone['zone_name'] . '/index.php')) {
$zones[] = $zone['zone_name'];
$zones_titled[$zone['zone_name']] = array($zone['zone_name'], $zone['zone_title'], array_key_exists('zone_displayed_in_menu', $zone) ? $zone['zone_displayed_in_menu'] : 1, $zone['zone_default_page'], $zone);
}
}
if ($using_default_params) {
$ALL_ZONES_TITLED = $zones_titled;
if (function_exists('persistant_cache_set')) {
persistant_cache_set('ALL_ZONES_TITLED', $ALL_ZONES_TITLED);
}
$ALL_ZONES = $zones;
if (function_exists('persistant_cache_set')) {
persistant_cache_set('ALL_ZONES', $ALL_ZONES);
}
}
return $get_titles ? $zones_titled : $zones;
}
/**
* Includes a language file for use in the script.
* If $type is not null, then this specifies whether to use 'lang_custom' or 'custom' (otherwise, normal priorities occur).
*
* @param ID_TEXT The language file name
* @param ?LANGUAGE_NAME The language (NULL: uses the current language)
* @param ?string The language type (lang_custom, or custom) (NULL: normal priorities are used)
* @set lang_custom custom
* @param boolean Whether to just return if there was a loading error
*/
function require_lang($codename, $lang = NULL, $type = NULL, $ignore_errors = false)
{
// So we can keep track of what code loads what langs
global $LANGS_REQUESTED, $LANG_REQUESTED_LANG, $REQUIRE_LANG_LOOP, $PAGE_CACHE_LAZY_LOAD, $PAGE_CACHE_LANGS_REQUESTED, $LANG_LOADED_LANG, $LANGUAGE;
$LANGS_REQUESTED[$codename] = 1;
if ($lang === NULL) {
$lang = user_lang();
}
if (isset($LANG_REQUESTED_LANG[$lang]) && isset($LANG_REQUESTED_LANG[$lang][$codename])) {
return;
}
$LANG_REQUESTED_LANG[$lang][$codename] = 1;
$cfb = get_custom_file_base();
$fb = get_file_base();
$codename = filter_naughty($codename);
if ($PAGE_CACHE_LAZY_LOAD) {
global $SITE_INFO;
$support_smart_decaching = !isset($SITE_INFO['disable_smart_decaching']) || $SITE_INFO['disable_smart_decaching'] == '0';
if ($support_smart_decaching) {
$cache_path = $cfb . '/lang_cached/' . $lang . '/' . $codename . '.lcd';
$lang_file_default = $fb . '/lang/' . $lang . '/' . $codename . '.ini';
if (!is_file($lang_file_default)) {
$lang_file_default = $fb . '/lang/' . fallback_lang() . '/' . $codename . '.ini';
}
$lang_file = $fb . '/lang_custom/' . $lang . '/' . $codename . '.ini';
if (!is_file($lang_file)) {
$lang_file = $fb . '/lang_custom/' . $lang . '/' . $codename . '.po';
if (!is_file($lang_file)) {
$lang_file = $fb . '/lang_custom/' . $lang . '/' . filter_naughty($codename) . '-' . strtolower($lang) . '.po';
if (!is_file($lang_file)) {
$lang_file = $lang_file_default;
} else {
if (!is_file($lang_file_default)) {
$lang_file_default = $lang_file;
}
}
} else {
if (!is_file($lang_file_default)) {
$lang_file_default = $lang_file;
}
}
} else {
if (!is_file($lang_file_default)) {
$lang_file_default = $lang_file;
}
}
}
if (!$support_smart_decaching || is_file($cache_path) && is_file($lang_file) && @filemtime($cache_path) > filemtime($lang_file) && @filemtime($cache_path) > filemtime($lang_file_default)) {
if ($lang === NULL) {
$lang = user_lang();
}
$PAGE_CACHE_LANGS_REQUESTED[] = array($codename, $lang);
return;
} else {
global $PAGE_CACHE_FILE;
open_page_cache_file();
$LANGUAGE = array();
@rewind($PAGE_CACHE_FILE);
@flock($PAGE_CACHE_FILE, LOCK_EX);
@ftruncate($PAGE_CACHE_FILE, 0);
@flock($PAGE_CACHE_FILE, LOCK_UN);
global $PAGE_CACHE_LANG_LOADED;
$PAGE_CACHE_LANG_LOADED = array();
// This will no longer be valid, as one of the files that came into it has changed
$PAGE_CACHE_LAZY_LOAD = false;
$LANG_LOADED_LANG = array();
$PAGE_CACHE_LANGS_REQUESTED[] = array($codename, $lang);
foreach ($PAGE_CACHE_LANGS_REQUESTED as $request) {
list($that_codename, $that_lang) = $request;
unset($LANG_REQUESTED_LANG[$that_lang][$that_codename]);
require_lang($that_codename, $that_lang, NULL, $ignore_errors);
}
}
}
if (isset($LANG_LOADED_LANG[$lang]) && isset($LANG_LOADED_LANG[$lang][$codename])) {
return;
}
$REQUIRE_LANG_LOOP++;
if (function_exists('memory_get_usage') && isset($_GET['keep_show_loading']) && $_GET['keep_show_loading'] == '1') {
print '<!-- require_lang: ' . htmlentities($codename) . ' (' . integer_format(memory_get_usage()) . ' before) -->' . "\n";
flush();
}
$bad = false;
$done = false;
if (!isset($LANGUAGE[$lang])) {
$LANGUAGE[$lang] = array();
}
$cache_path = $cfb . '/lang_cached/' . $lang . '/' . $codename . '.lcd';
// Try lang_cached
if ($GLOBALS['MEM_CACHE'] !== NULL) {
$desire_cache = true;
global $SITE_INFO;
$support_smart_decaching = !isset($SITE_INFO['disable_smart_decaching']) || $SITE_INFO['disable_smart_decaching'] == '0';
if ($support_smart_decaching) {
$lang_file = $fb . '/lang/' . $lang . '/' . $codename . '.ini';
if (!is_file($lang_file)) {
$lang_file = $fb . '/lang/' . $lang . '/' . $codename . '.po';
if (!is_file($lang_file)) {
$lang_file = $fb . '/lang/' . $lang . '/' . filter_naughty($codename) . '-' . strtolower($lang) . '.po';
}
}
$pcache = persistant_cache_get(array('LANG', $lang, $codename), is_file($lang_file) ? filemtime($lang_file) : NULL);
} else {
$pcache = persistant_cache_get(array('LANG', $lang, $codename));
}
if (is_array($pcache)) {
$LANGUAGE[$lang] += $pcache;
$done = true;
}
} else {
$desire_cache = function_exists('get_option') && (get_option('is_on_lang_cache', true) == '1' || get_param_integer('keep_cache', 0) == 1 || get_param_integer('cache', 0) == 1) && get_param_integer('keep_cache', NULL) !== 0 && get_param_integer('cache', NULL) !== 0;
if ($desire_cache) {
$cache_path = $cfb . '/lang_cached/' . $lang . '/' . $codename . '.lcd';
$lang_file_default = $fb . '/lang/' . $lang . '/' . $codename . '.ini';
if (!is_file($lang_file_default)) {
$lang_file_default = $fb . '/lang/' . fallback_lang() . '/' . $codename . '.ini';
}
$lang_file = $fb . '/lang_custom/' . $lang . '/' . $codename . '.ini';
if (!is_file($lang_file)) {
$lang_file = $fb . '/lang_custom/' . $lang . '/' . $codename . '.po';
if (!is_file($lang_file)) {
$lang_file = $fb . '/lang_custom/' . $lang . '/' . filter_naughty($codename) . '-' . strtolower($lang) . '.po';
if (!is_file($lang_file)) {
$lang_file = $lang_file_default;
}
}
}
if (!is_file($lang_file_default)) {
$lang_file_default = $lang_file;
}
if (is_file($cache_path) && (!is_file($lang_file) || @filemtime($cache_path) > filemtime($lang_file) && @filemtime($cache_path) > filemtime($lang_file_default))) {
$tmp = @file_get_contents($cache_path, FILE_TEXT);
if ($tmp != '') {
$unserialized = @unserialize($tmp);
if ($unserialized !== false) {
$LANGUAGE[$lang] += $unserialized;
$done = true;
}
}
}
}
}
if (!$done) {
if ($desire_cache && is_file($cache_path)) {
require_code('view_modes');
global $ERASED_TEMPLATES_ONCE;
if (!$ERASED_TEMPLATES_ONCE) {
erase_cached_templates();
}
}
require_code('lang_compile');
$bad = $bad || require_lang_compile($codename, $lang, $type, $cache_path, $ignore_errors);
}
global $LANG_LOADED;
$LANG_LOADED[$codename] = $type;
if (!isset($LANG_LOADED_LANG[$lang])) {
$LANG_LOADED_LANG[$lang] = array();
}
$LANG_LOADED_LANG[$lang][$codename] = 1;
$REQUIRE_LANG_LOOP--;
}
/**
* Find the URL to the theme image of the specified ID. It searches various priorities, including language and theme overrides.
*
* @param ID_TEXT The theme image ID
* @param boolean Whether to silently fail (i.e. not give out an error message when a theme image cannot be found)
* @param boolean Whether to leave URLs as relative local URLs
* @param ?ID_TEXT The theme to search in (NULL: users current theme)
* @param ?LANGUAGE_NAME The language to search for (NULL: users current language)
* @param ?object The database to use (NULL: site database)
* @param boolean Whether to only search the default 'images' filesystem
* @return URLPATH The URL found (blank: not found)
*/
function find_theme_image($id, $silent_fail = false, $leave_local = false, $theme = NULL, $lang = NULL, $db = NULL, $pure_only = false)
{
if (substr($id, 0, 4) == 'ocf_' && is_file(get_file_base() . '/themes/default/images/avatars/index.html')) {
$id = substr($id, 4);
}
if (isset($_GET['keep_theme_seed']) && get_param('keep_theme_seed', NULL) !== NULL && function_exists('has_specific_permission') && has_specific_permission(get_member(), 'view_profiling_modes')) {
require_code('themewizard');
$test = find_theme_image_themewizard_preview($id);
if ($test !== NULL) {
return $test;
}
}
if ($db === NULL) {
$db = $GLOBALS['SITE_DB'];
}
global $RECORD_IMG_CODES;
if ($RECORD_IMG_CODES) {
global $RECORDED_IMG_CODES;
if (isset($GLOBALS['FORUM_DB']) && $db->connection_write !== $GLOBALS['FORUM_DB']->connection_write) {
$RECORDED_IMG_CODES[serialize(array($id, $theme, $lang))] = 1;
}
}
$true_theme = $GLOBALS['FORUM_DRIVER']->get_theme();
if ($theme === NULL) {
$theme = $true_theme;
}
global $USER_LANG_CACHED;
$true_lang = $USER_LANG_CACHED === NULL ? user_lang() : $USER_LANG_CACHED;
if ($lang === NULL) {
$lang = $true_lang;
}
$truism = $theme == $true_theme && $lang == $true_lang;
$site = $GLOBALS['SITE_DB'] == $db ? 'site' : 'forums';
global $IMG_CODES;
if (!isset($IMG_CODES[$site])) {
static $cache = NULL;
if ($site == 'site') {
$cache = persistant_cache_get('THEME_IMAGES');
}
if (!isset($cache[$true_theme][$true_lang])) {
$IMG_CODES[$site] = $db->query_select('theme_images', array('id', 'path'), array('theme' => $true_theme, 'lang' => $true_lang));
$IMG_CODES[$site] = collapse_2d_complexity('id', 'path', $IMG_CODES[$site]);
if ($site == 'site') {
if ($cache === NULL) {
$cache = array();
}
$cache[$theme][$true_lang] = $IMG_CODES[$site];
persistant_cache_set('THEME_IMAGES', $cache);
}
} else {
$IMG_CODES[$site] = $cache[$true_theme][$true_lang];
}
}
if (!$truism && !$pure_only) {
$path = $db->query_value_null_ok('theme_images', 'path', array('theme' => $theme, 'lang' => $lang, 'id' => $id));
if ($path !== NULL) {
if (url_is_local($path) && !$leave_local) {
$path = ($db->connection_write != $GLOBALS['SITE_DB']->connection_write ? get_forum_base_url() : (substr($path, 0, 22) == 'themes/default/images/' ? get_base_url() : get_custom_base_url())) . '/' . $path;
}
return cdn_filter($path);
}
}
if ($pure_only || !isset($IMG_CODES[$site][$id]) || !$truism) {
$path = NULL;
$priorities = array();
if (!$pure_only) {
$priorities = array_merge($priorities, array(array($theme, $lang, 'images_custom'), array($theme, '', 'images_custom'), $lang == fallback_lang() ? NULL : array($theme, fallback_lang(), 'images_custom')));
}
// This will not do a DB search, just a filesystem search. The Theme Wizard makes these though
$priorities = array_merge($priorities, array(array($theme, $lang, 'images'), array($theme, '', 'images'), $lang == fallback_lang() ? NULL : array($theme, fallback_lang(), 'images')));
if ($theme != 'default') {
if (!$pure_only) {
$priorities = array_merge($priorities, array(array('default', $lang, 'images_custom'), array('default', '', 'images_custom'), $lang == fallback_lang() ? NULL : array('default', fallback_lang(), 'images_custom')));
}
$priorities = array_merge($priorities, array(array('default', $lang, 'images'), array('default', '', 'images'), $lang == fallback_lang() ? NULL : array('default', fallback_lang(), 'images')));
}
foreach ($priorities as $i => $priority) {
if ($priority === NULL) {
continue;
}
if ($priority[2] == 'images_custom' && $priority[1] != '') {
$smap = array('id' => $id, 'theme' => $priority[0], 'lang' => $priority[1]);
$nql_backup = $GLOBALS['NO_QUERY_LIMIT'];
$GLOBALS['NO_QUERY_LIMIT'] = true;
$truism_b = $priority[0] == $true_theme && (!multi_lang() || $priority[1] == '' || $priority[1] === $true_lang);
$path = $truism_b ? NULL : $db->query_value_null_ok('theme_images', 'path', $smap);
$GLOBALS['NO_QUERY_LIMIT'] = $nql_backup;
if ($path !== NULL) {
if (strpos($path, '/images/' . $id . '.') !== false) {
continue;
}
if (array_key_exists('lang', $smap) && strpos($path, '/images/' . $smap['lang'] . '/' . $id . '.') !== false) {
continue;
}
break;
}
}
$test = _search_img_file($priority[0], $priority[1], $id, $priority[2]);
if ($test !== NULL) {
$path_bits = explode('/', $test);
$path = '';
foreach ($path_bits as $bit) {
if ($path != '') {
$path .= '/';
}
$path .= rawurlencode($bit);
}
break;
}
}
if ($db->connection_write == $GLOBALS['SITE_DB']->connection_write) {
if ($path !== NULL && $path != '' || $silent_fail && !$GLOBALS['SEMI_DEBUG_MODE']) {
$nql_backup = $GLOBALS['NO_QUERY_LIMIT'];
$GLOBALS['NO_QUERY_LIMIT'] = true;
$db->query_delete('theme_images', array('id' => $id, 'theme' => $theme, 'lang' => $lang));
// Allow for race conditions
$db->query_insert('theme_images', array('id' => $id, 'theme' => $theme, 'path' => $path === NULL ? '' : $path, 'lang' => $lang), false, true);
// Allow for race conditions
$GLOBALS['NO_QUERY_LIMIT'] = $nql_backup;
persistant_cache_delete('THEME_IMAGES');
}
}
if ($path === NULL) {
if (!$silent_fail) {
require_code('site');
attach_message(do_lang_tempcode('NO_SUCH_IMAGE', escape_html($id)), 'warn');
}
return '';
}
if ($truism) {
$IMG_CODES[$site][$id] = $path;
}
// only cache if we are looking up for our own theme/lang
} else {
$path = $IMG_CODES[$site][$id];
global $SITE_INFO;
if ($path != '' && (!isset($SITE_INFO['disable_smart_decaching']) || $SITE_INFO['disable_smart_decaching'] == '0') && (!isset($SITE_INFO['no_disk_sanity_checks']) || $SITE_INFO['no_disk_sanity_checks'] == '0') && url_is_local($path) && !is_file(get_custom_file_base() . '/' . rawurldecode($path))) {
unset($IMG_CODES[$site][$id]);
return find_theme_image($id, $silent_fail, $leave_local, $theme, $lang, $db, $pure_only);
}
}
if (url_is_local($path) && !$leave_local && $path != '') {
if ($db->connection_write != $GLOBALS['SITE_DB']->connection_write) {
$base_url = get_forum_base_url();
} else {
global $SITE_INFO;
$missing = !$pure_only && ((!isset($SITE_INFO['disable_smart_decaching']) || $SITE_INFO['disable_smart_decaching'] == '0') && (!isset($SITE_INFO['no_disk_sanity_checks']) || $SITE_INFO['no_disk_sanity_checks'] == '0') && (!is_file(get_file_base() . '/' . rawurldecode($path)) && !is_file(get_custom_file_base() . '/' . rawurldecode($path))));
if (substr($path, 0, 22) == 'themes/default/images/' || $missing) {
if ($missing) {
return find_theme_image($id, $silent_fail, $leave_local, $theme, $lang, $db, true);
}
$base_url = get_base_url();
} else {
$base_url = get_custom_base_url();
}
}
$path = $base_url . '/' . $path;
}
return cdn_filter($path);
}
/**
* Evaluate a conventional tempcode variable, handling escaping
*
* @param LANGUAGE_NAME The language to evaluate this symbol in (some symbols refer to language elements)
* @param array Array of escaping operations
* @param integer The type of symbol this is (TC_SYMBOL, TC_LANGUAGE_REFERENCE)
* @set 0 2
* @param ID_TEXT The name of the symbol
* @param array Parameters to the symbol. For all but directive it is an array of strings. For directives it is an array of Tempcode objects. Actually there may be template-style parameters in here, as an influence of singular_bind and these may be Tempcode, but we ignore them.
* @return mixed The result. Either tempcode, or a string.
*/
function ecv($lang, $escaped, $type, $name, $param)
{
global $TEMPCODE_SETGET, $CYCLES, $PREPROCESSABLE_SYMBOLS, $DISPLAYED_TITLE;
//echo '<!--'.$name.'-->'."\n";
if ($type == TC_SYMBOL) {
$escaped_codes = $name . ($escaped == array() ? '' : serialize($escaped));
$cacheable = $param == array() && !isset($GLOBALS['NON_CACHEABLE_SYMBOLS'][$name]);
if ($cacheable) {
global $SYMBOL_CACHE;
if (isset($SYMBOL_CACHE[$escaped_codes])) {
return $SYMBOL_CACHE[$escaped_codes];
}
}
$value = '';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($value);
}
$temp_array = array();
if (isset($PREPROCESSABLE_SYMBOLS[$name]) && $name != 'PAGE_LINK') {
handle_symbol_preprocessing(array($escaped, $type, $name, $param), $temp_array);
}
// Late preprocessing. Should not be needed in case of full screen output (as this was properly preprocessed), but is in other cases
switch ($name) {
case 'PAGE_LINK':
if (isset($param[0])) {
list($zone, $map, $hash) = page_link_decode(is_object($param[0]) ? $param[0]->evaluate() : $param[0]);
$skip = NULL;
if (isset($param[4])) {
$skip = array_flip(explode('|', $param[4]));
}
$avoid_remap = isset($param[1]) && $param[1] == '1';
$skip_keep = isset($param[2]) && $param[2] == '1';
$keep_all = isset($param[3]) && $param[3] == '1';
foreach ($map as $key => $val) {
if (is_object($val)) {
$map[$key] = $val->evaluate();
}
}
$value = _build_url($map, $zone, $skip, $keep_all, $avoid_remap, $skip_keep, $hash);
} else {
$value = get_zone_name() . ':' . get_page_name();
foreach ($_GET as $key => $val) {
if ($key == 'page') {
continue;
}
if (is_array($val)) {
continue;
}
if (substr($key, 0, 5) == 'keep_' && !skippable_keep($key, $val)) {
continue;
}
$value .= ':' . $key . '=' . $val;
}
}
break;
case 'SET':
if (isset($param[1])) {
if (isset($param[1]) && is_object($param[1])) {
$TEMPCODE_SETGET[$param[0]] = $param[1];
} else {
$param_copy = $param;
unset($param_copy[0]);
$TEMPCODE_SETGET[$param[0]] = implode(',', $param_copy);
}
}
break;
case 'GET':
if (isset($param[0])) {
if (isset($TEMPCODE_SETGET[$param[0]])) {
if (is_object($TEMPCODE_SETGET[$param[0]])) {
$TEMPCODE_SETGET[$param[0]] = $TEMPCODE_SETGET[$param[0]]->evaluate();
}
$value = $TEMPCODE_SETGET[$param[0]];
}
}
break;
case 'EQ':
if (isset($param[1])) {
$first = array_shift($param);
$count = 0;
foreach ($param as $test) {
if ($first == $test) {
$count++;
break;
}
}
$value = $count != 0 ? '1' : '0';
}
break;
case 'NEQ':
if (isset($param[1])) {
$first = array_shift($param);
$count = 0;
foreach ($param as $test) {
if ($first == $test) {
$count++;
}
}
$value = $count == 0 ? '1' : '0';
}
break;
case 'NOT':
if (isset($param[0])) {
$value = $param[0] == '1' || $param[0] == '1' ? '0' : '1';
}
break;
case 'OR':
$count = 0;
foreach ($param as $test) {
if ($test == '1' || $test == '1') {
$count++;
}
}
$value = $count > 0 ? '1' : '0';
break;
case 'AND':
$count = 0;
foreach ($param as $test) {
if ($test == '1' || $test == '1') {
$count++;
}
}
$value = $count == count($param) ? '1' : '0';
break;
case 'HAS_ACTUAL_PAGE_ACCESS':
if (isset($param[0])) {
$value = has_actual_page_access($param !== NULL && isset($param[2]) ? intval($param[2]) : get_member(), $param[0], isset($param[1]) ? $param[1] : NULL) ? '1' : '0';
}
break;
case '?':
if (isset($param[1])) {
$value = $param[0] == '1' || $param[0] == '1' ? $param[1] : (isset($param[2]) ? $param[2] : $value);
}
break;
case 'IMG':
if (isset($param[0]) && isset($GLOBALS['SITE_DB']) && function_exists('find_theme_image') && $GLOBALS['IN_MINIKERNEL_VERSION'] == 0) {
$value = find_theme_image($param[0], isset($param[3]) && $param[3] == '1', false, array_key_exists(2, $param) && $param[2] != '' ? $param[2] : NULL, NULL, isset($param[1]) && $param[1] == '1' ? $GLOBALS['FORUM_DB'] : $GLOBALS['SITE_DB']);
}
break;
case '':
break;
case 'META_DATA':
if (isset($param[0])) {
global $META_DATA;
if (isset($param[1])) {
$matches = array();
if ($param[0] == 'image' && preg_match('#^' . preg_quote(find_script('attachment'), '#') . '\\?id=(\\d+)#', $param[1], $matches) != 0) {
require_code('attachments');
if (!has_attachment_access($GLOBALS['FORUM_DRIVER']->get_guest_id(), intval($matches[1]))) {
break;
}
}
$META_DATA[$param[0]] = $param[1];
} else {
$value = isset($META_DATA[$param[0]]) ? strip_comcode($META_DATA[$param[0]]) : '';
if ($value === NULL) {
$value = '';
}
}
}
break;
case 'SPECIAL_CLICK_TO_EDIT':
$_value = do_lang_tempcode('SPECIAL_CLICK_TO_EDIT');
$value = $_value->evaluate();
break;
case 'KEEP':
// What needs preserving in the URL
$value = keep_symbol($param);
break;
case 'BROWSER':
if (isset($param[1])) {
$q = false;
foreach (explode('|', $param[0]) as $browser) {
$q = browser_matches($browser);
if ($q) {
break;
}
}
$value = $q ? $param[1] : (isset($param[2]) ? $param[2] : '');
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($value);
}
}
break;
case 'JAVASCRIPT_INCLUDE':
if (isset($param[0])) {
require_javascript($param[0]);
/*// Has to do this inline, as you're not allowed to reference scripts outside head
if (!array_key_exists($param[0],$GLOBALS['JAVASCRIPTS']))
{
$GLOBALS['JAVASCRIPTS'][$param[0]]=1;
$file=javascript_enforce($param[0]);
$_value=do_template('JAVASCRIPT_NEED_INLINE',array('_GUID'=>'d6c907e26c5a8dd8c65f1d36a1a674a9','CODE'=>file_get_contents($file,FILE_TEXT)));
$value=$_value->evaluate();
}*/
}
break;
case 'FACILITATE_AJAX_BLOCK_CALL':
if (isset($param[0])) {
require_javascript('javascript_ajax');
require_code('blocks');
$_block_constraints = block_params_to_block_signature(block_params_str_to_arr($param[0]));
if (array_key_exists(1, $param)) {
$_block_constraints = array_merge($_block_constraints, block_params_str_to_arr($param[1]));
ksort($_block_constraints);
}
$block_constraints = block_params_arr_to_str($_block_constraints);
// Store permissions
$_auth_key = $GLOBALS['SITE_DB']->query_select('temp_block_permissions', array('id', 'p_time'), array('p_session_id' => get_session_id(), 'p_block_constraints' => $block_constraints), '', 1);
if (!array_key_exists(0, $_auth_key)) {
$auth_key = $GLOBALS['SITE_DB']->query_insert('temp_block_permissions', array('p_session_id' => get_session_id(), 'p_block_constraints' => $block_constraints, 'p_time' => time()), true);
} else {
$auth_key = $_auth_key[0]['id'];
if (time() - $_auth_key[0]['p_time'] > 100) {
$GLOBALS['SITE_DB']->query_update('temp_block_permissions', array('p_time' => time()), array('p_session_id' => get_session_id(), 'p_block_constraints' => $block_constraints), '', 1);
}
}
$keep = symbol_tempcode('KEEP');
$value = find_script('snippet') . '?snippet=block&auth_key=' . urlencode(strval($auth_key)) . '&block_map=' . urlencode($param[0]) . $keep->evaluate();
}
break;
case 'LANG':
$value = user_lang();
break;
case '_GET':
if (isset($param[0])) {
$value = get_param($param[0], isset($param[1]) ? $param[1] : '', true);
}
break;
case 'QUERY_STRING':
$value = ocp_srv('QUERY_STRING');
break;
case 'USER_AGENT':
$value = ocp_srv('HTTP_USER_AGENT');
break;
case 'STRIP_TAGS':
if (isset($param[0])) {
if (isset($param[1]) && $param[1] == '1') {
$value = strip_tags(str_replace('))', ')', str_replace('((', '(', str_replace('<em>', '(', str_replace('</em>', ')', $param[0])))));
} else {
$value = strip_tags($param[0], array_key_exists(2, $param) ? $param[2] : '');
}
if (isset($param[1]) && $param[1] == '1') {
$value = @html_entity_decode($value, ENT_QUOTES, get_charset());
}
}
break;
case 'CONFIG_OPTION':
if (isset($param[0])) {
if (!isset($GLOBALS['OPTIONS'])) {
$value = '0';
} else {
$value = get_option($param[0], true);
if ($value === NULL) {
$value = '';
}
}
}
break;
case 'TRUNCATE_LEFT':
// Truncate the left length of a string. 0: text to truncate, 1: the truncate length, 2: whether to use a tooltip mouse-over if it is truncated, 3: whether it is encoded as HTML (0=no [default, plain-text], 1=yes)
$value = symbol_truncator($param, 'left');
break;
case 'TRUNCATE_RIGHT':
$value = symbol_truncator($param, 'right');
break;
case 'TRUNCATE_SPREAD':
$value = symbol_truncator($param, 'spread');
break;
case 'TRUNCATE_EXPAND':
$value = symbol_truncator($param, 'expand');
break;
case 'THEME':
if (isset($GLOBALS['FORUM_DRIVER'])) {
$value = $GLOBALS['FORUM_DRIVER']->get_theme();
} else {
$value = 'default';
}
break;
case 'REVERSE':
if (isset($param[0])) {
$value = implode(',', array_reverse(explode(',', $param[0])));
}
break;
case 'COMMA_LIST_GET':
if (isset($param[1])) {
require_code('blocks');
$values = block_params_str_to_arr($param[0]);
$value = isset($values[$param[1]]) ? $values[$param[1]] : '';
}
break;
case 'COMMA_LIST_SET':
if (isset($param[2])) {
require_code('blocks');
$values = block_params_str_to_arr($param[0]);
$values[$param[1]] = $param[2];
$value = block_params_arr_to_str($values);
}
break;
case 'IS_EMPTY':
if (isset($param[0])) {
$value = $param[0] == '' ? '1' : '0';
}
break;
case 'IS_NON_EMPTY':
if (isset($param[0])) {
$value = $param[0] != '' ? '1' : '0';
}
break;
case 'CUSTOM_BASE_URL':
$value = get_custom_base_url(isset($param[0]) && $param[0] != '' ? $param[0] == '1' : NULL);
if (isset($param[1]) && $param[1] == '1') {
$value = cdn_filter($value);
}
break;
case 'LOAD_PANEL':
foreach ($param as $i => $p) {
if (is_object($p)) {
$param[$i] = $p->evaluate();
}
}
global $LOADED_PANELS;
if (strpos($param[0], ':') !== false) {
$param = array_reverse(explode(':', $param[0], 2));
}
if (substr($param[0], 0, 6) == 'panel_') {
$param[0] = substr($param[0], 6);
}
$sr = serialize($param);
$value = array_key_exists($sr, $LOADED_PANELS) ? $LOADED_PANELS[$sr] : '';
break;
case 'HAS_JS':
case 'JS_ON':
if (isset($param[1])) {
$value = has_js() ? $param[0] : $param[1];
} else {
$value = has_js() ? '1' : '0';
}
break;
case 'BASE_URL_NOHTTP':
$value = preg_replace('#^https?://[^/]+#', '', get_base_url());
if (substr($value, 0, 2) == '//') {
$value = substr($value, 1);
}
if (!$GLOBALS['DEBUG_MODE']) {
break;
}
// Debug mode changes base domain so we need to actually use it in full (fine, we don't have HTTPS in debug mode). Bubble on...
// Debug mode changes base domain so we need to actually use it in full (fine, we don't have HTTPS in debug mode). Bubble on...
case 'CUSTOM_BASE_URL_NOHTTP':
$value = preg_replace('#^https?://[^/]+/#', '/', get_custom_base_url());
if (substr($value, 0, 2) == '//') {
$value = substr($value, 1);
}
if (!$GLOBALS['DEBUG_MODE']) {
break;
}
// Debug mode changes base domain so we need to actually use it in full (fine, we don't have HTTPS in debug mode). Bubble on...
// Debug mode changes base domain so we need to actually use it in full (fine, we don't have HTTPS in debug mode). Bubble on...
case 'BASE_URL':
$value = get_base_url(isset($param[0]) ? $param[0] == '1' : NULL);
break;
case 'ZONE':
$value = get_zone_name();
break;
case 'PAGE':
$value = get_page_name();
break;
case 'SITE_NAME':
$value = get_site_name();
break;
case 'HEADER_TEXT':
global $ZONE;
$value = $ZONE['zone_header_text_trans'];
break;
case 'PANEL_WIDTH':
if (isset($TEMPCODE_SETGET['PANEL_WIDTH']) && $TEMPCODE_SETGET['PANEL_WIDTH'] != '') {
$value = $TEMPCODE_SETGET['PANEL_WIDTH'];
} else {
$value = get_option('panel_width', true);
if ($value === NULL) {
$value = '13.3em';
}
}
break;
case 'PANEL_WIDTH_SPACED':
if (isset($TEMPCODE_SETGET['PANEL_WIDTH_SPACED']) && $TEMPCODE_SETGET['PANEL_WIDTH_SPACED'] != '') {
$value = $TEMPCODE_SETGET['PANEL_WIDTH_SPACED'];
} else {
$value = get_option('panel_width_spaced', true);
if (is_null($value)) {
$value = '14.3em';
}
}
break;
case 'TRIM':
if (isset($param[0])) {
$value = preg_replace(array('#^\\s+#', '#^(<br\\s*/?' . '>\\s*)+#', '#^( )+#', '#\\s+$#', '#(<br\\s*/?' . '>\\s*)+$#', '#( )+$#'), array('', '', '', '', '', ''), $param[0]);
}
break;
case 'CPF_VALUE':
if (isset($param[0])) {
if (is_numeric($param[0])) {
require_code('ocf_members');
$fields = ocf_get_custom_fields_member(isset($param[1]) ? intval($param[1]) : get_member());
if (array_key_exists(intval($param[0]), $fields)) {
$_value = $fields[intval($param[0])];
}
} elseif (substr($param[0], 0, 2) == 'm_' && strpos(strtolower($param[0]), 'hash') === false && strpos(strtolower($param[0]), 'salt') === false) {
$_value = $GLOBALS['FORUM_DRIVER']->get_member_row_field(isset($param[1]) ? intval($param[1]) : get_member(), $param[0]);
} else {
$_value = get_ocp_cpf($param[0], isset($param[1]) ? intval($param[1]) : NULL);
}
if (!is_string($_value)) {
$value = is_null($_value) ? '' : strval($_value);
} else {
$value = $_value;
}
}
break;
case 'BANNER':
if (addon_installed('banners')) {
global $SITE_INFO;
$is_on_banners = get_option('is_on_banners') == '1' && (!has_specific_permission(get_member(), 'banner_free') || $GLOBALS['FORUM_DRIVER']->is_super_admin(get_member()) && get_option('admin_banners') == '1' || !is_null($GLOBALS['CURRENT_SHARE_USER']));
if (array_key_exists('throttle_bandwidth_registered', $SITE_INFO)) {
$views_till_now = intval(get_value('page_views'));
$bandwidth_allowed = $SITE_INFO['throttle_bandwidth_registered'];
$total_bandwidth = intval(get_value('download_bandwidth'));
if ($bandwidth_allowed * 1024 * 1024 >= $total_bandwidth) {
$is_on_banners = false;
}
}
if ($is_on_banners && !is_page_https(get_zone_name(), get_page_name())) {
require_code('banners');
$b_type = isset($param[0]) ? $param[0] : '';
$internal_only = isset($param[1]) ? intval($param[1]) : ($b_type == '' ? 0 : 1);
if (isset($GLOBALS['NON_CACHEABLE_SYMBOLS']['SET_RAND'])) {
$_value = banners_script(true, '', '', $b_type, $internal_only, '');
$value = $_value->evaluate();
} else {
$value = 'Banner goes here';
}
}
}
break;
case 'AVATAR':
$value = $GLOBALS['FORUM_DRIVER']->get_member_avatar_url(isset($param[0]) ? intval($param[0]) : get_member());
if (url_is_local($value) && $value != '') {
$value = get_custom_base_url() . '/' . $value;
}
break;
case 'IS_GUEST':
if (isset($param[0])) {
$value = is_guest(intval($param[0])) ? '1' : '0';
} else {
$value = is_guest() ? '1' : '0';
}
break;
case 'MEMBER':
$value = strval(get_member());
break;
case 'USER':
if (!isset($param[0])) {
$value = strval(get_member());
} else {
$member_id = $GLOBALS['FORUM_DRIVER']->get_member_from_username($param[0]);
$value = is_null($member_id) ? '' : strval($member_id);
}
break;
case 'CSS_INCLUDE':
if (isset($param[0])) {
require_css($param[0]);
/*// Has to do this inline, as you're not allowed to reference sheets outside head
if (!array_key_exists($param[0],$GLOBALS['CSSS']))
{
$GLOBALS['CSSS'][$param[0]]=1;
$file=css_enforce($param[0]);
$_value=do_template('CSS_NEED_INLINE',array('_GUID'=>'9de994d2f6d47a622d49347feb7ebe96','CSS'=>str_replace('../../../../',get_base_url().'/',file_get_contents($file,FILE_TEXT))));
$value=$_value->evaluate();
}*/
}
break;
case 'USER_OVERIDE':
$value = get_param('id', '');
if (!is_numeric($value) || $value == '') {
$value = strval(get_member());
}
break;
case 'IS_HTTPAUTH_LOGIN':
$value = is_httpauth_login() ? '1' : '0';
break;
case 'MEMBER_PROFILE_LINK':
$value = $GLOBALS['FORUM_DRIVER']->member_profile_url(!is_null($param) && isset($param[0]) ? intval($param[0]) : get_member(), false, true);
if (is_null($value)) {
$value = '';
}
break;
case 'USERNAME':
$value = $GLOBALS['FORUM_DRIVER']->get_username(!is_null($param) && isset($param[0]) ? intval($param[0]) : get_member());
if (is_null($value)) {
$value = do_lang('UNKNOWN');
}
break;
case 'CYCLE':
if (isset($param[0])) {
if (!isset($CYCLES[$param[0]])) {
$CYCLES[$param[0]] = 0;
}
if (!isset($param[1])) {
$value = strval($CYCLES[$param[0]]);
} else {
if (count($param) == 2) {
$param = array_merge(array($param[0]), explode(',', $param[1]));
}
++$CYCLES[$param[0]];
if (!array_key_exists($CYCLES[$param[0]], $param)) {
$CYCLES[$param[0]] = 1;
}
$value = $param[$CYCLES[$param[0]]];
}
}
break;
case 'THUMBNAIL':
require_code('images');
$value = _symbol_thumbnail($param);
break;
case 'IMAGE_WIDTH':
require_code('images');
list($value, ) = _symbol_image_dims($param);
break;
case 'IMAGE_HEIGHT':
require_code('images');
list(, $value) = _symbol_image_dims($param);
break;
case 'IS_IN_GROUP':
if (isset($param[0])) {
if (in_array($param[count($param) - 1], array('', 'primary', 'secondary'))) {
$last_param = $param[count($param) - 1];
unset($param[count($param) - 1]);
} else {
$last_param = '';
}
$member_id = get_member();
$new_param = '';
$param_2 = array();
foreach ($param as $group) {
if (substr($group, 0, 1) == '!' && is_numeric(substr($group, 1))) {
$member_id = intval(substr($group, 1));
} else {
$param_2 = array_merge($param_2, explode(',', $group));
}
}
foreach ($param_2 as $group) {
if ($new_param != '') {
$new_param .= ',';
}
$new_param .= $group;
}
if ($last_param == 'primary') {
$member_row = $GLOBALS['FORUM_DRIVER']->get_member_row($member_id);
$real_group_list = array($GLOBALS['FORUM_DRIVER']->pname_group($member_row));
} elseif ($last_param == 'secondary') {
$real_group_list = $GLOBALS['FORUM_DRIVER']->get_members_groups($member_id);
$member_row = $GLOBALS['FORUM_DRIVER']->get_member_row($member_id);
$real_group_list = array_diff($real_group_list, array($GLOBALS['FORUM_DRIVER']->pname_group($member_row)));
} else {
$real_group_list = $GLOBALS['FORUM_DRIVER']->get_members_groups($member_id);
}
require_code('ocfiltering');
$value = count(array_intersect(ocfilter_to_idlist_using_memory($new_param, $GLOBALS['FORUM_DRIVER']->get_usergroup_list()), $real_group_list)) != 0 ? '1' : '0';
}
break;
case 'IS_STAFF':
if (isset($GLOBALS['FORUM_DRIVER'])) {
$value = $GLOBALS['FORUM_DRIVER']->is_staff(!is_null($param) && isset($param[0]) ? intval($param[0]) : get_member()) ? '1' : '0';
} else {
$value = '0';
}
break;
case 'IS_SUPER_ADMIN':
if (isset($GLOBALS['FORUM_DRIVER'])) {
$value = $GLOBALS['FORUM_DRIVER']->is_super_admin(!is_null($param) && isset($param[0]) ? intval($param[0]) : get_member()) ? '1' : '0';
} else {
$value = '0';
}
break;
case 'PHOTO':
if (isset($param[0])) {
$value = $GLOBALS['FORUM_DRIVER']->get_member_photo_url(intval($param[0]));
if (url_is_local($value) && $value != '') {
$value = get_custom_base_url() . '/' . $value;
}
}
break;
case 'OCF_RANK_IMAGE':
if (addon_installed('ocf_forum')) {
require_code('ocf_groups');
$rank_images = new ocp_tempcode();
$member_id = isset($param[0]) ? intval($param[0]) : get_member();
$posters_groups = $GLOBALS['FORUM_DRIVER']->get_members_groups($member_id, true);
foreach ($posters_groups as $group) {
$rank_image = ocf_get_group_property($group, 'rank_image');
$group_leader = ocf_get_group_property($group, 'group_leader');
$group_name = ocf_get_group_name($group);
$rank_image_pri_only = ocf_get_group_property($group, 'rank_image_pri_only');
if ($rank_image != '' && ($rank_image_pri_only == 0 || $group == $GLOBALS['FORUM_DRIVER']->get_member_row_field($member_id, 'm_primary_group'))) {
$rank_images->attach(do_template('OCF_RANK_IMAGE', array('USERNAME' => $GLOBALS['FORUM_DRIVER']->get_username($member_id), 'GROUP_NAME' => $group_name, 'IMG' => $rank_image, 'IS_LEADER' => $group_leader == $member_id)));
}
}
$value = $rank_images->evaluate();
}
break;
case 'TOTAL_POINTS':
if (addon_installed('points')) {
require_code('points');
$value = strval(total_points(isset($param[0]) ? intval($param[0]) : get_member()));
}
break;
case 'POINTS_USED':
if (addon_installed('points')) {
require_code('points');
$value = strval(points_used(isset($param[0]) ? intval($param[0]) : get_member()));
}
break;
case 'AVAILABLE_POINTS':
if (addon_installed('points')) {
require_code('points');
$value = strval(available_points(isset($param[0]) ? intval($param[0]) : get_member()));
}
break;
case 'URL_FOR_GET_FORM':
if (isset($param[0])) {
$url_bits = parse_url($param[0]);
if (array_key_exists('scheme', $url_bits)) {
$value = $url_bits['scheme'] . '://' . (array_key_exists('host', $url_bits) ? $url_bits['host'] : 'localhost');
if (array_key_exists('port', $url_bits) && $url_bits['port'] != 80) {
$value .= ':' . strval($url_bits['port']);
}
}
if (array_key_exists('path', $url_bits)) {
$value .= $url_bits['path'];
}
}
break;
case 'HIDDENS_FOR_GET_FORM':
$_value = new ocp_tempcode();
$url_bits = parse_url($param[0]);
if (array_key_exists('query', $url_bits) && $url_bits['query'] != '') {
foreach (explode('&', $url_bits['query']) as $exp) {
$parts = explode('=', $exp, 2);
if (count($parts) == 2) {
if (!in_array($parts[0], $param)) {
$_value->attach(form_input_hidden($parts[0], urldecode($parts[1])));
}
}
}
}
$value = $_value->evaluate();
break;
case 'NOTIFICATIONS_ENABLED':
$value = '';
if (array_key_exists(0, $param)) {
require_code('notifications');
$value = notifications_enabled(array_key_exists(1, $param) ? $param[1] : get_page_name(), $param[0]) ? '1' : '0';
}
break;
case 'DOCUMENT_HELP':
global $DOCUMENT_HELP, $HELPER_PANEL_TUTORIAL;
$value = $DOCUMENT_HELP;
if ($value == '' && $HELPER_PANEL_TUTORIAL != '') {
$value = brand_base_url() . '/docs' . strval(ocp_version()) . '/pg/' . $HELPER_PANEL_TUTORIAL;
}
break;
case 'HTTP_STATUS_CODE':
global $HTTP_STATUS_CODE;
$value = $HTTP_STATUS_CODE;
break;
case 'TEMPCODE':
if (isset($param[0])) {
require_code('tempcode_compiler');
$_value = template_to_tempcode($param[0]);
$value = $_value->evaluate();
}
break;
case 'COMCODE':
if (isset($param[0])) {
$_value = comcode_to_tempcode($param[0], NULL, true);
$value = $_value->evaluate();
}
break;
case 'FLAGRANT':
$_value = get_flagrant();
$value = $_value->evaluate();
break;
case 'IMG_WIDTH':
case 'IMG_HEIGHT':
if (isset($param[0]) && isset($GLOBALS['SITE_DB']) && function_exists('find_theme_image') && $GLOBALS['IN_MINIKERNEL_VERSION'] == 0) {
global $THEME_IMG_DIMS_CACHE;
if (!isset($THEME_IMG_DIMS_CACHE)) {
$THEME_IMG_DIMS_CACHE = function_exists('persistant_cache_get') ? persistant_cache_get('THEME_IMG_DIMS') : array();
}
if (isset($THEME_IMG_DIMS_CACHE[$param[0]])) {
list($width, $height) = $THEME_IMG_DIMS_CACHE[$param[0]];
$value = $name == 'IMG_WIDTH' ? $width : $height;
} else {
if (strpos($param[0], '://') === false) {
$img_url = find_theme_image($param[0], false, false, array_key_exists(2, $param) ? $param[2] : NULL, NULL, isset($param[1]) && $param[1] == '1' ? $GLOBALS['FORUM_DB'] : $GLOBALS['SITE_DB']);
} else {
$img_url = $param[0];
}
require_code('images');
list($width, $height) = _symbol_image_dims(array($img_url));
$value = $name == 'IMG_WIDTH' ? $width : $height;
$THEME_IMG_DIMS_CACHE[$param[0]] = array($width, $height);
if (function_exists('persistant_cache_set')) {
persistant_cache_set('THEME_IMG_DIMS', $THEME_IMG_DIMS_CACHE);
}
}
}
break;
case 'CLEAN_FILE_SIZE':
if (isset($param[0])) {
$bytes = is_numeric($param[0]) ? intval($param[0]) : NULL;
require_code('files');
$value = clean_file_size($bytes);
}
break;
case 'TIME_PERIOD':
if (isset($param[0])) {
$value = display_time_period(intval($param[0]));
}
break;
case 'MAKE_RELATIVE_DATE':
if (isset($param[0])) {
if (get_option('use_contextual_dates') == '0' && (!array_key_exists(1, $param) || $param[1] != '1')) {
$value = get_timezoned_date(intval($param[0]));
} else {
$value = display_time_period(time() - intval($param[0]));
}
}
break;
case 'TIMEZONE':
$value = make_nice_timezone_name(get_site_timezone());
break;
case 'LOAD_PAGE':
foreach ($param as $i => $p) {
if (is_object($p)) {
$param[$i] = $p->evaluate();
}
}
global $LOADED_PAGES;
if (strpos($param[0], ':') !== false) {
$param = array_reverse(explode(':', $param[0], 2));
}
$_value = $LOADED_PAGES[serialize($param)];
$value = $_value->evaluate();
break;
case 'RUNNING_SCRIPT':
if (isset($param[0])) {
$value = running_script($param[0]) ? '1' : '0';
}
break;
case 'MATCH_KEY_MATCH':
$value = '0';
foreach ($param as $match_key) {
if ($match_key == '1' || $match_key == '0' || $match_key == '') {
continue;
}
if (match_key_match($match_key, isset($param[1]) && $match_key == '1')) {
$value = '1';
}
}
break;
case 'VERSION':
$value = strval(ocp_version());
break;
case 'PREVIEW_VALIDATION':
$value = get_option('is_on_preview_validation') == '1' ? '1' : '0';
break;
case 'BLOCK':
if (isset($GLOBALS['NON_CACHEABLE_SYMBOLS']['SET_RAND'])) {
foreach ($param as $i => $p) {
if (is_object($p)) {
$param[$i] = $p->evaluate();
}
}
if (count($param) == 1 && strpos($param[0], ',') !== false) {
$param = preg_split('#((?<!\\\\)|(?<=\\\\\\\\)|(?<=^)),#', $param[0]);
foreach ($param as $key => $val) {
$param[$key] = str_replace('\\,', ',', $val);
}
}
global $LOADED_BLOCKS;
if (isset($LOADED_BLOCKS[serialize($param)])) {
// Will always be set
$value = $LOADED_BLOCKS[serialize($param)]->evaluate();
}
}
break;
case 'CURRENCY':
if (addon_installed('ecommerce')) {
if (isset($param[0])) {
require_code('currency');
$value = currency_convert(floatval(str_replace(',', '', $param[0])), isset($param[1]) && $param[1] != '' ? $param[1] : get_option('currency'), isset($param[2]) && $param[2] != '' ? $param[2] : NULL, isset($param[3]) && $param[3] == '1');
if (is_null($value)) {
$value = do_lang('INTERNAL_ERROR');
}
} else {
$value = get_option('currency');
}
}
break;
case 'CURRENCY_SYMBOL':
if (addon_installed('ecommerce')) {
require_code('ecommerce');
$value = ecommerce_get_currency_symbol();
}
break;
case 'GEOLOCATE':
$value = geolocate_ip(isset($param[0]) ? $param[0] : NULL);
break;
case 'NO_SAFE_MODE':
$value = str_replace(array('on', 'true', 'yes'), array('1', '1', '1'), strtolower(ini_get('safe_mode'))) == '1' ? '0' : '1';
break;
case 'FORCE_PREVIEWS':
if (get_option('forced_preview_option') == '1') {
if (get_forum_type() == 'ocf') {
if (is_guest() && get_option('default_preview_guests') == '0') {
$value = '0';
} else {
$value = $GLOBALS['FORUM_DRIVER']->get_member_row_field(get_member(), 'm_preview_posts') == 1 ? '1' : '0';
}
} else {
$value = get_option('default_preview_guests') == '0' ? '0' : '1';
}
} else {
$value = '0';
}
break;
case 'PREVIEW_URL':
$value = find_script('preview');
$value .= '?page=' . get_page_name();
$value .= '&type=' . get_param('type', '', true);
break;
case 'ADDON_INSTALLED':
if (isset($param[0]) && !running_script('install')) {
$value = addon_installed($param[0]) ? '1' : '0';
}
break;
case 'VALUE_OPTION':
if (isset($param[0])) {
$value = function_exists('get_value') ? get_value($param[0]) : '';
if (is_null($value)) {
$value = function_exists('get_long_value') ? get_long_value($param[0]) : '';
if (is_null($value)) {
$value = isset($param[1]) ? $param[1] : '';
if ($param[0] == 'textmate' && (ocp_srv('HTTP_HOST') == 'localhost' && strpos(ocp_srv('HTTP_USER_AGENT'), 'Macintosh') !== false)) {
$value = '1';
}
}
}
}
break;
case 'KEEP_INDEX':
// What needs preserving in the URL
$value = 'index.php';
if (count($_GET) > 0) {
foreach ($_GET as $key => $val) {
if (is_array($val)) {
continue;
}
if (get_magic_quotes_gpc()) {
$val = stripslashes($val);
}
if (substr($key, 0, 5) == 'keep_' && !skippable_keep($key, $val) && strpos($key, '_expand_') === false) {
$value .= ($value == 'index.php' ? '?' : '&') . urlencode($key) . '=' . ocp_url_encode($val);
}
}
}
break;
case 'HIDE_HELP_PANEL':
$value = array_key_exists('hide_help_panel', $_COOKIE) && $_COOKIE['hide_help_panel'] == '1' ? '1' : '0';
break;
case 'URLISE_LANG':
if (isset($param[1])) {
$_value = urlise_lang($param[0], $param[1], isset($param[2]) ? $param[2] : '', isset($param[3]) ? $param[3] == '1' : false);
$value = $_value->evaluate();
}
break;
case 'FIND_SCRIPT_NOHTTP':
if (isset($param[0]) && function_exists('find_script')) {
$value = preg_replace('#^https?://[^/]+#', '', find_script($param[0], false, isset($param[1]) ? intval($param[1]) : 0));
}
if (!$GLOBALS['DEBUG_MODE']) {
break;
}
// Debug mode changes base domain so we need to actually use it in full (fine, we don't have HTTPS in debug mode). Bubble on...
// Debug mode changes base domain so we need to actually use it in full (fine, we don't have HTTPS in debug mode). Bubble on...
case 'FIND_SCRIPT':
if (isset($param[0]) && function_exists('find_script')) {
$value = find_script($param[0], false, isset($param[1]) ? intval($param[1]) : 0);
}
break;
case 'MOBILE':
$value = is_mobile(NULL, array_key_exists(0, $param) ? $param[0] == '1' : false) ? '1' : '0';
break;
case 'VALID_FILE_TYPES':
$value = get_option('valid_types');
$types = array_flip(explode(',', $value));
$value = '';
ksort($types);
foreach (array_flip($types) as $val) {
$value .= $val . ',';
}
$value = substr($value, 0, strlen($value) - 1);
break;
case 'BROWSER_UA':
$browser = get_browser_string();
$value = $browser;
break;
case 'OS':
$os = get_os_string();
if (is_null($os)) {
$os = '';
}
$value = $os;
break;
case 'ANCHOR':
if (isset($param[0])) {
$_value = do_template('ANCHOR', array('_GUID' => '8795c70c9dd7c6217bb765264ac24092', 'NAME' => $param[0]));
$value = $_value->evaluate();
}
break;
case 'CSS_TEMPCODE':
$_value = css_tempcode();
$value = $_value->evaluate();
break;
case 'JS_TEMPCODE':
$_value = javascript_tempcode(isset($param[0]) ? $param[0] : NULL);
$value = $_value->evaluate();
break;
case 'PAD_LEFT':
if (array_key_exists(1, $param)) {
$value = str_pad($param[0], intval($param[1]), array_key_exists(2, $param) ? $param[2] : '', STR_PAD_LEFT);
}
break;
case 'PAD_RIGHT':
if (array_key_exists(1, $param)) {
$value = str_pad($param[0], intval($param[1]), array_key_exists(2, $param) ? $param[2] : '', STR_PAD_RIGHT);
}
break;
case 'PAGE_TITLE':
$value = is_null($DISPLAYED_TITLE) ? '' : $DISPLAYED_TITLE->evaluate();
break;
case 'SET_TITLE':
if (array_key_exists(0, $param)) {
get_page_title($param[0], false);
}
break;
case 'EXTRA_HEAD':
$_value = $GLOBALS['EXTRA_HEAD'];
if ($_value === NULL) {
$_value = new ocp_tempcode();
}
$value = $_value->evaluate();
break;
case 'EXTRA_FOOT':
if ($GLOBALS['EXTRA_FOOT'] === NULL) {
$GLOBALS['EXTRA_FOOT'] = new ocp_tempcode();
}
$_value = $GLOBALS['EXTRA_FOOT'];
if (array_key_exists(0, $param)) {
$GLOBALS['EXTRA_FOOT']->attach($param[0]);
} else {
$value = $_value->evaluate();
}
break;
case 'RAND':
if (isset($GLOBALS['NON_CACHEABLE_SYMBOLS']['RAND'])) {
$GLOBALS['NO_EVAL_CACHE'] = true;
$value = strval(mt_rand(0, 32000));
} else {
$value = '4';
}
break;
case 'SET_RAND':
if (isset($param[0])) {
if (isset($GLOBALS['NON_CACHEABLE_SYMBOLS']['SET_RAND'])) {
$GLOBALS['NO_EVAL_CACHE'] = true;
$value = $param[mt_rand(0, count($param) - 1)];
} else {
$value = $param[0];
}
}
break;
case 'COPYRIGHT':
$value = str_replace('$CURRENT_YEAR', date('Y'), get_option('copyright'));
break;
case 'KEYWORDS_SPACED':
$value = str_replace(',', ' ', get_option('keywords'));
break;
case 'STAFF_ADDRESS_PURE':
$value = get_option('staff_address');
break;
case 'STAFF_ADDRESS':
require_code('obfuscate');
$value = obfuscate_email_address(get_option('staff_address'));
break;
case 'DOMAIN':
$value = get_domain();
break;
case 'BRAND_NAME':
$value = function_exists('get_value') ? get_value('rebrand_name') : NULL;
if (is_null($value)) {
$value = 'ocPortal';
}
break;
case 'BRAND_BASE_URL':
$value = brand_base_url();
break;
case 'SHOW_DOCS':
$value = get_option('show_docs') === '0' ? '0' : '1';
break;
case 'MEMBER_EMAIL':
$value = $GLOBALS['FORUM_DRIVER']->get_member_email_address(isset($param[0]) ? intval($param[0]) : get_member());
break;
case 'OCF_MEMBER_HTML':
if (get_forum_type() == 'ocf') {
require_code('ocf_members');
require_code('ocf_members2');
$_value = ocf_show_member_box(isset($param[0]) ? intval($param[0]) : get_member());
$value = $_value->evaluate();
}
break;
case 'HAS_SPECIFIC_PERMISSION':
if (isset($param[0])) {
$value = has_specific_permission(!is_null($param) && isset($param[1]) ? intval($param[1]) : get_member(), $param[0]) ? '1' : '0';
}
break;
case 'HAS_ZONE_ACCESS':
if (isset($param[0])) {
$value = has_zone_access(!is_null($param) && isset($param[1]) ? intval($param[1]) : get_member(), $param[0]) ? '1' : '0';
}
break;
case 'HAS_PAGE_ACCESS':
if (isset($param[0]) && isset($param[1])) {
$value = has_page_access(!is_null($param) && isset($param[2]) ? intval($param[2]) : get_member(), $param[0], $param[1], !is_null($param) && isset($param[3]) ? $param[3] == '1' : false) ? '1' : '0';
}
break;
case 'HAS_CATEGORY_ACCESS':
if (isset($param[0])) {
$value = has_category_access(!is_null($param) && isset($param[2]) ? intval($param[2]) : get_member(), $param[0], $param[1]) ? '1' : '0';
}
break;
case 'HAS_ATTACHMENT_ACCESS':
if (isset($param[0])) {
require_code('attachments');
$value = has_attachment_access(!is_null($param) && isset($param[1]) ? intval($param[1]) : get_member(), $param[0]) ? '1' : '0';
}
break;
case 'HAS_SUBMIT_PERMISSION':
if (isset($param[0]) && (strtolower($param[0]) == 'low' || strtolower($param[0]) == 'mid' || strtolower($param[0]) == 'high')) {
$value = has_submit_permission(strtolower($param[0]), !is_null($param) && isset($param[1]) ? intval($param[1]) : get_member(), !is_null($param) && isset($param[2]) ? $param[2] : get_ip_address(), !is_null($param) && isset($param[3]) ? $param[3] : get_page_name()) ? '1' : '0';
}
break;
case 'HAS_DELETE_PERMISSION':
if (isset($param[0]) && (strtolower($param[0]) == 'low' || strtolower($param[0]) == 'mid' || strtolower($param[0]) == 'high') && isset($param[1])) {
$value = has_delete_permission(strtolower($param[0]), !is_null($param) && isset($param[2]) ? intval($param[2]) : get_member(), intval($param[1]), !is_null($param) && isset($param[3]) ? $param[3] : get_page_name()) ? '1' : '0';
}
break;
case 'HAS_EDIT_PERMISSION':
if (isset($param[0]) && (strtolower($param[0]) == 'low' || strtolower($param[0]) == 'mid' || strtolower($param[0]) == 'high') && isset($param[1])) {
$value = has_edit_permission(strtolower($param[0]), !is_null($param) && isset($param[2]) ? intval($param[2]) : get_member(), intval($param[1]), !is_null($param) && isset($param[3]) ? $param[3] : get_page_name()) ? '1' : '0';
}
break;
case 'ENTITY_DECODE':
if (isset($param[0])) {
$value = @html_entity_decode($param[0], ENT_QUOTES, get_charset());
}
break;
case 'RESET_CYCLE':
if (isset($param[0])) {
$CYCLES[$param[0]] = 0;
}
break;
case 'SITE_SCOPE':
$value = get_option('site_scope');
break;
case 'LAST_VISIT_TIME':
if (get_forum_type() == 'ocf') {
$member_info = ocf_read_in_member_profile(get_member(), true);
$value = strval($member_info['last_visit_time']);
}
break;
case 'NUM_NEW_TOPICS':
if (get_forum_type() == 'ocf') {
$member_info = ocf_read_in_member_profile(get_member(), true);
$_new_topics = $GLOBALS['FORUM_DB']->query('SELECT COUNT(*) AS mycnt FROM ' . $GLOBALS['FORUM_DB']->get_table_prefix() . 'f_topics WHERE NOT t_forum_id IS NULL AND t_cache_first_time>' . strval((int) $member_info['last_visit_time']));
$new_topics = $_new_topics[0]['mycnt'];
$value = strval($new_topics);
}
break;
case 'NUM_NEW_POSTS':
if (get_forum_type() == 'ocf') {
$member_info = ocf_read_in_member_profile(get_member(), true);
$_new_posts = $GLOBALS['FORUM_DB']->query('SELECT COUNT(*) AS mycnt FROM ' . $GLOBALS['FORUM_DB']->get_table_prefix() . 'f_posts WHERE NOT p_cache_forum_id IS NULL AND p_time>' . strval((int) $member_info['last_visit_time']));
$new_posts = $_new_posts[0]['mycnt'];
$value = strval($new_posts);
}
break;
case 'HAS_FORUM':
$value = has_no_forum() ? '0' : '1';
break;
case 'OCF':
$value = get_forum_type() == 'ocf' ? '1' : '0';
break;
case 'BOARD_PREFIX':
$value = get_forum_base_url();
break;
case 'DATE_AND_TIME':
$use_contextual_dates = isset($param[0]) && $param[0] == '1';
$verbose = isset($param[1]) && $param[1] == '1';
$server_time = isset($param[2]) && $param[2] == '1';
$time = isset($param[3]) ? intval($param[3]) : time();
$value = get_timezoned_date($time, true, $verbose, $server_time, !$use_contextual_dates);
break;
case 'DATE':
$use_contextual_dates = isset($param[0]) && $param[0] == '1';
$verbose = isset($param[1]) && $param[1] == '1';
$server_time = isset($param[2]) && $param[2] == '1';
$time = isset($param[3]) ? intval($param[3]) : time();
$value = get_timezoned_date($time, false, $verbose, $server_time, !$use_contextual_dates);
break;
case 'TIME':
$time = isset($param[0]) ? intval($param[0]) : time();
$value = get_timezoned_time($time);
break;
case 'SECONDS_PERIOD':
if (array_key_exists(0, $param)) {
$value = display_seconds_period(intval($param[0]));
}
break;
case 'FROM_TIMESTAMP':
if (isset($param[0])) {
$timestamp = isset($param[1]) ? intval($param[1]) : time();
if (!array_key_exists(2, $param) || $param[2] == '1') {
$timestamp = utctime_to_usertime($timestamp);
}
$value = locale_filter(my_strftime($param[0], $timestamp));
if ($value == $param[0]) {
// If no conversion happened then the syntax must have been for 'date' not 'strftime'
$value = date($param[0], $timestamp);
}
} else {
$timestamp = time();
$value = strval($timestamp);
}
break;
case 'TO_TIMESTAMP':
if (isset($param[0])) {
$value = strval(strtotime($param[0]));
if (array_key_exists(1, $param) && $param[1] == '1') {
$value = strval(usertime_to_utctime(intval($value)));
}
// '1' means date was in user-time so needs converting to a UTC timestamp
} else {
$value = strval(time());
}
break;
case 'SESSION_HASHED':
$value = md5(strval(get_session_id()));
break;
case 'SESSION':
$value = strval(get_session_id());
break;
case 'IN_ARRAY':
if (isset($param[1])) {
$array = array_slice($param, 1);
$value = in_array($param[0], $array) ? '1' : '0';
}
break;
case 'MULT':
if (isset($param[1])) {
$value = float_to_raw_string(floatval($param[0]) * floatval($param[1]), 2, true);
}
break;
case 'ROUND':
if (isset($param[0])) {
$amount = isset($param[1]) ? intval($param[1]) : 0;
if ($amount > 0) {
$value = float_format(floatval($param[0]), $amount);
} else {
$value = strval(intval(round(floatval($param[0]), $amount)));
}
}
break;
case 'DEV_MODE':
$value = $GLOBALS['DEBUG_MODE'] ? '1' : '0';
break;
case 'BROWSER_MATCHES':
if (isset($param[0])) {
$q = false;
foreach (explode('|', $param[0]) as $browser) {
$q = browser_matches($browser);
if ($q) {
break;
}
}
$value = $q ? '1' : '0';
}
break;
case 'ISSET':
if (isset($param[0])) {
$value = isset($TEMPCODE_SETGET[$param[0]]) ? '1' : '0';
}
break;
case 'INIT':
if (isset($param[1])) {
if (!isset($TEMPCODE_SETGET[$param[0]])) {
$TEMPCODE_SETGET[$param[0]] = $param[1];
}
}
break;
case 'INC':
if (isset($param[0])) {
if (!isset($TEMPCODE_SETGET[$param[0]])) {
$TEMPCODE_SETGET[$param[0]] = '0';
}
$TEMPCODE_SETGET[$param[0]] = strval(intval($TEMPCODE_SETGET[$param[0]]) + 1);
}
break;
case 'DEC':
if (isset($param[0])) {
if (!isset($TEMPCODE_SETGET[$param[0]])) {
$TEMPCODE_SETGET[$param[0]] = '0';
}
$TEMPCODE_SETGET[$param[0]] = strval(intval($TEMPCODE_SETGET[$param[0]]) - 1);
}
break;
case 'PREG_MATCH':
if (isset($param[1])) {
$value = preg_match('#' . str_replace('#', '\\#', $param[0]) . '#' . (isset($param[2]) ? str_replace('e', '', $param[2]) : ''), $param[1]) != 0 ? '1' : '0';
}
break;
case 'PREG_REPLACE':
if (isset($param[2])) {
$value = preg_replace('#' . str_replace('#', '\\#', $param[0]) . '#' . (isset($param[3]) ? str_replace('e', '', $param[3]) : ''), $param[1], $param[2]);
}
break;
case 'MAX':
if (isset($param[0])) {
$value = strval(max(intval($param[0]), intval($param[1])));
}
break;
case 'MIN':
if (isset($param[0])) {
$value = strval(min(intval($param[0]), intval($param[1])));
}
break;
case 'MOD':
if (isset($param[0])) {
$value = strval(max(intval($param[0]), -intval($param[0])));
}
break;
case 'REM':
if (isset($param[1])) {
$value = strval(intval($param[0]) % intval($param[1]));
}
break;
case 'DIV_FLOAT':
if (isset($param[1])) {
$value = float_to_raw_string(floatval($param[0]) / floatval($param[1]), 2, true);
}
break;
case 'DIV':
if (isset($param[1])) {
$value = strval(intval(floor(floatval($param[0]) / floatval($param[1]))));
}
break;
case 'SUBTRACT':
if (isset($param[1])) {
$value = float_to_raw_string(floatval(str_replace(',', '', $param[0])) - floatval(str_replace(',', '', $param[1])), 2, true);
}
break;
case 'ADD':
if (isset($param[1])) {
$value = float_to_raw_string(floatval(str_replace(',', '', $param[0])) + floatval(str_replace(',', '', $param[1])), 2, true);
}
break;
case 'WCASE':
if (isset($param[0])) {
$value = ucwords($param[0]);
}
break;
case 'LCASE':
if (isset($param[0])) {
$value = ocp_mb_strtolower($param[0]);
}
break;
case 'UCASE':
if (isset($param[0])) {
$value = ocp_mb_strtoupper($param[0]);
}
break;
case '_POST':
if (isset($param[0])) {
$value = post_param($param[0], isset($param[1]) ? $param[1] : '');
}
break;
case 'REPLACE':
if (isset($param[2])) {
$value = str_replace($param[0], $param[1], $param[2]);
if ($GLOBALS['XSS_DETECT'] && ocp_is_escaped($param[0])) {
ocp_mark_as_escaped($value);
}
}
break;
case 'AT':
if (isset($param[1])) {
$value = ocp_mb_substr($param[0], intval($param[1]), 1);
}
break;
case 'STRPOS':
if (isset($param[1])) {
$t_value = strpos($param[0], $param[1]);
$value = $t_value === false ? '0' : strval($t_value);
}
break;
case 'IN_STR':
if (isset($param[1])) {
if ($param[1] == '') {
$value = '0';
} else {
$value = '0';
foreach ($param as $i => $check) {
if (is_integer($i) && $i != 0 && $check != '') {
if (strpos($param[0], $check) !== false) {
$value = '1';
break;
}
}
}
}
}
break;
case 'SUBSTR_COUNT':
if (isset($param[1])) {
$value = strval(substr_count($param[0], $param[1]));
}
break;
case 'SUBSTR':
if (isset($param[1])) {
$value = ocp_mb_substr($param[0], intval($param[1]), isset($param[2]) ? intval($param[2]) : strlen($param[0]));
}
break;
case 'LENGTH':
if (isset($param[0])) {
$value = strval(ocp_mb_strlen($param[0]));
}
break;
case 'WORDWRAP':
if (isset($param[1])) {
$cut = isset($param[3]) && $param[3] == '1';
$value = wordwrap($param[0], intval($param[1]), isset($param[2]) ? $param[2] : '<br />', $cut);
if ($GLOBALS['XSS_DETECT'] && ocp_is_escaped($param[0])) {
ocp_mark_as_escaped($value);
}
}
break;
case 'ALTERNATOR_TRUNCATED':
// Alternate values according to whether some given text WOULD have been truncated. 0: text to check against, 1: the truncate length, 2:IF would not be do this, 3: if it would be do this, 4: whether given text is encoded as HTML (0=no [default, plain-text], 1=yes)
if (isset($param[3])) {
$amount = intval($param[1]);
$is_html = isset($param[4]) && $param[4] == '1';
if (strlen($is_html ? strip_tags($param[0]) : $param[0]) > $amount) {
$value = $param[3];
} else {
$value = $param[2];
}
}
break;
case 'ESCAPE':
if (isset($param[0])) {
$d_escaping = array(isset($param[1]) ? constant($param[1]) : ENTITY_ESCAPED);
if (is_string($param[0])) {
apply_tempcode_escaping($d_escaping, $param[0]);
}
$value = $param[0];
}
break;
case 'COOKIE_PATH':
$value = function_exists('get_cookie_path') ? get_cookie_path() : '/';
break;
case 'COOKIE_DOMAIN':
$s_value = function_exists('get_cookie_domain') ? get_cookie_domain() : '';
$value = is_null($s_value) ? '' : $s_value;
break;
case 'IS_A_COOKIE_LOGIN':
global $IS_A_COOKIE_LOGIN;
$value = $IS_A_COOKIE_LOGIN && ini_get('suhosin.cookie.max_name_length') !== '64' ? '1' : '0';
break;
case 'GROUP_ID':
if (isset($param[0])) {
$groups = $GLOBALS['FORUM_DRIVER']->get_members_groups(isset($param[1]) ? intval($param[1]) : get_member());
$value = array_key_exists(intval($param[0]), $groups) ? strval($groups[intval($param[0])]) : '';
}
break;
case 'GROUP_NAME':
if (isset($param[0])) {
$groups = $GLOBALS['FORUM_DRIVER']->get_members_groups(isset($param[1]) ? intval($param[1]) : get_member());
if (array_key_exists(intval($param[0]), $groups)) {
$all_usergroups = $GLOBALS['FORUM_DRIVER']->get_usergroup_list();
$value = $all_usergroups[$groups[intval($param[0])]];
}
if ($GLOBALS['XSS_DETECT'] && ocp_is_escaped($param[0])) {
ocp_mark_as_escaped($value);
}
}
break;
case 'NEGATE':
if (isset($param[0])) {
$value = strval(-intval($param[0]));
}
break;
case 'XOR':
$count = 0;
foreach ($param as $test) {
if ($test == '1' || $test == '1') {
$count++;
}
}
$value = $count == 1 ? '1' : '0';
break;
case 'NOR':
$count = 0;
foreach ($param as $test) {
if ($test == '1' || $test == '1') {
$count++;
}
}
$value = $count > 0 ? '0' : '1';
break;
case 'NAND':
$count = 0;
foreach ($param as $test) {
if ($test == '1' || $test == '1') {
$count++;
}
}
$value = $count == count($param) ? '0' : '1';
break;
case 'LT':
if (isset($param[1])) {
$value = intval($param[0]) < intval($param[1]) ? '1' : '0';
}
break;
case 'GT':
if (isset($param[1])) {
$value = intval($param[0]) > intval($param[1]) ? '1' : '0';
}
break;
case 'COPPA_ON':
$value = get_option('is_on_coppa') == '1' ? '1' : '0';
break;
case 'OBFUSCATE':
if (isset($param[0])) {
require_code('obfuscate');
$value = obfuscate_entities($param[0]);
}
break;
case 'FIX_ID':
if (isset($param[0])) {
$value = fix_id($param[0]);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($value);
}
}
break;
case 'MAILTO':
require_code('obfuscate');
$value = mailto_obfuscated();
break;
case 'INLINE_STATS':
$value = get_option('show_inline_stats') == '1' ? '1' : '0';
break;
case 'ATTACHMENT_DOWNLOADS':
if (isset($param[0])) {
$db = $GLOBALS['SITE_DB'];
if (isset($param[1]) && $param[1] == '1') {
$db = $GLOBALS['FORUM_DB'];
}
$_value = $db->query_value_null_ok('attachments', 'a_num_downloads', array('id' => intval($param[0])));
$value = is_null($_value) ? '?' : strval($_value);
}
break;
case 'CSS_DIMENSION_REDUCE':
if (isset($param[1])) {
$value = $param[0];
if (substr($value, -2) == 'px') {
$b = $param[1];
$value = strval(intval(substr($value, 0, -2)) - intval($b)) . 'px';
}
if ($value == '') {
$value = '0px';
}
}
break;
case 'COMMENT_COUNT':
if (isset($param[1])) {
if (get_option('is_on_comments') == '1') {
$count = 0;
$_comments = $GLOBALS['FORUM_DRIVER']->get_forum_topic_posts($GLOBALS['FORUM_DRIVER']->find_topic_id_for_topic_identifier(get_option('comments_forum_name'), $param[0] . '_' . $param[1]), $count, 0, 0, false);
$_value = do_lang_tempcode('_COMMENTS', integer_format(0));
if (is_array($_comments)) {
$_value = do_lang_tempcode('_COMMENTS', escape_html(integer_format($count)));
}
$value = $_value->evaluate();
} else {
$value = do_lang('VIEW');
}
}
break;
case 'CAN_SPELLCHECK':
$value = function_exists('pspell_check') ? '1' : '0';
break;
case 'AWARD_ID':
if (array_key_exists(0, $param)) {
$value = $GLOBALS['SITE_DB']->query_value_null_ok('award_archive', 'content_id', array('a_type_id' => intval($param[0])), 'ORDER BY date_and_time DESC');
if (is_null($value)) {
$value = '';
}
}
break;
case 'SELF_PAGE_LINK':
$value = '';
if (running_script('index') || running_script('iframe')) {
$value = get_zone_name() . ':' . get_page_name();
foreach ($_GET as $key => $val) {
if ($key == 'page') {
continue;
}
if (is_array($val)) {
continue;
}
if (substr($key, 0, 5) == 'keep_') {
continue;
}
$value .= ':' . $key . '=' . $val;
}
}
break;
case 'SET_TUTORIAL_LINK':
$value = '';
if (array_key_exists(1, $param) && $param[1] != '' && $param[1][0] != '#') {
set_tutorial_link($param[0], $param[1]);
}
break;
case 'DISPLAY_CONCEPT':
$value = '';
if (array_key_exists(0, $param)) {
$key = $param[0];
$page_link = get_tutorial_link('concept___' . preg_replace('#[^\\w_]#', '_', $key));
if (is_null($page_link)) {
$temp_tpl = make_string_tempcode($key);
} else {
list($zone, $attributes, $hash) = page_link_decode($page_link);
$_url = build_url($attributes, $zone, NULL, false, false, false, $hash);
$temp_tpl = do_template('COMCODE_CONCEPT', array('_GUID' => 'ee0cd05f87329923f05145180004d8a8', 'TEXT' => $key, 'URL' => $_url));
}
$value = $temp_tpl->evaluate();
}
break;
case 'SELF_URL':
$extra_params = NULL;
if (isset($param[3])) {
$extra_params = array();
$i = 3;
while (isset($param[$i])) {
$bits = explode('=', $param[$i], 2);
if ($bits[1] == '<null>') {
$bits[1] = NULL;
}
$extra_params[$bits[0]] = $bits[1];
$i++;
}
}
$value = get_self_url(true, isset($param[0]) && $param[0] == '1', $extra_params, isset($param[1]) && $param[1] == '1', isset($param[2]) && $param[2] == '1');
break;
case 'SHIFT_DECODE':
if (isset($param[0])) {
global $SHIFT_VARIABLES;
$key = $param[0];
$value = isset($SHIFT_VARIABLES[$key]) ? $SHIFT_VARIABLES[$key]->evaluate() : '';
}
break;
case 'NUMBER_FORMAT':
if (isset($param[0])) {
$value = integer_format(intval($param[0]));
}
break;
case 'FLOAT_FORMAT':
if (isset($param[0])) {
$value = float_format(floatval($param[0]));
}
break;
case 'CURRENTLY_INVISIBLE':
$value = is_invisible() ? '1' : '0';
break;
case 'IS_FRIEND':
if (isset($param[0])) {
$test = $GLOBALS['SITE_DB']->query_value_null_ok('chat_buddies', 'member_likes', array('member_likes' => isset($param[1]) ? intval($param[1]) : get_member(), 'member_liked' => intval($param[0])));
$value = is_null($test) ? '0' : '1';
}
break;
case 'SSW':
$value = get_option('ssw') == '1' ? '1' : '0';
break;
case 'RATING':
if (isset($param[1])) {
require_code('feedback');
$rating = get_rating_simple_array(array_key_exists(3, $param) ? $param[3] : get_self_url(true), array_key_exists(4, $param) ? $param[4] : (is_null($DISPLAYED_TITLE) ? '' : $DISPLAYED_TITLE->evaluate()), $param[0], $param[1], array_key_exists(5, $param) ? $param[5] : 'RATING_FORM', array_key_exists(2, $param) ? $param[2] : NULL);
if ($rating !== NULL) {
if (!array_key_exists(2, $param) || $param[2] == '0') {
$value = isset($rating['ALL_RATING_CRITERIA'][0]['RATING']) ? $rating['ALL_RATING_CRITERIA'][0]['RATING'] : '';
} else {
$value = do_template('RATING_INLINE_STATIC', $rating);
}
if (is_object($value)) {
$value = $value->evaluate();
}
}
}
break;
case 'VIEWS':
if (isset($param[2])) {
$id_field = 'id';
// Not allowed for security reasons
if (preg_match('#^\\w*views\\w*$#', $param[1]) != 0) {
$test = $GLOBALS['SITE_DB']->query_value_null_ok($param[0], $param[1], array($id_field => $param[2]));
if (!is_null($test)) {
$value = integer_format($test);
}
}
}
break;
default:
global $EXTRA_SYMBOLS;
if (is_null($EXTRA_SYMBOLS)) {
$EXTRA_SYMBOLS = array();
$hooks = find_all_hooks('systems', 'symbols');
foreach (array_keys($hooks) as $hook) {
$EXTRA_SYMBOLS[$hook] = array();
}
}
if (array_key_exists($name, $EXTRA_SYMBOLS)) {
if (!array_key_exists('ob', $EXTRA_SYMBOLS[$name])) {
require_code('hooks/systems/symbols/' . filter_naughty_harsh($name));
$EXTRA_SYMBOLS[$name]['ob'] = object_factory('Hook_symbol_' . filter_naughty_harsh($name));
}
$value = $EXTRA_SYMBOLS[$name]['ob']->run($param);
break;
}
if (defined($name)) {
$value = @strval(constant($name));
break;
}
$value = '';
require_code('site');
attach_message(do_lang_tempcode('MISSING_SYMBOL', escape_html($name)), 'warn');
}
if ($escaped != array()) {
if (is_object($value)) {
$value = $value->evaluate();
}
apply_tempcode_escaping($escaped, $value);
}
if ($cacheable) {
$SYMBOL_CACHE[$escaped_codes] = $value;
}
return $value;
}
// Is it a directive?
if ($type == TC_DIRECTIVE) {
$value = '';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($value);
}
// In our param we should have a map of bubbled template parameters (under 'vars') and our numbered directive parameters
if ($param === NULL) {
$param = array();
}
// Closure-based Tempcode parser may send in strings, so we need to adapt...
foreach ($param as $key => $val) {
if (is_string($val)) {
$param[$key] = make_string_tempcode($val);
}
}
if (!isset($param['vars'])) {
$param['vars'] = array();
}
switch ($name) {
case 'SHIFT_ENCODE':
break;
case 'PARAM_INFO':
$_value = do_template('PARAM_INFO', array('MAP' => $param['vars']));
$value = $_value->evaluate();
break;
case 'CSS_INHERIT':
// e.g. {+START,CSS_INHERIT,global,default,#886aa9}{+END}
if (isset($param[0])) {
require_code('css_and_js');
$css_file = $param[0]->evaluate();
$theme = isset($param[1]) ? $param[1]->evaluate() : 'default';
$seed = isset($param[2]) ? $param[2]->evaluate() : NULL;
if ($seed == '') {
$seed = NULL;
}
$dark = isset($param[3]) ? $param[3]->evaluate() == '1' : false;
$algorithm = isset($param[4]) ? $param[4]->evaluate() : 'equations';
$value = css_inherit($css_file, $theme, $GLOBALS['FORUM_DRIVER']->get_theme(), $seed, $dark, $algorithm);
}
break;
case 'FRACTIONAL_EDITABLE':
foreach (array_keys($param) as $key) {
if (!is_numeric($key)) {
unset($param[$key]);
}
}
if (isset($param[3])) {
$edit_text = $param[0]->evaluate();
$edit_param_name = $param[1]->evaluate();
$edit_pagelink = $param[2]->evaluate();
$supports_comcode = (isset($param[4]) ? $param[3]->evaluate() : '0') == '1';
list($zone, $attributes, ) = page_link_decode($edit_pagelink);
if ($zone == '_SEARCH') {
$zone = get_module_zone($attributes['page']);
}
if (has_actual_page_access(get_member(), $attributes['page'], $zone) && has_zone_access(get_member(), 'adminzone')) {
$keep = symbol_tempcode('KEEP');
$url = find_script('fractional_edit') . '?edit_param_name=' . urlencode($edit_param_name) . '&supports_comcode=' . ($supports_comcode ? '1' : '0') . '&zone=' . urlencode($zone) . $keep->evaluate();
foreach ($attributes as $key => $val) {
$url .= '&' . $key . '=' . urlencode($val);
}
$_value = $param[count($param) - 1];
$_value = do_template('FRACTIONAL_EDIT', array('_GUID' => '075ac126c427d28b309004bc67b32b08', 'VALUE' => $_value, 'URL' => $url, 'EDIT_TEXT' => $edit_text, 'EDIT_PARAM_NAME' => $edit_param_name));
$value = $_value->evaluate();
} else {
$value = $param[count($param) - 1]->evaluate();
}
}
break;
case 'SET':
if (isset($param[1])) {
$var = $param[0]->evaluate();
$set_val = '';
$i = 1;
while (isset($param[$i])) {
if ($i != 1) {
$set_val .= ',';
}
$set_val .= $param[1]->evaluate();
$i++;
}
$TEMPCODE_SETGET[$var] = $set_val;
}
break;
case 'IN_ARRAY':
if (isset($param[1])) {
$key = $param[1]->evaluate();
$array = array_key_exists($key, $param['vars']) ? $param['vars'][$key] : array();
$value = in_array($param[0]->evaluate(), $array) ? '1' : '0';
}
break;
case 'NOT_IN_ARRAY':
if (isset($param[1])) {
$key = $param[1]->evaluate();
$array = array_key_exists($key, $param['vars']) ? $param['vars'][$key] : array();
$value = in_array($param[0]->evaluate(), $array) ? '0' : '1';
}
break;
case 'IF_IN_ARRAY':
if (isset($param[2])) {
$key = $param[1]->evaluate();
$array = array_key_exists($key, $param['vars']) ? $param['vars'][$key] : array();
$value = in_array($param[0]->evaluate(), $array) ? $param[2]->evaluate() : '';
}
break;
case 'IF_NOT_IN_ARRAY':
if (isset($param[2])) {
$key = $param[1]->evaluate();
$array = array_key_exists($key, $param['vars']) ? $param['vars'][$key] : array();
$value = in_array($param[0]->evaluate(), $array) ? '' : $param[2]->evaluate();
}
break;
case 'IMPLODE':
if (isset($param[1])) {
$key = $param[1]->evaluate();
$array = array_key_exists($key, $param['vars']) ? $param['vars'][$key] : array();
if (isset($param[2]) && $param[2]->evaluate() == '1') {
$delim = $param[0]->evaluate();
foreach ($array as $key => $val) {
if ($value != '') {
$value .= $delim;
}
$value .= (is_integer($key) ? integer_format($key) : $key) . ' = ' . $val;
}
} else {
$value = implode($param[0]->evaluate(), $array);
}
}
break;
case 'COUNT':
if (isset($param[0])) {
$key = $param[0]->evaluate();
$array = array_key_exists($key, $param['vars']) ? $param['vars'][$key] : array();
$value = strval(count($array));
}
break;
case 'BOX':
unset($param['vars']);
$title = isset($param[1]) ? $param[0]->evaluate() : '';
$dimensions = isset($param[2]) ? $param[1]->evaluate() : '100%';
if ($dimensions == '') {
$dimensions = '100%';
}
$box_type = isset($param[3]) ? $param[2]->evaluate() : 'classic';
$options = isset($param[4]) ? $param[3]->evaluate() : '';
$meta = isset($param[5]) ? $param[4]->evaluate() : '';
$links = isset($param[6]) ? $param[5]->evaluate() : '';
$expand = isset($param[7]) ? $param[6]->evaluate() == '1' : false;
$toplink = isset($param[8]) ? $param[7]->evaluate() : '';
$tmp = put_in_standard_box(array_pop($param), $title, $dimensions, $box_type, $options, $meta, $links, $expand, $toplink);
$value = $tmp->evaluate();
break;
case 'IF_NON_EMPTY':
if (isset($param[1])) {
if (!$param[0]->is_really_empty()) {
$value = $param[1]->evaluate();
}
}
break;
case 'IF_PASSED':
if (isset($param[1])) {
$t = $param[0]->evaluate();
if (isset($param['vars'][$t])) {
$value = $param[1]->evaluate();
}
}
break;
case 'IF_NON_PASSED':
if (isset($param[1])) {
$t = $param[0]->evaluate();
if (!isset($param['vars'][$t])) {
$value = $param[1]->evaluate();
}
}
break;
case 'IF_EMPTY':
if (isset($param[1])) {
if ($param[0]->is_really_empty()) {
$value = $param[1]->evaluate();
}
}
break;
case 'IF_ARRAY_EMPTY':
if (isset($param[0])) {
$looking_at = $param[0]->evaluate();
if (array_key_exists($looking_at, $param['vars'])) {
if (count($param['vars'][$looking_at]) == 0) {
$value = $param[1]->evaluate();
}
}
}
break;
case 'IF_ARRAY_NON_EMPTY':
if (isset($param[0])) {
$looking_at = $param[0]->evaluate();
if (array_key_exists($looking_at, $param['vars'])) {
if (count($param['vars'][$looking_at]) != 0) {
$value = $param[1]->evaluate();
}
}
}
break;
case 'OF':
if (isset($param[1])) {
$key = $param[0]->evaluate();
$x = $param[1]->evaluate();
$array = array_key_exists($key, $param['vars']) ? $param['vars'][$key] : array();
$x2 = is_numeric($x) ? intval($x) : $x;
if (is_integer($x2)) {
if ($x2 < 0) {
$x2 = count($array) - 1;
} elseif ($x2 >= count($array)) {
$x2 -= count($array);
}
}
$value = array_key_exists($x2, $array) ? $array[$x2] : '';
if (is_object($value)) {
$value = $value->evaluate();
}
}
break;
case 'INCLUDE':
if (isset($param[1])) {
$tpl_params = $param['vars'];
$explode = explode(chr(10), $param[1]->evaluate());
foreach ($explode as $val) {
$bits = explode('=', $val, 2);
if (count($bits) == 2) {
$tpl_params[ltrim($bits[0])] = $bits[1];
}
}
$td = isset($param[3]) ? $param[2]->evaluate() : '';
if ($td == '') {
$td = 'templates';
}
$ex = isset($param[2]) ? $param[1]->evaluate() : '';
if ($ex == '') {
$ex = '.tpl';
}
$_value = do_template($param[0]->evaluate(), $tpl_params, NULL, false, NULL, $ex, $td);
$value = $_value->evaluate();
}
break;
case 'WHILE':
if (isset($param[1])) {
$_p = $param[0]->evaluate();
if ($_p == '1' || $_p == '1') {
$value = '';
$value .= $param[1]->evaluate();
$value .= ecv($lang, $escaped, $type, $name, $param);
}
}
break;
case 'IF':
if (isset($param[1])) {
$_p = $param[0]->evaluate();
if ($_p == '1' || $_p == '1') {
$value = $param[1]->evaluate();
}
}
break;
case 'LOOP':
if (isset($param[0])) {
if (!array_key_exists($param[0]->evaluate(), $param['vars'])) {
require_code('site');
attach_message(do_lang_tempcode('MISSING_TEMPLATE_PARAMETER', $param[0]->evaluate(), '???'), 'warn');
return '';
}
$array_key = $param[0]->evaluate();
if (is_numeric($array_key) || strpos($array_key, ',') !== false) {
$array = explode(',', $array_key);
} else {
$array = array_key_exists($array_key, $param['vars']) ? $param['vars'][$array_key] : array();
if (!is_array($array)) {
$array = array();
}
}
$value = '';
if (array_key_exists(1 + 1, $param)) {
$columns = $param[1]->evaluate();
$row_starter = array_key_exists(2 + 1, $param) ? $param[2]->evaluate() : '<tr>';
$row_terminator = array_key_exists(3 + 1, $param) ? $param[3]->evaluate() : '</tr>';
$value .= $row_starter;
// Sorting
if (array_key_exists(4 + 1, $param)) {
$sort_key = $param[4]->evaluate();
$rev = array_key_exists(5 + 1, $param) && $param[5]->evaluate() == 'DESC';
if ($sort_key != '') {
global $M_SORT_KEY;
$M_SORT_KEY = $sort_key;
uasort($array, 'multi_sort');
}
if ($rev) {
$array = array_reverse($array);
}
}
}
$last = count($param) - 2;
$col = 0;
$first = true;
foreach ($array as $go_key => $go) {
if (!is_array($go)) {
$go = array('_loop_key' => make_string_tempcode(is_integer($go_key) ? strval($go_key) : $go_key), '_loop_var' => make_string_tempcode($go));
}
// In case it's not a list of maps, but just a list
if (isset($param[2]) && $col % $columns == 0 && $col != 0) {
$value .= $row_starter;
}
$ps = $go + $param['vars'] + array('_loop_key' => make_string_tempcode(is_integer($go_key) ? strval($go_key) : $go_key), '_i' => strval($col), '_first' => $first, '_last' => $col == count($array) - 1);
$bound = $param[$last]->bind($ps, '');
$value .= $bound->evaluate();
++$col;
if (isset($param[3]) && $col % $columns == 0) {
$value .= $row_terminator;
}
$first = false;
}
if (isset($param[2]) && $col % $columns != 0) {
$value .= $row_terminator;
}
}
break;
default:
require_code('site');
attach_message(do_lang_tempcode('UNKNOWN_DIRECTIVE', escape_html($name)), 'warn');
}
if ($escaped != array()) {
apply_tempcode_escaping($escaped, $value);
}
return $value;
}
// By elimination, it's language
$a = isset($param[0]) ? is_object($param[0]) ? $param[0]->evaluate() : $param[0] : NULL;
$b = isset($param[1]) ? is_object($param[1]) ? $param[1]->evaluate() : $param[1] : NULL;
$c = isset($param[2]) ? array_splice($param, 2) : NULL;
if ($c !== NULL) {
foreach ($c as $i => $cc) {
if (is_object($cc)) {
$c[$i] = $cc->evaluate();
}
}
}
static $dle = false;
if (!$dle) {
$dle = function_exists('do_lang');
}
$ret = $dle ? do_lang($name, $a, $b, $c, $lang, false) : escape_html($name . ':' . (!is_null($a) ? $a : '') . ',' . (!is_null($b) ? $b : ''));
if ($ret === NULL) {
if ($type != TC_PARAMETER) {
require_code('site');
attach_message(do_lang_tempcode('MISSING_LANG_ENTRY', escape_html($name)), 'warn');
}
$value = '';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($value);
}
return $value;
}
if ($escaped != array() && $escaped != array(ENTITY_ESCAPED)) {
apply_tempcode_escaping(array_diff($escaped, array(ENTITY_ESCAPED)), $ret);
}
// Escape but without ENTITY_ESCAPED because we don't do that on lang strings
return $ret;
}
/**
* Build a menu branch map from a database row.
*
* @param array The database row
* @param array List of all the database rows for this menu
* @return array The menu branch map
*/
function build_stored_menu_branch($thisitem, $items)
{
$i = 0;
$branch = array('type' => 'link', 'caption' => $thisitem['cap'], 'special' => NULL, 'children' => array(), 'only_on_page' => NULL, 'modifiers' => array(), 'caption_long' => array_key_exists('i_caption_long', $thisitem) ? $thisitem['i_caption_long'] : '', 'img' => array_key_exists('i_theme_img_code', $thisitem) ? $thisitem['i_theme_img_code'] : '');
// HACKHACK: Cleaner way preferable, but needs new DB field!
if (array_key_exists('i_caption_long', $thisitem) && substr($thisitem['i_caption_long'], 0, 3) == '!!!') {
require_code('menus_sitemap');
$extra = build_sitetree_menu(explode(':', substr($thisitem['i_caption_long'], 3)));
foreach ($extra as $e) {
if (strpos($thisitem['i_url'], ':root') !== false) {
$e['i_url'] .= substr($thisitem['i_url'], strpos($thisitem['i_url'], ':root'));
} elseif (strpos($thisitem['i_url'], ':keep_') !== false) {
$e['i_url'] .= substr($thisitem['i_url'], strpos($thisitem['i_url'], ':keep_'));
}
if (is_null($e['i_parent'])) {
$e['i_parent'] = $thisitem['id'];
}
$items[] = $e;
}
}
// HACKHACK: Cleaner way preferable, but needs new DB field!
if (array_key_exists('i_caption_long', $thisitem) && substr($thisitem['i_caption_long'], 0, 2) == '@@') {
$bits = explode('@@', $thisitem['i_caption_long']);
$extra = array();
foreach ($bits as $bit) {
if ($bit == '') {
continue;
}
$_extra = persistant_cache_get(array('MENU', $bit));
if (is_null($_extra)) {
$_extra = $GLOBALS['SITE_DB']->query_select('menu_items', array('id', 'i_caption_long AS _i_caption_long', 'i_new_window', 'i_expanded', 'i_parent', 'i_caption AS _cap', 'i_url', 'i_check_permissions', 'i_page_only', 'i_theme_img_code'), array('i_menu' => $bit), 'ORDER BY i_order');
foreach ($_extra as $i => $_e) {
$_extra[$i]['cap'] = get_translated_text($_e['_cap']);
$_extra[$i]['i_caption_long'] = get_translated_text($_e['_i_caption_long']);
}
persistant_cache_set(array('MENU', $bit), $_extra);
}
$extra = array_merge($extra, $_extra);
}
foreach ($extra as $e) {
if (strpos($thisitem['i_url'], ':root') !== false) {
$e['i_url'] .= substr($thisitem['i_url'], strpos($thisitem['i_url'], ':root'));
} elseif (strpos($thisitem['i_url'], ':keep_') !== false) {
$e['i_url'] .= substr($thisitem['i_url'], strpos($thisitem['i_url'], ':keep_'));
}
if (is_null($e['i_parent'])) {
$e['i_parent'] = $thisitem['id'];
}
$items[] = $e;
}
}
foreach ($items as $item) {
if ($item['i_parent'] == $thisitem['id']) {
$branch['type'] = 'drawer';
break;
}
}
if ($branch['caption'] == '') {
$branch['type'] = 'blank';
} else {
if ($branch['type'] == 'drawer') {
if ($thisitem['i_expanded'] == 1) {
$branch['modifiers']['expanded'] = 1;
}
for ($i = 0; $i < count($items); $i++) {
if (array_key_exists($i, $items)) {
$item = $items[$i];
// Search for children
if ($item['i_parent'] == $thisitem['id'] && $item['id'] != $thisitem['id']) {
$new_kids_on_the_block = build_stored_menu_branch($item, $items);
$branch['children'][] = $new_kids_on_the_block;
}
}
}
}
$branch['only_on_page'] = $thisitem['i_page_only'];
if ($thisitem['i_new_window'] == 1) {
$branch['modifiers']['new_window'] = 1;
}
if ($thisitem['i_check_permissions'] == 1) {
$branch['modifiers']['check_perms'] = 1;
}
if (array_key_exists('i_popup', $thisitem) && $thisitem['i_popup'] == 1) {
$branch['modifiers']['popup'] = 1;
$branch['width'] = $thisitem['i_width'];
$branch['height'] = $thisitem['i_height'];
}
$branch['special'] = $thisitem['i_url'];
}
return $branch;
}
/**
* Find if a member's has access to a specified page, in a specific zone. Note that page access does not imply zone access; you have access a page, but not the zone, so still couldn't see it.
*
* @param MEMBER The member being checked whether to have the access
* @param ID_TEXT The ID code for the page being checked
* @param ID_TEXT The ID code for the zone being checked
* @param boolean Whether we want to check we have access to the CURRENT page, using any match tag permissions
* @return boolean Whether the member has page access
*/
function has_page_access($member, $page, $zone, $at_now = false)
{
if (running_script('upgrader')) {
return true;
}
global $PAGE_ACCESS_CACHE;
if (!isset($PAGE_ACCESS_CACHE[$member]) && function_exists('persistant_cache_get') && is_guest($member)) {
$PAGE_ACCESS_CACHE = persistant_cache_get('GUEST_PAGE_ACCESS');
}
if (isset($PAGE_ACCESS_CACHE[$member]) && isset($PAGE_ACCESS_CACHE[$member][$zone . ':' . $page]) && (!$at_now || $PAGE_ACCESS_CACHE[$member][$zone . ':' . $page])) {
handle_permission_check_logging($member, 'has_page_access', array($page, $zone), $PAGE_ACCESS_CACHE[$member][$zone . ':' . $page]);
return $PAGE_ACCESS_CACHE[$member][$zone . ':' . $page];
}
$groups = _get_where_clause_groups($member, false);
if ($groups === NULL) {
return true;
}
$pg_where = '(' . db_string_equal_to('zone_name', $zone) . ' AND ' . db_string_equal_to('page_name', $page) . ')';
$select = 'page_name,zone_name';
if ($at_now) {
$pg_where .= ' OR page_name LIKE \'' . db_encode_like('\\_WILD:' . $page . ':%') . '\'';
$pg_where .= ' OR page_name LIKE \'' . db_encode_like($zone . ':' . $page . ':%') . '\'';
$pg_where .= ' OR page_name LIKE \'' . db_encode_like('\\_WILD:\\_WILD:%') . '\'';
$pg_where .= ' OR page_name LIKE \'' . db_encode_like($zone . ':\\_WILD:%') . '\'';
$pg_where .= ' OR page_name LIKE \'' . db_encode_like('\\_WILD:' . $page) . '\'';
$pg_where .= ' OR page_name LIKE \'' . db_encode_like($zone . ':' . $page) . '\'';
$pg_where .= ' OR page_name LIKE \'' . db_encode_like('\\_WILD:\\_WILD') . '\'';
$pg_where .= ' OR page_name LIKE \'' . db_encode_like($zone . ':\\_WILD') . '\'';
$pg_where .= ' OR page_name LIKE \'' . db_encode_like($zone) . '\'';
}
$select .= ',group_id';
$perhaps = array_key_exists($groups, $GLOBALS['TOTAL_PP_CACHE']) && !$at_now ? $GLOBALS['TOTAL_PP_CACHE'][$groups] : $GLOBALS['SITE_DB']->query('SELECT ' . $select . ' FROM ' . get_table_prefix() . 'group_page_access WHERE (' . $pg_where . ') AND (' . $groups . ')');
$groups2 = filter_group_permissivity($GLOBALS['FORUM_DRIVER']->get_members_groups($member, false));
$found_match_key_one = false;
$denied_groups = array();
foreach ($groups2 as $group) {
foreach ($perhaps as $praps) {
if (strpos($praps['page_name'], ':') !== false) {
$found_match_key_one = true;
}
if ($praps['group_id'] == $group && ($praps['zone_name'] == $zone || $praps['zone_name'] == '/')) {
if ($praps['page_name'] == $page || $at_now && $praps['zone_name'] == '/' && match_key_match($praps['page_name'], true)) {
$denied_groups[$group] = 1;
}
}
}
}
if (!$found_match_key_one) {
$at_now = false;
}
// We found it makes no difference. Let our caching work better.
if (count($denied_groups) == count($groups2)) {
$test = $GLOBALS['SITE_DB']->query_value_null_ok_full('SELECT member_id FROM ' . get_table_prefix() . 'member_page_access WHERE (' . $pg_where . ') AND (member_id=' . strval((int) $member) . ' AND active_until>' . strval(time()) . ')');
if (!is_null($test)) {
$result = true;
handle_permission_check_logging($member, 'has_page_access', array($page, $zone), $result);
if (!$at_now) {
$PAGE_ACCESS_CACHE[$member][$zone . ':' . $page] = $result;
}
if (function_exists('persistant_cache_set') && is_guest($member)) {
persistant_cache_set('GUEST_PAGE_ACCESS', $PAGE_ACCESS_CACHE);
}
return $result;
}
}
$result = count($denied_groups) != count($groups2);
// Has to be explicitly denied to all the usergroups they're in
handle_permission_check_logging($member, 'has_page_access', array($page, $zone), $result);
if (!$at_now) {
$PAGE_ACCESS_CACHE[$member][$zone . ':' . $page] = $result;
}
if (function_exists('persistant_cache_set') && is_guest($member)) {
persistant_cache_set('GUEST_PAGE_ACCESS', $PAGE_ACCESS_CACHE);
}
return $result;
}
/**
* Check to see if an IP address is banned.
*
* @param string The IP address to check for banning (potentially encoded with *'s)
* @return boolean Whether the IP address is banned
*/
function ip_banned($ip)
{
if (!addon_installed('securitylogging')) {
return false;
}
$ip4 = strpos($ip, '.') !== false;
if ($ip4) {
$ip_parts = explode('.', $ip);
} else {
$ip_parts = explode(':', $ip);
}
global $SITE_INFO;
if (isset($SITE_INFO['known_suexec']) && $SITE_INFO['known_suexec'] == '1' || is_writable_wrap(get_file_base() . '/.htaccess')) {
$bans = array();
$ban_count = preg_match_all('#\\ndeny from (.*)#', file_get_contents(get_file_base() . '/.htaccess'), $bans);
$ip_bans = array();
for ($i = 0; $i < $ban_count; $i++) {
$ip_bans[] = array('ip' => $bans[1][$i]);
}
} else {
$ip_bans = persistant_cache_get('IP_BANS');
if (!is_array($ip_bans)) {
$ip_bans = $GLOBALS['SITE_DB']->query('SELECT ip FROM ' . get_table_prefix() . 'usersubmitban_ip', NULL, NULL, true);
if (!is_null($ip_bans)) {
persistant_cache_set('IP_BANS', $ip_bans);
}
}
if (is_null($ip_bans)) {
critical_error('DATABASE_FAIL');
}
}
$self_ip = NULL;
foreach ($ip_bans as $ban) {
if ($ip4 && compare_ip_address_ip4($ban['ip'], $ip_parts) || !$ip4 && compare_ip_address_ip6($ban['ip'], $ip_parts)) {
if (is_null($self_ip)) {
$self_host = ocp_srv('HTTP_HOST');
if ($self_host == '' || preg_match('#^localhost[\\.\\:$]#', $self_host) != 0) {
$self_ip = '';
} else {
if (preg_match('#(\\s|,|^)gethostbyname(\\s|$|,)#i', @ini_get('disable_functions')) == 0) {
$self_ip = gethostbyname($self_host);
} else {
$self_ip = '';
}
if ($self_ip == '') {
$self_ip = ocp_srv('SERVER_ADDR');
}
}
}
if ($self_ip != '' && compare_ip_address($ban['ip'], $self_ip)) {
continue;
}
if (compare_ip_address($ban['ip'], '127.0.0.1')) {
continue;
}
if (compare_ip_address($ban['ip'], 'fe00:0000:0000:0000:0000:0000:0000:0000')) {
continue;
}
return true;
}
}
return false;
}
/**
* Find the cached result of what is named by codename and the further constraints.
*
* @param ID_TEXT The codename to check for cacheing
* @param LONG_TEXT The further restraints (a serialized map)
* @param integer The TTL for the cache entry
* @param boolean Whether we are cacheing Tempcode (needs special care)
* @param boolean Whether to defer caching to CRON. Note that this option only works if the block's defined cache signature depends only on $map (timezone, bot-type, in-panel and interlock are automatically considered)
* @param ?array Parameters to call up block with if we have to defer caching (NULL: none)
* @return ?mixed The cached result (NULL: no cached result)
*/
function get_cache_entry($codename, $cache_identifier, $ttl = 10000, $tempcode = false, $caching_via_cron = false, $map = NULL)
{
if ($GLOBALS['MEM_CACHE'] !== NULL) {
$pcache = persistant_cache_get(array('CACHE', $codename));
if ($pcache === NULL) {
return NULL;
}
$theme = $GLOBALS['FORUM_DRIVER']->get_theme();
$lang = user_lang();
$pcache = isset($pcache[$cache_identifier][$lang][$theme]) ? $pcache[$cache_identifier][$lang][$theme] : NULL;
if ($pcache === NULL) {
if ($caching_via_cron) {
request_via_cron($codename, $map, $tempcode);
return paragraph(do_lang_tempcode('CACHE_NOT_READY_YET'), '', 'nothing_here');
}
return NULL;
}
$cache_rows = array($pcache);
} else {
$cache_rows = $GLOBALS['SITE_DB']->query_select('cache', array('*'), array('lang' => user_lang(), 'cached_for' => $codename, 'the_theme' => $GLOBALS['FORUM_DRIVER']->get_theme(), 'identifier' => md5($cache_identifier)), '', 1);
if (!isset($cache_rows[0])) {
if ($caching_via_cron) {
request_via_cron($codename, $map, $tempcode);
return paragraph(do_lang_tempcode('CACHE_NOT_READY_YET'), '', 'nothing_here');
}
return NULL;
}
if ($tempcode) {
$ob = new ocp_tempcode();
if (!$ob->from_assembly($cache_rows[0]['the_value'], true)) {
return NULL;
}
$cache_rows[0]['the_value'] = $ob;
} else {
$cache_rows[0]['the_value'] = unserialize($cache_rows[0]['the_value']);
}
}
$stale = $ttl != -1 && time() > $cache_rows[0]['date_and_time'] + $ttl * 60;
if (!$caching_via_cron && $stale) {
return NULL;
} else {
if ($stale) {
request_via_cron($codename, $map, $tempcode);
}
$cache = $cache_rows[0]['the_value'];
if ($cache_rows[0]['langs_required'] != '') {
$bits = explode('!', $cache_rows[0]['langs_required']);
$langs_required = explode(':', $bits[0]);
// Sometimes lang has got intertwinded with non cacheable stuff (and thus was itself not cached), so we need the lang files
foreach ($langs_required as $lang) {
if ($lang != '') {
require_lang($lang, NULL, NULL, true);
}
}
if (isset($bits[1])) {
$javascripts_required = explode(':', $bits[1]);
foreach ($javascripts_required as $javascript) {
if ($javascript != '') {
require_javascript($javascript);
}
}
}
if (isset($bits[2])) {
$csss_required = explode(':', $bits[2]);
foreach ($csss_required as $css) {
if ($css != '') {
require_css($css);
}
}
}
}
return $cache;
}
}
/**
* Get a tempcoded version of a normal XHTML template. It is perhaps the most common ocPortal function to load up templates using do_template, and then attach them together either as parameters to each other, or via the tempcode attach method.
*
* @param ID_TEXT The codename of the template being loaded
* @param ?array A map of parameters for the template (key to value) (NULL: no parameters)
* @param ?LANGUAGE_NAME The language to load the template in (templates can embed language references) (NULL: users own language)
* @param boolean Whether to not produce a stack dump if the template is missing
* @param ?ID_TEXT Alternate template to use if the primary one does not exist (NULL: none)
* @param string File type suffix of template file (e.g. .tpl)
* @param string Subdirectory type to look in
* @set templates css
* @param ID_TEXT Theme to use
* @return tempcode The tempcode for this template
*/
function do_template($codename, $parameters = NULL, $lang = NULL, $light_error = false, $fallback = NULL, $suffix = '.tpl', $type = 'templates', $theme = NULL)
{
if (is_null($lang) || $lang == '') {
global $USER_LANG_CACHED;
$lang = isset($USER_LANG_CACHED) ? $USER_LANG_CACHED : (function_exists('user_lang') ? user_lang() : 'EN');
}
if ($GLOBALS['SEMI_DEBUG_MODE']) {
if ($codename != 'tempcode_test' && $codename != 'handle_conflict_resolution' && strtoupper($codename) != strtoupper($codename)) {
fatal_exit('Template names should be in upper case, and the files should be stored in upper case.');
}
if (substr($codename, -7) == '_SCREEN' || $codename == 'POOR_XHTML_WRAPPER' || $codename == 'OCF_WRAPPER') {
$GLOBALS['SCREEN_TEMPLATE_CALLED'] = $codename;
}
}
if (is_null($parameters)) {
$parameters = array();
}
global $RECORD_TEMPLATES_USED, $FILE_ARRAY, $MEM_CACHE, $CACHE_TEMPLATES, $KEEP_MARKERS, $SHOW_EDIT_LINKS, $XHTML_SPIT_OUT, $TEMPLATE_CACHE, $MOBILE, $FORUM_DRIVER;
$special_treatment = ($KEEP_MARKERS || $SHOW_EDIT_LINKS) && is_null($XHTML_SPIT_OUT);
// Is it already loaded?
if ($RECORD_TEMPLATES_USED) {
global $RECORDED_TEMPLATES_USED;
$RECORDED_TEMPLATES_USED[] = $codename;
}
// Variables we'll need
if (!isset($theme)) {
$theme = isset($FORUM_DRIVER) && is_object($FORUM_DRIVER) && method_exists($FORUM_DRIVER, 'get_theme') ? filter_naughty($FORUM_DRIVER->get_theme()) : 'default';
}
$_codename = $MOBILE ? $codename . '_mobile' : $codename;
if (isset($TEMPLATE_CACHE[$theme][$codename][$lang])) {
$_data = $TEMPLATE_CACHE[$theme][$codename][$lang]->bind($parameters, $codename);
// Copy and pasted to remove need for an function call
if ($special_treatment) {
if ($KEEP_MARKERS) {
$__data = make_string_tempcode('<!-- START-TEMPLATE=' . $codename . ' -->');
$__data->attach($_data);
$__data->attach('<!-- END-TEMPLATE=' . $codename . ' -->');
$_data = $__data;
}
if ($SHOW_EDIT_LINKS) {
$edit_url = build_url(array('page' => 'admin_themes', 'theme' => $FORUM_DRIVER->get_theme(), 'template' => $codename), 'adminzone');
$_data->attach('<br /><a href="' . escape_html($edit_url->evaluate()) . '">' . do_lang('EDIT') . ' ' . $codename . '</a>');
}
}
return $_data;
}
// Is it structurally cached on disk yet?
$data = mixed();
if ($CACHE_TEMPLATES) {
if (!is_null($MEM_CACHE)) {
$data = persistant_cache_get(array('TEMPLATE', $theme, $lang, $_codename));
if (!is_null($data)) {
$_data = new ocp_tempcode();
$_data->from_assembly($data);
if ($_data->bits == array()) {
$data = false;
}
// Corrupt somehow
} else {
$data = false;
}
} elseif (is_null($data)) {
$_data = new ocp_tempcode();
$tcp_path = get_custom_file_base() . '/themes/' . $theme . '/templates_cached/' . $lang . '/' . $_codename . $suffix . '.tcd';
$data = @file_get_contents($tcp_path, FILE_BINARY);
if ($data === '') {
$data = false;
}
// '' needed for PHP4 - weird
if ($data !== false) {
$_data->from_assembly($data);
if ($_data->bits == array()) {
$data = false;
}
// Corrupt somehow
}
}
} else {
$data = false;
}
if ($data === false) {
if (!isset($FILE_ARRAY)) {
$_data = NULL;
$prefix_default = get_file_base() . '/themes/';
$prefix = $theme == 'default' ? $prefix_default : get_custom_file_base() . '/themes/';
if (file_exists($prefix . $theme . '/' . $type . '_custom/' . $_codename . $suffix)) {
$_data = _do_template($theme, '/' . $type . '_custom/', $_codename, $_codename, $lang, $suffix, $theme);
} elseif (file_exists($prefix . $theme . '/' . $type . '/' . $_codename . $suffix)) {
$_data = _do_template($theme, '/' . $type . '/', $_codename, $_codename, $lang, $suffix, $theme);
} elseif (!is_null($GLOBALS['CURRENT_SHARE_USER']) && $theme != 'default' && file_exists($prefix_default . $theme . '/' . $type . '_custom/' . $_codename . $suffix)) {
$_data = _do_template($theme, '/' . $type . '_custom/', $_codename, $_codename, $lang, $suffix, $theme);
} elseif (!is_null($GLOBALS['CURRENT_SHARE_USER']) && $theme != 'default' && file_exists($prefix_default . $theme . '/' . $type . '/' . $_codename . $suffix)) {
$_data = _do_template($theme, '/' . $type . '/', $_codename, $_codename, $lang, $suffix, $theme);
} elseif (file_exists($prefix_default . 'default' . '/' . $type . '_custom/' . $_codename . $suffix)) {
$_data = _do_template('default', '/' . $type . '_custom/', $_codename, $_codename, $lang, $suffix, $theme);
} elseif (file_exists($prefix_default . 'default' . '/' . $type . '/' . $_codename . $suffix)) {
$_data = _do_template('default', '/' . $type . '/', $_codename, $_codename, $lang, $suffix, $theme);
} elseif ($codename != $_codename) {
if (file_exists($prefix . $theme . '/' . $type . '_custom/' . $codename . $suffix)) {
$_data = _do_template($theme, '/' . $type . '_custom/', $codename, $_codename, $lang, $suffix, $theme);
} elseif (file_exists($prefix . $theme . '/' . $type . '/' . $codename . $suffix)) {
$_data = _do_template($theme, '/' . $type . '/', $codename, $_codename, $lang, $suffix, $theme);
} elseif (file_exists($prefix_default . 'default' . '/' . $type . '_custom/' . $codename . $suffix)) {
$_data = _do_template('default', '/' . $type . '_custom/', $codename, $_codename, $lang, $suffix, $theme);
} elseif (file_exists($prefix_default . 'default' . '/' . $type . '/' . $codename . $suffix)) {
$_data = _do_template('default', '/' . $type . '/', $codename, $_codename, $lang, $suffix, $theme);
}
}
if (is_null($_data)) {
if (is_null($fallback)) {
if ($light_error) {
return paragraph(do_lang_tempcode('MISSING_TEMPLATE_FILE', escape_html($codename)));
}
fatal_exit(do_lang_tempcode('MISSING_TEMPLATE_FILE', escape_html($codename)));
} else {
$result = do_template($fallback, $parameters, $lang);
$TEMPLATE_CACHE[$theme][$codename][$lang] = $TEMPLATE_CACHE[$fallback][$lang];
return $result;
}
}
} else {
$_data = _do_template('default', '/' . $type . '/', $codename, $codename, $lang, $suffix, $theme);
}
}
$TEMPLATE_CACHE[$theme][$codename][$lang] = $_data;
$ret = $_data->bind($parameters, $codename);
if ($special_treatment) {
if ($KEEP_MARKERS) {
$__data = new ocp_tempcode();
$__data->attach('<!-- START-TEMPLATE=' . $codename . ' -->');
$__data->attach($ret);
$__data->attach('<!-- END-TEMPLATE=' . $codename . ' -->');
$ret = $__data;
}
if ($SHOW_EDIT_LINKS && $codename != 'PARAM_INFO') {
$param_info = do_template('PARAM_INFO', array('MAP' => $parameters));
$edit_url = build_url(array('page' => 'admin_themes', 'theme' => $FORUM_DRIVER->get_theme(), 'template' => $codename), 'adminzone');
$SHOW_EDIT_LINKS = false;
$ret = do_template('TEMPLATE_EDIT_LINK', array('_GUID' => '511ae911d31a5b237a4371ff22fc78fd', 'PARAM_INFO' => $param_info, 'CONTENTS' => $ret, 'CODENAME' => $codename, 'EDIT_URL' => $edit_url));
$SHOW_EDIT_LINKS = true;
}
}
return $ret;
}
/**
* Load all config options.
*/
function load_options()
{
global $OPTIONS;
$OPTIONS = function_exists('persistant_cache_get') ? persistant_cache_get('OPTIONS') : NULL;
if (is_array($OPTIONS)) {
return;
}
if (strpos(get_db_type(), 'mysql') !== false) {
global $SITE_INFO;
$OPTIONS = $GLOBALS['SITE_DB']->query_select('config c LEFT JOIN ' . $GLOBALS['SITE_DB']->get_table_prefix() . 'translate t ON (c.config_value=t.id AND ' . db_string_equal_to('t.language', array_key_exists('default_lang', $SITE_INFO) ? $SITE_INFO['default_lang'] : 'EN') . ' AND (' . db_string_equal_to('c.the_type', 'transtext') . ' OR ' . db_string_equal_to('c.the_type', 'transline') . '))', array('c.the_name', 'c.config_value', 'c.the_type', 'c.c_set', 't.text_original AS config_value_translated'), array(), '', NULL, NULL, true);
} else {
$OPTIONS = $GLOBALS['SITE_DB']->query_select('config', array('the_name', 'config_value', 'the_type', 'c_set'), NULL, '', NULL, NULL, true);
}
if ($OPTIONS === NULL) {
critical_error('DATABASE_FAIL');
}
$OPTIONS = list_to_map('the_name', $OPTIONS);
if (function_exists('persistant_cache_set')) {
persistant_cache_set('OPTIONS', $OPTIONS);
}
}
