function ewiki_page_css_container(&$o, &$id, &$data, &$action) {
$o = "
| @µöäüÖÄÜߤ^°«»\'\\',
'- -----------------------------------------------')
. "\">\n"
. $o . "\n
\n";
}
function ewiki_split_title ($id='', $split=EWIKI_SPLIT_TITLE, $entities=1) {
strlen($id) or ($id = $GLOBALS["ewiki_id"]);
if ($split) {
$id = preg_replace("/([".EWIKI_CHARS_L."])([".EWIKI_CHARS_U."]+)/", "$1 $2", $id);
}
return($entities ? htmlentities($id) : $id);
}
function ewiki_add_title(&$html, $id, &$data, $action, $go_action="links") {
$html = ewiki_make_title($id, '', 1, $action, $go_action) . $html;
}
function ewiki_make_title($id='', $title='', $class=3, $action="view", $go_action="links", $may_split=1) {
global $ewiki_config, $ewiki_plugins, $ewiki_title, $ewiki_id;
#-- advanced handler
if ($pf = @$ewiki_plugins["make_title"][0]) {
return($pf($title, $class, $action, $go_action, $may_split));
}
#-- disabled
elseif (!$ewiki_config["print_title"]) {
return("");
}
#-- get id
if (empty($id)) {
$id = $ewiki_id;
}
#-- get title
if (!strlen($title)) {
$title = $ewiki_title; // already in &html; format
}
elseif ($ewiki_config["split_title"] && $may_split) {
$title = ewiki_split_title($title, $ewiki_config["split_title"], 0&($title!=$ewiki_title));
}
else {
$title = htmlentities($title);
}
#-- title mangling
if ($pf_a = @$ewiki_plugins["title_transform"]) {
foreach ($pf_a as $pf) { $pf($id, $title, $go_action); }
}
#-- clickable link or simple headline
if ($class <= $ewiki_config["print_title"]) {
if ($uu = @$ewiki_config["link_title_action"][$action]) {
$go_action = $uu;
}
if ($uu = @$ewiki_config["link_title_url"]) {
$href = $uu;
unset($ewiki_config["link_title_url"]);
}
else {
$href = ewiki_script($go_action, $id);
}
$o = '
' . ($title) . '';
}
else {
$o = $title;
}
return('
' . $o . '
'."\n");
}
function ewiki_page_view($id, &$data, $action, $all=1) {
global $ewiki_plugins, $ewiki_config;
$o = "";
#-- render requested wiki page <-- goal !!!
$render_args = array(
"scan_links" => 1,
"html" => (EWIKI_ALLOW_HTML||(@$data["flags"]&EWIKI_DB_F_HTML)),
);
$o .= $ewiki_plugins["render"][0] ($data["content"], $render_args);
if (!$all) {
return($o);
}
#-- control line + other per-page info stuff
if ($pf_a = $ewiki_plugins["view_append"]) {
ksort($pf_a);
foreach ($pf_a as $n => $pf) { $o .= $pf($id, $data, $action); }
}
if ($pf_a = $ewiki_plugins["view_final"]) {
ksort($pf_a);
foreach ($pf_a as $n => $pf) { $pf($o, $id, $data, $action); }
}
if (!empty($_REQUEST["thankyou"]) && $ewiki_config["edit_thank_you"]) {
$o = ewiki_t("THANKSFORCONTRIBUTION") . $o;
}
if (EWIKI_HIT_COUNTING) {
ewiki_database("HIT", $data);
}
return($o);
}
#-------------------------------------------------------------------- util ---
/* retrieves "$id/$action" string from URL / QueryString / PathInfo,
change this in conjunction with ewiki_script() to customize your URLs
further whenever desired
*/
function ewiki_id() {
($id = @$_REQUEST["id"]) or
($id = @$_REQUEST["name"]) or
($id = @$_REQUEST["page"]) or
($id = @$_REQUEST["file"]) or
(EWIKI_USE_PATH_INFO) and ($id = ltrim(@$_SERVER["PATH_INFO"], "/")) or
(!isset($_REQUEST["id"])) and ($id = trim(strtok($_SERVER["QUERY_STRING"], "&")));
if (!strlen($id) || ($id=="id=")) {
$id = EWIKI_PAGE_INDEX;
}
(EWIKI_URLDECODE) && ($id = urldecode($id));
return($id);
}
/* replaces EWIKI_SCRIPT, works more sophisticated, and
bypasses various design flaws
- if only the first parameter is used (old style), it can contain
a complete "action/WikiPage" - but this is ambigutious
- else $asid is the action, and $id contains the WikiPageName
- $ewiki_config["script"] will now be used in favour of the constant
- needs more work on _BINARY, should be a separate function
*/
## MOODLE-CHANGE: $asid="", Knows the devil why....
function ewiki_script($asid="", $id=false, $params="", $bin=0, $html=1, $script=NULL) {
global $ewiki_config, $ewiki_plugins;
#-- get base script url from config vars
if (empty($script)) {
$script = &$ewiki_config[!$bin?"script":"script_binary"];
}
#-- separate $action and $id for old style requests
if ($id === false) {
if (strpos($asid, EWIKI_ACTION_SEP_CHAR) !== false) {
$asid = strtok($asid, EWIKI_ACTION_SEP_CHAR);
$id = strtok("\000");
}
else {
$id = $asid;
$asid = "";
}
}
#-- prepare params
if (is_array($params)) {
$uu = $params;
$params = "";
if ($uu) foreach ($uu as $k=>$v) {
$params .= (strlen($params)?"&":"") . rawurlencode($k) . "=" . rawurlencode($v);
}
}
#-- action= parameter
if (EWIKI_USE_ACTION_PARAM >= 2) {
$params = "action=$asid" . (strlen($params)?"&":"") . $params;
$asid = "";
}
#-- workaround slashes in $id
if (empty($asid) && (strpos($id, EWIKI_ACTION_SEP_CHAR) !== false) && !$bin) {
$asid = "view";
}
/*paranoia*/ $asid = trim($asid, EWIKI_ACTION_SEP_CHAR);
#-- make url
if (EWIKI_URLENCODE) {
$id = urlencode($id);
$asid = urlencode($asid);
}
else {
# only urlencode &, %, ? for example
}
$url = $script;
if ($asid) {
$id = $asid . EWIKI_ACTION_SEP_CHAR . $id; #= "action/PageName"
}
if (strpos($url, "%s") !== false) {
$url = str_replace("%s", $id, $url);
}
else {
$url .= $id;
}
#-- add url params
if (strlen($params)) {
$url .= (strpos($url,"?")!==false ? "&":"?") . $params;
}
#-- fin
if ($html) {
$url = str_replace("&", "&", $url);
}
return($url);
}
/* this ewiki_script() wrapper is used to generate URLs to binary
content in the ewiki database
*/
function ewiki_script_binary($asid, $id=false, $params=array(), $upload=0) {
$upload |= is_string($params) && strlen($params) || count($params);
#-- generate URL directly to the plainly saved data file,
# see also plugins/binary_store
if (defined("EWIKI_DB_STORE_URL") && !$upload) {
$url = EWIKI_DB_STORE_URL . rawurlencode($id);
}
#-- else get standard URL (thru ewiki.php) from ewiki_script()
else {
$url = ewiki_script($asid, $id, $params, "_BINARY=1");
}
return($url);
}
/* this function returns the absolute ewiki_script url, if EWIKI_SCRIPT_URL
is set, else it guesses the value
*/
function ewiki_script_url() {
global $ewiki_action, $ewiki_id, $ewiki_config;
$scr_template = $ewiki_config["script"];
$scr_current = ewiki_script($ewiki_action, $ewiki_id);
$req_uri = $_SERVER["REQUEST_URI"];
if ($url = $ewiki_config["script_url"]) {
return($url);
}
elseif (strpos($req_uri, $scr_current) !== false) {
$url = str_replace($req_uri, $scr_current, $scr_template);
}
elseif (strpos($req_uri, "?") && (strpos($scr_template, "?") !== false)) {
$url = substr($req_uri, 0, strpos($req_uri, "?"))
. substr($scr_template, strpos($scr_template, "?"));
}
elseif (strpos($req_uri, $sn = $_SERVER["SCRIPT_NAME"])) {
$url = $sn . "?id=";
}
else {
return(NULL); #-- could not guess it
}
$url = "http://" . $_SERVER["SERVER_NAME"] . $url;
return($url);
}
#------------------------------------------------------------ page plugins ---
function ewiki_page_links($id, &$data, $action) {
$o = ewiki_make_title($id, ewiki_t("PAGESLINKINGTO", array("title"=>$id)), 1, $action, "", "_MAY_SPLIT=1");
if ($pages = ewiki_get_backlinks($id)) {
$o .= ewiki_list_pages($pages);
} else {
$o .= ewiki_t("This page isn't linked from anywhere else.");
}
return($o);
}
function ewiki_get_backlinks($id) {
$result = ewiki_database("SEARCH", array("refs" => $id));
$pages = array();
while ($row = $result->get(0, 0x0020)) {
if ( strpos($row["refs"], "\n$id\n") !== false) {
$pages[] = $row["id"];
}
}
return($pages);
}
function ewiki_get_links($id) {
if ($data = ewiki_database("GET", array("id"=>$id))) {
$refs = explode("\n", trim($data["refs"]));
$r = array();
foreach (ewiki_database("FIND", $refs) as $id=>$exists) {
if ($exists) {
$r[] = $id;
}
}
return($r);
}
}
function ewiki_list_pages($pages=array(), $limit=EWIKI_LIST_LIMIT,
$value_as_title=0, $pf_list=false)
{
global $ewiki_plugins;
$o = "";
$is_num = !empty($pages[0]);
$lines = array();
$n = 0;
foreach ($pages as $id=>$add_text) {
$title = $id;
$params = "";
if (is_array($add_text)) {
list($id, $params, $title, $add_text) = $add_text;
}
elseif ($is_num) {
$id = $title = $add_text;
$add_text = "";
}
elseif ($value_as_title) {
$title = $add_text;
$add_text = "";
}
$lines[] = '
' . htmlentities($title) . ' ' . $add_text;
if (($limit > 0) && ($n++ >= $limit)) {
break;
}
}
if ($pf_a = @$ewiki_plugins["list_transform"])
foreach ($pf_a as $pf_transform) {
$pf_transform($lines);
}
if (($pf_list) || ($pf_list = @$ewiki_plugins["list_pages"][0])) {
$o = $pf_list($lines);
}
elseif($lines) {
$o = "· " . implode("
\n· ", $lines) . "
\n";
}
return($o);
}
function ewiki_page_ordered_list($orderby="created", $asc=0, $print, $title) {
$o = ewiki_make_title("", $title, 2, ".list", "links", 0);
$sorted = array();
$result = ewiki_database("GETALL", array($orderby));
while ($row = $result->get()) {
$row = ewiki_database("GET", array(
"id" => $row["id"],
($asc >= 0 ? "version" : "uu") => 1 // version 1 is most accurate for {hits}
));
#-- text page?
if (EWIKI_DB_F_TEXT == ($row["flags"] & EWIKI_DB_F_TYPE)) {
#-- viewing allowed?
if (!EWIKI_PROTECTED_MODE || !EWIKI_PROTECTED_MODE_HIDING || ewiki_auth($row["id"], $row, "view")) {
$sorted[$row["id"]] = $row[$orderby];
}
}
}
if ($asc != 0) { arsort($sorted); }
else { asort($sorted); }
foreach ($sorted as $name => $value) {
if (empty($value)) { $value = "0"; }
##### BEGIN MOODLE ADDITION #####
#$sorted[$name] = strftime(str_replace('%n', $value, $print), $value);
if($print=="LASTCHANGED") {
$value=strftime("%c",$value);
}
$sorted[$name] = get_string(strtolower($print),"wiki",$value);
##### BEGIN MOODLE ADDITION #####
}
$o .= ewiki_list_pages($sorted);
return($o);
}
function ewiki_page_newest($id=0, $data=0) {
return( ewiki_page_ordered_list("created", 1, "LASTCHANGED", ewiki_t("NEWESTPAGES")) );
}
function ewiki_page_updates($id=0, $data=0) {
return( ewiki_page_ordered_list("lastmodified", -1, "LASTCHANGED", EWIKI_PAGE_UPDATES) );
}
function ewiki_page_hits($id=0, $data=0) {
##### BEGIN MOODLE ADDITION #####
return( ewiki_page_ordered_list("hits", 1, "hits", EWIKI_PAGE_HITS) );
}
function ewiki_page_versions($id=0, $data=0) {
return( ewiki_page_ordered_list("version", -1, "changes", EWIKI_PAGE_VERSIONS) );
##### END MOODLE ADDITION #####
}
function ewiki_page_search($id, &$data, $action) {
$o = ewiki_make_title($id, $id, 2, $action);
if (! ($q = @$_REQUEST["q"])) {
$o .= '
';
}
else {
$found = array();
$q = preg_replace('/\s*[^\w]+\s*/', ' ', $q);
foreach (explode(" ", $q) as $search) {
if (empty($search)) { continue; }
$result = ewiki_database("SEARCH", array("content" => $search));
while ($row = $result->get()) {
#-- show this entry in page listings?
if (EWIKI_PROTECTED_MODE && EWIKI_PROTECTED_MODE_HIDING && !ewiki_auth($row["id"], $row, "view")) {
continue;
}
$found[] = $row["id"];
}
}
$o .= ewiki_list_pages($found);
}
return($o);
}
function ewiki_page_info($id, &$data, $action) {
global $ewiki_plugins, $ewiki_config, $ewiki_links;
$o = ewiki_make_title($id, ewiki_t("INFOABOUTPAGE")." '{$id}'", 2, $action,"", "_MAY_SPLIT=1");
$flagnames = array(
"TEXT", "BIN", "DISABLED", "HTML", "READONLY", "WRITEABLE",
"APPENDONLY", "SYSTEM",
);
$show = array(
"version", "author", "created",
"lastmodified", "refs",
"flags", "meta", "content"
);
#-- versions to show
$v_start = $data["version"];
if ( ($uu=@$_REQUEST[EWIKI_UP_PAGENUM]) && ($uu<=$v_start) ) {
$v_start = $uu;
}
$v_end = $v_start - $ewiki_config["list_limit"];
if ( ($uu=@$_REQUEST[EWIKI_UP_PAGEEND]) && ($uu<=$v_start) ) {
$v_end = $uu;
}
$v_end = max($v_end, 1);
#-- go
# the very ($first) entry is rendered more verbosely than the others
for ($v=$v_start,$first=1; ($v>=$v_end); $v--,$first=0) {
$current = ewiki_database("GET", array("id"=>$id, "version"=>$v));
if (!strlen(trim($current["id"])) || !$current["version"] || !strlen(trim($current["content"]))) {
continue;
}
$o .= '
' . "\n";
#-- additional info-actions
$o .= ' | ';
foreach ($ewiki_config["action_links"]["info"] as $action=>$title)
if (@$ewiki_plugins["action"][$action] || @$ewiki_plugins["action_always"][$action]) {
##### BEGIN MOODLE ADDITION #####
$o .= '$current["version"])) .
'">' . get_string($title,"wiki") . ' ';
##### END MOODLE ADDITION #####
}
$o .= " |
\n";
#-- print page database entry
foreach($show as $i) {
$value = @$current[$i];
#-- show database {fields} differently
if ($i == "meta") {
$str = "";
if ($first && $value) { foreach ($value as $n=>$d) {
$str .= htmlentities("$n: $d") . "
\n";
} }
$value = $str;
}
elseif ($value >= UNIX_MILLENNIUM) { #-- {lastmodified}, {created}
#### BEGIN MOODLE CHANGE
$value=userdate($value, $strftimedatetime);
#$value = strftime("%c", $value);
#### END MOODLE CHANGE
}
elseif ($i == "content") {
$value = strlen(trim($value)) . " bytes";
$i = "content size";
}
elseif ($first && ($i == "refs") && !(EWIKI_PROTECTED_MODE && (EWIKI_PROTECTED_MODE_HIDING>=2))) {
$a = explode("\n", trim($value));
$ewiki_links = ewiki_database("FIND", $a);
ewiki_merge_links($ewiki_links);
foreach ($a as $n=>$link) {
$a[$n] = ewiki_link_regex_callback(array("$link"), "force_noimg");
}
$value = implode(", ", $a);
}
elseif (strpos($value, "\n") !== false) { #-- also for {refs}
$value = str_replace("\n", ", ", trim($value));
}
elseif ($i == "version") {
$value = '$value)) . '">' .
$value . '';
}
elseif ($i == "flags") {
$fstr = "";
for ($n = 0; $n < 32; $n++) {
if ($value & (1 << $n)) {
if (! ($s=$flagnames[$n])) { $s = "UU$n"; }
$fstr .= $s . " ";
}
}
$value = $fstr;
}
elseif ($i == "author") {
$ewiki_links=1;
$value = preg_replace_callback("/((\w+:)?([".EWIKI_CHARS_U."]+[".EWIKI_CHARS_L."]+){2,}[\w\d]*)/", "ewiki_link_regex_callback", $value);
}
##### BEGIN MOODLE ADDITION #####
$o .= '| ' .ewiki_t($i). ' | ' .
'' . $value . " |
\n";
##### END MOODLE ADDITION #####
}
$o .= "
\n";
}
#-- page result split
if ($v >= 1) {
$o .= "
\n show " . ewiki_chunked_page($this, $id, -1, $v+1, 1) . "\n
";
}
return($o);
}
function ewiki_chunked_page($action, $id, $dir=-1, $start=10, $end=1, $limit=0, $overlap=0.25, $collapse_last=0.67) {
global $ewiki_config;
if (empty($limit)) {
$limit = $ewiki_config["list_limit"];
}
if ($overlap < 1) {
$overlap = (int) ($limit * $overlap);
}
$p = "";
$n = $start;
while ($n) {
$n -= $dir * $overlap;
$e = $n + $dir * ($limit + $overlap);
if ($dir<0) {
$e = max(1, $e);
if ($e <= $collapse_last * $limit) {
$e = 1;
}
}
else {
$e = min($end, $e);
if ($e >= $collapse_last * $limit) {
$e = $end;
}
}
$o .= ($o?" · ":"")
. '
'. "$n-$e" . '';
if (($n=$e) <= $end) {
$n = false;
}
}
return('
'. $o .'
');
}
function ewiki_page_edit($id, $data, $action) {
global $ewiki_links, $ewiki_author, $ewiki_plugins, $ewiki_ring, $ewiki_errmsg;
$hidden_postdata = array();
#-- previous version come back
if (@$data["forced_version"]) {
$current = ewiki_database("GET", array("id"=>$id));
$data["version"] = $current["version"];
unset($current);
unset($_REQUEST["content"]);
unset($_REQUEST["version"]);
}
#-- edit hacks
if ($pf_a = @$ewiki_plugins["edit_hook"]) foreach ($pf_a as $pf) {
if ($output = $pf($id, $data, $hidden_postdata)) {
return($output);
}
}
#-- permission checks
if (isset($ewiki_ring)) {
$ring = $ewiki_ring;
} else {
$ring = 3;
}
$flags = @$data["flags"];
if (!($flags & EWIKI_DB_F_WRITEABLE)) {
#-- perform auth
$edit_ring = (EWIKI_PROTECTED_MODE>=2) ? (2) : (NULL);
if (EWIKI_PROTECTED_MODE && !ewiki_auth($id, $data, $action, $edit_ring, "FORCE")) {
return($ewiki_errmsg);
}
#-- flag checking
if (($flags & EWIKI_DB_F_READONLY) and ($ring >= 2)) {
return(ewiki_t("CANNOTCHANGEPAGE"));
}
if (($flags) and (($flags & EWIKI_DB_F_TYPE) != EWIKI_DB_F_TEXT) and ($ring >= 1)) {
return(ewiki_t("CANNOTCHANGEPAGE"));
}
}
#-- "Edit Me"
$o = ewiki_make_title($id, ewiki_t("EDITTHISPAGE").(" '{$id}'"), 2, $action, "", "_MAY_SPLIT=1");
#-- preview
if (isset($_REQUEST["preview"])) {
$o .= $ewiki_plugins["edit_preview"][0]($data);
}
#-- save
if (isset($_REQUEST["save"])) {
#-- normalize to UNIX newlines
$_REQUEST["content"] = str_replace("\015\012", "\012", $_REQUEST["content"]);
$_REQUEST["content"] = str_replace("\015", "\012", $_REQUEST["content"]);
#-- check for concurrent version saving
$error = 0;
if ((@$data["version"] >= 1) && ($data["version"] != @$_REQUEST["version"]) || (@$_REQUEST["version"] < 1)) {
$pf = $ewiki_plugins["edit_patch"][0];
if (!$pf || !$pf($id, $data)) {
$error = 1;
$o .= ewiki_t("ERRVERSIONSAVE") . "
";
}
}
if (!$error) {
#-- new pages` flags
if (! ($set_flags = @$data["flags"] & EWIKI_DB_F_COPYMASK)) {
$set_flags = 1;
}
if (EWIKI_ALLOW_HTML) {
$set_flags |= EWIKI_DB_F_HTML;
}
#-- mk db entry
$save = array(
"id" => $id,
"version" => @$data["version"] + 1,
"flags" => $set_flags,
"content" => $_REQUEST["content"],
"created" => ($uu=@$data["created"]) ? $uu : time(),
"meta" => ($uu=@$data["meta"]) ? $uu : "",
"hits" => ($uu=@$data["hits"]) ? $uu : "0",
);
ewiki_data_update($save);
#-- edit storage hooks
if ($pf_a = @$ewiki_plugins["edit_save"]) {
foreach ($pf_a as $pf) {
$pf($save, $data);
}
}
#-- save
if (!$save || !ewiki_database("WRITE", $save)) {
$o .= $ewiki_errmsg ? $ewiki_errmsg : ewiki_t("ERRORSAVING");
}
else {
#-- prevent double saving, when ewiki_page() is re-called
$_REQUEST = $_GET = $_POST = array();
$o = ewiki_t("THANKSFORCONTRIBUTION") . "
";
$o .= ewiki_page($id);
if (EWIKI_EDIT_REDIRECT) {
$url = ewiki_script("", $id, "thankyou=1", 0, 0, EWIKI_HTTP_HEADERS?ewiki_script_url():0);
if (EWIKI_HTTP_HEADERS && !headers_sent()) {
header("Status: 303 Redirect for GET");
header("Location: $url");
#header("URI: $url");
#header("Refresh: 0; URL=$url");
}
else {
$o .= '
';
}
}
}
}
//@REWORK
// header("Reload-Location: " . ewiki_script("", $id, "", 0, 0, ewiki_script_url()) );
}
else {
#-- Edit
\n";
// . ewiki_t("EDIT_FORM_2"); // MOODLE DELETION
return('
'. $o .'
');
}
#-- pic upload form
function ewiki_page_edit_form_final_imgupload(&$o, &$id, &$data, &$action) {
if (EWIKI_SCRIPT_BINARY && EWIKI_UP_UPLOAD && EWIKI_IMAGE_MAXSIZE) {
$o .= "\n
\n". '
'
. '
'. "\n";
}
}
function ewiki_page_edit_preview(&$data) {
#### BEGIN MOODLE CHANGES
global $moodle_format;
$preview_text=$GLOBALS["ewiki_plugins"]["render"][0]($_REQUEST["content"], 1, EWIKI_ALLOW_HTML || (@$data["flags"]&EWIKI_DB_F_HTML));
return( '
'
. "
"
. "
" . ewiki_t("PREVIEW") . "
\n"
. format_text($preview_text, $moodle_format)
. "
"
. "
"
);
#### END MOODLE CHANGES
}
function ewiki_control_links($id, &$data, $action) {
global $ewiki_plugins, $ewiki_ring, $ewiki_config;
$action_links = & $ewiki_config["action_links"][$action];
#-- disabled
if (!$ewiki_config["control_line"]) {
return("");
}
$o = "\n"
. '
'
. "\n
\n"
. "
" . "\n";
if (@$data["forced_version"]) {
$o .= '
';
}
else {
foreach ($action_links as $action => $title)
if (!empty($ewiki_plugins["action"][$action]) || !empty($ewiki_plugins["action_always"][$action]) || strpos($action, ":/"))
{
if (EWIKI_PROTECTED_MODE && EWIKI_PROTECTED_MODE_HIDING && !ewiki_auth($id, $data, $action)) { continue; }
$o .= '
' . ewiki_t($title) . ' · ';
}
}
if ($data["lastmodified"] >= UNIX_MILLENNIUM) {
$o .= '
' . strftime(ewiki_t("LASTCHANGED"), @$data["lastmodified"]) . '';
}
$o .= "
\n";
return($o);
}
# ============================================================= rendering ===
######## ### ### ######### ### ### ### #######
######## #### ### ######### ### #### ### #######
### ##### ### ### ##### ### ###
###### ######### ### #### ### ######### ######
###### ######### ### #### ### ######### ######
### ### ##### ### ### ### ### ##### ###
######## ### #### ######### ### ### #### #######
######## ### ### ######### ### ### ### #######
/*
The _format() function transforms $wiki_source pages into strings,
also calls various markup and helper plugins during the transformation
process. The $params array can activate various features and extensions.
only accepts UNIX newlines!
*/
function ewiki_format (
$wiki_source,
$params = array()
)
{
global $ewiki_links, $ewiki_plugins, $ewiki_config;
#-- state vars
$params = array_merge($ewiki_config["format_params"], $params);
$s = array(
"in" => 0, # current input $iii[] block array index
"para" => "",
"line" => "",
"post" => "", # string to append after current line/paragraph
"line_i" => 0,
"lines" => array(),
"list" => "", # lists
"tbl" => 0, # open table?
"indent" => 0, # indentation
"close" => array(),
);
#-- aliases
$in = &$s["in"];
$line = &$s["line"];
$lines = &$s["lines"];
$para = &$s["para"];
$post = &$s["post"];
$list = &$s["list"];
#-- input and output arrays
if ($wiki_source[0] == "<") { # also prepend an empty line
$wiki_source = "\n" . $wiki_source; # for faster strpos() searchs
}
$iii = array(
0 => array(
0 => $wiki_source."\n", # body + empty line
1 => 0x0FFF, # flags (0x1=WikiMarkup, 0x2=WikiLinks, 0x100=BlockPlugins)
2 => "core", # block plugin name
)
);
$ooo = array(
);
unset($wiki_source);
#-- plugins
$pf_tbl = @$ewiki_plugins["format_table"][0];
$pf_line = @$ewiki_plugins["format_line"];
#-- wikimarkup (wm)
$htmlentities = $ewiki_config["htmlentities"];
$wm_indent = &$ewiki_config["wm_indent"];
$wm_table_defaults = &$ewiki_config["wm_table_defaults"];
$wm_source = &$ewiki_config["wm_source"];
$wm_list = &$ewiki_config["wm_list"];
$wm_list_chars = implode("", array_keys($wm_list));
$wm_style = &$ewiki_config["wm_style"];
$wm_start_end = &$ewiki_config["wm_start_end"];
#-- eleminate html
$iii[0][0] = strtr($iii[0][0], $htmlentities);
unset($htmlentities["&"]);
#-- pre-processing plugins (working on wiki source)
if ($pf_source = $ewiki_plugins["format_source"]) {
foreach ($pf_source as $pf) $pf(&$iii[0][0]);
}
#-- simple markup
$iii[0][0] = strtr($iii[0][0], $wm_source);
#-- separate input into blocks ------------------------------------------
foreach ($ewiki_config["format_block"] as $btype => $binfo) {
#-- disabled block plugin?
if ($binfo[2] && !$params[$binfo[2]]) {
continue;
}
#-- traverse $iii[]
$in = -1;
while ((++$in) < count($iii)) {
#-- search fragment delimeters
if ($iii[$in][1] & 0x0100)
while (
($c = & $iii[$in][0]) &&
(($l = strpos($c, $binfo[0])) !== false) &&
($r = strpos($c, $binfo[1], $l)) )
{
$l_len = strlen($binfo[0]);
$r_len = strlen($binfo[1]);
$repl = array();
// pre-text
if (($l > 0) && trim($text = substr($c, 0, $l))) {
$repl[] = array($text, 0xFFFF, "core");
}
// the extracted part
if (trim($text = substr($c, $l+$l_len, $r-$l-$r_len))) {
$repl[] = array($text, $binfo[3], "$btype");
}
// rest
if (($r+$r_len < strlen($c)) && trim($text = substr($c, $r+$r_len))) {
$repl[] = array($text, 0xFFFF, "core");
}
array_splice($iii, $in, 1, $repl);
$in += 1;
}
}
}
#-- run format_block plugins
$in = -1;
while ((++$in) < count($iii)) {
if (($btype = $iii[$in][2]) && ($pf_a = $ewiki_plugins["format_block"][$btype])) {
$c = &$iii[$in][0];
foreach ($pf_a as $pf) {
# current buffer $c and pointer $in into $iii[] and state $s
$pf($c, $in, $iii, $s, $btype);
}
}
}
#-- wiki markup ------------------------------------------------------
$para = "";
$in = -1;
while ((++$in) < count($iii)) {
#-- wikimarkup
if ($iii[$in][1] & 0x0001) {
#-- input $lines buffer, and output buffer $ooo array
$lines = explode("\n", $iii[$in][0]);
$ooo[$in] = array(
0 => "",
1 => $iii[$in][1]
);
$out = &$ooo[$in][0];
$s["block"] = ($iii[$in][2] != "core"); # disables indentation & paragraphs
#-- walk through wiki source lines
$line_max = count($lines);
foreach ($lines as $s["line_i"]=>$line) {
#echo "line={$s[line_i]}:$line\n";
#-- empty lines separate paragraphs
if (!strlen($line)) {
ewiki_format_close_para($ooo, $s);
ewiki_format_close_tags($ooo, $s);
if (!$s["block"]) {
$out .= "\n";
}
}
#-- horiz bar
if (!strncmp($line, "----", 4)) {
$out .= "
\n";
continue;
}
#-- html comment
#if (!strncmp($line, "<!--", 7)) {
# $out .= "\n";
# continue;
#}
($c0 = $line[0])
or ($c0 = "\000");
#-- tables
### MOODLE CHANGE: TRIM
if (($c0 == "|") && ($line[strlen(trim($line))-1] == "|")) {
if (!$s["tbl"]) {
ewiki_format_close_para($ooo, $s);
ewiki_format_close_tags($ooo, $s);
$s["list"] = "";
}
$line = substr($line, 1, -1);
if ($pf_tbl) {
$pf_tbl($line, $ooo, $s);
}
else {
if (!$s["tbl"]) {
$out .= "
";
}
$line = "
\n| " . str_replace("|", " | \n", $line) . " | \n
";
}
$s["tbl"] = 1;
$para = false;
}
elseif ($s["tbl"]) {
$s["tbl"] = 0;
}
#-- headlines
if (($c0 == "!") && ($excl = strspn($line, "!"))) {
if ($excl > 3) {
$excl = 3;
}
$line = substr($line, $excl);
$excl = 5 - $excl;
$line = "
" . $line . "";
if ($para) {
ewiki_format_close_para($ooo, $s);
}
ewiki_format_close_tags($ooo, $s);
$para = false;
}
#-- whole-line markup
# ???
#-- indentation (space/tab markup)
$n_indent = 0;
if (!$list && (!$s["block"]) && ($n_indent = strspn($line, " "))) {
$n_indent = (int) ($n_indent / 2.65);
while ($n_indent > $s["indent"]) {
$out .= $wm_indent;
$s["indent"]++;
}
}
while ($n_indent < $s["indent"]) {
$out .= "