function controller_pages($args)
{
default_html(true);
html_add_css(base_url() . 'modules/page_browser/page_browser.css');
if (USE_MIN_FILES) {
html_add_js(base_url() . 'modules/page_browser/page_browser.min.js');
} else {
html_add_js(base_url() . 'modules/page_browser/page_browser.js');
}
html_add_js_var('$.glue.conf.page.startpage', startpage());
$bdy =& body();
elem_attr($bdy, 'id', 'pages');
body_append('<h1>All pages</h1>');
load_modules('glue');
$pns = pagenames(array());
$pns = $pns['#data'];
foreach ($pns as $pn) {
// display only pages with 'head'
if (is_dir(CONTENT_DIR . '/' . $pn . '/head')) {
body_append('<div class="page_browser_entry" id="' . htmlspecialchars($pn, ENT_COMPAT, 'UTF-8') . '"><span class="page_browser_pagename"><a href="' . base_url() . '?' . htmlspecialchars(urlencode($pn), ENT_COMPAT, 'UTF-8') . '">' . htmlspecialchars($pn, ENT_NOQUOTES, 'UTF-8') . '</a></span> ');
if ($pn . '.head' == startpage()) {
body_append('<span id="page_browser_startpage">[startpage]</span> ');
}
}
body_append('</div>');
}
echo html_finalize();
}
function controller_revisions($args)
{
page_canonical($args[0][0]);
$page = $args[0][0];
if (!page_exists($page)) {
hotglue_error(404);
}
// get all revisions of page and determine the current revision's index
load_modules('glue');
$a = expl('.', $page);
$revs = revisions_info(array('pagename' => $a[0], 'sort' => 'time'));
$revs = $revs['#data'];
$cur_rev = false;
for ($i = 0; $i < count($revs); $i++) {
if ($revs[$i]['revision'] == $a[1]) {
$cur_rev = $i;
break;
}
}
if ($cur_rev === false) {
// we didn't find the current revision
hotglue_error(500);
}
default_html(true);
html_add_css(base_url() . 'modules/revisions_browser/revisions_browser.css');
if (USE_MIN_FILES) {
html_add_js(base_url() . 'modules/revisions_browser/revisions_browser.min.js');
} else {
html_add_js(base_url() . 'modules/revisions_browser/revisions_browser.js');
}
html_add_js_var('$.glue.page', $page);
$bdy =& body();
elem_attr($bdy, 'id', 'revisions');
render_page(array('page' => $page, 'edit' => false));
body_append('<div id="revisions_browser_ctrl">');
body_append('<div id="revisions_browser_prev">');
if ($cur_rev + 1 < count($revs)) {
body_append('<a href="' . base_url() . '?' . htmlspecialchars(urlencode($revs[$cur_rev + 1]['page']), ENT_COMPAT, 'UTF-8') . '/revisions">prev</a>');
}
body_append('</div><div id="revisions_browser_cur">');
if (substr($revs[$cur_rev]['revision'], 0, 5) == 'auto-') {
body_append(date('d M y H:i', $revs[$cur_rev]['time']));
} else {
body_append(htmlspecialchars($revs[$cur_rev]['revision'], ENT_NOQUOTES, 'UTF-8'));
}
body_append('<br>');
if ($a[1] == 'head') {
body_append('<a href="' . base_url() . '?' . htmlspecialchars(urlencode($page), ENT_COMPAT, 'UTF-8') . '/edit">back to editing mode</a>');
} else {
body_append('<a id="revisions_browser_revert_btn" href="#">revert</a>');
}
body_append('</div><div id="revisions_browser_next">');
if (0 < $cur_rev) {
body_append('<a href="' . base_url() . '?' . htmlspecialchars(urlencode($revs[$cur_rev - 1]['page']), ENT_COMPAT, 'UTF-8') . '/revisions">next</a>');
}
body_append('</div>');
body_append('</div>');
echo html_finalize();
}
/**
* controller that shows a textarea for editing either a page's or the global
* user-defined css file
*/
function controller_user_css_stylesheet($args)
{
if ($args[0][1] == 'stylesheet') {
// changing page stylesheet
$page = $args[0][0];
page_canonical($page);
if (!page_exists($page)) {
hotglue_error(404);
}
} else {
// changing global stylesheet
$page = false;
}
default_html(true);
html_add_js_var('$.glue.page', $page);
html_add_css(base_url() . 'modules/user_css/user_css.css');
if (USE_MIN_FILES) {
html_add_js(base_url() . 'modules/user_css/user_css.min.js');
} else {
html_add_js(base_url() . 'modules/user_css/user_css.js');
}
$bdy =& body();
elem_attr($bdy, 'id', 'user_css');
if ($page === false) {
body_append('<h1>Global stylesheet</h1>' . nl());
// try to load css
$css = @file_get_contents(CONTENT_DIR . '/usercss');
if ($css === false) {
$css = '';
}
} else {
body_append('<h1>' . htmlspecialchars($page, ENT_NOQUOTES, 'UTF-8') . ' stylesheet</h1>' . nl());
load_modules('glue');
$obj = load_object(array('name' => $page . '.usercss'));
if ($obj['#error']) {
$css = '';
} else {
$css = $obj['#data']['content'];
}
}
// encoding to html must come before the replacement below
$css = htmlspecialchars($css, ENT_NOQUOTES, 'UTF-8');
// replace newline characters by an entity to prevent render_object()
// from adding some indentation
$css = str_replace("\r\n", ' ', $css);
$css = str_replace("\n", ' ', $css);
// why not replace tabs as well why we are at it
$css = str_replace("\t", '	', $css);
body_append('<textarea id="user_css_text" placeholder="enter css code here">' . $css . '</textarea>' . nl());
body_append('<br>' . nl());
body_append('<input id="user_css_save" type="button" value="save">' . nl());
echo html_finalize();
}
function webvideo_render_object($args)
{
$obj = $args['obj'];
if (!isset($obj['type']) || $obj['type'] != 'webvideo') {
return false;
}
$e = elem('div');
elem_attr($e, 'id', $obj['name']);
elem_add_class($e, 'webvideo');
elem_add_class($e, 'resizable');
elem_add_class($e, 'object');
// hooks
invoke_hook_first('alter_render_early', 'webvideo', array('obj' => $obj, 'elem' => &$e, 'edit' => $args['edit']));
$html = elem_finalize($e);
invoke_hook_last('alter_render_late', 'webvideo', array('obj' => $obj, 'html' => &$html, 'elem' => $e, 'edit' => $args['edit']));
return $html;
}
/**
* show a site where authenticated users can create new pages
*/
function controller_create_page($args)
{
page_canonical($args[0][0]);
$page = $args[0][0];
if (page_exists($page)) {
log_msg('debug', 'controller_create_page: page ' . quot($page) . 'already exists, invoking controller_edit');
controller_edit($args);
return;
}
load_modules('glue');
default_html(true);
html_add_css(base_url() . 'css/hotglue_error.css');
if (USE_MIN_FILES) {
html_add_js(base_url() . 'js/create_page.min.js');
} else {
html_add_js(base_url() . 'js/create_page.js');
}
html_add_js_var('$.glue.page', $page);
html_add_js_var('$.glue.q', SHORT_URLS ? '' : '?');
$bdy =& body();
elem_attr($bdy, 'id', 'create_page');
body_append(tab(1) . '<div id="paper">' . nl());
body_append(tab(2) . '<div id="wrapper">' . nl());
body_append(tab(3) . '<div id="content">' . nl());
body_append(tab(4) . '<div id="left-nav">' . nl());
body_append(tab(5) . '<img src="' . htmlspecialchars(base_url(), ENT_COMPAT, 'UTF-8') . 'img/hotglue-logo.png" alt="logo">' . nl());
body_append(tab(4) . '</div>' . nl());
body_append(tab(4) . '<div id="main">' . nl());
body_append(tab(5) . '<h1 id="error-title">Page does not exist yet!</h1>' . nl());
body_append(tab(5) . '<p>' . nl());
body_append(tab(6) . 'This page does not exist yet!<br>' . nl());
body_append(tab(6) . 'Would you like to create the page?' . nl());
body_append(tab(5) . '</p>' . nl());
body_append(tab(5) . '<form><input id="create_page_btn" type="button" value="Create it!"></form>' . nl());
body_append(tab(4) . '</div>' . nl());
body_append(tab(3) . '</div>' . nl());
body_append(tab(2) . '</div>' . nl());
body_append(tab(2) . '<div style="position: absolute; left: 200px; top: -10px; z-index: 2;">' . nl());
body_append(tab(3) . '<img src="' . htmlspecialchars(base_url(), ENT_COMPAT, 'UTF-8') . 'img/hotglue-404.png" alt="404">' . nl());
body_append(tab(2) . '</div>' . nl());
body_append(tab(1) . '</div>' . nl());
echo html_finalize();
}
/**
* controller that shows a textarea for editing either a page's or the global
* user-defined code files
*/
function controller_user_code_stylesheet($args)
{
if ($args[0][1] == 'code') {
// changing page code
$page = $args[0][0];
page_canonical($page);
if (!page_exists($page)) {
hotglue_error(404);
}
} else {
// changing global code
$page = false;
}
default_html(true);
html_add_js_var('$.glue.page', $page);
html_add_css(base_url() . 'modules/user_code/user_code.css');
if (USE_MIN_FILES) {
html_add_js(base_url() . 'modules/user_code/user_code.min.js');
} else {
html_add_js(base_url() . 'modules/user_code/user_code.js');
}
$bdy =& body();
// create array with names of code elements
$code = array('head' => '', 'body' => '');
elem_attr($bdy, 'id', 'user_code');
if ($page === false) {
body_append('<h1>Global code</h1>' . nl());
// try to load code
foreach ($code as $x => $v) {
$code[$x] = @file_get_contents(CONTENT_DIR . '/user' . $x);
if ($code[$x] === false) {
$code[$x] = '';
}
}
} else {
body_append('<h1>"' . htmlspecialchars(substr($page, 0, strpos($page, '.')), ENT_NOQUOTES, 'UTF-8') . '" page code</h1>' . nl());
load_modules('glue');
foreach ($code as $x => $v) {
$obj = load_object(array('name' => $page . '.user' . $x));
if ($obj['#error']) {
$code[$x] = '';
} else {
$code[$x] = $obj['#data']['content'];
}
}
}
foreach ($code as $k => $v) {
// encoding to html must come before the replacement below
$v = htmlspecialchars($v, ENT_NOQUOTES, 'UTF-8');
// replace newline characters by an entity to prevent render_object()
// from adding some indentation
$v = str_replace("\r\n", ' ', $v);
$v = str_replace("\n", ' ', $v);
// why not replace tabs as well why we are at it
$v = str_replace("\t", '	', $v);
$code[$k] = $v;
}
body_append('<div id=\'text\'>add your custom code to <head> and <body> sections of this ' . ($page ? 'page.' : 'site.') . nl());
body_append('<br>' . nl());
body_append('be cautious - errors in the code below may render the whole ' . ($page ? 'page' : 'site') . ' unusable.</div>' . nl());
body_append('<br>' . nl());
body_append('<div id=\'fake_tags\'><head></div>' . nl());
body_append('<textarea id="user_head_text" placeholder="enter code here">' . $code['head'] . '</textarea>' . nl());
body_append('<br>' . nl());
body_append('<div id=\'fake_tags\'></head><br>' . nl());
body_append('<body></div>' . nl());
body_append('<textarea id="user_body_text" placeholder="enter code here">' . $code['body'] . '</textarea>' . nl());
body_append('<div id=\'fake_tags\'></body></div><br>' . nl());
body_append('<input id="user_code_save" type="button" value="save">' . nl());
echo html_finalize();
}
/**
* implements render_object
*/
function image_render_object($args)
{
$obj = $args['obj'];
if (!isset($obj['type']) || $obj['type'] != 'image') {
return false;
}
// the outer element must be a div or something else that can contain
// other elements
// we only set up the most basic element here - all the other work is
// done inside the alter_render_early hook
// this way also object that "derive" from this (which don't have their
// $obj['type'] set to image) can use this code
$e = elem('div');
elem_attr($e, 'id', $obj['name']);
elem_add_class($e, 'image');
elem_add_class($e, 'resizable');
elem_add_class($e, 'object');
// hook
// elem is passed as reference here
// it is suggested that we first call our own function before any others
// that might want to modify the element that is being set up
invoke_hook_first('alter_render_early', 'image', array('obj' => $obj, 'elem' => &$e, 'edit' => $args['edit']));
$html = elem_finalize($e);
// html is passed as reference here
// it is suggested that we call our own function after all others
invoke_hook_last('alter_render_late', 'image', array('obj' => $obj, 'html' => &$html, 'elem' => $e, 'edit' => $args['edit']));
return $html;
}
/**
* save the state of a html element corresponding to an object to disk
*
* this function takes the object lock.
* @param array $args arguments
* key 'html' one html element
* @return array response
* true if successful
*/
function save_state($args)
{
if (empty($args['html'])) {
return response('Required argument "html" missing or empty', 400);
}
require_once 'html.inc.php';
require_once 'html_parse.inc.php';
$elem = html_parse_elem($args['html']);
if (!elem_has_class($elem, 'object')) {
return response('Error saving state as class "object" is not set', 400);
} elseif (!object_exists(elem_attr($elem, 'id'))) {
return response('Error saving state as object does not exist', 404);
}
// LOCK
$L = _obj_lock(elem_attr($elem, 'id'), LOCK_TIME);
if ($L === false) {
return response('Could not acquire lock to ' . quot($args['name']) . ' in ' . LOCK_TIME . 'ms', 500);
}
$obj = load_object(array('name' => elem_attr($elem, 'id')));
if ($obj['#error']) {
// UNLOCK
_obj_unlock($L);
return response('Error saving state, cannot load ' . quot(elem_attr($elem, 'id')), 500);
} else {
$obj = $obj['#data'];
}
$ret = invoke_hook_while('save_state', false, array('elem' => $elem, 'obj' => $obj));
// UNLOCK
_obj_unlock($L);
if (count($ret) == 0) {
return response('Error saving state as nobody claimed element', 500);
} else {
$temp = array_keys($ret);
log_msg('info', 'save_state: ' . quot($obj['name']) . ' was handled by ' . quot($temp[0]));
return response(true);
}
}
/**
* return a hotglue-themed error message to the client
*
* the function does not return if successful.
* @param int $code error code
* @param bool $no_header don't output any header
* @return false if the error code is not supported yet
*/
function hotglue_error($code, $no_header = false)
{
if (!$no_header) {
// output header
if (USE_HOTGLUE_ERRORS) {
$header_only = true;
} else {
$header_only = false;
}
if (!http_error($code, $header_only)) {
return false;
}
}
// output informative message
html_flush();
default_html(false);
html_add_css(base_url() . 'css/hotglue_error.css');
$bdy =& body();
elem_attr($bdy, 'id', 'hotglue_error');
body_append(tab(1) . '<div id="paper">' . nl());
body_append(tab(2) . '<div id="wrapper">' . nl());
body_append(tab(3) . '<div id="content">' . nl());
body_append(tab(4) . '<div id="left-nav">' . nl());
body_append(tab(5) . '<img src="' . htmlspecialchars(base_url(), ENT_COMPAT, 'UTF-8') . 'img/hotglue-logo.png" alt="logo">' . nl());
body_append(tab(4) . '</div>' . nl());
body_append(tab(4) . '<div id="main">' . nl());
if ($code == 400) {
body_append(tab(5) . '<h1 id="error-title">ERROR 400, bad request!</h1>' . nl());
} elseif ($code == 401) {
body_append(tab(5) . '<h1 id="error-title">Authorization required!</h1>' . nl());
} elseif ($code == 404) {
body_append(tab(5) . '<h1 id="error-title">ERROR 404, not found!</h1>' . nl());
} elseif ($code == 500) {
body_append(tab(5) . '<h1 id="error-title">ERROR 500, server fault!</h1>' . nl());
}
body_append(tab(5) . '<p>' . nl());
if ($code == 400) {
body_append(tab(6) . 'Something got screwed up...<br>' . nl());
body_append(tab(6) . 'The page is sending a bad request to the server!' . nl());
} elseif ($code == 401) {
body_append(tab(6) . 'You need to be logged in in order to do this.<br>' . nl());
} elseif ($code == 404) {
body_append(tab(6) . 'It looks like you got lost in cyber-space...<br>' . nl());
body_append(tab(6) . 'The page you are trying to reach does not exist!' . nl());
} elseif ($code == 500) {
body_append(tab(6) . 'Are we runnining out of fuel?!<br>' . nl());
body_append(tab(6) . 'Something is causing serious server errors!' . nl());
}
body_append(tab(5) . '</p>' . nl());
body_append(tab(6) . '<a href="' . htmlspecialchars(base_url(), ENT_COMPAT, 'UTF-8') . '" id="home">take me home!</a>' . nl());
body_append(tab(4) . '</div>' . nl());
body_append(tab(3) . '</div>' . nl());
body_append(tab(2) . '</div>' . nl());
body_append(tab(2) . '<div style="position: absolute; left: 200px; top: -10px; z-index: 2;">' . nl());
body_append(tab(3) . '<img src="' . htmlspecialchars(base_url(), ENT_COMPAT, 'UTF-8') . 'img/hotglue-404.png" alt="404">' . nl());
body_append(tab(2) . '</div>' . nl());
body_append(tab(1) . '</div>' . nl());
echo html_finalize();
die;
}
function download_render_object($args)
{
$obj = $args['obj'];
if (!isset($obj['type']) || $obj['type'] != 'download') {
return false;
}
$e = elem('div');
elem_attr($e, 'id', $obj['name']);
elem_add_class($e, 'download');
elem_add_class($e, 'object');
// hooks
invoke_hook_first('alter_render_early', 'download', array('obj' => $obj, 'elem' => &$e, 'edit' => $args['edit']));
$html = elem_finalize($e);
invoke_hook_last('alter_render_late', 'download', array('obj' => $obj, 'html' => &$html, 'elem' => $e, 'edit' => $args['edit']));
if (!$args['edit']) {
// put link to file around the element
if (SHORT_URLS) {
$link = base_url() . urlencode($obj['name']) . '&download=1';
} else {
$link = base_url() . '?' . urlencode($obj['name']) . '&download=1';
}
$html = '<a href="' . htmlspecialchars($link, ENT_COMPAT, 'UTF-8') . '">' . "\n\t" . str_replace("\n", "\n\t", $html) . "\n" . '</a>' . "\n";
}
return $html;
}
