/**
* Standard modular run function for award hooks. Renders a content box for an award/randomisation.
*
* @param array The database row for the content
* @param ID_TEXT The zone to display in
* @return tempcode Results
*/
function run($row, $zone)
{
unset($zone);
require_code('ocf_members');
require_code('ocf_members2');
$GLOBALS['OCF_DRIVER']->MEMBER_ROWS_CACHED[$row['id']] = $row;
return put_in_standard_box(ocf_show_member_box($row['id']), $row['m_username']);
}
/**
* Standard modular run function for preview hooks.
*
* @return array A pair: The preview, the updated post Comcode
*/
function run()
{
// Find review, if there is one
$individual_review_ratings = array();
$review_rating = post_param('review_rating', '');
if ($review_rating != '') {
$individual_review_ratings[''] = array('REVIEW_TITLE' => '', 'REVIEW_RATING' => $review_rating);
}
$poster_name = $GLOBALS['FORUM_DRIVER']->get_username(get_member());
$post = comcode_to_tempcode(post_param('post'));
// OCF renderings of poster
static $hooks = NULL;
if (is_null($hooks)) {
$hooks = find_all_hooks('modules', 'topicview');
}
static $hook_objects = NULL;
if (is_null($hook_objects)) {
$hook_objects = array();
foreach (array_keys($hooks) as $hook) {
require_code('hooks/modules/topicview/' . filter_naughty_harsh($hook));
$object = object_factory('Hook_' . filter_naughty_harsh($hook), true);
if (is_null($object)) {
continue;
}
$hook_objects[$hook] = $object;
}
}
if (!is_guest()) {
require_code('ocf_members2');
$poster_details = ocf_show_member_box(get_member(), false, $hooks, $hook_objects, false);
} else {
$custom_fields = new ocp_tempcode();
$poster_details = new ocp_tempcode();
}
if (addon_installed('ocf_forum')) {
if (!is_guest()) {
$poster = do_template('OCF_POSTER_MEMBER', array('ONLINE' => true, 'ID' => strval(get_member()), 'POSTER_DETAILS' => $poster_details, 'PROFILE_URL' => $GLOBALS['FORUM_DRIVER']->member_profile_url(get_member(), false, true), 'POSTER_USERNAME' => $poster_name));
} else {
$poster = do_template('OCF_POSTER_GUEST', array('IP_LINK' => '', 'POSTER_DETAILS' => $poster_details, 'POSTER_USERNAME' => $poster_name));
}
} else {
$poster = make_string_tempcode(escape_html($poster_name));
// Should never happen actually, as applies discounts hook from even running
}
$highlight = false;
$datetime_raw = time();
$datetime = get_timezoned_date(time());
$poster_url = $GLOBALS['FORUM_DRIVER']->member_profile_url(get_member());
$title = post_param('title', '');
$tpl = do_template('POST', array('INDIVIDUAL_REVIEW_RATINGS' => $individual_review_ratings, 'HIGHLIGHT' => $highlight, 'TITLE' => $title, 'TIME_RAW' => strval($datetime_raw), 'TIME' => $datetime, 'POSTER_URL' => $poster_url, 'POSTER_NAME' => $poster_name, 'POST' => $post, 'POSTER_ID' => strval(get_member()), 'POSTER' => $poster, 'POSTER_DETAILS' => $poster_details, 'ID' => '', 'CHILDREN' => '', 'RATING' => '', 'EMPHASIS' => '', 'BUTTONS' => '', 'TOPIC_ID' => '', 'UNVALIDATED' => '', 'IS_SPACER_POST' => false, 'NUM_TO_SHOW_LIMIT' => '0'));
return array($tpl, NULL);
}
/**
* Standard modular run function.
*
* @param array A map of parameters.
* @return tempcode The result of execution.
*/
function run($map)
{
$number = array_key_exists('max', $map) ? intval($map['max']) : 10;
$filter = array_key_exists('filter', $map) ? $map['filter'] : '*';
$out = new ocp_tempcode();
require_code('ocf_members');
require_code('ocf_members2');
require_code('ocfiltering');
$sql_filter = ocfilter_to_sqlfragment($filter, 'm_primary_group');
$sql_filter_2 = ocfilter_to_sqlfragment($filter, 'gm_group_id');
$rows = $GLOBALS['FORUM_DB']->query('SELECT m.* FROM ' . $GLOBALS['FORUM_DB']->get_table_prefix() . 'f_members m LEFT JOIN ' . $GLOBALS['FORUM_DB']->get_table_prefix() . 'f_group_members g ON (m.id=g.gm_member_id AND gm_validated=1) LEFT JOIN ' . $GLOBALS['FORUM_DB']->get_table_prefix() . 'f_member_custom_fields f ON m.id=f.mf_member_id WHERE ((' . $sql_filter . ') OR (' . $sql_filter_2 . ')) AND id<>' . strval($GLOBALS['FORUM_DRIVER']->get_guest_id()) . (can_arbitrary_groupby() ? ' GROUP BY m.id' : '') . ' ORDER BY m.m_join_time DESC', $number);
$rows = remove_duplicate_rows($rows, 'id');
if (count($rows) == 0) {
return do_template('BLOCK_NO_ENTRIES', array('HIGH' => false, 'TITLE' => do_lang_tempcode('RECENT', make_string_tempcode(integer_format($number)), do_lang_tempcode('MEMBERS')), 'MESSAGE' => do_lang_tempcode('NO_ENTRIES'), 'ADD_NAME' => '', 'SUBMIT_URL' => ''));
} else {
foreach ($rows as $i => $row) {
if ($i != 0) {
$out->attach(do_template('BLOCK_SEPARATOR'));
}
$out->attach(ocf_show_member_box($row['id'], true));
}
}
return $out;
}
/**
* Get preview detailing for a gallery.
*
* @param array The database row of the gallery
* @param ID_TEXT The virtual root of the gallery
* @param boolean Whether to show member stats if it is a member owned gallery
* @param ID_TEXT The zone that the gallery module we are linking to is in
* @param boolean Whether to not show anything if the gallery is empty
* @param boolean Whether only to show 'preview' details
* @return tempcode The preview
*/
function show_gallery_box($child, $root = 'root', $show_member_stats_if_appropriate = false, $zone = '_SEARCH', $quit_if_empty = true, $preview = false)
{
$member_id = get_member_id_from_gallery_name($child['name'], $child, true);
$url = build_url(array('page' => 'galleries', 'type' => 'misc', 'root' => $root == 'root' ? NULL : $root, 'id' => $child['name']), $zone);
$_title = get_translated_text($child['fullname']);
$pic = $child['rep_image'];
$is_member = !is_null($member_id);
if ($pic == '' && $is_member) {
$pic = $GLOBALS['FORUM_DRIVER']->get_member_avatar_url($member_id);
}
$add_date = get_timezoned_date($child['add_date'], false);
$comments = get_translated_tempcode($child['description']);
if ($show_member_stats_if_appropriate) {
if ($is_member && get_forum_type() == 'ocf') {
require_code('ocf_members');
require_code('ocf_members2');
$member_info = ocf_show_member_box($member_id, true);
} else {
$member_info = new ocp_tempcode();
}
} else {
$member_info = new ocp_tempcode();
}
list($num_children, $num_images, $num_videos) = get_recursive_gallery_details($child['name']);
if ($quit_if_empty && $num_images == 0 && $num_videos == 0 && $num_children == 0) {
return new ocp_tempcode();
}
$thumb_order = 'ORDER BY id ASC';
if (get_option('reverse_thumb_order') == '1') {
$thumb_order = 'ORDER BY id DESC';
}
if ($pic == '') {
$pic = $GLOBALS['SITE_DB']->query_value_null_ok('images', 'thumb_url', array('cat' => $child['name'], 'validated' => 1), $thumb_order);
if ($pic === '') {
require_code('images');
$temp = $GLOBALS['SITE_DB']->query_select('images', array('id', 'url'), array('cat' => $child['name'], 'validated' => 1), $thumb_order, 1);
$thumb_url = ensure_thumbnail($temp[0]['url'], '', 'galleries', 'images', $temp[0]['id']);
}
}
if (is_null($pic)) {
$pic = $GLOBALS['SITE_DB']->query_value_null_ok('videos', 'thumb_url', array('cat' => $child['name'], 'validated' => 1), $thumb_order);
}
if (is_null($pic)) {
$pic = '';
}
if ($pic != '' && url_is_local($pic)) {
$pic = get_custom_base_url() . '/' . $pic;
}
if ($pic != '') {
require_code('images');
$thumb = do_image_thumb($pic, '');
} else {
$thumb = new ocp_tempcode();
}
if ($num_children == 0) {
if ($child['accept_videos'] == 0) {
$lang = do_lang_tempcode('_SUBGALLERY_BITS_IMAGES', integer_format($num_images), integer_format($num_videos), integer_format($num_images + $num_videos));
} elseif ($child['accept_images'] == 0) {
$lang = do_lang_tempcode('_SUBGALLERY_BITS_VIDEOS', integer_format($num_images), integer_format($num_videos), integer_format($num_images + $num_videos));
} else {
$lang = do_lang_tempcode('_SUBGALLERY_BITS', integer_format($num_images), integer_format($num_videos), integer_format($num_images + $num_videos));
}
} else {
if ($child['accept_videos'] == 0) {
$lang = do_lang_tempcode('SUBGALLERY_BITS_IMAGES', integer_format($num_children), integer_format($num_images), array(integer_format($num_videos), integer_format($num_images + $num_videos)));
} elseif ($child['accept_images'] == 0) {
$lang = do_lang_tempcode('SUBGALLERY_BITS_VIDEOS', integer_format($num_children), integer_format($num_images), array(integer_format($num_videos), integer_format($num_images + $num_videos)));
} else {
$lang = do_lang_tempcode('SUBGALLERY_BITS', integer_format($num_children), integer_format($num_images), array(integer_format($num_videos), integer_format($num_images + $num_videos)));
}
}
$tpl = do_template('GALLERY_SUBGALLERY', array('_GUID' => '0dbec2f11de63b0402471fe5c8b32865', 'NUM_VIDEOS' => strval($num_videos), 'NUM_IMAGES' => strval($num_images), 'NUM_CHILDREN' => strval($num_children), 'ID' => $child['name'], 'LANG' => $lang, 'ADD_DATE' => $add_date, 'ADD_DATE_RAW' => strval($child['add_date']), 'MEMBER_INFO' => $member_info, 'URL' => $url, 'THUMB' => $thumb, 'PIC' => $pic, 'TITLE' => $_title, 'COMMENTS' => $comments));
return $tpl;
}
/**
* List all the buddies of a member.
*
* @return tempcode The UI
*/
function buddies_list()
{
$member_id = get_param_integer('id');
$title = get_page_title('BUDDIES', true, array(escape_html($GLOBALS['FORUM_DRIVER']->get_username($member_id))));
$text_id = do_lang_tempcode('BUDDIES', escape_html($GLOBALS['FORUM_DRIVER']->get_username($member_id)));
$mode = get_param('mode', 'both');
// single, both
$max = get_param_integer('max', 100);
$start = get_param_integer('start', 0);
if ($mode == 'both') {
$query = $GLOBALS['SITE_DB']->get_table_prefix() . 'chat_buddies a LEFT JOIN ' . $GLOBALS['SITE_DB']->get_table_prefix() . 'chat_buddies b ON a.member_liked=b.member_likes AND a.member_liked=' . strval($member_id) . ' WHERE (a.member_likes=' . strval(intval($member_id)) . ' OR a.member_liked=' . strval(intval($member_id)) . ') AND b.member_liked IS NULL';
$rows = $GLOBALS['SITE_DB']->query('SELECT a.* FROM ' . $query . ' ORDER BY date_and_time', $max, $start);
} else {
$query = $GLOBALS['SITE_DB']->get_table_prefix() . 'chat_buddies WHERE member_likes=' . strval(intval($member_id));
$rows = $GLOBALS['SITE_DB']->query('SELECT * FROM ' . $query . ' ORDER BY date_and_time', $max, $start);
}
$max_rows = $GLOBALS['SITE_DB']->query_value_null_ok_full('SELECT COUNT(*) FROM ' . $query);
$buddies = array();
$blocked = collapse_1d_complexity('member_blocked', $GLOBALS['SITE_DB']->query_select('chat_blocking', array('member_blocked'), array('member_blocker' => $member_id)));
$all_usergroups = $GLOBALS['FORUM_DRIVER']->get_usergroup_list(true);
foreach ($rows as $i => $row) {
$f_id = $row['member_liked'] == $member_id ? $row['member_likes'] : $row['member_liked'];
if ($f_id == $row['member_likes'] || !in_array($f_id, $blocked)) {
$appears_twice = $row['member_likes'] == $member_id && !is_null($GLOBALS['SITE_DB']->query_value('chat_buddies', 'member_likes', array('member_liked' => $member_id)));
require_code('ocf_members2');
$friend_username = $GLOBALS['FORUM_DRIVER']->get_username($f_id);
$friend_usergroup_id = $GLOBALS['FORUM_DRIVER']->get_member_row_field($f_id, 'm_primary_group');
$friend_usergroup = array_key_exists($friend_usergroup_id, $all_usergroups) ? $all_usergroups[$friend_usergroup_id] : do_lang_tempcode('UNKNOWN');
$mutual_label = do_lang('MUTUAL_FRIEND');
$box = ocf_show_member_box($f_id, false, NULL, NULL, true, $f_id == get_member() || $member_id == get_member() ? array($mutual_label => do_lang($appears_twice ? 'YES' : 'NO')) : NULL);
if ($box->is_empty()) {
continue;
}
$friend_map = array('USERGROUP' => $friend_usergroup, 'USERNAME' => $friend_username, 'URL' => $GLOBALS['FORUM_DRIVER']->member_profile_url($f_id, false, true), 'F_ID' => strval($f_id), 'BOX' => $box);
$buddies[] = $friend_map;
}
}
breadcrumb_set_parents(array(array('_SELF:_SELF:misc', do_lang_tempcode('CHAT_LOBBY'))));
require_code('templates_results_browser');
$results_browser = results_browser($text_id, NULL, $start, 'start', $max, 'max', $max_rows, NULL, 'buddies_list', true);
return do_template('CHAT_BUDDIES_LIST_SCREEN', array('TITLE' => $title, 'BUDDIES' => $buddies, 'RESULTS_BROWSER' => $results_browser));
}
}
$b = strrpos($FILE_BASE, '\\');
if ($b === false) {
$b = 0;
}
$RELATIVE_PATH = substr($FILE_BASE, ($a > $b ? $a : $b) + 1);
$FILE_BASE = substr($FILE_BASE, 0, $a > $b ? $a : $b);
} else {
$RELATIVE_PATH = '';
}
@chdir($FILE_BASE);
global $NON_PAGE_SCRIPT;
$NON_PAGE_SCRIPT = 1;
global $FORCE_INVISIBLE_GUEST;
$FORCE_INVISIBLE_GUEST = 0;
if (!is_file($FILE_BASE . '/sources/global.php')) {
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 second most basic ocPortal startup file, sources/global.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 $FILE_BASE . '/sources/global.php';
require_code('ocf_members');
require_code('ocf_members2');
$member_id = $GLOBALS['FORUM_DRIVER']->get_member_from_username(get_param('member', ''));
header('Content-Type: text/xml');
echo '<' . '?xml version="1.0" encoding="' . get_charset() . '"?' . '>';
echo '<request><result>';
echo '<![CDATA[';
$box = ocf_show_member_box($member_id);
$box->evaluate_echo();
// '' will be returned if member id is invalid.
echo ']]>';
echo '</result></request>';
/**
* Standard modular run function for rendering a search result.
*
* @param array The data row stored when we retrieved the result
* @return tempcode The output
*/
function render($row)
{
require_code('ocf_members');
if (get_param_integer('option__emails_only', 0) == 1) {
$link = $GLOBALS['FORUM_DRIVER']->member_profile_hyperlink($row['id'], false, $row['m_username']);
$link2 = $row['m_email_address'] == '' ? new ocp_tempcode() : hyperlink('mailto: ' . $row['m_email_address'], $row['m_email_address'], false, true);
return paragraph($link->evaluate() . ' <' . $link2->evaluate() . '>', 'e3f;l23kf;l320932kl');
}
require_code('ocf_members2');
$GLOBALS['OCF_DRIVER']->MEMBER_ROWS_CACHED[$row['id']] = $row;
return ocf_show_member_box($row['id']);
}
/**
* Standard modular run function for preview hooks.
*
* @return array A pair: The preview, the updated post Comcode
*/
function run()
{
require_lang('ocf');
require_css('ocf');
$original_comcode = post_param('post');
require_code('ocf_posts_action');
require_code('ocf_posts_action2');
ocf_check_post($original_comcode, post_param_integer('topic_id', NULL), get_member());
$posting_ref_id = post_param_integer('posting_ref_id', mt_rand(0, 100000));
if ($posting_ref_id < 0) {
fatal_exit(do_lang_tempcode('INTERNAL_ERROR'));
}
$post_bits = do_comcode_attachments($original_comcode, 'ocf_post', strval(-$posting_ref_id), true, $GLOBALS['FORUM_DB']);
$post_comcode = $post_bits['comcode'];
$post_html = $post_bits['tempcode'];
// Put quote in
$parent_id = post_param_integer('parent_id', NULL);
if (!is_null($parent_id) && strpos($post_comcode, '[quote') === false) {
$_p = $GLOBALS['FORUM_DB']->query_select('f_posts', array('*'), array('id' => $parent_id), '', 1);
if (array_key_exists(0, $_p)) {
$p = $_p[0];
$p['message'] = get_translated_tempcode($p['p_post'], $GLOBALS['FORUM_DB']);
$temp = $post_html;
$post_html = new ocp_tempcode();
$post_html = do_template('COMCODE_QUOTE_BY', array('SAIDLESS' => false, 'BY' => $p['p_poster_name_if_guest'], 'CONTENT' => $p['message']));
$post_html->attach($temp);
}
}
$post_owner = get_member();
$_post_date = time();
$post_id = post_param_integer('post_id', NULL);
if (!is_null($post_id)) {
$post_owner = $GLOBALS['FORUM_DB']->query_value_null_ok('f_posts', 'p_poster', array('id' => $post_id));
if (is_null($post_owner)) {
$post_owner = get_member();
}
$_post_date = $GLOBALS['FORUM_DB']->query_value_null_ok('f_posts', 'p_time', array('id' => $post_id));
if (is_null($_post_date)) {
$_post_date = time();
}
}
$post_date = get_timezoned_date($_post_date);
$post_title = post_param('title', '');
if (strlen($post_title) > 120) {
warn_exit(do_lang_tempcode('TITLE_TOO_LONG'));
}
$unvalidated = post_param_integer('validated', 0) == 0 && get_param('page', '') == 'topics' ? do_lang_tempcode('UNVALIDATED') : new ocp_tempcode();
$emphasis = new ocp_tempcode();
$intended_solely_for = post_param('intended_solely_for', NULL);
if ($intended_solely_for == '') {
$intended_solely_for = NULL;
}
$is_emphasised = post_param_integer('is_emphasised', 0) == 1;
if ($is_emphasised) {
$emphasis = do_lang_tempcode('IMPORTANT');
} elseif (!is_null($intended_solely_for)) {
if (is_numeric($intended_solely_for)) {
$_intended_solely_for = $GLOBALS['FORUM_DRIVER']->get_username(intval($intended_solely_for));
if (!is_null($_intended_solely_for)) {
$intended_solely_for = $_intended_solely_for;
}
}
$emphasis = do_lang_tempcode('PP_TO', escape_html($intended_solely_for));
}
$class = $is_emphasised ? 'ocf_post_emphasis' : (!is_null($intended_solely_for) ? 'ocf_post_personal' : '');
// Member details
$signature = get_translated_tempcode($GLOBALS['FORUM_DRIVER']->get_member_row_field($post_owner, 'm_signature'), $GLOBALS['FORUM_DB']);
$_postdetails_avatar = $GLOBALS['FORUM_DRIVER']->get_member_avatar_url($post_owner);
if ($_postdetails_avatar != '') {
$post_avatar = do_template('OCF_TOPIC_POST_AVATAR', array('_GUID' => '2683c09eabd7a9f1fdc57a20117483ef', 'AVATAR' => $_postdetails_avatar));
} else {
$post_avatar = new ocp_tempcode();
}
require_code('ocf_groups');
require_code('ocf_members');
$poster_title = addon_installed('ocf_member_titles') ? $GLOBALS['FORUM_DRIVER']->get_member_row_field($post_owner, 'm_title') : '';
$primary_group = $GLOBALS['FORUM_DRIVER']->get_member_row_field($post_owner, 'm_primary_group');
if ($poster_title == '') {
$poster_title = get_translated_text(ocf_get_group_property($primary_group, 'title'), $GLOBALS['FORUM_DB']);
}
// Poster box
if (!is_guest($post_owner)) {
require_code('ocf_members2');
$poster_details = ocf_show_member_box($post_owner, false, NULL, NULL, false);
$poster_username = $GLOBALS['FORUM_DRIVER']->get_username($post_owner);
if (is_null($poster_username)) {
$poster_username = do_lang('UNKNOWN');
}
$poster = do_template('OCF_POSTER_MEMBER', array('_GUID' => '976a6ceb631bbdcdd950b723cb5d2487', 'ONLINE' => true, 'ID' => strval($post_owner), 'POSTER_DETAILS' => $poster_details, 'PROFILE_URL' => $GLOBALS['FORUM_DRIVER']->member_profile_url($post_owner, false, true), 'POSTER_USERNAME' => $poster_username));
} else {
$poster_details = new ocp_tempcode();
$custom_fields = do_template('OCF_TOPIC_POST_CUSTOM_FIELD', array('NAME' => do_lang_tempcode('IP_ADDRESS'), 'VALUE' => get_ip_address()));
$poster_details = do_template('OCF_GUEST_DETAILS', array('_GUID' => '2db48e17db9f060c04386843f2d0f105', 'CUSTOM_FIELDS' => $custom_fields));
$poster_username = post_param('poster_name_if_guest', do_lang('GUEST'));
$ip_link = has_actual_page_access(get_member(), 'admin_lookup') ? build_url(array('page' => 'admin_lookup', 'param' => get_ip_address()), get_module_zone('admin_lookup')) : new ocp_tempcode();
$poster = do_template('OCF_POSTER_GUEST', array('_GUID' => '9c0ba6198663de96facc7399a08e8281', 'IP_LINK' => $ip_link, 'POSTER_DETAILS' => $poster_details, 'POSTER_USERNAME' => $poster_username));
}
// Rank images
$rank_images = new ocp_tempcode();
$posters_groups = $GLOBALS['FORUM_DRIVER']->get_members_groups($post_owner, 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);
if ($rank_image != '') {
$rank_images->attach(do_template('OCF_RANK_IMAGE', array('_GUID' => 'a6a413fc07e05b28ab995b072718b755', 'GROUP_NAME' => $group_name, 'USERNAME' => $GLOBALS['FORUM_DRIVER']->get_username(get_member()), 'IMG' => $rank_image, 'IS_LEADER' => $group_leader == get_member())));
}
}
if (get_param('type') == 'edit_post') {
$last_edited = do_template('OCF_TOPIC_POST_LAST_EDITED', array('LAST_EDIT_DATE_RAW' => strval(time()), 'LAST_EDIT_DATE' => get_timezoned_date(time(), true), 'LAST_EDIT_PROFILE_URL' => $GLOBALS['FORUM_DRIVER']->member_profile_url(get_member(), false, true), 'LAST_EDIT_USERNAME' => $GLOBALS['FORUM_DRIVER']->get_username(get_member())));
} else {
$last_edited = new ocp_tempcode();
}
$post = do_template('OCF_TOPIC_POST', array('_GUID' => '354473f96b4f7324d2a9c476ff78f0d7', 'POST_ID' => '', 'TOPIC_FIRST_POST_ID' => '', 'TOPIC_FIRST_POSTER' => strval(get_member()), 'POST_TITLE' => $post_title, 'CLASS' => $class, 'EMPHASIS' => $emphasis, 'FIRST_UNREAD' => '', 'TOPIC_ID' => '', 'ID' => '', 'POST_DATE_RAW' => strval($_post_date), 'POST_DATE' => $post_date, 'UNVALIDATED' => $unvalidated, 'URL' => '', 'POSTER' => $poster, 'POST_AVATAR' => $post_avatar, 'POSTER_TITLE' => $poster_title, 'RANK_IMAGES' => $rank_images, 'POST' => $post_html, 'LAST_EDITED' => $last_edited, 'SIGNATURE' => $signature, 'BUTTONS' => '', 'POSTER_ID' => strval($post_owner)));
$out = do_template('OCF_TOPIC_POST_CLEAN_WRAP', array('_GUID' => '62bbfabfa5c16c2aa6724a0b79839626', 'POST' => $post));
return array($out, $post_comcode);
}
/**
* Show a post, isolated of the other posts in it's topic.
*
* @param array The post row.
* @param boolean Whether to use the post title, as opposed to the post's topic's title.
* @return tempcode The isolated post.
*/
function ocf_show_isolated_post($row, $use_post_title = false)
{
require_code('ocf_groups');
require_css('ocf');
// Poster title
$primary_group = $GLOBALS['FORUM_DRIVER']->get_member_row_field($row['p_poster'], 'm_primary_group');
if (!is_null($primary_group)) {
if (addon_installed('ocf_member_titles')) {
$poster_title = $GLOBALS['OCF_DRIVER']->get_member_row_field($row['p_poster'], 'm_title');
if ($poster_title == '') {
$poster_title = get_translated_text(ocf_get_group_property($primary_group, 'title'), $GLOBALS['FORUM_DB']);
}
} else {
$poster_title = '';
}
$avatar = $GLOBALS['FORUM_DRIVER']->get_member_avatar_url($row['p_poster']);
$posters_groups = $GLOBALS['FORUM_DRIVER']->get_members_groups($row['p_poster'], true);
} else {
$poster_title = '';
$avatar = '';
$posters_groups = array();
}
// Avatar
if (is_guest($row['p_poster'])) {
if ($row['p_poster_name_if_guest'] == do_lang('SYSTEM')) {
$avatar = find_theme_image('ocf_default_avatars/default_set/ocp_fanatic', true);
}
}
if ($avatar != '') {
$post_avatar = do_template('OCF_TOPIC_POST_AVATAR', array('AVATAR' => $avatar));
} else {
$post_avatar = new ocp_tempcode();
}
// Rank images
$rank_images = new ocp_tempcode();
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 == $primary_group)) {
$rank_images->attach(do_template('OCF_RANK_IMAGE', array('GROUP_NAME' => $group_name, 'USERNAME' => $GLOBALS['FORUM_DRIVER']->get_username($row['p_poster']), 'IMG' => $rank_image, 'IS_LEADER' => $group_leader == $row['p_poster'])));
}
}
// Poster details
if (!is_guest($row['p_poster']) && !is_null($primary_group)) {
require_code('ocf_members2');
$poster_details = ocf_show_member_box($row['p_poster'], false, NULL, NULL, false);
} else {
$custom_fields = new ocp_tempcode();
$poster_details = new ocp_tempcode();
}
if (!is_guest($row['p_poster']) && !is_null($primary_group)) {
$poster = do_template('OCF_POSTER_MEMBER', array('ONLINE' => member_is_online($row['p_poster']), 'ID' => strval($row['p_poster']), 'POSTER_DETAILS' => $poster_details, 'PROFILE_URL' => $GLOBALS['FORUM_DRIVER']->member_profile_url($row['p_poster'], false, true), 'POSTER_USERNAME' => $GLOBALS['FORUM_DRIVER']->get_username($row['p_poster']), 'HIGHLIGHT_NAME' => NULL));
} else {
$poster = do_template('OCF_POSTER_GUEST', array('IP_LINK' => '', 'POSTER_DETAILS' => $poster_details, 'POSTER_USERNAME' => $row['p_poster_name_if_guest'] != '' ? $row['p_poster_name_if_guest'] : do_lang('GUEST')));
}
// Last edited
if (!is_null($row['p_last_edit_time'])) {
$last_edited = do_template('OCF_TOPIC_POST_LAST_EDITED', array('LAST_EDIT_DATE_RAW' => is_null($row['p_last_edit_time']) ? '' : strval($row['p_last_edit_time']), 'LAST_EDIT_DATE' => get_timezoned_date($row['p_last_edit_time']), 'LAST_EDIT_PROFILE_URL' => is_null($row['p_last_edit_by']) ? '' : $GLOBALS['FORUM_DRIVER']->member_profile_url($row['p_last_edit_by'], false, true), 'LAST_EDIT_USERNAME' => is_null($row['p_last_edit_by']) ? '' : $GLOBALS['FORUM_DRIVER']->get_username($row['p_last_edit_by'])));
} else {
$last_edited = new ocp_tempcode();
}
$last_edited_raw = is_null($row['p_last_edit_time']) ? '' : strval($row['p_last_edit_time']);
// Misc stuff
$poster_id = $row['p_poster'];
$tree = ocf_forum_breadcrumbs($row['p_cache_forum_id']);
$post_url = build_url(array('page' => 'topicview', 'type' => 'findpost', 'id' => $row['id']), get_module_zone('topicview'));
$post_url->attach('#post_' . strval($row['id']));
if (get_page_name() != 'search' && array_key_exists('text_parsed', $row) && !is_null($row['text_parsed']) && $row['text_parsed'] != '' && $row['p_post'] != 0) {
$post = new ocp_tempcode();
if (!$post->from_assembly($row['text_parsed'], true)) {
$post = get_translated_tempcode($row['p_post'], $GLOBALS['FORUM_DB']);
}
} else {
$post = get_translated_tempcode($row['p_post'], $GLOBALS['FORUM_DB']);
}
$post_date = get_timezoned_date($row['p_time']);
$post_date_raw = $row['p_time'];
if ($use_post_title) {
$post_title = $row['p_title'];
} else {
$post_title = $GLOBALS['FORUM_DB']->query_value('f_topics', 't_cache_first_title', array('id' => $row['p_topic_id']));
if ($row['p_title'] != $post_title) {
$post_title .= ': ' . $row['p_title'];
}
}
//if ($post_title=='') $post_title=do_lang_tempcode('ISOLATED_POST_TITLE',strval($row['id']));
$emphasis = new ocp_tempcode();
if ($row['p_is_emphasised'] == 1) {
$emphasis = do_lang_tempcode('IMPORTANT');
} elseif (!is_null($row['p_intended_solely_for'])) {
$pp_to_username = $GLOBALS['FORUM_DRIVER']->get_username($row['p_intended_solely_for']);
if (is_null($pp_to_username)) {
$pp_to_username = do_lang('UNKNOWN');
}
$emphasis = do_lang('PP_TO', $pp_to_username);
}
require_code('feedback');
actualise_rating(true, 'post', strval($row['id']), get_self_url(), $row['p_title']);
$rating = display_rating(get_self_url(), $row['p_title'], 'post', strval($row['id']), 'RATING_INLINE_DYNAMIC', $row['p_poster']);
// Render
return do_template('OCF_ISOLATED_POST', array('_GUID' => '9456f4fe4b8fb1bf34f606fcb2bcc9d7', 'URL' => $post_url, 'ID' => strval($row['id']), 'TREE' => $tree, 'POST' => do_template('OCF_TOPIC_POST', array('ID' => strval($row['id']), 'TOPIC_FIRST_POST_ID' => '', 'TOPIC_FIRST_POSTER' => '', 'POST_ID' => strval($row['id']), 'URL' => $post_url, 'CLASS' => $row['p_is_emphasised'] == 1 ? 'ocf_post_emphasis' : (!is_null($row['p_intended_solely_for']) ? 'ocf_post_personal' : ''), 'EMPHASIS' => $emphasis, 'FIRST_UNREAD' => '', 'POSTER_TITLE' => $poster_title, 'POST_TITLE' => $post_title, 'POST_DATE_RAW' => strval($post_date_raw), 'POST_DATE' => $post_date, 'POST' => $post, 'TOPIC_ID' => is_null($row['p_topic_id']) ? '' : strval($row['p_topic_id']), 'LAST_EDITED_RAW' => $last_edited_raw, 'LAST_EDITED' => $last_edited, 'POSTER_ID' => strval($poster_id), 'POSTER' => $poster, 'POSTER_DETAILS' => $poster_details, 'POST_AVATAR' => $post_avatar, 'RANK_IMAGES' => $rank_images, 'BUTTONS' => '', 'SIGNATURE' => '', 'UNVALIDATED' => '', 'DESCRIPTION' => '', 'PREVIEWING' => true, 'RATING' => $rating))));
}
/**
* Standard modular render function for profile tab hooks.
*
* @param MEMBER The ID of the member who is being viewed
* @param MEMBER The ID of the member who is doing the viewing
* @param boolean Whether to leave the tab contents NULL, if tis hook supports it, so that AJAX can load it later
* @return array A triple: The tab title, the tab contents, the suggested tab order
*/
function render_tab($member_id_of, $member_id_viewing, $leave_to_ajax_if_possible = false)
{
require_lang('chat');
require_lang('ocf');
$title = do_lang_tempcode('FRIENDS');
$order = 70;
if ($leave_to_ajax_if_possible) {
return array($title, NULL, $order);
}
// Friends
$friends_a = array();
$friends_b = array();
$add_friend_url = new ocp_tempcode();
$remove_friend_url = new ocp_tempcode();
$all_buddies_link = new ocp_tempcode();
if (addon_installed('chat')) {
require_code('chat');
if ($member_id_of != $member_id_viewing && !is_guest()) {
if (!member_befriended($member_id_of)) {
$add_friend_url = build_url(array('page' => 'chat', 'type' => 'buddy_add', 'member_id' => $member_id_of, 'redirect' => get_self_url(true)), get_module_zone('chat'));
} else {
$remove_friend_url = build_url(array('page' => 'chat', 'type' => 'buddy_remove', 'member_id' => $member_id_of, 'redirect' => get_self_url(true)), get_module_zone('chat'));
}
}
$rows = $GLOBALS['SITE_DB']->query('SELECT * FROM ' . $GLOBALS['SITE_DB']->get_table_prefix() . 'chat_buddies WHERE member_likes=' . strval(intval($member_id_of)) . ' OR member_liked=' . strval(intval($member_id_of)) . ' ORDER BY date_and_time', 100);
//$rows=array(array('member_liked'=>2,'member_likes'=>3),array('member_liked'=>3,'member_likes'=>2));
$blocked = collapse_1d_complexity('member_blocked', $GLOBALS['SITE_DB']->query_select('chat_blocking', array('member_blocked'), array('member_blocker' => $member_id_of)));
$done_already = array();
$all_usergroups = $GLOBALS['FORUM_DRIVER']->get_usergroup_list(true, false, false, NULL, $member_id_of);
foreach ($rows as $i => $row) {
$f_id = $row['member_liked'] == $member_id_of ? $row['member_likes'] : $row['member_liked'];
if (array_key_exists($f_id, $done_already)) {
continue;
}
if ($f_id == $row['member_likes'] || !in_array($f_id, $blocked)) {
$appears_twice = false;
foreach ($rows as $j => $row2) {
$f_id_2 = $row2['member_liked'] == $member_id_of ? $row2['member_likes'] : $row2['member_liked'];
if ($f_id_2 == $f_id && $i != $j) {
$appears_twice = true;
break;
}
}
require_code('ocf_members');
require_code('ocf_members2');
$friend_username = $GLOBALS['FORUM_DRIVER']->get_username($f_id);
$friend_usergroup_id = $GLOBALS['FORUM_DRIVER']->get_member_row_field($f_id, 'm_primary_group');
$friend_usergroup = array_key_exists($friend_usergroup_id, $all_usergroups) ? $all_usergroups[$friend_usergroup_id] : do_lang_tempcode('UNKNOWN');
$mutual_label = do_lang('MUTUAL_FRIEND');
$box = ocf_show_member_box($f_id, false, NULL, NULL, true, $f_id == $member_id_viewing || $member_id_of == $member_id_viewing ? array($mutual_label => do_lang($appears_twice ? 'YES' : 'NO')) : NULL);
if ($box->is_empty()) {
continue;
}
$friend_map = array('USERGROUP' => $friend_usergroup, 'USERNAME' => $friend_username, 'URL' => $GLOBALS['FORUM_DRIVER']->member_profile_url($f_id, false, true), 'F_ID' => strval($f_id), 'BOX' => $box);
if ($appears_twice) {
$friends_a[] = $friend_map;
} else {
$friends_b[] = $friend_map;
}
}
$done_already[$f_id] = 1;
}
if (count($rows) == 100) {
$all_buddies_link = build_url(array('page' => 'chat', 'type' => 'buddies_list', 'id' => $member_id_of), get_module_zone('chat'));
}
}
$content = do_template('OCF_MEMBER_PROFILE_FRIENDS', array('MEMBER_ID' => strval($member_id_of), 'FRIENDS_A' => $friends_a, 'FRIENDS_B' => $friends_b, 'ALL_BUDDIES_LINK' => $all_buddies_link, 'ADD_FRIEND_URL' => $add_friend_url, 'REMOVE_FRIEND_URL' => $remove_friend_url));
return array($title, $content, $order);
}
/**
* The UI to show the member directory.
*
* @return tempcode The UI
*/
function directory()
{
require_javascript('javascript_ajax');
require_javascript('javascript_ajax_people_lists');
$title = get_page_title('MEMBERS');
require_code('templates_internalise_screen');
$test_tpl = internalise_own_screen($title);
if (is_object($test_tpl)) {
return $test_tpl;
}
if (running_script('iframe')) {
$get_url = find_script('iframe');
} else {
$get_url = find_script('index');
}
$hidden = new ocp_tempcode();
$hidden->attach(build_keep_form_fields('_SELF', true, array('filter')));
$hidden->attach(form_input_hidden('zone', get_zone_name()));
$start = get_param_integer('md_start', 0);
$max = get_param_integer('md_max', 50);
$sortables = array('m_username' => do_lang_tempcode('USERNAME'), 'm_primary_group' => do_lang_tempcode('PRIMARY_GROUP'), 'm_cache_num_posts' => do_lang_tempcode('COUNT_POSTS'), 'm_join_time' => do_lang_tempcode('JOIN_DATE'));
$default_sort_order = get_value('md_default_sort_order');
if (is_null($default_sort_order)) {
$default_sort_order = 'm_join_time DESC';
}
$test = explode(' ', get_param('md_sort', $default_sort_order), 2);
if (count($test) == 1) {
$test[] = 'ASC';
}
list($sortable, $sort_order) = $test;
if (strtoupper($sort_order) != 'ASC' && strtoupper($sort_order) != 'DESC' || !array_key_exists($sortable, $sortables)) {
log_hack_attack_and_exit('ORDERBY_HACK');
}
global $NON_CANONICAL_PARAMS;
$NON_CANONICAL_PARAMS[] = 'md_sort';
$group_filter = get_param('group_filter', '');
$_usergroups = $GLOBALS['FORUM_DRIVER']->get_usergroup_list(true, false, false, $group_filter == '' ? NULL : array(intval($group_filter)));
$usergroups = array();
require_code('ocf_groups2');
foreach ($_usergroups as $group_id => $group) {
$num = ocf_get_group_members_raw_count($group_id, true);
$usergroups[$group_id] = array('USERGROUP' => $group, 'NUM' => strval($num));
}
$query = 'FROM ' . $GLOBALS['FORUM_DB']->get_table_prefix() . 'f_members WHERE id<>' . strval(db_get_first_id());
if (!has_specific_permission(get_member(), 'see_unvalidated')) {
$query .= ' AND m_validated=1';
}
if ($group_filter != '') {
if (is_numeric($group_filter)) {
$title = get_page_title('USERGROUP', true, array(escape_html($usergroups[intval($group_filter)]['USERGROUP'])));
}
require_code('ocfiltering');
$filter = ocfilter_to_sqlfragment($group_filter, 'm_primary_group', 'f_groups', NULL, 'm_primary_group', 'id');
$query .= ' AND ' . $filter;
}
$search = get_param('filter', '');
$sup = $search != '' ? ' AND m_username LIKE \'' . db_encode_like(str_replace('*', '%', $search)) . '\'' : '';
if ($sortable == 'm_join_time') {
$query .= $sup . ' ORDER BY m_join_time ' . $sort_order . ',' . 'id ' . $sort_order;
} else {
$query .= $sup . ' ORDER BY ' . $sortable . ' ' . $sort_order;
}
$max_rows = $GLOBALS['FORUM_DB']->query_value_null_ok_full('SELECT COUNT(*) ' . $query);
$rows = $GLOBALS['FORUM_DB']->query('SELECT * ' . $query, $max, $start);
if (count($rows) == 0) {
return inform_screen($title, do_lang_tempcode('NO_RESULTS'));
}
$members = new ocp_tempcode();
$member_boxes = array();
require_code('templates_results_table');
$fields_title = results_field_title(array(do_lang_tempcode('USERNAME'), do_lang_tempcode('PRIMARY_GROUP'), do_lang_tempcode('COUNT_POSTS'), do_lang_tempcode('JOIN_DATE')), $sortables, 'md_sort', $sortable . ' ' . $sort_order);
require_code('ocf_members2');
foreach ($rows as $row) {
$link = $GLOBALS['FORUM_DRIVER']->member_profile_hyperlink($row['id'], true, $row['m_username']);
if ($row['m_validated'] == 0) {
$link->attach(do_lang_tempcode('MEMBER_IS_UNVALIDATED'));
}
if ($row['m_validated_email_confirm_code'] != '') {
$link->attach(do_lang_tempcode('MEMBER_IS_UNCONFIRMED'));
}
$member_primary_group = ocf_get_member_primary_group($row['id']);
$primary_group = ocf_get_group_link($member_primary_group);
$members->attach(results_entry(array($link, $primary_group, escape_html(integer_format($row['m_cache_num_posts'])), escape_html(get_timezoned_date($row['m_join_time'])))));
$member_boxes[] = ocf_show_member_box($row['id'], true);
}
$results_table = results_table(do_lang_tempcode('MEMBERS'), $start, 'md_start', $max, 'md_max', $max_rows, $fields_title, $members, $sortables, $sortable, $sort_order, 'md_sort');
$results_browser = results_browser(do_lang_tempcode('MEMBERS'), NULL, $start, 'md_start', $max, 'md_max', $max_rows, NULL, NULL, true, true);
$symbols = NULL;
if (get_option('allow_alpha_search') == '1') {
$alpha_query = $GLOBALS['FORUM_DB']->query('SELECT m_username FROM ' . $GLOBALS['FORUM_DB']->get_table_prefix() . 'f_members WHERE id<>' . strval(db_get_first_id()) . ' ORDER BY m_username ASC');
$symbols = array(array('START' => '0', 'SYMBOL' => do_lang('ALL')), array('START' => '0', 'SYMBOL' => '#'));
foreach (array('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z') as $s) {
foreach ($alpha_query as $i => $q) {
if (strtolower(substr($q['m_username'], 0, 1)) == $s) {
break;
}
}
if (substr(strtolower($q['m_username']), 0, 1) != $s) {
$i = intval($symbols[count($symbols) - 1]['START']);
}
$symbols[] = array('START' => strval(intval($max * floor(floatval($i) / floatval($max)))), 'SYMBOL' => $s);
}
}
return do_template('OCF_MEMBER_DIRECTORY_SCREEN', array('_GUID' => '096767e9aaabce9cb3e6591b7bcf95b8', 'MAX' => strval($max), 'RESULTS_BROWSER' => $results_browser, 'MEMBER_BOXES' => $member_boxes, 'USERGROUPS' => $usergroups, 'HIDDEN' => $hidden, 'SYMBOLS' => $symbols, 'SEARCH' => $search, 'GET_URL' => $get_url, 'TITLE' => $title, 'RESULTS_TABLE' => $results_table));
}
<?php
/*
ocPortal
Copyright (c) ocProducts, 2004-2012
See text/EN/licence.txt for full licencing information.
*/
if (!isset($map['max'])) {
$map['max'] = '10';
}
require_code('ocf_members');
require_code('ocf_members2');
$members = $GLOBALS['FORUM_DRIVER']->member_group_query(array(intval($map['param'])), intval($map['max']));
global $M_SORT_KEY;
$M_SORT_KEY = 'id';
usort($members, 'multi_sort');
$members = array_reverse($members);
foreach ($members as $i => $member) {
if ($i == intval($map['max'])) {
break;
}
$tpl = ocf_show_member_box($member['id']);
$tpl->evaluate_echo();
echo '<br />';
}
/**
* Parse the complete text of the inside of the tag.
*
* @param object The parser object (same as 'this')
* @param tempcode Tempcode from child elements
* @param array A map containing arrays of tempcode from child elements indexed under element name
* @return array A pair: The resultant tempcode. Whether the resultant tempcode is aggregated with neighbours.
*/
function convertFinalisedElement($parser, $child_tempcode, $special_child_elements)
{
$this->marker = xml_get_current_byte_index($parser);
global $VALID_COMCODE_TAGS, $COMCODE_XML_PARAM_RENAMING, $COMCODE_XML_SWITCH_AROUND;
$conflict_tags = array('br', 'hr', 'table', 'tr', 'th', 'td');
$aux_tags = array('html_wrap', 'comcode', 'br', 'hr', 'table', 'tr', 'th', 'td', 'float', 'fh', 'fd', 'emoticon', 'member', 'cedi', 'list', 'list_element', 'concepts', 'show_concept', 'block', 'block_param', 'random', 'random_target', 'jumping', 'jumping_target', 'shocker', 'shocker_left', 'shocker_right', 'directive', 'language', 'symbol', 'directive_param', 'language_param', 'symbol_param', 'attachment', 'attachment_description', 'hide', 'hide_title', 'tooltip', 'tooltip_message');
// Tidy up tag name
$namespace = array_peek($this->namespace_stack);
if (is_null($namespace)) {
$namespace = '';
}
$tag = array_peek($this->tag_stack);
$colon_pos = strrpos($tag, ':');
if ($colon_pos !== false) {
$namespace = substr($tag, 0, $colon_pos);
$tag = substr($tag, $colon_pos + 1);
}
$tag = from_camelCase($tag);
// Tidy up attributes
$attributes = array_peek($this->attribute_stack);
foreach ($COMCODE_XML_PARAM_RENAMING as $_tag => $comcode_xml_name) {
if ($tag == $_tag && isset($attributes[$comcode_xml_name])) {
$attributes['param'] = $attributes[$comcode_xml_name];
unset($attributes[$comcode_xml_name]);
}
}
foreach ($attributes as $key => $val) {
unset($attributes[$key]);
$attributes[from_camelCase($key)] = $val;
}
// Do any switching around (Comcode has different embed vs attribute semantics to XML)
foreach (array_merge($COMCODE_XML_SWITCH_AROUND, array('email')) as $_tag) {
if ($tag == $_tag) {
$x = 'param';
if ($tag == 'reference') {
$x = 'title';
}
$temp = array_key_exists($x, $attributes) ? $attributes[$x] : '';
$attributes[$x] = $child_tempcode->evaluate();
$child_tempcode = make_string_tempcode($temp);
}
}
$tempcode = new ocp_tempcode();
$aggregate = true;
$is_html = false;
if (in_array($tag, $conflict_tags)) {
if (strpos($namespace, 'html') !== false) {
$is_html = true;
}
} elseif (strpos($namespace, 'html') !== false) {
if (!isset($VALID_COMCODE_TAGS[$tag]) && !in_array($tag, $aux_tags)) {
$is_html = true;
}
}
if ($is_html) {
$tempcode->attach('<' . $tag);
foreach ($attributes as $key => $val) {
$tempcode->attach(' ' . $key . '="' . escape_html($val) . '"');
}
$tempcode->attach('>');
$tempcode->attach($child_tempcode);
$tempcode->attach('</' . $tag . '>');
} else {
if (in_array($tag, $aux_tags)) {
switch ($tag) {
case 'comcode':
$tempcode = $child_tempcode;
break;
case 'html_wrap':
$tempcode = $child_tempcode;
break;
case 'br':
$tempcode = make_string_tempcode('<br />');
break;
case 'hr':
$tempcode = do_template('COMCODE_TEXTCODE_LINE');
break;
case 'table':
$tempcode = new ocp_tempcode();
if (isset($attributes['summary'])) {
$tempcode->attach('<table summary="' . escape_html($attributes['summary']) . '">');
} else {
$tempcode->attach('<table>');
}
$tempcode->attach($child_tempcode);
$tempcode->attach('</table>');
break;
case 'tr':
$tempcode->attach('<tr>');
$tempcode->attach($child_tempcode);
$tempcode->attach('</tr>');
break;
case 'th':
$tempcode->attach('<th style="vertical-align: top">');
$tempcode->attach($child_tempcode);
$tempcode->attach('</th>');
break;
case 'td':
$tempcode->attach('<td style="vertical-align: top">');
$tempcode->attach($child_tempcode);
$tempcode->attach('</td>');
break;
case 'float':
$tempcode->attach($child_tempcode);
$tempcode->attach('<br style="clear: both" />');
break;
case 'fh':
// Limited due to limitation of XML
$i_dir_1 = 'left';
$i_dir_2 = 'right';
$tempcode->attach('<div style="padding-' . $i_dir_2 . ': 30px; float: ' . $i_dir_1 . '">');
$tempcode->attach($child_tempcode);
$tempcode->attach('</th>');
break;
case 'fd':
$tempcode->attach('<div class="inline">');
$tempcode->attach($child_tempcode);
$tempcode->attach('</div>');
break;
case 'emoticon':
$smilies = $GLOBALS['FORUM_DRIVER']->find_emoticons();
// Sorted in descending length order
require_code('comcode_text');
$_child_tempcode = $child_tempcode->evaluate();
foreach ($smilies as $code => $imgcode) {
if ($_child_tempcode == $code) {
$eval = do_emoticon($imgcode);
$tempcode = $eval;
break;
}
}
break;
case 'directive':
if (!isset($special_child_elements['directiveParam'])) {
$special_child_elements['directiveParam'] = array();
}
$tempcode = directive_tempcode($attributes['type'], $child_tempcode, $special_child_elements['directiveParam']);
break;
case 'language':
if (!isset($special_child_elements['languageParam'])) {
$special_child_elements['languageParam'] = array();
}
$a = array_shift($special_child_elements['languageParam']);
$b = array_shift($special_child_elements['languageParam']);
$symbol_params = array();
foreach ($special_child_elements['languageParam'] as $val) {
$symbol_params[] = $val->evaluate();
}
$tempcode = do_lang_tempcode($child_tempcode->evaluate(), $a, $b, $symbol_params);
break;
case 'symbol':
if (!isset($special_child_elements['symbolParam'])) {
$special_child_elements['symbolParam'] = array();
}
$symbol_params = array();
foreach ($special_child_elements['symbolParam'] as $val) {
$symbol_params[] = $val->evaluate();
}
$tempcode = symbol_tempcode($child_tempcode->evaluate(), $symbol_params);
break;
case 'hide_title':
case 'attachment_description':
case 'tooltip_message':
case 'list_element':
case 'show_concept':
case 'block_param':
case 'random_target':
case 'jumping_target':
case 'shocker_left':
case 'shocker_right':
case 'directive_param':
case 'language_param':
case 'symbol_param':
$tempcode = make_string_tempcode(serialize(array($attributes, $child_tempcode)));
$aggregate = false;
break;
case 'member':
$username = $child_tempcode->evaluate();
$username_info = isset($attributes['boxed']) && $attributes['boxed'] == '1';
$this_member_id = $GLOBALS['FORUM_DRIVER']->get_member_from_username($username);
if (!is_null($this_member_id)) {
$poster_url = $GLOBALS['FORUM_DRIVER']->member_profile_url($this_member_id, false, true);
if (get_forum_type() == 'ocf' && $username_info) {
require_lang('ocf');
require_code('ocf_members2');
$details = ocf_show_member_box($this_member_id);
$tempcode = do_template('HYPERLINK_TOOLTIP', array('_GUID' => 'f7b65418616787b0f732c32486b63f4e', 'TOOLTIP' => $details, 'CAPTION' => $username, 'URL' => $poster_url, 'NEW_WINDOW' => false));
} else {
$tempcode = hyperlink($poster_url, $username);
}
}
break;
case 'cedi':
$cedi_page_name = $child_tempcode->evaluate();
if (isset($attributes['anchor'])) {
$jump_to = $attributes['anchor'];
} else {
$jump_to = '';
}
$cedi_page_url = build_url(array('page' => 'cedi', 'type' => 'misc', 'find' => $cedi_page_name), get_module_zone('cedi'));
if ($jump_to != '') {
$cedi_page_url->attach('#' . $jump_to);
}
$tempcode = do_template('COMCODE_CEDI_LINK', array('_GUID' => '770ac8741e9b0fc2697d1ee3d7ec3b38', 'URL' => $cedi_page_url, 'TEXT' => $cedi_page_name));
break;
case 'list':
if (!isset($special_child_elements['listElement'])) {
$special_child_elements['listElement'] = array();
}
$my_list = array();
foreach ($special_child_elements['listElement'] as $val) {
$bits = unserialize($val->evaluate());
$my_list[] = $bits[1]->evaluate();
}
$tempcode = _do_tags_comcode($tag, $attributes, $my_list, true, $this->pass_id, $this->marker, $this->source_member, true, $this->connection, $this->comcode, $this->wml, $this->structure_sweep, $this->semiparse_mode, NULL, $this->on_behalf_of_member);
break;
case 'concepts':
if (!isset($special_child_elements['showConcept'])) {
$special_child_elements['showConcept'] = array();
}
$new_attributes = array();
foreach ($special_child_elements['showConcept'] as $i => $val) {
$bits = unserialize($val->evaluate());
$new_attributes['key_' . strval($i)] = isset($bits[0]['key']) ? $bits[0]['key'] : '';
$new_attributes['val_' . strval($i)] = isset($bits[0]['key']) ? $bits[0]['value'] : '';
}
$tempcode = _do_tags_comcode($tag, $new_attributes, $child_tempcode, true, $this->pass_id, $this->marker, $this->source_member, true, $this->connection, $this->comcode, $this->wml, $this->structure_sweep, $this->semiparse_mode, NULL, $this->on_behalf_of_member);
break;
case 'block':
if (!isset($special_child_elements['blockParam'])) {
$special_child_elements['blockParam'] = array();
}
$new_attributes = array();
foreach ($special_child_elements['blockParam'] as $i => $val) {
$bits = unserialize($val->evaluate());
$new_attributes[isset($bits[0]['key']) ? $bits[0]['key'] : 'param'] = isset($bits[0]['value']) ? $bits[0]['value'] : '';
}
$tempcode = _do_tags_comcode($tag, $new_attributes, $child_tempcode, true, $this->pass_id, $this->marker, $this->source_member, true, $this->connection, $this->comcode, $this->wml, $this->structure_sweep, $this->semiparse_mode, NULL, $this->on_behalf_of_member);
break;
case 'random':
if (!isset($special_child_elements['randomTarget'])) {
$special_child_elements['randomTarget'] = array();
}
$new_attributes = array();
foreach ($special_child_elements['randomTarget'] as $i => $val) {
$bits = unserialize($val->evaluate());
$new_attributes[isset($bits[0]['pickIfAbove']) ? $bits[0]['pickIfAbove'] : '0'] = $bits[1];
}
$tempcode = _do_tags_comcode($tag, $new_attributes, $child_tempcode, true, $this->pass_id, $this->marker, $this->source_member, true, $this->connection, $this->comcode, $this->wml, $this->structure_sweep, $this->semiparse_mode, NULL, $this->on_behalf_of_member);
break;
case 'jumping':
if (!isset($special_child_elements['jumpingTarget'])) {
$special_child_elements['jumpingTarget'] = array();
}
$new_attributes = array();
foreach ($special_child_elements['jumpingTarget'] as $i => $val) {
$bits = unserialize($val->evaluate());
$new_attributes[strval($i)] = $bits[1];
if (is_object($new_attributes[strval($i)])) {
$new_attributes[strval($i)] = $new_attributes[strval($i)]->evaluate();
}
}
$tempcode = _do_tags_comcode($tag, $new_attributes, $child_tempcode, true, $this->pass_id, $this->marker, $this->source_member, true, $this->connection, $this->comcode, $this->wml, $this->structure_sweep, $this->semiparse_mode, NULL, $this->on_behalf_of_member);
break;
case 'shocker':
if (!isset($special_child_elements['shockerLeft'])) {
$special_child_elements['shockerLeft'] = array();
}
$new_attributes = array();
foreach ($special_child_elements['shockerLeft'] as $i => $val) {
$bits = unserialize($val->evaluate());
$new_attributes['left_' . strval($i)] = $bits[1];
if (is_object($new_attributes['left_' . strval($i)])) {
$new_attributes['left_' . strval($i)] = $new_attributes['left_' . strval($i)]->evaluate();
}
}
foreach ($special_child_elements['shockerRight'] as $i => $val) {
$bits = unserialize($val->evaluate());
$new_attributes['right_' . strval($i)] = $bits[1];
if (is_object($new_attributes['right_' . strval($i)])) {
$new_attributes['right_' . strval($i)] = $new_attributes['right_' . strval($i)]->evaluate();
}
}
$tempcode = _do_tags_comcode($tag, $new_attributes, $child_tempcode, true, $this->pass_id, $this->marker, $this->source_member, true, $this->connection, $this->comcode, $this->wml, $this->structure_sweep, $this->semiparse_mode, NULL, $this->on_behalf_of_member);
break;
case 'attachment':
$description = '';
if (isset($special_child_elements['attachmentDescription'])) {
$bits = unserialize($special_child_elements['attachmentDescription'][0]->evaluate());
$title = is_object($bits[1]) ? $bits[1]->evaluate() : $bits[1];
}
$tempcode = _do_tags_comcode($tag, array_merge($attributes, array('description' => $description)), $child_tempcode, true, $this->pass_id, $this->marker, $this->source_member, true, $this->connection, $this->comcode, $this->wml, $this->structure_sweep, $this->semiparse_mode, NULL, $this->on_behalf_of_member);
break;
case 'hide':
$title = '';
if (isset($special_child_elements['hideTitle'])) {
$bits = unserialize($special_child_elements['hideTitle'][0]->evaluate());
$title = is_object($bits[1]) ? $bits[1]->evaluate() : $bits[1];
}
$tempcode = _do_tags_comcode($tag, array_merge($attributes, array('param' => $title)), $child_tempcode, true, $this->pass_id, $this->marker, $this->source_member, true, $this->connection, $this->comcode, $this->wml, $this->structure_sweep, $this->semiparse_mode, NULL, $this->on_behalf_of_member);
break;
case 'tooltip':
$title = '';
if (isset($special_child_elements['tooltipMessage'])) {
$bits = unserialize($special_child_elements['tooltipMessage'][0]->evaluate());
$title = is_object($bits[0]) ? $bits[0]->evaluate() : $bits[0];
}
$tempcode = _do_tags_comcode($tag, array_merge($attributes, array('param' => $title)), $child_tempcode, true, $this->pass_id, $this->marker, $this->source_member, true, $this->connection, $this->comcode, $this->wml, $this->structure_sweep, $this->semiparse_mode, NULL, $this->on_behalf_of_member);
break;
}
} elseif (isset($VALID_COMCODE_TAGS[$tag])) {
$tempcode = _do_tags_comcode($tag, $attributes, $child_tempcode, true, $this->pass_id, $this->marker, $this->source_member, true, $this->connection, $this->comcode, $this->wml, $this->structure_sweep, $this->semiparse_mode, NULL, $this->on_behalf_of_member);
}
// Else, it is simply unknown and hence skipped
}
return array($tempcode, $aggregate);
}
/**
* 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;
}
/**
* Standard modular run function.
*
* @return tempcode The result of execution.
*/
function run()
{
if (get_forum_type() != 'ocf') {
warn_exit(do_lang_tempcode('NO_OCF'));
} else {
ocf_require_all_forum_stuff();
}
require_code('ocf_topicview');
require_css('ocf');
global $NON_CANONICAL_PARAMS;
$NON_CANONICAL_PARAMS[] = 'max';
$NON_CANONICAL_PARAMS[] = 'start';
$NON_CANONICAL_PARAMS[] = 'threaded';
$start = get_param_integer('start', 0);
$default_max = intval(get_option('forum_posts_per_page'));
$max = get_param_integer('max', $default_max);
if ($max == 0) {
$max = $default_max;
}
if ($max == 0) {
$max = 1;
}
if ($max > 30 && !has_specific_permission(get_member(), 'remove_page_split')) {
$max = $default_max;
}
$first_unread_id = -1;
global $NON_CANONICAL_PARAMS;
foreach (array_keys($_GET) as $key) {
if (substr($key, 0, 3) == 'kfs') {
$NON_CANONICAL_PARAMS[] = $key;
}
}
$type = get_param('type', 'misc');
$id = get_param_integer('id', NULL);
if (is_guest() && is_null($id)) {
access_denied('NOT_AS_GUEST');
}
if ($type == 'findpost') {
$post_id = get_param_integer('id');
$redirect = find_post_id_url($post_id);
require_code('site2');
assign_refresh($redirect, 0.0);
return do_template('REDIRECT_SCREEN', array('_GUID' => '76e6d34c20a4f5284119827e41c7752f', 'URL' => $redirect, 'TITLE' => get_page_title('VIEW_TOPIC'), 'TEXT' => do_lang_tempcode('REDIRECTING')));
} else {
if ($type == 'first_unread') {
$redirect = find_first_unread_url($id);
require_code('site2');
assign_refresh($redirect, 0.0);
return do_template('REDIRECT_SCREEN', array('_GUID' => '12c5d16f60e8c4df03536d9a7a932528', 'URL' => $redirect, 'TITLE' => get_page_title('VIEW_TOPIC'), 'TEXT' => do_lang_tempcode('REDIRECTING')));
}
}
if (!is_null($id)) {
$GLOBALS['FEED_URL'] = find_script('backend') . '?mode=ocf_topicview&filter=' . strval($id);
}
$view_poll_results = get_param_integer('view_poll_results', 0);
// Mark as read
if (!is_null($id)) {
if (!is_guest()) {
$GLOBALS['FORUM_DB']->query_delete('f_read_logs', array('l_member_id' => get_member(), 'l_topic_id' => $id), '', 1);
$GLOBALS['FORUM_DB']->query_insert('f_read_logs', array('l_member_id' => get_member(), 'l_topic_id' => $id, 'l_time' => time()), false, true);
// race condition
}
$GLOBALS['FORUM_DB']->query('UPDATE ' . $GLOBALS['FORUM_DB']->get_table_prefix() . 'f_topics SET t_num_views=(t_num_views+1) WHERE id=' . strval((int) $id), 1, NULL, true);
}
// Load up topic info
$topic_info = ocf_read_in_topic($id, $start, $max, $view_poll_results == 1);
$GLOBALS['META_DATA'] += $topic_info['meta_data'];
global $SEO_TITLE;
$SEO_TITLE = do_lang('_VIEW_TOPIC', $topic_info['title']);
// Render posts according to whether threaded or not
$threaded = $topic_info['is_threaded'] == 1;
$may_reply = array_key_exists('may_reply', $topic_info) && ($topic_info['is_open'] || array_key_exists('may_post_closed', $topic_info));
if (!$threaded) {
$GLOBALS['META_DATA']['description'] = $topic_info['description'];
// Poster detail hooks
$hooks = find_all_hooks('modules', 'topicview');
$hook_objects = array();
foreach (array_keys($hooks) as $hook) {
require_code('hooks/modules/topicview/' . filter_naughty_harsh($hook));
$object = object_factory('Hook_' . filter_naughty_harsh($hook), true);
if (is_null($object)) {
continue;
}
$hook_objects[$hook] = $object;
}
// Render non-threaded
$posts = new ocp_tempcode();
$replied = false;
if (is_null($topic_info['forum_id'])) {
decache('side_ocf_personal_topics', array(get_member()));
decache('_new_pp', array(get_member()));
}
$second_poster = $topic_info['first_poster'];
foreach ($topic_info['posts'] as $array_id => $_postdetails) {
if ($array_id == 0) {
$description = $topic_info['description'];
} else {
$description = NULL;
}
if ($_postdetails['poster'] == get_member()) {
$replied = true;
}
if ($array_id == 1 && $start == 0 || $array_id == 0 && $start != 0) {
$second_poster = $_postdetails['poster'];
}
if (array_key_exists('last_edit_time', $_postdetails)) {
$last_edited = do_template('OCF_TOPIC_POST_LAST_EDITED', array('_GUID' => '77a28e8bc3cf2ec2211aafdb5ba192bf', 'LAST_EDIT_DATE_RAW' => is_null($_postdetails['last_edit_time']) ? '' : strval($_postdetails['last_edit_time']), 'LAST_EDIT_DATE' => $_postdetails['last_edit_time_string'], 'LAST_EDIT_PROFILE_URL' => $GLOBALS['FORUM_DRIVER']->member_profile_url($_postdetails['last_edit_by'], false, true), 'LAST_EDIT_USERNAME' => $_postdetails['last_edit_by_username']));
} else {
$last_edited = new ocp_tempcode();
}
$last_edited_raw = array_key_exists('last_edit_time', $_postdetails) ? is_null($_postdetails['last_edit_time']) ? '' : strval($_postdetails['last_edit_time']) : '0';
$is_spacer_post = $_postdetails['is_spacer_post'];
// Post buttons
$buttons = new ocp_tempcode();
if (!$is_spacer_post) {
$buttons = ocf_render_post_buttons($topic_info, $_postdetails, $may_reply);
}
// Avatar
if (array_key_exists('poster_avatar', $_postdetails) && $_postdetails['poster_avatar'] != '') {
$post_avatar = do_template('OCF_TOPIC_POST_AVATAR', array('_GUID' => 'd647ada9c11d56eedc0ff7894d33e83c', 'AVATAR' => $_postdetails['poster_avatar']));
} else {
$post_avatar = new ocp_tempcode();
}
// Rank images
$rank_images = new ocp_tempcode();
if (!$is_spacer_post) {
$posters_groups = $GLOBALS['FORUM_DRIVER']->get_members_groups($_postdetails['poster'], 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($_postdetails['poster'], 'm_primary_group'))) {
$rank_images->attach(do_template('OCF_RANK_IMAGE', array('_GUID' => '0ff7855482b901be95591964d4212c44', 'GROUP_NAME' => $group_name, 'USERNAME' => $GLOBALS['FORUM_DRIVER']->get_username($_postdetails['poster']), 'IMG' => $rank_image, 'IS_LEADER' => $group_leader == $_postdetails['poster'])));
}
}
}
// Poster details
if (!$is_spacer_post) {
if (!is_guest($_postdetails['poster'])) {
require_code('ocf_members2');
$poster_details = ocf_show_member_box($_postdetails, false, $hooks, $hook_objects, false);
} else {
$custom_fields = new ocp_tempcode();
if (array_key_exists('ip_address', $_postdetails)) {
$custom_fields->attach(do_template('OCF_TOPIC_POST_CUSTOM_FIELD', array('_GUID' => 'd85be094dff0d039a64120d6f8f381bb', 'NAME' => do_lang_tempcode('IP_ADDRESS'), 'VALUE' => $_postdetails['ip_address'])));
$poster_details = do_template('OCF_GUEST_DETAILS', array('_GUID' => 'e43534acaf598008602e8da8f9725f38', 'CUSTOM_FIELDS' => $custom_fields));
} else {
$poster_details = new ocp_tempcode();
}
}
} else {
$poster_details = new ocp_tempcode();
}
if (!is_guest($_postdetails['poster'])) {
$poster = do_template('OCF_POSTER_MEMBER', array('_GUID' => 'dbbed1850b6c01a6c9601d85c6aee43f', 'ONLINE' => member_is_online($_postdetails['poster']), 'ID' => strval($_postdetails['poster']), 'POSTER_DETAILS' => $poster_details, 'PROFILE_URL' => $GLOBALS['FORUM_DRIVER']->member_profile_url($_postdetails['poster'], false, true), 'POSTER_USERNAME' => $_postdetails['poster_username'], 'HIGHLIGHT_NAME' => array_key_exists('poster_highlighted_name', $_postdetails) ? strval($_postdetails['poster_highlighted_name']) : NULL));
} else {
$ip_link = array_key_exists('ip_address', $_postdetails) && has_actual_page_access(get_member(), 'admin_lookup') ? build_url(array('page' => 'admin_lookup', 'param' => $_postdetails['ip_address']), get_module_zone('admin_lookup')) : new ocp_tempcode();
$poster = do_template('OCF_POSTER_GUEST', array('_GUID' => '36a8e550222cdac5165ef8f722be3def', 'IP_LINK' => $ip_link, 'POSTER_DETAILS' => $poster_details, 'POSTER_USERNAME' => $_postdetails['poster_username']));
}
// Signature
$signature = new ocp_tempcode();
if (array_key_exists('signature', $_postdetails) && !$_postdetails['signature']->is_empty()) {
$signature = $_postdetails['signature'];
}
$post_title = $_postdetails['title'];
$first_unread = $_postdetails['id'] == $first_unread_id || $first_unread_id < 0 && $array_id == count($topic_info['posts']) - 1 ? do_template('OCF_TOPIC_FIRST_UNREAD') : new ocp_tempcode();
$unvalidated = $_postdetails['validated'] == 0 ? do_lang_tempcode('UNVALIDATED') : new ocp_tempcode();
$post_url = $GLOBALS['FORUM_DRIVER']->post_url($_postdetails['id'], is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id']), true);
if (array_key_exists('intended_solely_for', $_postdetails) && $_postdetails['intended_solely_for'] == get_member()) {
decache('side_ocf_personal_topics', array(get_member()));
decache('_new_pp', array(get_member()));
}
$emphasis = ocf_get_post_emphasis($_postdetails);
require_code('feedback');
if (!array_key_exists('intended_solely_for', $_postdetails)) {
actualise_rating(true, 'post', strval($_postdetails['id']), get_self_url(), $_postdetails['title']);
$rating = display_rating(get_self_url(), $_postdetails['title'], 'post', strval($_postdetails['id']), 'RATING_INLINE_DYNAMIC', $_postdetails['poster']);
} else {
$rating = new ocp_tempcode();
}
$rendered_post = do_template('OCF_TOPIC_POST', array('_GUID' => 'sacd09wekfofpw2f', 'ID' => $is_spacer_post ? '' : strval($_postdetails['id']), 'TOPIC_FIRST_POST_ID' => is_null($topic_info['first_post_id']) ? '' : strval($topic_info['first_post_id']), 'TOPIC_FIRST_POSTER' => is_null($topic_info['first_poster']) ? '' : strval($topic_info['first_poster']), 'POST_ID' => $is_spacer_post ? '' : (get_value('seq_post_ids') === '1' ? strval($start + $array_id + 1) : strval($_postdetails['id'])), 'URL' => $post_url, 'CLASS' => $_postdetails['is_emphasised'] ? 'ocf_post_emphasis' : (array_key_exists('intended_solely_for', $_postdetails) ? 'ocf_post_personal' : ''), 'EMPHASIS' => $emphasis, 'FIRST_UNREAD' => $first_unread, 'POSTER_TITLE' => $is_spacer_post ? '' : $_postdetails['poster_title'], 'POST_TITLE' => $post_title, 'POST_DATE_RAW' => strval($_postdetails['time']), 'POST_DATE' => $_postdetails['time_string'], 'POST' => $_postdetails['post'], 'TOPIC_ID' => is_null($id) ? '' : strval($id), 'LAST_EDITED_RAW' => $last_edited_raw, 'LAST_EDITED' => $last_edited, 'POSTER_ID' => strval($_postdetails['poster']), 'POSTER' => $is_spacer_post ? '' : $poster, 'POSTER_DETAILS' => $poster_details, 'POST_AVATAR' => $post_avatar, 'RANK_IMAGES' => $rank_images, 'BUTTONS' => $buttons, 'SIGNATURE' => $signature, 'UNVALIDATED' => $unvalidated, 'DESCRIPTION' => $description, 'RATING' => $rating));
$posts->attach($rendered_post);
}
$serialized_options = mixed();
$hash = mixed();
} else {
require_code('topics');
$threaded_topic_ob = new OCP_Topic();
// Load some settings into the renderer
$threaded_topic_ob->first_post_id = $topic_info['first_post_id'];
$threaded_topic_ob->topic_description = $topic_info['description'];
$threaded_topic_ob->topic_description_link = $topic_info['description_link'];
$threaded_topic_ob->topic_title = $topic_info['title'];
$threaded_topic_ob->topic_info = $topic_info;
// Other settings we need
$max_thread_depth = intval(get_option('max_thread_depth'));
$num_to_show_limit = get_param_integer('max_comments', intval(get_option('comments_to_show_in_thread')));
// Load posts
$threaded_topic_ob->load_from_topic($id, $num_to_show_limit, $start, false, NULL, true);
$threaded_topic_ob->is_threaded = true;
// Render posts
list($posts, $serialized_options, $hash) = $threaded_topic_ob->render_posts($num_to_show_limit, $max_thread_depth, $may_reply, $topic_info['first_poster'], array(), $topic_info['forum_id'], NULL, false);
$GLOBALS['META_DATA']['description'] = $threaded_topic_ob->topic_description;
// Get other gathered details
$replied = $threaded_topic_ob->replied;
if (!is_null($threaded_topic_ob->topic_title)) {
// Updated topic title
$topic_info['title'] = $threaded_topic_ob->topic_title;
}
$topic_info['max_rows'] = $threaded_topic_ob->total_posts;
$second_poster = $GLOBALS['FORUM_DRIVER']->get_guest_id();
// No definitive post orders
}
// Buttons for topic as whole
$button_array = array();
if (!is_null($id)) {
if (get_value('no_threaded_buttons') !== '1') {
if ($threaded) {
$view_as_linear_url = get_self_url(false, false, array('threaded' => 0));
$button_array[] = array('immediate' => true, 'title' => do_lang_tempcode('VIEW_AS_LINEAR'), 'url' => $view_as_linear_url, 'img' => 'linear');
} else {
$view_as_threaded_url = get_self_url(false, false, array('threaded' => 1));
$button_array[] = array('immediate' => true, 'title' => do_lang_tempcode('VIEW_AS_THREADED'), 'url' => $view_as_threaded_url, 'img' => 'threaded');
}
}
if (!is_guest()) {
$too_old = $topic_info['last_time'] < time() - 60 * 60 * 24 * intval(get_option('post_history_days'));
if (get_value('disable_mark_topic_unread') !== '1' && !$too_old) {
$map = array('page' => 'topics', 'type' => 'mark_unread_topic', 'id' => $id);
$test = get_param_integer('kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id'])), -1);
if ($test != -1 && $test != 0) {
$map['kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id']))] = $test;
}
$test = get_param_integer('threaded', -1);
if ($test != -1) {
$map['threaded'] = $test;
}
$mark_unread_url = build_url($map, get_module_zone('topics'));
$button_array[] = array('immediate' => true, 'title' => do_lang_tempcode('MARK_UNREAD'), 'url' => $mark_unread_url, 'img' => 'mark_unread');
}
}
if ($may_reply && is_null(get_bot_type())) {
$reply_prevented = false;
// "Staff-only" reply for support tickets
if ($GLOBALS['FORUM_DRIVER']->is_staff(get_member()) && addon_installed('tickets')) {
require_code('tickets');
if (is_ticket_forum($topic_info['forum_id'])) {
if (is_guest($second_poster)) {
$reply_prevented = true;
}
require_lang('tickets');
$map = array('page' => 'topics', 'type' => 'new_post', 'id' => $id, 'intended_solely_for' => $GLOBALS['FORUM_DRIVER']->get_guest_id());
$test = get_param_integer('kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id'])), -1);
if ($test != -1 && $test != 0) {
$map['kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id']))] = $test;
}
$test = get_param_integer('threaded', -1);
if ($test != -1) {
$map['threaded'] = $test;
}
$new_post_url = build_url($map, get_module_zone('topics'));
$button_array[] = array('immediate' => false, 'rel' => 'add', 'title' => do_lang_tempcode('TICKET_STAFF_ONLY_REPLY'), 'url' => $new_post_url, 'img' => 'staff_only_reply');
}
}
if (!$reply_prevented) {
if ($topic_info['is_threaded'] == 0) {
$map = array('page' => 'topics', 'type' => 'new_post', 'id' => $id);
$test = get_param_integer('kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id'])), -1);
if ($test != -1 && $test != 0) {
$map['kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id']))] = $test;
}
$test = get_param_integer('threaded', -1);
if ($test != -1) {
$map['threaded'] = $test;
}
$new_post_url = build_url($map, get_module_zone('topics'));
$button_array[] = array('immediate' => false, 'rel' => 'add', 'title' => do_lang_tempcode($topic_info['is_open'] ? 'REPLY' : 'CLOSED'), 'url' => $new_post_url, 'img' => $topic_info['is_open'] ? 'reply' : 'closed');
}
} else {
unset($topic_info['may_use_quick_reply']);
}
} elseif ((is_null($topic_info['forum_id']) || has_specific_permission(get_member(), 'submit_lowrange_content', 'topics', array('forums', $topic_info['forum_id']))) && $topic_info['last_poster'] == get_member() && !is_guest() && ocf_may_edit_post_by(get_member(), $topic_info['forum_id'])) {
$map = array('page' => 'topics', 'type' => 'edit_post', 'id' => $topic_info['last_post_id']);
$test = get_param_integer('kfs' . strval($topic_info['forum_id']), -1);
if ($test != -1 && $test != 0) {
$map['kfs' . strval($topic_info['forum_id'])] = $test;
}
$test = get_param_integer('threaded', -1);
if ($test != -1) {
$map['threaded'] = $test;
}
$new_post_url = build_url($map, get_module_zone('topics'));
$button_array[] = array('immediate' => false, 'rel' => 'edit', 'title' => do_lang_tempcode('LAST_POST'), 'url' => $new_post_url, 'img' => 'amend');
}
if (!is_null($topic_info['forum_id'])) {
if (get_value('disable_add_topic_btn_in_topic') !== '1') {
if (ocf_may_post_topic($topic_info['forum_id'], get_member())) {
$new_topic_url = build_url(array('page' => 'topics', 'type' => 'new_topic', 'id' => $topic_info['forum_id']), get_module_zone('topics'));
$button_array[] = array('immediate' => false, 'rel' => 'add', 'title' => do_lang_tempcode('ADD_TOPIC'), 'url' => $new_topic_url, 'img' => 'new_topic');
}
}
} else {
$invite_url = build_url(array('page' => 'topics', 'type' => 'invite_member', 'id' => $id), get_module_zone('topics'));
$button_array[] = array('immediate' => false, 'title' => do_lang_tempcode('INVITE_MEMBER_TO_PT'), 'url' => $invite_url, 'img' => 'invite_member');
}
}
$buttons = ocf_screen_button_wrap($button_array);
// Poll
if (array_key_exists('poll', $topic_info)) {
$_poll = $topic_info['poll'];
$voted_already = $_poll['voted_already'];
$poll_results = array_key_exists(0, $_poll['answers']) && array_key_exists('num_votes', $_poll['answers'][0]);
$answers = new ocp_tempcode();
$real_button = false;
if ($_poll['is_open']) {
if ($poll_results) {
$button = new ocp_tempcode();
} elseif ($_poll['requires_reply'] && !$replied) {
$button = do_lang_tempcode('POLL_REQUIRES_REPLY');
} else {
if (!has_specific_permission(get_member(), 'vote_in_polls') || is_guest()) {
$button = do_lang_tempcode('VOTE_DENIED');
} else {
if (!is_null($voted_already)) {
$button = do_lang_tempcode('NOVOTE');
} else {
require_lang('polls');
$map = array('page' => 'topicview', 'id' => $id, 'view_poll_results' => 1, 'start' => $start == 0 ? NULL : $start, 'max' => $max == $default_max ? NULL : $max);
$test = get_param_integer('kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id'])), -1);
if ($test != -1 && $test != 0) {
$map['kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id']))] = $test;
}
$test = get_param_integer('threaded', -1);
if ($test != -1) {
$map['threaded'] = $test;
}
$results_url = build_url($map, get_module_zone('topics'));
$button = do_template('OCF_TOPIC_POLL_BUTTON', array('_GUID' => '94b932fd01028df8f67bb5864d9235f9', 'RESULTS_URL' => $results_url));
$real_button = true;
}
}
}
} else {
$button = do_lang_tempcode('TOPIC_POLL_CLOSED');
}
foreach ($_poll['answers'] as $answer) {
if ($poll_results && ($_poll['requires_reply'] == 0 || $replied)) {
$num_votes = $answer['num_votes'];
$total_votes = $_poll['total_votes'];
if ($total_votes != 0) {
$width = intval(round(70.0 * floatval($num_votes) / floatval($total_votes)));
} else {
$width = 0;
}
$answer_tpl = do_template('OCF_TOPIC_POLL_ANSWER_RESULTS', array('_GUID' => 'b32f4c526e147abf20ca0d668e40d515', 'ID' => strval($_poll['id']), 'NUM_VOTES' => integer_format($num_votes), 'WIDTH' => strval($width), 'ANSWER' => $answer['answer'], 'I' => strval($answer['id'])));
} else {
$answer_tpl = do_template('OCF_TOPIC_POLL_ANSWER' . ($_poll['maximum_selections'] == 1 ? '_RADIO' : ''), array('REAL_BUTTON' => $real_button, 'ID' => strval($_poll['id']), 'ANSWER' => $answer['answer'], 'I' => strval($answer['id'])));
}
$answers->attach($answer_tpl);
}
$map = array('page' => 'topics', 'type' => 'vote_poll', 'id' => $id, 'start' => $start == 0 ? NULL : $start, 'max' => $max == $default_max ? NULL : $max);
$test = get_param_integer('kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id'])), -1);
if ($test != -1 && $test != 0) {
$map['kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id']))] = $test;
}
$test = get_param_integer('threaded', -1);
if ($test != -1) {
$map['threaded'] = $test;
}
$vote_url = build_url($map, get_module_zone('topics'));
if ($_poll['is_private']) {
$private = paragraph(do_lang_tempcode('TOPIC_POLL_IS_PRIVATE'), 'dfgsdgdsgs');
} else {
$private = new ocp_tempcode();
}
if ($_poll['maximum_selections'] > 1) {
$num_choices = paragraph($_poll['minimum_selections'] == $_poll['maximum_selections'] ? do_lang_tempcode('POLL_NOT_ENOUGH_ERROR_2', integer_format($_poll['minimum_selections'])) : do_lang_tempcode('POLL_NOT_ENOUGH_ERROR', integer_format($_poll['minimum_selections']), integer_format($_poll['maximum_selections'])), 'dsfsdfsdfs');
} else {
$num_choices = new ocp_tempcode();
}
$poll = do_template('OCF_TOPIC_POLL' . ($poll_results ? '_VIEW_RESULTS' : ''), array('ID' => strval($_poll['id']), 'NUM_CHOICES' => $num_choices, 'PRIVATE' => $private, 'QUESTION' => $_poll['question'], 'ANSWERS' => $answers, 'REAL_BUTTON' => $real_button, 'BUTTON' => $button, 'VOTE_URL' => $vote_url, 'MINIMUM_SELECTIONS' => integer_format($_poll['minimum_selections']), 'MAXIMUM_SELECTIONS' => integer_format($_poll['maximum_selections'])));
} else {
$poll = new ocp_tempcode();
}
// Forum nav tree
if (!is_null($topic_info['forum_id'])) {
$tree = ocf_forum_breadcrumbs($topic_info['forum_id'], NULL, NULL, false);
} else {
$tree = new ocp_tempcode();
$tree->attach(hyperlink(build_url(array('page' => 'members'), get_module_zone('members')), do_lang_tempcode('MEMBERS'), false, false, do_lang_tempcode('GO_BACKWARDS_TO', do_lang_tempcode('MEMBERS')), NULL, NULL, 'up'));
$tree->attach(do_template('BREADCRUMB_ESCAPED'));
if (has_specific_permission(get_member(), 'view_other_pt')) {
$of_member = $topic_info['pt_from'] == get_member() ? $topic_info['pt_from'] : $topic_info['pt_to'];
} else {
$of_member = get_member();
}
$of_username = $GLOBALS['FORUM_DRIVER']->get_username($of_member);
if (is_null($of_username)) {
$of_username = do_lang('UNKNOWN');
}
$personal_topic_url = build_url(array('page' => 'members', 'type' => 'view', 'id' => $of_member), get_module_zone('members'), NULL, true, false, false, 'tab__pts');
$tree->attach(hyperlink($personal_topic_url, do_lang_tempcode('MEMBER_PROFILE', escape_html($of_username)), false, false, do_lang_tempcode('GO_BACKWARDS_TO', do_lang_tempcode('MEMBERS')), NULL, NULL, 'up'));
}
// Quick reply
if (array_key_exists('may_use_quick_reply', $topic_info) && $may_reply && !is_null($id)) {
$map = array('page' => 'topics', 'type' => '_add_reply', 'topic_id' => $id);
$test = get_param_integer('kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id'])), -1);
if ($test != -1 && $test != 0) {
$map['kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id']))] = $test;
}
$test = get_param_integer('threaded', -1);
if ($test != -1) {
$map['threaded'] = $test;
}
$_post_url = build_url($map, get_module_zone('topics'));
$post_url = $_post_url->evaluate();
$map = array('page' => 'topics', 'type' => 'new_post', 'id' => $id);
if ($test != -1 && $test != 0) {
$map['kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id']))] = $test;
}
$more_url = build_url($map, get_module_zone('topics'));
$_postdetails = array_key_exists('first_post', $topic_info) ? get_translated_tempcode($topic_info['first_post'], $GLOBALS['FORUM_DB']) : new ocp_tempcode();
$first_post = $_postdetails;
$first_post_url = $GLOBALS['FORUM_DRIVER']->post_url($topic_info['first_post_id'], is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id']), true);
$display = 'block';
$expand_type = 'contract';
if ($topic_info['max_rows'] > $start + $max) {
$display = 'none';
$expand_type = 'expand';
}
$em = $GLOBALS['FORUM_DRIVER']->get_emoticon_chooser();
require_javascript('javascript_editing');
require_javascript('javascript_validation');
if (addon_installed('captcha')) {
require_code('captcha');
$use_captcha = use_captcha();
if ($use_captcha) {
generate_captcha();
}
} else {
$use_captcha = false;
}
$post_warning = '';
if ($topic_info['is_really_threaded'] == 1) {
$post_warning = do_lang('THREADED_REPLY_NOTICE', $post_warning);
}
$quick_reply = do_template('COMMENTS_POSTING_FORM', array('_GUID' => '4c532620f3eb68d9cc820b18265792d7', 'JOIN_BITS' => '', 'USE_CAPTCHA' => $use_captcha, 'GET_EMAIL' => false, 'EMAIL_OPTIONAL' => true, 'GET_TITLE' => false, 'POST_WARNING' => $post_warning, 'COMMENT_TEXT' => '', 'EM' => $em, 'EXPAND_TYPE' => $expand_type, 'DISPLAY' => $display, 'FIRST_POST_URL' => $first_post_url, 'FIRST_POST' => $first_post, 'MORE_URL' => $more_url, 'COMMENT_URL' => $post_url, 'TITLE' => do_lang_tempcode('QUICK_REPLY'), 'SUBMIT_NAME' => do_lang_tempcode('MAKE_POST')));
} else {
$quick_reply = new ocp_tempcode();
}
$action_url = build_url(array('page' => 'topics', 'id' => $id), get_module_zone('topics'));
if (!is_null($id)) {
// Moderation options
$moderator_actions = '';
if (is_null($topic_info['forum_id'])) {
$moderator_actions .= '<option value="categorise_pts">' . do_lang('_CATEGORISE_PTS') . '</option>';
}
if (array_key_exists('may_multi_moderate', $topic_info) && array_key_exists('forum_id', $topic_info)) {
$multi_moderations = ocf_list_multi_moderations($topic_info['forum_id']);
if (count($multi_moderations) != 0) {
$moderator_actions .= '<optgroup label="' . do_lang('MULTI_MODERATIONS') . '">';
foreach ($multi_moderations as $mm_id => $mm_name) {
$moderator_actions .= '<option value="mm_' . strval($mm_id) . '">' . $mm_name . '</option>';
}
$moderator_actions .= '</optgroup>';
}
}
if (array_key_exists('may_move_topic', $topic_info)) {
$moderator_actions .= '<option value="move_topic">' . do_lang('MOVE_TOPIC') . '</option>';
}
if (array_key_exists('may_edit_topic', $topic_info)) {
$moderator_actions .= '<option value="edit_topic">' . do_lang('EDIT_TOPIC') . '</option>';
}
if (array_key_exists('may_delete_topic', $topic_info)) {
$moderator_actions .= '<option value="delete_topic">' . do_lang('DELETE_TOPIC') . '</option>';
}
if (array_key_exists('may_pin_topic', $topic_info)) {
$moderator_actions .= '<option value="pin_topic">' . do_lang('PIN_TOPIC') . '</option>';
}
if (array_key_exists('may_unpin_topic', $topic_info)) {
$moderator_actions .= '<option value="unpin_topic">' . do_lang('UNPIN_TOPIC') . '</option>';
}
if (array_key_exists('may_sink_topic', $topic_info)) {
$moderator_actions .= '<option value="sink_topic">' . do_lang('SINK_TOPIC') . '</option>';
}
if (array_key_exists('may_unsink_topic', $topic_info)) {
$moderator_actions .= '<option value="unsink_topic">' . do_lang('UNSINK_TOPIC') . '</option>';
}
if (array_key_exists('may_cascade_topic', $topic_info)) {
$moderator_actions .= '<option value="cascade_topic">' . do_lang('CASCADE_TOPIC') . '</option>';
}
if (array_key_exists('may_uncascade_topic', $topic_info)) {
$moderator_actions .= '<option value="uncascade_topic">' . do_lang('UNCASCADE_TOPIC') . '</option>';
}
if (array_key_exists('may_open_topic', $topic_info)) {
$moderator_actions .= '<option value="open_topic">' . do_lang('OPEN_TOPIC') . '</option>';
}
if (array_key_exists('may_close_topic', $topic_info)) {
$moderator_actions .= '<option value="close_topic">' . do_lang('CLOSE_TOPIC') . '</option>';
}
if (array_key_exists('may_edit_poll', $topic_info)) {
$moderator_actions .= '<option value="edit_poll">' . do_lang('EDIT_TOPIC_POLL') . '</option>';
}
if (array_key_exists('may_delete_poll', $topic_info)) {
$moderator_actions .= '<option value="delete_poll">' . do_lang('DELETE_TOPIC_POLL') . '</option>';
}
if (array_key_exists('may_attach_poll', $topic_info)) {
$moderator_actions .= '<option value="add_poll">' . do_lang('ADD_TOPIC_POLL') . '</option>';
}
if (has_specific_permission(get_member(), 'view_content_history') && $GLOBALS['FORUM_DB']->query_value('f_post_history', 'COUNT(*)', array('h_topic_id' => $id)) != 0) {
$moderator_actions .= '<option value="topic_history">' . do_lang('POST_HISTORY') . '</option>';
}
if (array_key_exists('may_make_personal', $topic_info) && !is_null($topic_info['forum_id'])) {
$moderator_actions .= '<option value="make_personal">' . do_lang('MAKE_PERSONAL') . '</option>';
}
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($moderator_actions);
}
// Marked post actions
$map = array('page' => 'topics', 'id' => $id);
$test = get_param_integer('kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id'])), -1);
if ($test != -1 && $test != 0) {
$map['kfs' . (is_null($topic_info['forum_id']) ? '' : strval($topic_info['forum_id']))] = $test;
}
$test = get_param_integer('threaded', -1);
if ($test != -1) {
$map['threaded'] = $test;
}
$action_url = build_url($map, get_module_zone('topics'), NULL, false, true);
$marked_post_actions = '';
if (array_key_exists('may_move_posts', $topic_info)) {
$marked_post_actions .= '<option value="move_posts_a">' . do_lang('MERGE_POSTS') . '</option>';
$marked_post_actions .= '<option value="move_posts_b">' . do_lang('SPLIT_POSTS') . '</option>';
}
if (array_key_exists('may_delete_posts', $topic_info)) {
$marked_post_actions .= '<option value="delete_posts">' . do_lang('DELETE_POSTS') . '</option>';
}
if (array_key_exists('may_validate_posts', $topic_info)) {
$marked_post_actions .= '<option value="validate_posts">' . do_lang('VALIDATE_POSTS') . '</option>';
}
if (get_value('disable_multi_quote') !== '1') {
if ($may_reply) {
$marked_post_actions .= '<option value="new_post">' . do_lang('QUOTE_POSTS') . '</option>';
}
}
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($marked_post_actions);
}
} else {
$moderator_actions = '';
$marked_post_actions = '';
}
$max_rows = $topic_info['max_rows'];
if ($max_rows > $max && !$threaded) {
require_code('templates_results_browser');
$results_browser = results_browser(do_lang_tempcode('FORUM_POSTS'), $id, $start, 'start', $max, 'max', $max_rows, NULL, 'misc', true, false, 7, array(10, 20, 30));
} else {
$results_browser = new ocp_tempcode();
}
// Members viewing this topic
$members = is_null($id) ? array() : get_members_viewing('topicview', '', strval($id), true);
$num_guests = 0;
$num_members = 0;
if (is_null($members)) {
$members_viewing = new ocp_tempcode();
} else {
$members_viewing = new ocp_tempcode();
foreach ($members as $member_id => $at_details) {
$username = $at_details['mt_cache_username'];
if (is_guest($member_id)) {
$num_guests++;
} else {
$num_members++;
$profile_url = $GLOBALS['FORUM_DRIVER']->member_profile_url($member_id, false, true);
$map = array('PROFILE_URL' => $profile_url, 'USERNAME' => $username);
if (has_specific_permission(get_member(), 'show_user_browsing') || in_array($at_details['the_page'], array('topics', 'topicview')) && $at_details['the_id'] == strval($id)) {
$map['AT'] = escape_html($at_details['the_title']);
}
$map['COLOUR'] = get_group_colour(ocf_get_member_primary_group($member_id));
$members_viewing->attach(do_template('OCF_USER_MEMBER', $map));
}
}
if ($members_viewing->is_empty()) {
$members_viewing = do_lang_tempcode('NONE_EM');
}
}
if (!is_null($id)) {
breadcrumb_add_segment($tree, do_lang_tempcode(is_null($topic_info['forum_id']) ? 'VIEW_PERSONAL_TOPIC' : 'VIEW_TOPIC'));
}
if (is_null($id)) {
$root_forum_name = $GLOBALS['FORUM_DB']->query_value('f_forums', 'f_name', array('id' => db_get_first_id()));
$tree = hyperlink(build_url(array('page' => 'forumview', 'id' => db_get_first_id()), get_module_zone('forumview')), escape_html($root_forum_name), false, false, do_lang('GO_BACKWARDS_TO'));
breadcrumb_add_segment($tree, do_lang('INLINE_PERSONAL_POSTS'));
}
if ($topic_info['validated'] == 0) {
$warning_details = do_template('WARNING_TABLE', array('WARNING' => do_lang_tempcode(get_param_integer('redirected', 0) == 1 ? 'UNVALIDATED_TEXT_NON_DIRECT' : 'UNVALIDATED_TEXT')));
} else {
$warning_details = new ocp_tempcode();
}
$topic_tpl = do_template('OCF_TOPIC_WRAP', array('_GUID' => 'bb201d5d59559e5e2bd60e7cf2e6f7e9', 'SERIALIZED_OPTIONS' => $serialized_options, 'HASH' => $hash, 'ID' => strval($id), 'TITLE' => $topic_info['title'], 'MAY_DOUBLE_POST' => has_specific_permission(get_member(), 'double_post'), 'LAST_POSTER' => array_key_exists('last_poster', $topic_info) ? is_null($topic_info['last_poster']) ? '' : strval($topic_info['last_poster']) : '', 'WARNING_DETAILS' => $warning_details, 'MAX' => strval($max), 'MAY_CHANGE_MAX' => array_key_exists('may_change_max', $topic_info), 'ACTION_URL' => $action_url, 'NUM_GUESTS' => integer_format($num_guests), 'NUM_MEMBERS' => integer_format($num_members), 'MEMBERS_VIEWING' => $members_viewing, 'RESULTS_BROWSER' => $results_browser, 'MODERATOR_ACTIONS' => $moderator_actions, 'MARKED_POST_ACTIONS' => $marked_post_actions, 'QUICK_REPLY' => $quick_reply, 'TREE' => $tree, 'POLL' => $poll, 'SCREEN_BUTTONS' => $buttons, 'POSTS' => $posts, 'THREADED' => $threaded));
if (is_null($id)) {
$title = get_page_title('INLINE_PERSONAL_POSTS');
} else {
if (is_null($topic_info['forum_id'])) {
$title = get_page_title(do_lang_tempcode('NAMED_PERSONAL_TOPIC', escape_html($topic_info['title'])), false, NULL, do_lang_tempcode('READING_PERSONAL_TOPIC'));
} else {
if (addon_installed('awards')) {
require_code('awards');
$awards = find_awards_for('topic', strval($id));
} else {
$awards = array();
}
$title = get_page_title(do_lang_tempcode('NAMED_TOPIC', escape_html($topic_info['title'])), false, NULL, NULL, $awards);
}
}
return ocf_wrapper($title, $topic_tpl, true, false, $topic_info['forum_id']);
}
/**
* The UI to show a video.
*
* @param ?string Alternate category name to use (NULL: use standard one). This is useful if you are overriding this code to show images in virtual galleries.
* @param ?tempcode Breadcrumbs (NULL: derive in this function).
* @return tempcode The UI
*/
function show_video($category_name = NULL, $tree = NULL)
{
$id = get_param_integer('id');
if (get_param_integer('ajax', 0) == 1) {
header('Content-type: text/xml');
}
list($sort, $sort_backwards, $sql_suffix_images, $sql_suffix_videos) = $this->get_sort_order();
if (addon_installed('awards')) {
require_code('awards');
$awards = find_awards_for('video', strval($id));
} else {
$awards = array();
}
// Pic up some info
$rows = $GLOBALS['SITE_DB']->query_select('videos', array('*'), array('id' => $id), '', 1);
if (!array_key_exists(0, $rows)) {
return warn_screen(get_page_title('ERROR_OCCURRED'), do_lang_tempcode('MISSING_RESOURCE'));
}
$myrow = $rows[0];
$url = $myrow['url'];
if (url_is_local($url)) {
$url = get_custom_base_url() . '/' . $url;
}
$cat = $myrow['cat'];
$GLOBALS['FEED_URL'] = find_script('backend') . '?mode=galleries&filter=' . urlencode($cat);
if (get_value('no_individual_gallery_view') === '1' && $GLOBALS['SITE_DB']->query_value('galleries', 'flow_mode_interface', array('name' => $cat)) == '1') {
require_code('site2');
assign_refresh(build_url(array('page' => '_SELF', 'type' => 'misc', 'id' => $cat, 'probe_id' => $id, 'probe_type' => 'video'), '_SELF'), 0.0);
}
$true_category_name = get_translated_text($GLOBALS['SITE_DB']->query_value('galleries', 'fullname', array('name' => $cat)));
if (is_null($category_name)) {
$category_name = $true_category_name;
}
if (get_param_integer('slideshow', 0) == 1) {
$title = get_page_title('VIEW_SLIDESHOW', true, array(escape_html($category_name)));
global $EXTRA_HEAD;
$EXTRA_HEAD->attach('<meta name="robots" content="noindex" />');
// XHTMLXHTML
} else {
$title = get_page_title(get_translated_text($myrow['title']) == '' ? 'VIEW_VIDEO' : '_VIEW_VIDEO', true, array(escape_html(get_translated_text($myrow['title']))), NULL, $awards);
}
$root = get_param('root', 'root');
seo_meta_load_for('video', strval($id));
$thumb_url = $myrow['thumb_url'];
if (url_is_local($thumb_url)) {
$thumb_url = get_custom_base_url() . '/' . $thumb_url;
}
if (!has_category_access(get_member(), 'galleries', $cat)) {
access_denied('CATEGORY_ACCESS');
}
// Views
if (get_db_type() != 'xml') {
$myrow['video_views']++;
$GLOBALS['SITE_DB']->query_update('videos', array('video_views' => $myrow['video_views']), array('id' => $id), '', 1, NULL, false, true);
}
list($rating_details, $comment_details, $trackback_details) = embed_feedback_systems('videos', strval($id), $myrow['allow_rating'], $myrow['allow_comments'], $myrow['allow_trackbacks'], $myrow['validated'], $myrow['submitter'], build_url(array('page' => '_SELF', 'type' => 'video', 'id' => $id), '_SELF', NULL, false, false, true), get_translated_text($myrow['title']) == '' ? do_lang('VIEW_VIDEO_IN', $true_category_name) : get_translated_text($myrow['title']), get_value('comment_forum__videos'));
// Validation
if ($myrow['validated'] == 0) {
if (!has_specific_permission(get_member(), 'jump_to_unvalidated')) {
access_denied('SPECIFIC_PERMISSION', 'jump_to_unvalidated');
}
$warning_details = do_template('WARNING_TABLE', array('_GUID' => 'b32faacba974e648a67e5e91ffd3d8e5', 'WARNING' => do_lang_tempcode(get_param_integer('redirected', 0) == 1 ? 'UNVALIDATED_TEXT_NON_DIRECT' : 'UNVALIDATED_TEXT')));
} else {
$warning_details = new ocp_tempcode();
}
// Comments
$comments = get_translated_tempcode($myrow['comments']);
if (has_actual_page_access(NULL, 'cms_galleries', NULL, NULL) && has_edit_permission('mid', get_member(), $myrow['submitter'], 'cms_galleries', array('galleries', $cat))) {
$edit_url = build_url(array('page' => 'cms_galleries', 'type' => '_ev', 'id' => $id), get_module_zone('cms_galleries'));
} else {
$edit_url = new ocp_tempcode();
}
$add_date = get_timezoned_date($myrow['add_date']);
$edit_date = is_null($myrow['edit_date']) ? '' : get_timezoned_date($myrow['edit_date']);
// Video HTML
$video = show_gallery_media($url, $thumb_url, $myrow['video_width'], $myrow['video_height'], $myrow['video_length']);
$extension = get_file_extension($url);
require_code('mime_types');
$mime_type = get_mime_type($extension);
list($n, $x, $nav) = $this->build_set_navigation(db_string_equal_to('cat', $cat), '', $category_name, $id, $root, 'video', get_param_integer('slideshow', 0), get_param_integer('wide_high', 0), get_param_integer('start', 0), get_param_integer('max', get_default_gallery_max()), $cat, $sort, $sort_backwards, $sql_suffix_images, $sql_suffix_videos, get_param('select', '*'), get_param('video_select', '*'));
$member_id = get_member_id_from_gallery_name($cat, NULL, true);
if (get_forum_type() == 'ocf') {
require_code('ocf_members');
require_code('ocf_members2');
}
$member_details = is_null($member_id) || get_forum_type() != 'ocf' ? new ocp_tempcode() : ocf_show_member_box($member_id);
$video_details = show_video_details($myrow);
if (is_null($tree)) {
$tree = gallery_breadcrumbs($cat, $root, false, get_module_zone('galleries'));
}
breadcrumb_add_segment($tree, do_lang_tempcode('VIEW_VIDEO'));
$GLOBALS['META_DATA'] += array('created' => date('Y-m-d', $myrow['add_date']), 'creator' => $GLOBALS['FORUM_DRIVER']->get_username($myrow['submitter']), 'publisher' => '', 'modified' => is_null($myrow['edit_date']) ? '' : date('Y-m-d', $myrow['edit_date']), 'type' => 'Video', 'title' => get_translated_text($myrow['title']), 'identifier' => '_SEARCH:galleries:video:' . strval($id), 'description' => get_translated_text($myrow['comments']), 'image' => $thumb_url, 'video' => $url, 'video:height' => strval($myrow['video_height']), 'video:width' => strval($myrow['video_width']), 'video:type' => $mime_type);
return do_template('GALLERY_ENTRY_SCREEN', array('_GUID' => '91e231906ed899513ec2db8a2974dddf', 'MEDIA_TYPE' => 'video', 'E_TITLE' => get_translated_text($myrow['title']), 'CAT' => $cat, 'SLIDESHOW' => get_param_integer('slideshow', 0) == 1, 'TRUE_GALLERY_TITLE' => $true_category_name, 'GALLERY_TITLE' => $category_name, 'MEMBER_ID' => is_null($member_id) ? '' : strval($member_id), 'ID' => strval($id), 'TAGS' => get_loaded_tags('videos'), 'TITLE' => $title, 'SUBMITTER' => strval($myrow['submitter']), 'URL' => $url, 'VIDEO_DETAILS' => $video_details, 'MEMBER_DETAILS' => $member_details, 'X' => integer_format($x), 'N' => integer_format($n), 'VIEWS' => integer_format($myrow['video_views']), 'ADD_DATE_RAW' => strval($myrow['add_date']), 'EDIT_DATE_RAW' => is_null($myrow['edit_date']) ? '' : strval($myrow['edit_date']), 'ADD_DATE' => $add_date, 'EDIT_DATE' => $edit_date, 'RATING_DETAILS' => $rating_details, 'TRACKBACK_DETAILS' => $trackback_details, 'COMMENT_DETAILS' => $comment_details, 'EDIT_URL' => $edit_url, 'NAV' => $nav, 'COMMENTS' => $comments, 'VIDEO' => $video, 'WARNING_DETAILS' => $warning_details));
}
/**
* Standard modular run function.
*
* @param array A map of parameters.
* @return tempcode The result of execution.
*/
function run($map)
{
require_lang('galleries');
require_code('galleries');
require_css('galleries');
$content = new ocp_tempcode();
$parent_id = array_key_exists('param', $map) ? $map['param'] : 'root';
require_code('ocfiltering');
$parent_ids = ocfilter_to_idlist_using_db($parent_id, 'name', 'galleries', 'galleries', 'parent_id', 'parent_id', 'name', false, false);
$zone = array_key_exists('zone', $map) ? $map['zone'] : get_module_zone('galleries');
global $NON_CANONICAL_PARAMS;
$NON_CANONICAL_PARAMS[] = 'max';
$max = get_param_integer('max', 5);
if ($max < 1) {
$max = 1;
}
$start = get_param_integer('start', 0);
// For all galleries off the given gallery
$where = '';
foreach ($parent_ids as $parent_id) {
if ($where != '') {
$where .= ' OR ';
}
$where .= db_string_equal_to('parent_id', $parent_id);
}
$query = 'FROM ' . get_table_prefix() . 'galleries WHERE (' . $where . ') AND name NOT LIKE \'' . db_encode_like('download\\_%') . '\'';
$galleries = $GLOBALS['SITE_DB']->query('SELECT * ' . $query . ' ORDER BY add_date DESC', $max, $start);
foreach ($galleries as $child) {
$url = build_url(array('page' => 'galleries', 'type' => 'misc', 'id' => $child['name']), $zone);
$member_id = get_member_id_from_gallery_name($child['name'], $child, true);
$is_member = !is_null($member_id);
$_title = get_translated_text($child['fullname']);
$pic = $child['rep_image'];
if ($pic == '' && $is_member) {
$pic = $GLOBALS['FORUM_DRIVER']->get_member_row_field($member_id, 'm_avatar_url');
}
$teaser = get_translated_text($child['teaser']);
if ($is_member && get_forum_type() == 'ocf') {
require_code('ocf_members');
require_code('ocf_members2');
$member_info = ocf_show_member_box($member_id, true);
} else {
$member_info = new ocp_tempcode();
}
list($num_children, $num_images, $num_videos) = get_recursive_gallery_details($child['name']);
if ($num_images == 0 && $num_videos == 0) {
continue;
}
$thumb_order = 'ORDER BY id ASC';
if (array_key_exists('reverse_thumb_order', $map) && $map['reverse_thumb_order'] == '1') {
$thumb_order = 'ORDER BY id DESC';
}
if ($pic == '') {
$pic = $GLOBALS['SITE_DB']->query_value_null_ok('images', 'thumb_url', array('cat' => $child['name']), $thumb_order);
}
if (is_null($pic)) {
$pic = $GLOBALS['SITE_DB']->query_value_null_ok('videos', 'thumb_url', array('cat' => $child['name']), $thumb_order);
}
if (is_null($pic)) {
$pic = '';
}
if ($pic != '' && url_is_local($pic)) {
$pic = get_custom_base_url() . '/' . $pic;
}
$add_date = get_timezoned_date($child['add_date'], false);
$sub = do_template('GALLERY_TEASE_PIC', array('_GUID' => '37cd5f3fc64ac1c76f85980e69a50154', 'TEASER' => $teaser, 'ADD_DATE' => $add_date, 'NUM_CHILDREN' => integer_format($num_children), 'NUM_IMAGES' => integer_format($num_images), 'NUM_VIDEOS' => integer_format($num_videos), 'MEMBER_INFO' => $member_info, 'URL' => $url, 'PIC' => $pic, 'TITLE' => $_title));
$content->attach($sub);
}
$page_num = intval(floor(floatval($start) / floatval($max))) + 1;
$count = $GLOBALS['SITE_DB']->query_value_null_ok_full('SELECT COUNT(*) ' . $query);
$num_pages = intval(ceil(floatval($count) / floatval($max)));
if ($num_pages == 0) {
$page_num = 0;
}
$previous_url = $start == 0 ? new ocp_tempcode() : build_url(array('page' => '_SELF', 'start' => $start - $max), '_SELF');
$next_url = $page_num == $num_pages ? new ocp_tempcode() : build_url(array('page' => '_SELF', 'start' => $start + $max), '_SELF');
$browse = do_template('NEXT_BROWSER_BROWSE_NEXT', array('_GUID' => '6fb2def18957c246ddb2f19bf74abf9a', 'NEXT_LINK' => $next_url, 'PREVIOUS_LINK' => $previous_url, 'PAGE_NUM' => integer_format($page_num), 'NUM_PAGES' => integer_format($num_pages)));
return do_template('BLOCK_MAIN_GALLERY_TEASE', array('_GUID' => '0e7f84042ab0c873155998eae41b8a16', 'CONTENT' => $content, 'BROWSE' => $browse));
}
/**
* Render posts.
*
* @param integer Maximum to load if non-threaded
* @param array Tree structure of posts
* @param boolean Whether the current user may reply to the topic (influences what buttons show)
* @param ?AUTO_LINK Only show posts under here (NULL: show posts from root)
* @param array Review ratings rows
* @param AUTO_LINK ID of forum this topic in in
* @return tempcode Rendered tree structure
*/
function _render_post_tree($num_to_show_limit, $tree, $may_reply, $highlight_by_user, $all_individual_review_ratings, $forum_id)
{
list($rendered, ) = $tree;
$sequence = new ocp_tempcode();
foreach ($rendered as $post) {
if (get_forum_type() == 'ocf') {
require_code('ocf_topicview');
require_code('ocf_posts');
$post += ocf_get_details_to_show_post($post);
}
// Misc details
$datetime_raw = $post['date'];
$datetime = get_timezoned_date($post['date']);
$poster_url = is_guest($post['user']) ? new ocp_tempcode() : $GLOBALS['FORUM_DRIVER']->member_profile_url($post['user'], false, true);
$poster_name = array_key_exists('username', $post) ? $post['username'] : $GLOBALS['FORUM_DRIVER']->get_username($post['user']);
if (is_null($poster_name)) {
$poster_name = do_lang('UNKNOWN');
}
$highlight = $highlight_by_user === $post['user'];
// Find review, if there is one
$individual_review_ratings = array();
foreach ($all_individual_review_ratings as $potential_individual_review_rating) {
if ($potential_individual_review_rating['r_post_id'] == $post['id']) {
$individual_review_ratings[$potential_individual_review_rating['r_rating_type']] = array('REVIEW_TITLE' => $potential_individual_review_rating['r_rating_type'], 'REVIEW_RATING' => float_to_raw_string($potential_individual_review_rating['r_rating']));
}
}
// Edit URL
$emphasis = new ocp_tempcode();
$buttons = new ocp_tempcode();
$last_edited = new ocp_tempcode();
$last_edited_raw = '';
$unvalidated = new ocp_tempcode();
$poster = mixed();
$poster_details = new ocp_tempcode();
$is_spacer_post = false;
if (get_forum_type() == 'ocf') {
// Spacer post fiddling
if (!is_null($this->first_post_id) && !is_null($this->topic_title) && !is_null($this->topic_description) && !is_null($this->topic_description_link)) {
$is_spacer_post = $post['id'] == $this->first_post_id && substr($post['message_comcode'], 0, strlen('[semihtml]' . do_lang('SPACER_POST_MATCHER'))) == '[semihtml]' . do_lang('SPACER_POST_MATCHER');
if ($is_spacer_post) {
$c_prefix = do_lang('COMMENT') . ': #';
if (substr($this->topic_description, 0, strlen($c_prefix)) == $c_prefix && $this->topic_description_link != '') {
list($linked_type, $linked_id) = explode('_', substr($this->topic_description, strlen($c_prefix)), 2);
$linked_url = $this->topic_description_link;
require_code('ocf_posts');
list($new_description, $new_post) = ocf_display_spacer_post($linked_type, $linked_id);
//if (!is_null($new_description)) $this->topic_description=$new_description; Actually, it's a bit redundant
if (!is_null($new_post)) {
$post['message'] = $new_post;
}
$highlight = false;
$this->topic_title = do_lang('SPACER_TOPIC_TITLE_WRAP', $this->topic_title);
$post['title'] = do_lang('SPACER_TOPIC_TITLE_WRAP', $post['title']);
$this->topic_description = '';
}
}
}
// Misc meta details for post
$emphasis = ocf_get_post_emphasis($post);
$unvalidated = $post['validated'] == 0 ? do_lang_tempcode('UNVALIDATED') : new ocp_tempcode();
if (array_key_exists('last_edit_time', $post)) {
$last_edited = do_template('OCF_TOPIC_POST_LAST_EDITED', array('LAST_EDIT_DATE_RAW' => is_null($post['last_edit_time']) ? '' : strval($post['last_edit_time']), 'LAST_EDIT_DATE' => $post['last_edit_time_string'], 'LAST_EDIT_PROFILE_URL' => $GLOBALS['FORUM_DRIVER']->member_profile_url($post['last_edit_by'], false, true), 'LAST_EDIT_USERNAME' => $post['last_edit_by_username']));
$last_edited_raw = is_null($post['last_edit_time']) ? '' : strval($post['last_edit_time']);
}
// Post buttons
if (!$is_spacer_post) {
if (!is_null($this->topic_id)) {
if (is_null($this->topic_info)) {
$this->topic_info = ocf_read_in_topic($this->topic_id, 0, 0, false, false);
}
require_lang('ocf');
$buttons = ocf_render_post_buttons($this->topic_info, $post, $may_reply);
}
}
// OCF renderings of poster
static $hooks = NULL;
if (is_null($hooks)) {
$hooks = find_all_hooks('modules', 'topicview');
}
static $hook_objects = NULL;
if (is_null($hook_objects)) {
$hook_objects = array();
foreach (array_keys($hooks) as $hook) {
require_code('hooks/modules/topicview/' . filter_naughty_harsh($hook));
$object = object_factory('Hook_' . filter_naughty_harsh($hook), true);
if (is_null($object)) {
continue;
}
$hook_objects[$hook] = $object;
}
}
if (!$is_spacer_post) {
if (!is_guest($post['poster'])) {
require_code('ocf_members2');
$poster_details = ocf_show_member_box($post, false, $hooks, $hook_objects, false);
} else {
$custom_fields = new ocp_tempcode();
if (array_key_exists('ip_address', $post) && addon_installed('ocf_forum')) {
$custom_fields->attach(do_template('OCF_TOPIC_POST_CUSTOM_FIELD', array('NAME' => do_lang_tempcode('IP_ADDRESS'), 'VALUE' => $post['ip_address'])));
$poster_details = do_template('OCF_GUEST_DETAILS', array('CUSTOM_FIELDS' => $custom_fields));
} else {
$poster_details = new ocp_tempcode();
}
}
}
if (addon_installed('ocf_forum')) {
if (!is_guest($post['poster'])) {
$poster = do_template('OCF_POSTER_MEMBER', array('ONLINE' => member_is_online($post['poster']), 'ID' => strval($post['poster']), 'POSTER_DETAILS' => $poster_details, 'PROFILE_URL' => $GLOBALS['FORUM_DRIVER']->member_profile_url($post['poster'], false, true), 'POSTER_USERNAME' => $post['poster_username']));
} else {
$ip_link = array_key_exists('ip_address', $post) && has_actual_page_access(get_member(), 'admin_lookup') ? build_url(array('page' => 'admin_lookup', 'param' => $post['ip_address']), get_module_zone('admin_lookup')) : new ocp_tempcode();
$poster = do_template('OCF_POSTER_GUEST', array('IP_LINK' => $ip_link, 'POSTER_DETAILS' => $poster_details, 'POSTER_USERNAME' => $post['poster_username']));
}
} else {
$poster = make_string_tempcode(escape_html($post['poster_username']));
}
}
// Child posts
$children = mixed();
// NULL
$other_ids = array();
if (array_key_exists('children', $post)) {
foreach ($post['children'][1] as $u) {
$other_ids[] = strval($u['id']);
}
if ($this->is_threaded) {
$children = $this->_render_post_tree($num_to_show_limit, $post['children'], $may_reply, $highlight_by_user, $all_individual_review_ratings, $forum_id);
}
}
if (get_forum_type() == 'ocf') {
require_code('feedback');
actualise_rating(true, 'post', strval($post['id']), get_self_url(), $post['title']);
$rating = display_rating(get_self_url(), $post['title'], 'post', strval($post['id']), 'RATING_INLINE_DYNAMIC', $post['user']);
} else {
$rating = new ocp_tempcode();
}
if (array_key_exists('intended_solely_for', $post)) {
decache('side_ocf_personal_topics', array(get_member()));
decache('_new_pp', array(get_member()));
}
// Render
$sequence->attach(static_evaluate_tempcode(do_template('POST', array('_GUID' => 'eb7df038959885414e32f58e9f0f9f39', 'INDIVIDUAL_REVIEW_RATINGS' => $individual_review_ratings, 'HIGHLIGHT' => $highlight, 'TITLE' => $post['title'], 'TIME_RAW' => strval($datetime_raw), 'TIME' => $datetime, 'POSTER_ID' => strval($post['user']), 'POSTER_URL' => $poster_url, 'POSTER_NAME' => $poster_name, 'POSTER' => $poster, 'POSTER_DETAILS' => $poster_details, 'ID' => strval($post['id']), 'POST' => $post['message'], 'POST_COMCODE' => isset($post['message_comcode']) ? $post['message_comcode'] : NULL, 'CHILDREN' => $children, 'OTHER_IDS' => count($other_ids) == 0 ? NULL : $other_ids, 'RATING' => $rating, 'EMPHASIS' => $emphasis, 'BUTTONS' => $buttons, 'LAST_EDITED_RAW' => $last_edited_raw, 'LAST_EDITED' => $last_edited, 'TOPIC_ID' => is_null($this->topic_id) ? '' : strval($this->topic_id), 'UNVALIDATED' => $unvalidated, 'IS_SPACER_POST' => $is_spacer_post, 'NUM_TO_SHOW_LIMIT' => strval($num_to_show_limit)))));
}
return $sequence;
}
/**
* Convert the specified comcode (text format) into a tempcode tree. You shouldn't output the tempcode tree to the browser, as it looks really horrible. If you are in a rare case where you need to output directly (not through templates), you should call the evaluate method on the tempcode object, to convert it into a string.
*
* @param LONG_TEXT The comcode to convert
* @param MEMBER The member the evaluation is running as. This is a security issue, and you should only run as an administrator if you have considered where the comcode came from carefully
* @param boolean Whether to explicitly execute this with admin rights. There are a few rare situations where this should be done, for data you know didn't come from a member, but is being evaluated by one.
* @param ?integer The position to conduct wordwrapping at (NULL: do not conduct word-wrapping)
* @param ?string A special identifier that can identify this resource in a sea of our resources of this class; usually this can be ignored, but may be used to provide a binding between Javascript in evaluated comcode, and the surrounding environment (NULL: no explicit binding)
* @param object The database connection to use
* @param boolean Whether to parse so as to create something that would fit inside a semihtml tag. It means we generate HTML, with Comcode written into it where the tag could never be reverse-converted (e.g. a block).
* @param boolean Whether this is being pre-parsed, to pick up errors before row insertion.
* @param boolean Whether to treat this whole thing as being wrapped in semihtml, but apply normal security otherwise.
* @param boolean Whether we are only doing this parse to find the title structure
* @param boolean Whether to only check the Comcode. It's best to use the check_comcode function which will in turn use this parameter.
* @param ?array A list of words to highlight (NULL: none)
* @param ?MEMBER The member we are running on behalf of, with respect to how attachments are handled; we may use this members attachments that are already within this post, and our new attachments will be handed to this member (NULL: member evaluating)
* @return tempcode The tempcode generated
*/
function comcode_text_to_tempcode($comcode, $source_member, $as_admin, $wrap_pos, $pass_id, $connection, $semiparse_mode, $preparse_mode, $is_all_semihtml, $structure_sweep, $check_only, $highlight_bits = NULL, $on_behalf_of_member = NULL)
{
global $ADVERTISING_BANNERS, $ALLOWED_ENTITIES, $POTENTIALLY_EMPTY_TAGS, $CODE_TAGS, $REVERSABLE_TAGS, $PUREHTML_TAGS, $DANGEROUS_TAGS, $VALID_COMCODE_TAGS, $BLOCK_TAGS, $POTENTIAL_JS_NAUGHTY_ARRAY, $TEXTUAL_TAGS, $LEET_FILTER, $IMPORTED_CUSTOM_COMCODE, $REPLACE_TARGETS;
$wml = false;
// removed feature from ocPortal now
$print_mode = get_param_integer('wide_print', 0) == 1;
$len = strlen($comcode);
if (function_exists('set_time_limit') && ini_get('max_execution_time') != '0') {
@set_time_limit(300);
}
$allowed_html_seqs = array('<table>', '<table class="[^"]*">', '<table class="[^"]*" summary="[^"]*">', '<table summary="[^"]*">', '</table>', '<tr>', '</tr>', '<td>', '</td>', '<th>', '</th>', '<pre>', '</pre>', '<br />', '<br/>', '<br >', '<br>', '<p>', '</p>', '<p />', '<b>', '</b>', '<u>', '</u>', '<i>', '</i>', '<em>', '</em>', '<strong>', '</strong>', '<li>', '</li>', '<ul>', '</ul>', '<ol>', '</ol>', '<del>', '</del>', '<dir>', '</dir>', '<s>', '</s>', '</a>', '</font>', '<!--', '<h1 id="main_page_title">', '<h1 class="main_page_title">', '<h1 id="main_page_title" class="main_page_title">', '</h1>', '<img (class="inline_image" )?alt="[^"]*" src="[^"]*" (complete="true" )*/>', '<img src=["\'][^"\'<>]*["\']( border=["\'][^"\'<>]*["\'])?( alt=["\'][^"\'<>]*["\'])?( )?(/)?' . '>', '<a href=["\'][^"\'<>]*["\']( target=["\'][^"\'<>]*["\'])?' . '>');
// HTML tag may actually be used in very limited conditions: only the following HTML seqs will come out as HTML. This is, unless the blacklist filter is used instead.
if ($as_admin) {
$comcode_dangerous = true;
$comcode_dangerous_html = true;
} else {
$comcode_dangerous = $GLOBALS['MICRO_BOOTUP'] == 0 && has_specific_permission($source_member, 'comcode_dangerous');
$comcode_dangerous_html = false;
if (has_specific_permission($source_member, 'allow_html') && ($is_all_semihtml || strpos($comcode, '[html') !== false || strpos($comcode, '[semihtml') !== false)) {
$comcode_dangerous_html = true;
/*foreach (array_keys($POTENTIALLY_EMPTY_TAGS) as $tag) // Find whether we really need to enable the computational-expensive filtering. Code disabled, not sure why this would have ever worked!
{
if (($tag!='html') && ($tag!='semihtml') && (strpos($comcode,'['.$tag)!==false))
{
$comcode_dangerous_html=false;
break;
}
}*/
}
}
if (is_null($pass_id)) {
$pass_id = strval(mt_rand(0, 32000));
}
// This is a unique ID that refers to this specific piece of comcode
global $COMCODE_ATTACHMENTS;
if (!array_key_exists($pass_id, $COMCODE_ATTACHMENTS)) {
$COMCODE_ATTACHMENTS[$pass_id] = array();
}
// Tag level
$current_tag = '';
$attribute_map = array();
$tag_output = new ocp_tempcode();
$continuation = '';
$close = mixed();
// Properties that come from our tag
$white_space_area = true;
$textual_area = true;
$formatting_allowed = true;
$in_html = false;
$in_semihtml = $is_all_semihtml;
$in_separate_parse_section = false;
// Not escaped because it has to be passed to a secondary filter
$in_code_tag = false;
$code_nest_stack = 0;
// Our state
$status = CCP_NO_MANS_LAND;
$lax = $GLOBALS['LAX_COMCODE'] || function_exists('get_member') && $source_member != get_member() || count($_POST) == 0;
// if we don't want to produce errors for technically invalid Comcode
$tag_stack = array();
$pos = 0;
$line_starting = true;
$just_ended = false;
$none_wrap_length = 0;
$just_new_line = true;
// So we can detect lists starting right away
$just_title = false;
global $NUM_LINES;
$NUM_LINES = 0;
$queued_tempcode = new ocp_tempcode();
$mindless_mode = false;
// If we're doing a semi parse mode and going over a tag we don't actually process
$tag_raw = '';
if (!is_null($wrap_pos) && strtolower(get_charset()) == 'utf-8') {
$wrap_pos *= 2;
}
$stupidity_mode = get_value('stupidity_mode');
// bork or leet
if ($comcode_dangerous) {
$stupidity_mode = get_param('stupidity_mode', '');
}
if ($stupidity_mode == 'leet') {
$LEET_FILTER = array('B' => '8', 'C' => '(', 'E' => '3', 'G' => '9', 'I' => '1', 'L' => '1', 'O' => '0', 'P' => '9', 'S' => '5', 'U' => '0', 'V' => '\\/', 'Z' => '2');
}
$smilies = $GLOBALS['FORUM_DRIVER']->find_emoticons();
// We'll be needing the smiley array
$shortcuts = array('(EUR-)' => '€', '{f.}' => 'ƒ', '-|-' => '†', '=|=' => '‡', '{%o}' => '‰', '{~S}' => 'Š', '{~Z}' => 'Ž', '(TM)' => '™', '{~s}' => 'š', '{~z}' => 'ž', '{.Y.}' => 'Ÿ', '(c)' => '©', '(r)' => '®', '---' => '—', '--' => '–', '...' => '…', '-->' => '→', '<--' => '←');
// Text syntax possibilities, that get maintained as our cursor moves through the text block
$list_indent = 0;
$list_type = 'ul';
if ($is_all_semihtml) {
filter_html($as_admin, $source_member, $pos, $len, $comcode, false, false);
}
// Pre-filter the whole lot (note that this means during general output we do no additional filtering)
while ($pos < $len) {
$next = $comcode[$pos];
++$pos;
// State machine
switch ($status) {
case CCP_NO_MANS_LAND:
if ($next == '[') {
// Look ahead to make sure it's a valid tag. If it's not then it's considered normal user input, not a tag at all
$dif = $pos < $len && $comcode[$pos] == '/' ? 1 : 0;
$ahead = substr($comcode, $pos + $dif, MAX_COMCODE_TAG_LOOK_AHEAD_LENGTH);
$equal_pos = strpos($ahead, '=');
$space_pos = strpos($ahead, ' ');
$end_pos = strpos($ahead, ']');
$lax_end_pos = strpos($ahead, '[');
$cl_pos = strpos($ahead, chr(10));
if ($equal_pos === false) {
$equal_pos = MAX_COMCODE_TAG_LOOK_AHEAD_LENGTH + 3;
}
if ($space_pos === false) {
$space_pos = MAX_COMCODE_TAG_LOOK_AHEAD_LENGTH + 3;
}
if ($end_pos === false) {
$end_pos = MAX_COMCODE_TAG_LOOK_AHEAD_LENGTH + 3;
}
if ($lax_end_pos === false) {
$lax_end_pos = MAX_COMCODE_TAG_LOOK_AHEAD_LENGTH + 3;
}
if ($cl_pos === false) {
$cl_pos = MAX_COMCODE_TAG_LOOK_AHEAD_LENGTH + 3;
}
$use_pos = min($equal_pos, $space_pos, $end_pos, $lax_end_pos, $cl_pos);
$potential_tag = strtolower(substr($ahead, 0, $use_pos));
if ($use_pos != 22 && (!$in_semihtml || $dif == 1 || $potential_tag != 'html' && $potential_tag != 'semihtml') && (!$in_html || $dif == 1 && $potential_tag == 'html') && (!$in_code_tag || isset($CODE_TAGS[$potential_tag]) && $potential_tag == $current_tag) && (!$structure_sweep || $potential_tag != 'contents')) {
if ($in_code_tag) {
if ($dif == 1) {
$code_nest_stack--;
} else {
$code_nest_stack++;
}
$ok = $code_nest_stack == -1;
} else {
$ok = true;
}
if ($ok) {
if (!isset($VALID_COMCODE_TAGS[$potential_tag])) {
if (!$IMPORTED_CUSTOM_COMCODE) {
_custom_comcode_import($connection);
}
}
if (isset($VALID_COMCODE_TAGS[$potential_tag]) && strtolower(substr($ahead, 0, 2)) != 'i ') {
if ($comcode[$pos] != '/' || count($tag_stack) == 0) {
$mindless_mode = $semiparse_mode && (!isset($REVERSABLE_TAGS[$potential_tag]) || is_string($REVERSABLE_TAGS[$potential_tag]) && preg_match($REVERSABLE_TAGS[$potential_tag], substr($comcode, $pos, 100)) != 0) && !isset($PUREHTML_TAGS[$potential_tag]);
} else {
$mindless_mode = $tag_stack[count($tag_stack) - 1][7];
}
$close = false;
$current_tag = '';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
if ($just_new_line || isset($BLOCK_TAGS[$potential_tag])) {
list($close_list, $list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($close_list);
}
$tag_output->attach($close_list);
}
$status = CCP_STARTING_TAG;
if ($mindless_mode) {
if ($comcode[$pos] != '/') {
if (array_key_exists($potential_tag, $BLOCK_TAGS)) {
$tag_raw = '​<kbd title="' . escape_html($potential_tag) . '" class="ocp_keep_block">[';
} else {
$tag_raw = '​<kbd title="' . escape_html($potential_tag) . '" class="ocp_keep">[';
}
} else {
$tag_raw = '[';
}
} else {
$tag_raw = '';
}
continue;
}
}
} else {
if ($use_pos != 22 && (($in_semihtml || $in_html) && ($potential_tag == 'html' || $potential_tag == 'semihtml')) && !$in_code_tag) {
$ahc = strpos($ahead, ']');
if ($ahc !== false) {
$pos += $ahc + 1;
continue;
}
}
}
}
if ($in_html || $in_semihtml && !$in_code_tag && ($next == '<' || $next == '>' || $next == '"')) {
if ($next == chr(10)) {
++$NUM_LINES;
}
if (!$comcode_dangerous_html && $next == '<') {
$close = strpos($comcode, '>', $pos - 1);
$portion = substr($comcode, $pos - 1, $close - $pos + 2);
$seq_ok = false;
foreach ($allowed_html_seqs as $allowed_html_seq) {
if (preg_match('#^' . $allowed_html_seq . '$#', $portion) != 0) {
$seq_ok = true;
}
}
if (!$seq_ok) {
// $next='<'; //OLD STYLE
if ($close !== false) {
$pos = $close + 1;
}
// NEW STYLE
continue;
}
}
if (substr($comcode, $pos - 1, 4) == '<!--') {
$continuation .= '<!--';
$pos += 3;
} else {
$continuation .= $mindless_mode && $in_code_tag ? escape_html($next) : $next;
}
} else {
// Text-format possibilities
if ($just_new_line && $formatting_allowed && !$wml) {
if ($continuation != '') {
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
}
// List
$found_list = false;
$old_list_indent = $list_indent;
if ($pos + 2 < $len && is_numeric($next) && (is_numeric($comcode[$pos]) && $comcode[$pos + 1] == ')' && $comcode[$pos + 2] == ' ' || $comcode[$pos] == ')' && $comcode[$pos + 1] == ' ') && ($list_type == '1' && $list_indent != 0 || preg_match('#^[^\\n]*\\n\\d+\\) #', substr($comcode, $pos + 1)) != 0)) {
if ($list_indent != 0 && $list_type != '1') {
list($temp_tpl, $old_list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
}
$list_indent = 1;
$found_list = true;
$scan_pos = $pos;
$list_type = '1';
} elseif ($pos + 2 < $len && ord($next) >= ord('a') && ord($next) <= ord('z') && $comcode[$pos] == ')' && $comcode[$pos + 1] == ' ' && ($list_type == 'a' && $list_indent != 0 || preg_match('#^[^\\n]*\\n[a-z]+\\) #', substr($comcode, $pos + 1)) != 0)) {
if ($list_indent != 0 && $list_type != 'a') {
list($temp_tpl, $old_list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
}
$list_indent = 1;
$found_list = true;
$scan_pos = $pos;
$list_type = 'a';
} elseif ($next == ' ') {
if ($old_list_indent != 0 && $list_type != 'ul') {
list($temp_tpl, $old_list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
}
$scan_pos = $pos - 1;
$list_indent = 0;
while ($scan_pos < $len) {
$scan_next = $comcode[$scan_pos];
if ($scan_next == '-' && $scan_pos + 1 < $len && $comcode[$scan_pos + 1] == ' ') {
$found_list = true;
break;
} else {
if ($scan_next == ' ') {
++$list_indent;
} else {
break;
}
}
++$scan_pos;
}
if (!$found_list) {
$list_indent = 0;
} else {
$list_type = 'ul';
}
} else {
list($close_list, $list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($close_list);
}
$tag_output->attach($close_list);
$old_list_indent = 0;
if ($next == '-' && !$just_title) {
$scan_pos = $pos;
$found_rule = true;
while ($scan_pos < $len) {
$scan_next = $comcode[$scan_pos];
if ($scan_next != '-') {
if ($scan_next == chr(10)) {
++$NUM_LINES;
break;
} else {
$found_rule = false;
}
}
++$scan_pos;
}
if ($found_rule) {
$_temp_tpl = do_template('COMCODE_TEXTCODE_LINE');
$tag_output->attach($_temp_tpl);
$pos = $scan_pos + 1;
$just_ended = true;
$none_wrap_length = 0;
continue;
}
}
}
// List handling
if ($list_indent == $old_list_indent && $old_list_indent != 0) {
$temp_tpl = '</li>';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
}
for ($i = $list_indent; $i < $old_list_indent; ++$i) {
$temp_tpl = '</li>';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
$temp_tpl = $list_type == 'ul' ? '</ul>' : '</ol>';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
}
if ($list_indent < $old_list_indent && $list_indent != 0) {
$temp_tpl = '</li>';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
}
if ($found_list) {
if ($list_indent - $old_list_indent > 1 && !$lax) {
return comcode_parse_error($preparse_mode, array('CCP_LIST_JUMPYNESS'), $pos, $comcode, $check_only);
}
for ($i = $old_list_indent; $i < $list_indent; ++$i) {
switch ($list_type) {
case 'ul':
if ($i < $list_indent - 1) {
$temp_tpl = '<ul><li>';
} else {
$temp_tpl = '<ul>';
}
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
break;
case '1':
if ($i < $list_indent - 1) {
$temp_tpl = '<ol type="1"><li>';
} else {
$temp_tpl = '<ol type="1">';
}
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
break;
case 'a':
if ($i < $list_indent - 1) {
$temp_tpl = '<ol type="a"><li>';
} else {
$temp_tpl = '<ol type="a">';
}
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
break;
}
}
$temp_tpl = '<li>';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
$just_ended = true;
$none_wrap_length = 0;
$next = '';
$pos = $scan_pos + 2;
}
}
if ($next == chr(10) && $white_space_area && $print_mode && $list_indent == 0) {
$tag_output->attach($queued_tempcode);
$queued_tempcode = new ocp_tempcode();
}
if ($next == chr(10) && $white_space_area && !$in_semihtml && (!$just_ended || $semiparse_mode || substr($comcode, $pos, 3) == ' - ')) {
++$NUM_LINES;
$line_starting = true;
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
$just_new_line = true;
$none_wrap_length = 0;
if ($list_indent == 0 && !$just_ended) {
$temp_tpl = '<br />';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
}
} else {
$just_new_line = false;
if ($next == ' ' && $white_space_area && !$in_semihtml) {
if ($line_starting || $pos > 1 && $comcode[$pos - 2] == ' ') {
$next = ' ';
++$none_wrap_length;
} else {
$none_wrap_length = 0;
}
$continuation .= $mindless_mode && $in_code_tag ? escape_html($next) : $next;
} elseif ($next == "\t" && $white_space_area && !$in_semihtml) {
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
$tab_tpl = do_template('COMCODE_TEXTCODE_TAB');
$_tab_tpl = $tab_tpl->evaluate();
$none_wrap_length += strlen($_tab_tpl);
$tag_output->attach($tab_tpl);
} else {
if ($next == ' ' || $next == "\t" || $just_ended) {
$none_wrap_length = 0;
} else {
if (!is_null($wrap_pos) && $none_wrap_length >= $wrap_pos && (strtolower(get_charset()) != 'utf-8' || preg_replace(array('#[\\x09\\x0A\\x0D\\x20-\\x7E]#', '#[\\xC2-\\xDF][\\x80-\\xBF]#', '#\\xE0[\\xA0-\\xBF][\\x80-\\xBF]#', '#[\\xE1-\\xEC\\xEE\\xEF][\\x80-\\xBF]{2}#', '#\\xED[\\x80-\\x9F][\\x80-\\xBF]#', '#\\xF0[\\x90-\\xBF][\\x80-\\xBF]{2}#', '#[\\xF1-\\xF3][\\x80-\\xBF]{3}#', '#\\xF4[\\x80-\\x8F][\\x80-\\xBF]{2}#'), array('', '', '', '', '', '', '', ''), $continuation) == '') && $textual_area && !$in_semihtml) {
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
$temp_tpl = '<br />';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
$none_wrap_length = 0;
} elseif ($textual_area) {
++$none_wrap_length;
}
}
$line_starting = false;
$just_ended = false;
$differented = false;
// If somehow via lookahead we've changed this to HTML and thus won't use it in raw form
// Variable lookahead
if (!$in_code_tag && ($next == '{' && isset($comcode[$pos]) && ($comcode[$pos] == '$' || $comcode[$pos] == '+' || $comcode[$pos] == '!'))) {
if ($comcode_dangerous) {
if (!$in_code_tag && (!$semiparse_mode || in_tag_stack($tag_stack, array('url', 'img', 'flash')))) {
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
if ($comcode[$pos] == '+') {
$p_end = $pos + 5;
while ($p_end < $len) {
$p_portion = substr($comcode, $pos - 1, $p_end - ($pos - 1) + 5);
if (substr_count($p_portion, '{+START') == substr_count($p_portion, '{+END')) {
break;
}
$p_end++;
}
$p_len = 1;
while ($pos + $p_len < $len) {
$p_portion = substr($comcode, $pos - 1, $p_len);
if (substr_count(str_replace('{', ' { ', $p_portion), '{') == substr_count(str_replace('}', ' } ', $p_portion), '}')) {
break;
}
// str_replace is to workaround a Quercus bug #4494
$p_len++;
}
$p_len--;
$p_portion = substr($comcode, $pos + $p_len, $p_end - ($pos + $p_len));
require_code('tempcode_compiler');
$ret = template_to_tempcode(substr($comcode, $pos - 1, $p_len + 1) . '{DIRECTIVE_EMBEDMENT}' . substr($comcode, $p_end, 6));
$attaches_before = count($COMCODE_ATTACHMENTS[$pass_id]);
$ret->singular_bind('DIRECTIVE_EMBEDMENT', comcode_text_to_tempcode($p_portion, $source_member, $as_admin, $wrap_pos, $pass_id, $connection, $semiparse_mode, $preparse_mode, $in_semihtml, $structure_sweep, $check_only, $highlight_bits, $on_behalf_of_member));
for ($attach_inspect = $attaches_before; $attach_inspect < count($COMCODE_ATTACHMENTS[$pass_id]); $attach_inspect++) {
$COMCODE_ATTACHMENTS[$pass_id][$attach_inspect]['marker'] += $pos + $p_len;
}
$pos = $p_end + 6;
} elseif ($comcode[$pos] == '!') {
$p_len = $pos;
$balance = 1;
while ($p_len < $len && $balance != 0) {
if ($comcode[$p_len] == '{') {
$balance++;
} elseif ($comcode[$p_len] == '}') {
$balance--;
}
$p_len++;
}
$ret = new ocp_tempcode();
$less_pos = $pos - 1;
$ret->parse_from($comcode, $less_pos, $p_len);
$pos = $p_len;
if ($ret->parameterless(0) && $pos < $len) {
$matches = array();
if (preg_match('#\\{\\!([\\w\\d\\_\\:]+)(\\}|$)#U', substr($comcode, $less_pos, $p_len - $less_pos), $matches) != 0) {
$temp_lang_string = $matches[1];
$ret = comcode_lang_string($temp_lang_string);
// Recreate as a Comcode lang string
}
}
} else {
$p_len = $pos;
$balance = 1;
while ($p_len < $len && $balance != 0) {
if ($comcode[$p_len] == '{') {
$balance++;
} elseif ($comcode[$p_len] == '}') {
$balance--;
}
$p_len++;
}
$ret = new ocp_tempcode();
$less_pos = $pos - 1;
$ret->parse_from($comcode, $less_pos, $p_len);
$pos = $p_len;
}
$differented = true;
if ($pos <= $len || !$lax) {
$tag_output->attach($ret);
}
}
} else {
if ($comcode[$pos] == '$' && $pos < $len - 2 && $comcode[$pos + 1] == ',' && strpos($comcode, '}', $pos) !== false) {
$pos = strpos($comcode, '}', $pos) + 1;
$differented = true;
}
}
}
// Escaping of comcode tag starts lookahead
if ($next == '\\' && !$in_code_tag) {
if ($pos != $len && ($comcode[$pos] == '"' || substr($comcode, $pos - 1, 6) == '"')) {
if ($semiparse_mode) {
$continuation .= '\\';
}
if ($comcode[$pos] == '"') {
$continuation .= $mindless_mode ? '"' : '"';
++$pos;
} else {
$continuation .= '"';
$pos += 6;
}
$differented = true;
} elseif ($pos != $len && $comcode[$pos] == '[') {
if ($semiparse_mode) {
$continuation .= '\\';
}
$continuation .= '[';
++$pos;
$differented = true;
} elseif ($pos != $len && $comcode[$pos] == '{') {
if ($semiparse_mode) {
$continuation .= '\\';
}
$continuation .= '{';
++$pos;
$differented = true;
} elseif ($pos == $len || $comcode[$pos] == '\\') {
if ($semiparse_mode) {
$continuation .= '\\';
}
$continuation .= '\\';
++$pos;
$differented = true;
}
}
if (!$differented) {
if (($textual_area || $in_semihtml) && trim($next) != '' && !$wml) {
// Emoticon lookahead
foreach ($smilies as $smiley => $imgcode) {
if ($in_semihtml) {
$smiley = ' ' . $smiley . ' ';
}
if ($next == $smiley[0]) {
if (substr($comcode, $pos - 1, strlen($smiley)) == $smiley) {
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
$pos += strlen($smiley) - 1;
$differented = true;
$tag_output->attach(do_emoticon($imgcode));
break;
}
}
}
}
}
if (trim($next) != '' && !$in_code_tag && !$differented) {
// CEDI pages
if ($pos < $len && $next == '[' && $pos + 1 < $len && $comcode[$pos] == '[' && !$semiparse_mode && addon_installed('cedi')) {
$matches = array();
if (preg_match('#^\\[([^\\[\\]]*)\\]\\]#', substr($comcode, $pos, 200), $matches) != 0) {
$cedi_page_name = $matches[1];
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
$hash_pos = strpos($cedi_page_name, '#');
if ($hash_pos !== false) {
$jump_to = substr($cedi_page_name, $hash_pos + 1);
$cedi_page_name = substr($cedi_page_name, 0, $hash_pos);
} else {
$jump_to = '';
}
$cedi_page_url = build_url(array('page' => 'cedi', 'type' => 'misc', 'find' => $cedi_page_name), get_module_zone('cedi'));
if ($jump_to != '') {
$cedi_page_url->attach('#' . $jump_to);
}
$tag_output->attach(do_template('COMCODE_CEDI_LINK', array('_GUID' => 'ebcd7ba5290c5b2513272a53b4d666e5', 'URL' => $cedi_page_url, 'TEXT' => $cedi_page_name)));
$pos += strlen($matches[1]) + 3;
$differented = true;
}
}
// Usernames
if ($pos < $len && $next == '{' && $pos + 1 < $len && $comcode[$pos] == '{' && !$in_code_tag && !$semiparse_mode) {
$matches = array();
if (preg_match('#^\\{([^"{}&\'\\$<>]+)\\}\\}#', substr($comcode, $pos, 80), $matches) != 0) {
$username = $matches[1];
if ($username[0] == '?') {
$username_info = true;
$username = substr($username, 1);
} else {
$username_info = false;
}
$this_member_id = $GLOBALS['FORUM_DRIVER']->get_member_from_username($username);
if (!is_null($this_member_id) && !is_guest($this_member_id)) {
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
$poster_url = $GLOBALS['FORUM_DRIVER']->member_profile_url($this_member_id, false, true);
if (get_forum_type() == 'ocf' && $username_info) {
require_lang('ocf');
require_code('ocf_members2');
$details = ocf_show_member_box($this_member_id);
$tag_output->attach(do_template('HYPERLINK_TOOLTIP', array('_GUID' => 'd8f4f4ac70bd52b3ef9ee74ae9c5e085', 'TOOLTIP' => $details, 'CAPTION' => $username, 'URL' => $poster_url, 'NEW_WINDOW' => false)));
} else {
$tag_output->attach(hyperlink($poster_url, $username));
}
$pos += strlen($matches[1]) + 3;
$differented = true;
}
}
}
}
if ($textual_area && !$in_code_tag && trim($next) != '' && !$differented) {
// Shortcut lookahead
if (!$differented) {
if ($in_semihtml && substr($comcode, $pos - 1, 3) == '-->') {
$continuation .= '-->';
$pos += 2;
break;
}
foreach ($shortcuts as $code => $replacement) {
if ($next == $code[0] && substr($comcode, $pos - 1, strlen($code)) == $code) {
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
$pos += strlen($code) - 1;
$differented = true;
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($replacement);
}
$tag_output->attach($replacement);
break;
}
}
}
}
if ($textual_area && !$in_code_tag && trim($next) != '' && !$differented) {
// Table syntax
if (!$differented) {
if ($pos < $len && $comcode[$pos] == '|') {
$end_tbl = strpos($comcode, chr(10) . '|}', $pos);
if ($end_tbl !== false) {
$end_fst_line_pos = strpos($comcode, chr(10), $pos);
$caption = substr($comcode, $pos + 2, max($end_fst_line_pos - $pos - 2, 0));
$pos += strlen($caption) + 1;
$rows = preg_split('#(\\|-|\\|\\})#Um', substr($comcode, $pos, $end_tbl - $pos));
if (preg_match('#(^|\\s)floats($|\\s)#', $caption) != 0) {
$caption = preg_replace('#(^|\\s)floats($|\\s)#', '', $caption);
$ratios = array();
$ratios_matches = array();
if (preg_match('#(^|\\s)([\\d\\.]+%(:[\\d\\.]+%)*)($|\\s)#', $caption, $ratios_matches) != 0) {
$ratios = explode(':', $ratios_matches[2]);
$caption = str_replace($ratios_matches[0], '', $caption);
}
foreach ($rows as $h => $row) {
if ($h != 0) {
$tag_output->attach(do_template('BLOCK_SEPARATOR'));
}
$cells = preg_split('/(\\n\\! | \\!\\! |\\n\\| | \\|\\| )/', $row, -1, PREG_SPLIT_DELIM_CAPTURE);
array_shift($cells);
// First one is non-existant empty
$spec = true;
// Find which to float
$to_float = NULL;
foreach ($cells as $i => $cell) {
if (!$spec) {
if (strpos($cell, '!') !== false || is_null($to_float)) {
$to_float = $i;
}
}
$spec = !$spec;
}
$tag_output->attach(do_template('COMCODE_FAKE_TABLE_WRAP_START'));
// Do floated one
$i_dir_1 = $to_float == 1 ? 'left' : 'right';
$i_dir_2 = $to_float != 1 ? 'left' : 'right';
if (preg_match('#(^|\\s)wide($|\\s)#', $caption) != 0) {
$tag_output->attach(do_template('COMCODE_FAKE_TABLE_WIDE_START', array('_GUID' => 'ced8c3a142f74296a464b085ba6891c9', 'WIDTH' => array_key_exists($to_float == 1 ? 0 : count($cells) - 1, $ratios) ? $ratios[$to_float == 1 ? 0 : count($cells) - 1] : (count($cells) == 2 ? '0' : float_to_raw_string(97.0 / (floatval(count($cells)) / 2.0 - 1.0), 2) . '%'), 'FLOAT' => $i_dir_1, 'PADDING' => $to_float == 1 ? '' : '-left', 'PADDING_AMOUNT' => count($cells) == 2 ? '0' : float_to_raw_string(3.0 / (floatval(count($cells) - 2) / 2.0), 2))));
} else {
$tag_output->attach(do_template('COMCODE_FAKE_TABLE_START', array('_GUID' => '90be72fcbb6b9d8a312da0bee5b86cb3', 'WIDTH' => array_key_exists($to_float, $ratios) ? $ratios[$to_float] : '', 'FLOAT' => $i_dir_1, 'PADDING' => $to_float == 1 ? '' : '-left', 'PADDING_AMOUNT' => count($cells) == 2 ? '0' : float_to_raw_string(3.0 / (floatval(count($cells) - 2.0) / 2.0), 2))));
}
$attaches_before = count($COMCODE_ATTACHMENTS[$pass_id]);
$tag_output->attach(comcode_text_to_tempcode(isset($cells[$to_float]) ? rtrim($cells[$to_float]) : '', $source_member, $as_admin, 60, $pass_id, $connection, $semiparse_mode, $preparse_mode, $in_semihtml, $structure_sweep, $check_only, $highlight_bits, $on_behalf_of_member));
for ($attach_inspect = $attaches_before; $attach_inspect < count($COMCODE_ATTACHMENTS[$pass_id]); $attach_inspect++) {
$COMCODE_ATTACHMENTS[$pass_id][$attach_inspect]['marker'] += strpos($comcode, $cells[$to_float], $pos);
}
$tag_output->attach(do_template('COMCODE_FAKE_TABLE_END'));
// Do non-floated ones
$cell_i = 0;
foreach ($cells as $i => $cell) {
if ($i % 2 == 1) {
if ($i != $to_float) {
if (preg_match('#(^|\\s)wide($|\\s)#', $caption) != 0) {
$tag_output->attach(do_template('COMCODE_FAKE_TABLE_WIDE2_START', array('_GUID' => '9bac42a1b62c5c9a2f758639fcb3bb2f', 'WIDTH' => array_key_exists($cell_i, $ratios) ? $ratios[$cell_i] : float_to_raw_string(97.0 / (floatval(count($cells)) / 2.0), 2) . '%', 'PADDING_AMOUNT' => count($cells) == 2 ? '0' : float_to_raw_string(3.0 / (floatval(count($cells) - 2) / 2.0), 2), 'FLOAT' => $i_dir_1, 'PADDING' => $to_float == 1 || $cell_i != 0 ? '-left' : '')));
} else {
$tag_output->attach(do_template('COMCODE_FAKE_TABLE_2_START', array('_GUID' => '0f15f9d5554635ed7ac154c9dc5c72b8', 'WIDTH' => array_key_exists($cell_i, $ratios) ? $ratios[$cell_i] : '', 'FLOAT' => $i_dir_1, 'PADDING' => $to_float == 1 || $cell_i != 0 ? '-left' : '', 'PADDING_AMOUNT' => count($cells) == 2 ? '0' : float_to_raw_string(3.0 / (floatval(count($cells) - 2) / 2.0), 2))));
}
$attaches_before = count($COMCODE_ATTACHMENTS[$pass_id]);
$tag_output->attach(comcode_text_to_tempcode(rtrim($cell), $source_member, $as_admin, 60, $pass_id, $connection, $semiparse_mode, $preparse_mode, $in_semihtml, $structure_sweep, $check_only, $highlight_bits, $on_behalf_of_member));
for ($attach_inspect = $attaches_before; $attach_inspect < count($COMCODE_ATTACHMENTS[$pass_id]); $attach_inspect++) {
$COMCODE_ATTACHMENTS[$pass_id][$attach_inspect]['marker'] += strpos($comcode, $cell, $pos);
}
$tag_output->attach(do_template('COMCODE_FAKE_TABLE_END'));
}
$cell_i++;
}
}
$tag_output->attach(do_template('COMCODE_FAKE_TABLE_WRAP_END'));
}
} else {
$ratios = array();
$ratios_matches = array();
if (preg_match('#(^|\\s)([\\d\\.]+%(:[\\d\\.]+%)*)($|\\s)#', $caption, $ratios_matches) != 0) {
$ratios = explode(':', $ratios_matches[2]);
$caption = str_replace($ratios_matches[0], '', $caption);
}
if (preg_match('#(^|\\s)wide($|\\s)#', $caption) != 0) {
$tag_output->attach(do_template('COMCODE_REAL_TABLE_START', array('SUMMARY' => preg_replace('#(^|\\s)wide($|\\s)#', '', $caption))));
} else {
$tag_output->attach(do_template('COMCODE_REAL_TABLE_START_SUMMARY', array('_GUID' => '0c5674fba61ba14b4b9fa39ea31ff54f', 'CAPTION' => $caption)));
}
foreach ($rows as $table_row) {
$tag_output->attach(do_template('COMCODE_REAL_TABLE_ROW_START'));
$cells = preg_split('/(\\n\\! | \\!\\! |\\n\\| | \\|\\| )/', $table_row, -1, PREG_SPLIT_DELIM_CAPTURE);
array_shift($cells);
// First one is non-existant empty
$spec = true;
$c_type = '';
$cell_i = 0;
foreach ($cells as $i => $cell) {
if ($spec) {
$c_type = strpos($cell, '!') !== false ? 'th' : 'td';
} else {
$attaches_before = count($COMCODE_ATTACHMENTS[$pass_id]);
$_mid = comcode_text_to_tempcode(rtrim($cell), $source_member, $as_admin, 60, $pass_id, $connection, $semiparse_mode, $preparse_mode, $in_semihtml, $structure_sweep, $check_only, $highlight_bits, $on_behalf_of_member);
for ($attach_inspect = $attaches_before; $attach_inspect < count($COMCODE_ATTACHMENTS[$pass_id]); $attach_inspect++) {
$COMCODE_ATTACHMENTS[$pass_id][$attach_inspect]['marker'] += strpos($comcode, $cell, $pos);
}
$tag_output->attach(do_template('COMCODE_REAL_TABLE_CELL', array('_GUID' => '6640df8b503f65e3d36f595b0acf7600', 'WIDTH' => array_key_exists($cell_i, $ratios) ? $ratios[$cell_i] : '', 'C_TYPE' => $c_type, 'MID' => $_mid, 'PADDING' => $cell_i == 0 ? '' : '-left', 'PADDING_AMOUNT' => count($cells) == 2 ? '0' : float_to_raw_string(5.0 / (floatval(count($cells) - 2) / 2.0), 2))));
$cell_i++;
}
$spec = !$spec;
}
$tag_output->attach(do_template('COMCODE_REAL_TABLE_ROW_END'));
}
$tag_output->attach(do_template('COMCODE_REAL_TABLE_END'));
}
$pos = $end_tbl + 3;
$differented = true;
}
}
}
// Advertising
$b_all = true;
// leave true - for test purposes only
if (!$differented && !$semiparse_mode && !$in_code_tag && addon_installed('banners') && ($b_all || !has_specific_permission($source_member, 'banner_free'))) {
// Pick up correctly, including permission filtering
if (is_null($ADVERTISING_BANNERS)) {
$rows = $GLOBALS['SITE_DB']->query('SELECT * FROM ' . get_table_prefix() . 'banners b LEFT JOIN ' . get_table_prefix() . 'banner_types t ON b.b_type=t.id WHERE t_comcode_inline=1 AND ' . db_string_not_equal_to('b_title_text', ''), NULL, NULL, true);
if (!is_null($rows)) {
// Filter out what we don't have permission for
if (get_option('use_banner_permissions', true) == '1') {
require_code('permissions');
$groups = _get_where_clause_groups($source_member);
if (!is_null($groups)) {
$perhaps = collapse_1d_complexity('category_name', $GLOBALS['SITE_DB']->query('SELECT category_name FROM ' . get_table_prefix() . 'group_category_access WHERE ' . db_string_equal_to('module_the_name', 'banners') . ' AND (' . $groups . ')'));
$new_rows = array();
foreach ($rows as $row) {
if (in_array($row['name'], $perhaps)) {
$new_rows[] = $row;
}
}
$rows = $new_rows;
}
}
$ADVERTISING_BANNERS = array();
foreach ($rows as $row) {
$trigger_text = $row['b_title_text'];
foreach (explode(',', $trigger_text) as $t) {
if (trim($t) != '') {
$ADVERTISING_BANNERS[trim($t)] = $row;
}
}
}
}
}
// Apply
if (!is_null($ADVERTISING_BANNERS)) {
foreach ($ADVERTISING_BANNERS as $ad_trigger => $ad_bits) {
if (strtolower($next) == strtolower($ad_trigger[0])) {
if (strtolower(substr($comcode, $pos - 1, strlen($ad_trigger))) == strtolower($ad_trigger)) {
require_code('banners');
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
$differented = true;
$ad_text = show_banner($ad_bits['name'], $ad_bits['b_title_text'], get_translated_tempcode($ad_bits['caption']), $ad_bits['img_url'], '', $ad_bits['site_url'], $ad_bits['b_type']);
$embed_output = _do_tags_comcode('tooltip', array('param' => $ad_text, 'url' => url_is_local($ad_bits['site_url']) && $ad_bits['site_url'] != '' ? get_custom_base_url() . '/' . $ad_bits['site_url'] : $ad_bits['site_url']), substr($comcode, $pos - 1, strlen($ad_trigger)), $comcode_dangerous, $pass_id, $pos, $source_member, $as_admin, $connection, $comcode, $wml, $structure_sweep, $semiparse_mode, $highlight_bits);
$pos += strlen($ad_trigger) - 1;
$tag_output->attach($embed_output);
}
}
}
}
}
// Search highlighting lookahead
if (!$differented && !is_null($highlight_bits)) {
foreach ($highlight_bits as $highlight_bit) {
if (strtolower($next) == strtolower($highlight_bit[0])) {
if (strtolower(substr($comcode, $pos - 1, strlen($highlight_bit))) == strtolower($highlight_bit)) {
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
$differented = true;
$embed_output = _do_tags_comcode('highlight', array(), escape_html(substr($comcode, $pos - 1, strlen($highlight_bit))), $comcode_dangerous, $pass_id, $pos, $source_member, $as_admin, $connection, $comcode, $wml, $structure_sweep, $semiparse_mode, $highlight_bits);
$pos += strlen($highlight_bit) - 1;
$tag_output->attach($embed_output);
break;
}
}
}
}
// Link lookahead
if (!$differented && !$in_code_tag) {
if (!$in_semihtml && $next == 'h' && (substr($comcode, $pos - 1, strlen('http://')) == 'http://' || substr($comcode, $pos - 1, strlen('https://')) == 'https://' || substr($comcode, $pos - 1, strlen('ftp://')) == 'ftp://')) {
$link_end_pos = strpos($comcode, ' ', $pos - 1);
$link_end_pos_2 = strpos($comcode, chr(10), $pos - 1);
$link_end_pos_3 = strpos($comcode, '[', $pos - 1);
$link_end_pos_4 = strpos($comcode, ')', $pos - 1);
$link_end_pos_5 = strpos($comcode, '"', $pos - 1);
$link_end_pos_6 = strpos($comcode, '>', $pos - 1);
$link_end_pos_7 = strpos($comcode, '<', $pos - 1);
$link_end_pos_8 = strpos($comcode, '.' . chr(10), $pos - 1);
$link_end_pos_9 = strpos($comcode, ', ', $pos - 1);
$link_end_pos_10 = strpos($comcode, '. ', $pos - 1);
$link_end_pos_11 = strpos($comcode, "'", $pos - 1);
if ($link_end_pos_2 !== false && ($link_end_pos === false || $link_end_pos_2 < $link_end_pos)) {
$link_end_pos = $link_end_pos_2;
}
if ($link_end_pos_3 !== false && ($link_end_pos === false || $link_end_pos_3 < $link_end_pos)) {
$link_end_pos = $link_end_pos_3;
}
if ($link_end_pos_4 !== false && ($link_end_pos === false || $link_end_pos_4 < $link_end_pos)) {
$link_end_pos = $link_end_pos_4;
}
if ($link_end_pos_5 !== false && ($link_end_pos === false || $link_end_pos_5 < $link_end_pos)) {
$link_end_pos = $link_end_pos_5;
}
if ($link_end_pos_6 !== false && ($link_end_pos === false || $link_end_pos_6 < $link_end_pos)) {
$link_end_pos = $link_end_pos_6;
}
if ($link_end_pos_7 !== false && ($link_end_pos === false || $link_end_pos_7 < $link_end_pos)) {
$link_end_pos = $link_end_pos_7;
}
if ($link_end_pos_8 !== false && ($link_end_pos === false || $link_end_pos_8 < $link_end_pos)) {
$link_end_pos = $link_end_pos_8;
}
if ($link_end_pos_9 !== false && ($link_end_pos === false || $link_end_pos_9 < $link_end_pos)) {
$link_end_pos = $link_end_pos_9;
}
if ($link_end_pos_10 !== false && ($link_end_pos === false || $link_end_pos_10 < $link_end_pos)) {
$link_end_pos = $link_end_pos_10;
}
if ($link_end_pos_11 !== false && ($link_end_pos === false || $link_end_pos_11 < $link_end_pos)) {
$link_end_pos = $link_end_pos_11;
}
if ($link_end_pos === false) {
$link_end_pos = strlen($comcode);
}
$auto_link = preg_replace('#(keep|for)_session=[\\d\\w]*#', 'filtered=1', substr($comcode, $pos - 1, $link_end_pos - $pos + 1));
if (substr($auto_link, -3) != '://') {
if (substr($auto_link, -1) == '.') {
$auto_link = substr($auto_link, 0, strlen($auto_link) - 1);
$link_end_pos--;
}
$auto_link_tempcode = new ocp_tempcode();
$auto_link_tempcode->attach($auto_link);
if (!$check_only) {
$link_captions_title = $GLOBALS['SITE_DB']->query_value_null_ok('url_title_cache', 't_title', array('t_url' => $auto_link));
if (is_null($link_captions_title) || substr($link_captions_title, 0, 1) == '!') {
$GLOBALS['COMCODE_PARSE_URLS_CHECKED']++;
if ($GLOBALS['NO_LINK_TITLES'] || $GLOBALS['COMCODE_PARSE_URLS_CHECKED'] >= MAX_URLS_TO_READ) {
$link_captions_title = $auto_link;
} else {
$link_captions_title = '';
$downloaded_at_link = http_download_file($auto_link, 3000, false);
if (is_string($downloaded_at_link) && $GLOBALS['HTTP_DOWNLOAD_MIME_TYPE'] !== NULL && strpos($GLOBALS['HTTP_DOWNLOAD_MIME_TYPE'], 'html') !== false && $GLOBALS['HTTP_MESSAGE'] == '200') {
$matches = array();
if (preg_match('#\\s*<title[^>]*\\s*>\\s*(.*)\\s*\\s*<\\s*/title\\s*>#miU', $downloaded_at_link, $matches) != 0) {
require_code('character_sets');
$link_captions_title = trim(str_replace('–', '-', str_replace('—', '-', @html_entity_decode(convert_to_internal_encoding($matches[1]), ENT_QUOTES, get_charset()))));
if ((strpos(strtolower($link_captions_title), 'login') !== false || strpos(strtolower($link_captions_title), 'log in') !== false) && substr($auto_link, 0, strlen(get_base_url())) == get_base_url()) {
$link_captions_title = '';
}
// don't show login screen titles for our own website. Better to see the link verbatim
}
}
$GLOBALS['SITE_DB']->query_insert('url_title_cache', array('t_url' => substr($auto_link, 0, 255), 't_title' => substr($link_captions_title, 0, 255)), false, true);
// To stop weird race-like conditions
}
}
$embed_output = mixed();
$link_handlers = find_all_hooks('systems', 'comcode_link_handlers');
foreach (array_keys($link_handlers) as $link_handler) {
require_code('hooks/systems/comcode_link_handlers/' . $link_handler);
$link_handler_ob = object_factory('Hook_comcode_link_handler_' . $link_handler, true);
if (is_null($link_handler_ob)) {
continue;
}
$embed_output = $link_handler_ob->bind($auto_link, $link_captions_title, $comcode_dangerous, $pass_id, $pos, $source_member, $as_admin, $connection, $comcode, $wml, $structure_sweep, $semiparse_mode, $highlight_bits);
if (!is_null($embed_output)) {
break;
}
}
if (is_null($embed_output)) {
$page_link = url_to_pagelink($auto_link, true);
if ($link_captions_title == '') {
$link_captions_title = $auto_link;
}
if ($page_link != '') {
$embed_output = _do_tags_comcode('page', array('param' => $page_link), make_string_tempcode(escape_html($link_captions_title)), $comcode_dangerous, $pass_id, $pos, $source_member, $as_admin, $connection, $comcode, $wml, $structure_sweep, $semiparse_mode, $highlight_bits);
} else {
$embed_output = _do_tags_comcode('url', array('param' => $link_captions_title), $auto_link_tempcode, $comcode_dangerous, $pass_id, $pos, $source_member, $as_admin, $connection, $comcode, $wml, $structure_sweep, $semiparse_mode, $highlight_bits);
}
}
} else {
$embed_output = new ocp_tempcode();
}
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
$tag_output->attach($embed_output);
$pos += $link_end_pos - $pos;
$differented = true;
}
}
}
}
if (!$differented) {
if ($stupidity_mode != '' && $textual_area) {
if ($stupidity_mode == 'leet' && mt_rand(0, 1) == 1) {
if (array_key_exists(strtoupper($next), $LEET_FILTER)) {
$next = $LEET_FILTER[strtoupper($next)];
}
} elseif ($stupidity_mode == 'bork' && mt_rand(0, 60) == 1) {
$next .= '-bork-bork-bork-';
}
}
if (!$in_separate_parse_section && (!$in_semihtml || !$comcode_dangerous_html && !$is_all_semihtml)) {
if ($next == '&') {
$ahead = substr($comcode, $pos, 20);
$ahead_lower = strtolower($ahead);
$matches = array();
$entity = preg_match('#^(\\#)?([\\w]*);#', $ahead_lower, $matches) != 0;
// If it is a SAFE entity, use it
if ($entity && !$in_code_tag) {
if ($matches[1] == '' && ($in_semihtml || isset($ALLOWED_ENTITIES[$matches[2]]))) {
$pos += strlen($matches[2]) + 1;
$continuation .= '&' . $matches[2] . ';';
} elseif (is_numeric($matches[2]) && $matches[1] == '#') {
$matched_entity = intval(base_convert($matches[2], 16, 10));
if ($matched_entity < 127 && array_key_exists(chr($matched_entity), $POTENTIAL_JS_NAUGHTY_ARRAY)) {
$continuation .= escape_html($next);
} else {
$pos += strlen($matches[2]) + 2;
$continuation .= '&#' . $matches[2] . ';';
}
} else {
$continuation .= '&';
}
} else {
$continuation .= '&';
}
} else {
$continuation .= escape_html($next);
}
} else {
$continuation .= $next;
}
}
}
}
}
break;
case CCP_IN_TAG_NAME:
if ($mindless_mode && $next != '[') {
$tag_raw .= $next;
}
if ($next == '=') {
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTE_NAME_VALUE_RIGHT;
$current_attribute_name = 'param';
} elseif (trim($next) == '') {
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTES;
} elseif ($next == '[') {
if (!$lax) {
return comcode_parse_error($preparse_mode, array('CCP_TAG_OPEN_ANOMALY'), $pos, $comcode, $check_only);
}
$next = ']';
$pos--;
}
if ($next == ']') {
if ($close) {
if ($formatting_allowed) {
list($close_list, $list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($close_list);
}
$tag_output->attach($close_list);
}
if (count($tag_stack) == 0) {
if ($lax) {
$status = CCP_NO_MANS_LAND;
break;
}
return comcode_parse_error($preparse_mode, array('CCP_NO_CLOSE', $current_tag), strrpos(substr($comcode, 0, $pos), '['), $comcode, $check_only);
}
$has_it = false;
foreach (array_reverse($tag_stack) as $t) {
if ($t[0] == $current_tag) {
$has_it = true;
break;
}
if ($in_semihtml && ($current_tag == 'html' || $current_tag == 'semihtml')) {
// Only search one level for this
break;
}
}
if ($has_it) {
$_last = array_pop($tag_stack);
if ($_last[0] != $current_tag) {
if (!$lax) {
return comcode_parse_error($preparse_mode, array('CCP_NO_CLOSE_MATCH', $current_tag, $_last[0]), $pos, $comcode, $check_only);
}
do {
$embed_output = _do_tags_comcode($_last[0], $_last[1], $tag_output, $comcode_dangerous, $pass_id, $pos, $source_member, $as_admin, $connection, $comcode, $wml, $structure_sweep, $semiparse_mode, NULL, NULL, $in_semihtml, $is_all_semihtml);
$in_code_tag = false;
$white_space_area = $_last[3];
$in_separate_parse_section = $_last[4];
$formatting_allowed = $_last[5];
$textual_area = $_last[6];
$tag_output = $_last[2];
$tag_output->attach($embed_output);
$mindless_mode = $_last[7];
$comcode_dangerous = $_last[8];
$comcode_dangerous_html = $_last[9];
if (count($tag_stack) == 0) {
$status = CCP_NO_MANS_LAND;
break 2;
}
$_last = array_pop($tag_stack);
} while ($_last[0] != $current_tag);
}
} else {
$extraneous_semihtml = !$is_all_semihtml && !$in_semihtml || $current_tag != 'html' && $current_tag != 'semihtml';
if (!$lax && $extraneous_semihtml) {
$_last = array_pop($tag_stack);
return comcode_parse_error($preparse_mode, array('CCP_NO_CLOSE_MATCH', $current_tag, $_last[0]), $pos, $comcode, $check_only);
}
$status = CCP_NO_MANS_LAND;
break;
}
// Do the comcode for this tag
if ($in_semihtml) {
foreach ($_last[1] as $index => $conv) {
$_last[1][$index] = @html_entity_decode(str_replace('<br />', chr(10), $conv), ENT_QUOTES, get_charset());
}
}
$mindless_mode = $_last[7];
if ($mindless_mode) {
$embed_output = $tag_output;
} elseif (!$check_only) {
$_structure_sweep = false;
if ($structure_sweep) {
$_structure_sweep = !in_tag_stack($tag_stack, array('title'));
}
$embed_output = _do_tags_comcode($_last[0], $_last[1], $tag_output, $comcode_dangerous, $pass_id, $pos, $source_member, $as_admin, $connection, $comcode, $wml, $_structure_sweep, $semiparse_mode, $highlight_bits, NULL, $in_semihtml, $is_all_semihtml);
} else {
$embed_output = new ocp_tempcode();
}
$in_code_tag = false;
$white_space_area = $_last[3];
$in_separate_parse_section = $_last[4];
$formatting_allowed = $_last[5];
$textual_area = $_last[6];
$tag_output = $_last[2];
$comcode_dangerous = $_last[8];
$comcode_dangerous_html = $_last[9];
if ($print_mode && $_last[0] == 'exp_thumb') {
$queued_tempcode->attach($embed_output);
} else {
$tag_output->attach($embed_output);
}
$just_ended = isset($BLOCK_TAGS[$current_tag]);
if ($current_tag == 'title') {
if (strlen($comcode) > $pos + 1 && $comcode[$pos] == chr(10) && $comcode[$pos + 1] == chr(10)) {
$NUM_LINES += 2;
$pos += 2;
$just_new_line = true;
}
}
if ($current_tag == 'html') {
$in_html = false;
} elseif ($current_tag == 'semihtml') {
$in_semihtml = false;
}
$status = CCP_NO_MANS_LAND;
} else {
if ($current_tag == 'title') {
$just_new_line = false;
list($close_list, $list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($close_list);
}
$tag_output->attach($close_list);
}
array_push($tag_stack, array($current_tag, $attribute_map, $tag_output, $white_space_area, $in_separate_parse_section, $formatting_allowed, $textual_area, $mindless_mode, $comcode_dangerous, $comcode_dangerous_html));
list($tag_output, $comcode_dangerous, $comcode_dangerous_html, $white_space_area, $formatting_allowed, $in_separate_parse_section, $textual_area, $attribute_map, $status, $in_html, $in_semihtml, $pos, $in_code_tag) = _opened_tag($mindless_mode, $as_admin, $source_member, $attribute_map, $current_tag, $pos, $comcode_dangerous, $comcode_dangerous_html, $in_separate_parse_section, $in_html, $in_semihtml, $close, $len, $comcode);
if ($in_code_tag) {
$code_nest_stack = 0;
}
}
$tag_output->attach($tag_raw);
if ($close && $mindless_mode) {
$temp_tpl = '</kbd>​';
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($temp_tpl);
}
$tag_output->attach($temp_tpl);
}
} elseif ($status == CCP_IN_TAG_NAME) {
$current_tag .= strtolower($next);
}
break;
case CCP_STARTING_TAG:
if ($mindless_mode && $next != '[') {
$tag_raw .= $next;
}
if ($next == '[') {
if (!$lax) {
return comcode_parse_error($preparse_mode, array('CCP_TAG_OPEN_ANOMALY'), $pos, $comcode, $check_only);
}
$status = CCP_NO_MANS_LAND;
$pos--;
} elseif ($next == ']') {
if (!$lax) {
return comcode_parse_error($preparse_mode, array('CCP_TAG_CLOSE_ANOMALY'), $pos, $comcode, $check_only);
}
$status = CCP_NO_MANS_LAND;
} elseif ($next == '/') {
$close = true;
} else {
$current_tag .= strtolower($next);
$status = CCP_IN_TAG_NAME;
}
break;
case CCP_IN_TAG_BETWEEN_ATTRIBUTES:
if ($mindless_mode && $next != '[') {
$tag_raw .= $next;
}
if ($next == ']') {
if ($current_tag == 'title') {
$just_new_line = false;
list($close_list, $list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($close_list);
}
$tag_output->attach($close_list);
}
array_push($tag_stack, array($current_tag, $attribute_map, $tag_output, $white_space_area, $in_separate_parse_section, $formatting_allowed, $textual_area, $mindless_mode, $comcode_dangerous, $comcode_dangerous_html));
list($tag_output, $comcode_dangerous, $comcode_dangerous_html, $white_space_area, $formatting_allowed, $in_separate_parse_section, $textual_area, $attribute_map, $status, $in_html, $in_semihtml, $pos, $in_code_tag) = _opened_tag($mindless_mode, $as_admin, $source_member, $attribute_map, $current_tag, $pos, $comcode_dangerous, $comcode_dangerous_html, $in_separate_parse_section, $in_html, $in_semihtml, $close, $len, $comcode);
if ($in_code_tag) {
$code_nest_stack = 0;
}
$tag_output->attach($tag_raw);
} elseif ($next == '[') {
if (!$lax) {
return comcode_parse_error($preparse_mode, array('CCP_TAG_OPEN_ANOMALY'), $pos, $comcode, $check_only);
}
if ($current_tag == 'title') {
$just_new_line = false;
list($close_list, $list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($close_list);
}
$tag_output->attach($close_list);
}
array_push($tag_stack, array($current_tag, $attribute_map, $tag_output, $white_space_area, $in_separate_parse_section, $formatting_allowed, $textual_area, $mindless_mode, $comcode_dangerous, $comcode_dangerous_html));
list($tag_output, $comcode_dangerous, $comcode_dangerous_html, $white_space_area, $formatting_allowed, $in_separate_parse_section, $textual_area, $attribute_map, $status, $in_html, $in_semihtml, $pos, $in_code_tag) = _opened_tag($mindless_mode, $as_admin, $source_member, $attribute_map, $current_tag, $pos, $comcode_dangerous, $comcode_dangerous_html, $in_separate_parse_section, $in_html, $in_semihtml, $close, $len, $comcode);
if ($in_code_tag) {
$code_nest_stack = 0;
}
$tag_output->attach($tag_raw);
$pos--;
} elseif (trim($next) != '') {
$status = CCP_IN_TAG_ATTRIBUTE_NAME;
$current_attribute_name = $next;
}
break;
case CCP_IN_TAG_ATTRIBUTE_NAME:
if ($mindless_mode && $next != '[') {
$tag_raw .= $next;
}
if ($next == '[') {
$status = CCP_NO_MANS_LAND;
$pos--;
if (!$lax) {
return comcode_parse_error($preparse_mode, array('CCP_TAG_OPEN_ANOMALY'), $pos, $comcode, $check_only);
}
if ($current_tag == 'title') {
$just_new_line = false;
list($close_list, $list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($close_list);
}
$tag_output->attach($close_list);
}
array_push($tag_stack, array($current_tag, $attribute_map, $tag_output, $white_space_area, $in_separate_parse_section, $formatting_allowed, $textual_area, $mindless_mode, $comcode_dangerous, $comcode_dangerous_html));
list($tag_output, $comcode_dangerous, $comcode_dangerous_html, $white_space_area, $formatting_allowed, $in_separate_parse_section, $textual_area, $attribute_map, $status, $in_html, $in_semihtml, $pos, $in_code_tag) = _opened_tag($mindless_mode, $as_admin, $source_member, $attribute_map, $current_tag, $pos, $comcode_dangerous, $comcode_dangerous_html, $in_separate_parse_section, $in_html, $in_semihtml, $close, $len, $comcode);
if ($in_code_tag) {
$code_nest_stack = 0;
}
$tag_output->attach($tag_raw);
} elseif ($next == ']') {
if ($attribute_map == array() && !$lax) {
return comcode_parse_error($preparse_mode, array('CCP_TAG_CLOSE_ANOMALY'), $pos, $comcode, $check_only);
}
if ($attribute_map != array()) {
$at_map_keys = array_keys($attribute_map);
$old_attribute_name = $at_map_keys[count($at_map_keys) - 1];
$attribute_map[$old_attribute_name] .= ' ' . $current_attribute_name;
}
array_push($tag_stack, array($current_tag, $attribute_map, $tag_output, $white_space_area, $in_separate_parse_section, $formatting_allowed, $textual_area, $mindless_mode, $comcode_dangerous, $comcode_dangerous_html));
list($tag_output, $comcode_dangerous, $comcode_dangerous_html, $white_space_area, $formatting_allowed, $in_separate_parse_section, $textual_area, $attribute_map, $status, $in_html, $in_semihtml, $pos, $in_code_tag) = _opened_tag($mindless_mode, $as_admin, $source_member, $attribute_map, $current_tag, $pos, $comcode_dangerous, $comcode_dangerous_html, $in_separate_parse_section, $in_html, $in_semihtml, $close, $len, $comcode);
if ($in_code_tag) {
$code_nest_stack = 0;
}
$tag_output->attach($tag_raw);
} elseif ($next == '=') {
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTE_NAME_VALUE_RIGHT;
} elseif ($next != ' ') {
$current_attribute_name .= strtolower($next);
} else {
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTE_NAME_VALUE_LEFT;
}
break;
case CCP_IN_TAG_BETWEEN_ATTRIBUTE_NAME_VALUE_LEFT:
if ($mindless_mode && $next != '[' && $next != ']') {
$tag_raw .= $next;
}
if ($next == '=') {
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTE_NAME_VALUE_RIGHT;
} elseif (trim($next) != '') {
if (!$lax) {
return comcode_parse_error($preparse_mode, array('CCP_ATTRIBUTE_ERROR', $current_attribute_name, $current_tag), $pos, $comcode, $check_only);
}
if ($next == '[') {
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTES;
$pos--;
} elseif ($next == ']') {
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTES;
$pos--;
}
}
break;
case CCP_IN_TAG_BETWEEN_ATTRIBUTE_NAME_VALUE_RIGHT:
if ($mindless_mode && $next != '[' && $next != ']') {
$tag_raw .= $next;
}
if ($next == '[') {
if (!$lax) {
return comcode_parse_error($preparse_mode, array('CCP_TAG_OPEN_ANOMALY'), $pos, $comcode, $check_only);
}
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTES;
$pos--;
} elseif ($next == ']') {
if (!$lax) {
return comcode_parse_error($preparse_mode, array('CCP_TAG_CLOSE_ANOMALY'), $pos, $comcode, $check_only);
}
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTES;
$pos--;
} elseif ($next == '"' || $in_semihtml && substr($comcode, $pos - 1, 6) == '"') {
if ($next != '"') {
$pos += 5;
if ($mindless_mode) {
$tag_raw .= 'quot;';
}
}
$status = CCP_IN_TAG_ATTRIBUTE_VALUE;
$current_attribute_value = '';
} elseif ($next != '') {
$status = CCP_IN_TAG_ATTRIBUTE_VALUE_NO_QUOTE;
$current_attribute_value = $next;
}
break;
case CCP_IN_TAG_ATTRIBUTE_VALUE_NO_QUOTE:
if ($mindless_mode && $next != ']') {
$tag_raw .= $next;
}
if ($next == ' ') {
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTES;
if (isset($attribute_map[$current_attribute_name]) && !$lax) {
return comcode_parse_error($preparse_mode, array('CCP_DUPLICATE_ATTRIBUTES', $current_attribute_name, $current_tag), $pos, $comcode, $check_only);
}
$attribute_map[$current_attribute_name] = $current_attribute_value;
} elseif ($next == ']') {
if (isset($attribute_map[$current_attribute_name]) && !$lax) {
return comcode_parse_error($preparse_mode, array('CCP_DUPLICATE_ATTRIBUTES', $current_attribute_name, $current_tag), $pos, $comcode, $check_only);
}
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTES;
$attribute_map[$current_attribute_name] = $current_attribute_value;
$pos--;
} else {
$current_attribute_value .= $next;
}
break;
case CCP_IN_TAG_ATTRIBUTE_VALUE:
if ($mindless_mode) {
$tag_raw .= $next;
}
if ($next == '"' || $in_semihtml && substr($comcode, $pos - 1, 6) == '"') {
if ($next != '"') {
$pos += 5;
if ($mindless_mode) {
$tag_raw .= 'quot;';
}
}
$status = CCP_IN_TAG_BETWEEN_ATTRIBUTES;
if (isset($attribute_map[$current_attribute_name]) && !$lax) {
return comcode_parse_error($preparse_mode, array('CCP_DUPLICATE_ATTRIBUTES', $current_attribute_name, $current_tag), $pos, $comcode, $check_only);
}
$attribute_map[$current_attribute_name] = $current_attribute_value;
} else {
if ($next == '\\') {
if ($comcode[$pos] == '"') {
if ($mindless_mode) {
$tag_raw .= '"';
}
$current_attribute_value .= '"';
++$pos;
} elseif (substr($comcode, $pos - 1, 6) == '"') {
if ($mindless_mode) {
$tag_raw .= '"';
}
$current_attribute_value .= '"';
$pos += 6;
} elseif ($comcode[$pos] == '\\') {
if ($mindless_mode) {
$tag_raw .= '\\';
}
$current_attribute_value .= '\\';
++$pos;
} else {
$current_attribute_value .= $next;
}
} else {
$current_attribute_value .= $next;
}
}
break;
}
}
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($continuation);
}
$tag_output->attach($continuation);
$continuation = '';
list($close_list, $list_indent) = _close_open_lists($list_indent, $list_type);
if ($GLOBALS['XSS_DETECT']) {
ocp_mark_as_escaped($close_list);
}
$tag_output->attach($close_list);
if ($status != CCP_NO_MANS_LAND || count($tag_stack) != 0) {
if (!$lax) {
$stack_top = array_pop($tag_stack);
return comcode_parse_error($preparse_mode, array('CCP_BROKEN_END', is_null($stack_top) ? $current_tag : $stack_top[0]), $pos, $comcode, $check_only);
} else {
while (count($tag_stack) > 0) {
$_last = array_pop($tag_stack);
/*if ($_last[0]=='title') Not sure about this
{
$_structure_sweep=false;
break;
}*/
$embed_output = _do_tags_comcode($_last[0], $_last[1], $tag_output, $comcode_dangerous, $pass_id, $pos, $source_member, $as_admin, $connection, $comcode, $wml, $structure_sweep, $semiparse_mode, NULL, NULL, $in_semihtml, $is_all_semihtml);
$in_code_tag = false;
$white_space_area = $_last[3];
$in_separate_parse_section = $_last[4];
$formatting_allowed = $_last[5];
$textual_area = $_last[6];
$tag_output = $_last[2];
$tag_output->attach($embed_output);
$mindless_mode = $_last[7];
$comcode_dangerous = $_last[8];
$comcode_dangerous_html = $_last[9];
}
}
}
// $tag_output->left_attach('<div class="xhtml_validator_off">');
// $tag_output->attach('</div>');
return $tag_output;
}
