PageRenderTime 45ms CodeModel.GetById 15ms RepoModel.GetById 1ms app.codeStats 0ms

/trunk/MoodleWebRole/mod/wiki/ewiki/ewiki.php

#
PHP | 3600 lines | 2564 code | 527 blank | 509 comment | 523 complexity | 7e73657bc78899b591b8c21bed14a3cf MD5 | raw file
Possible License(s): LGPL-2.1, BSD-3-Clause, LGPL-2.0, GPL-2.0 
    

  1. <?php
    2. 

  2. @define("EWIKI_VERSION", "R1.01d");
    3. 

  3. 

  4. /*
    5. 

    6. 

  6.   ErfurtWiki - an embedable, fast and user-friendly wiki engine
    7. 

  7.   ---------
    8. 

  8.   This is Public Domain (no license, no warranty); but feel free
    9. 

  9.   to redistribute it under GPL or anything else you like.
    10. 

    11. 

  11.   http://erfurtwiki.sourceforge.net/
    12. 

  12.   Mario Salzer <mario*erphesfurt·de> and many others(tm)
    13. 

    14. 

    15. 

  15.   Use it from inside yoursite.php like that:
    16. 

  16.   <html><body>...
    17. 

  17.   <?php
    18. 

  18.      include("ewiki.php");
    19. 

  19.      echo ewiki_page();
    20. 

  20.   ?>
    21. 

    22. 

  22. */
    23. 

  23. 

  24. #-- you could also establish a mysql connection in here, of course:
    25. 

  25. // mysql_connect(":/var/run/mysqld/mysqld.sock", "user", "pw")
    26. 

  26. // and mysql_query("USE mydatabase");
    27. 

  27. 

  28. 

  29.         #-------------------------------------------------------- config ---
    30. 

  30. 

  31.         #-- I'm sorry for that, but all the @ annoy me
    32. 

  32.         error_reporting(0x0000377 & error_reporting());
    33. 

  33. #   error_reporting(E_ALL^E_NOTICE);
    34. 

  34. 

  35.     #-- the position of your ewiki-wrapper script
    36. 

  36.     define("EWIKI_SCRIPT", "?id=");     # relative/absolute to docroot
    37. 

  37. #   define("EWIKI_SCRIPT_URL", "http://...?id=");       # absolute URL
    38. 

  38. 

  39.         #-- change to your needs (site lang)
    40. 

  40.     define("EWIKI_NAME", "ErfurtWiki");
    41. 

  41.     define("EWIKI_PAGE_INDEX", "ErfurtWiki");
    42. 

  42.     define("EWIKI_PAGE_NEWEST", "NewestPages");
    43. 

  43.     define("EWIKI_PAGE_SEARCH", "SearchPages");
    44. 

  44.     define("EWIKI_PAGE_HITS", "MostVisitedPages");
    45. 

  45.     define("EWIKI_PAGE_VERSIONS", "MostOftenChangedPages");
    46. 

  46.     define("EWIKI_PAGE_UPDATES", "UpdatedPages");
    47. 

  47. 

  48.     #-- default settings are good settings - most often ;)
    49. 

  49.         #- look & feel
    50. 

  50.     define("EWIKI_PRINT_TITLE", 1);     # <h2>WikiPageName</h2> on top
    51. 

  51.     define("EWIKI_SPLIT_TITLE", 0);     # <h2>Wiki Page Name</h2>
    52. 

  52.     define("EWIKI_CONTROL_LINE", 1);    # EditThisPage-link at bottom
    53. 

  53.     define("EWIKI_LIST_LIMIT", 20);     # listing limit
    54. 

  54.         #- behaviour
    55. 

  55.     define("EWIKI_AUTO_EDIT", 1);       # edit box for non-existent pages
    56. 

  56.     define("EWIKI_EDIT_REDIRECT", 1);   # redirect after edit save
    57. 

  57.     define("EWIKI_DEFAULT_ACTION", "view"); # (keep!)
    58. 

  58.     define("EWIKI_CASE_INSENSITIVE", 1);    # wikilink case sensitivity
    59. 

  59.     define("EWIKI_HIT_COUNTING", 1);
    60. 

  60.     define("UNIX_MILLENNIUM", 1000000000);
    61. 

  61.         #- rendering
    62. 

  62.     define("EWIKI_ALLOW_HTML", 0);      # often a very bad idea
    63. 

  63.     define("EWIKI_HTML_CHARS", 1);      # allows for &#200;
    64. 

  64.     define("EWIKI_ESCAPE_AT", 1);       # "@" -> "&#x40;"
    65. 

  65.         #- http/urls
    66. 

  66.     define("EWIKI_HTTP_HEADERS", 1);    # most often a good thing
    67. 

  67.     define("EWIKI_NO_CACHE", 1);        # browser+proxy shall not cache
    68. 

  68.     define("EWIKI_URLENCODE", 1);       # disable when _USE_PATH_INFO
    69. 

  69.     define("EWIKI_URLDECODE", 1);
    70. 

  70.     define("EWIKI_USE_PATH_INFO", 1  &&!strstr($_SERVER["SERVER_SOFTWARE"],"Apache"));
    71. 

  71.     define("EWIKI_USE_ACTION_PARAM", 1);
    72. 

  72.     define("EWIKI_ACTION_SEP_CHAR", "/");
    73. 

  73.     define("EWIKI_UP_PAGENUM", "n");    # _UP_ means "url parameter"
    74. 

  74.     define("EWIKI_UP_PAGEEND", "e");
    75. 

  75.     define("EWIKI_UP_BINARY", "binary");
    76. 

  76.     define("EWIKI_UP_UPLOAD", "upload");
    77. 

  77.         #- other stuff
    78. 

  78.         define("EWIKI_DEFAULT_LANG", "en");
    79. 

  79.         define("EWIKI_CHARSET", "UTF-8");
    80. 

  80.     #- user permissions
    81. 

  81.     define("EWIKI_PROTECTED_MODE", 0);  # disable funcs + require auth
    82. 

  82.     define("EWIKI_PROTECTED_MODE_HIDING", 0);  # hides disallowed actions
    83. 

  83.     define("EWIKI_AUTH_DEFAULT_RING", 3);   # 0=root 1=priv 2=user 3=view
    84. 

  84.     define("EWIKI_AUTO_LOGIN", 1);      # [auth_query] on startup
    85. 

  85. 

  86.     #-- allowed WikiPageNameCharacters
    87. 

  87. 

  88. #### BEGIN MOODLE CHANGES - to remove auto-camelcase linking.   
    89. 

  89.     global $moodle_disable_camel_case;   
    90. 

  90.     if ($moodle_disable_camel_case) {
    91. 

  91.         define("EWIKI_CHARS_L", "");
    92. 

  92.         define("EWIKI_CHARS_U", "");
    93. 

  93.     }
    94. 

  94.     else {
    95. 

  95. #### END MOODLE CHANGES
    96. 

  96. 

  97.     define("EWIKI_CHARS_L", "a-z_µ¤$\337-\377");
    98. 

  98.     define("EWIKI_CHARS_U", "A-Z0-9\300-\336");
    99. 

  99. 

  100. #### BEGIN MOODLE CHANGES   
    101. 

  101.     }
    102. 

  102. #### END MOODLE CHANGES
    103. 

  103.    
    104. 

  104.     define("EWIKI_CHARS", EWIKI_CHARS_L.EWIKI_CHARS_U);
    105. 

  105. 

  106.         #-- database
    107. 

  107.     define("EWIKI_DB_TABLE_NAME", "ewiki");      # MySQL / ADOdb
    108. 

  108.     define("EWIKI_DBFILES_DIRECTORY", "/tmp");   # see "db_flat_files.php"
    109. 

  109.     define("EWIKI_DBA", "/tmp/ewiki.dba");       # see "db_dba.php"
    110. 

  110.     define("EWIKI_DBQUERY_BUFFER", 512*1024);    # 512K
    111. 

  111.     define("EWIKI_INIT_PAGES", "./init-pages");  # for initialization
    112. 

  112. 

  113.     define("EWIKI_DB_F_TEXT", 1<<0);
    114. 

  114.     define("EWIKI_DB_F_BINARY", 1<<1);
    115. 

  115.     define("EWIKI_DB_F_DISABLED", 1<<2);
    116. 

  116.     define("EWIKI_DB_F_HTML", 1<<3);
    117. 

  117.     define("EWIKI_DB_F_READONLY", 1<<4);
    118. 

  118.     define("EWIKI_DB_F_WRITEABLE", 1<<5);
    119. 

  119.     define("EWIKI_DB_F_APPENDONLY", 1<<6);  #nyi
    120. 

  120.     define("EWIKI_DB_F_SYSTEM", 1<<7);
    121. 

  121.     define("EWIKI_DB_F_PART", 1<<8);
    122. 

  122.     define("EWIKI_DB_F_TYPE", EWIKI_DB_F_TEXT | EWIKI_DB_F_BINARY | EWIKI_DB_F_DISABLED | EWIKI_DB_F_SYSTEM | EWIKI_DB_F_PART);
    123. 

  123.     define("EWIKI_DB_F_ACCESS", EWIKI_DB_F_READONLY | EWIKI_DB_F_WRITEABLE | EWIKI_DB_F_APPENDONLY);
    124. 

  124.     define("EWIKI_DB_F_COPYMASK", EWIKI_DB_F_TYPE | EWIKI_DB_F_ACCESS);
    125. 

  125. 

  126.     define("EWIKI_DBFILES_NLR", '\\n');
    127. 

  127.     define("EWIKI_DBFILES_ENCODE", 0 || (DIRECTORY_SEPARATOR != "/"));
    128. 

  128.     define("EWIKI_DBFILES_GZLEVEL", "2");
    129. 

  129. 

  130.     #-- internal
    131. 

  131.     define("EWIKI_ADDPARAMDELIM", (strstr(EWIKI_SCRIPT,"?") ? "&" : "?"));
    132. 

  132. 

  133.     #-- binary content (images)
    134. 

  134.     define("EWIKI_SCRIPT_BINARY", /*"/binary.php?binary="*/  ltrim(strtok(" ".EWIKI_SCRIPT,"?"))."?".EWIKI_UP_BINARY."="  );
    135. 

  135.     define("EWIKI_CACHE_IMAGES", 1  &&!headers_sent());
    136. 

  136.     define("EWIKI_IMAGE_MAXSIZE", 64 *1024);
    137. 

  137.     define("EWIKI_IMAGE_MAXWIDTH", 3072);
    138. 

  138.     define("EWIKI_IMAGE_MAXHEIGHT", 2048);
    139. 

  139.     define("EWIKI_IMAGE_MAXALLOC", 1<<19);
    140. 

  140.     define("EWIKI_IMAGE_RESIZE", 1);
    141. 

  141.     define("EWIKI_IMAGE_ACCEPT", "image/jpeg,image/png,image/gif,application/x-shockwave-flash");
    142. 

  142.     define("EWIKI_IDF_INTERNAL", "internal://");
    143. 

  143.     define("EWIKI_ACCEPT_BINARY", 0);   # for arbitrary binary data files
    144. 

  144. 

  145.     #-- misc
    146. 

  146.         define("EWIKI_TMP", $_SERVER["TEMP"] ? $_SERVER["TEMP"] : "/tmp");
    147. 

  147.     define("EWIKI_LOGLEVEL", -1);       # 0=error 1=warn 2=info 3=debug
    148. 

  148.     define("EWIKI_LOGFILE", "/tmp/ewiki.log");
    149. 

  149. 

  150.     #-- plugins (tasks mapped to function names)
    151. 

  151.     $ewiki_plugins["database"][] = "ewiki_database_mysql";
    152. 

  152.     $ewiki_plugins["edit_preview"][] = "ewiki_page_edit_preview";
    153. 

  153.     $ewiki_plugins["render"][] = "ewiki_format";
    154. 

  154.     $ewiki_plugins["init"][-5] = "ewiki_localization";
    155. 

  155.     $ewiki_plugins["init"][-1] = "ewiki_binary";
    156. 

  156.         $ewiki_plugins["handler"][-105] = "ewiki_eventually_initialize";
    157. 

  157.         $ewiki_plugins["handler"][] = "ewiki_intermap_walking";
    158. 

  158.     $ewiki_plugins["view_append"][-1] = "ewiki_control_links";
    159. 

  159.         $ewiki_plugins["view_final"][-1] = "ewiki_add_title";
    160. 

  160.         $ewiki_plugins["page_final"][] = "ewiki_http_headers";
    161. 

  161.         $ewiki_plugins["page_final"][99115115] = "ewiki_page_css_container";
    162. 

  162.     $ewiki_plugins["edit_form_final"][] = "ewiki_page_edit_form_final_imgupload";
    163. 

  163.         $ewiki_plugins["format_block"]["pre"][] = "ewiki_format_pre";
    164. 

  164.         $ewiki_plugins["format_block"]["code"][] = "ewiki_format_pre";
    165. 

  165.         $ewiki_plugins["format_block"]["htm"][] = "ewiki_format_html";
    166. 

  166.         $ewiki_plugins["format_block"]["html"][] = "ewiki_format_html";
    167. 

  167.         $ewiki_plugins["format_block"]["comment"][] = "ewiki_format_comment";
    168. 

  168. 

  169. 

  170.     #-- internal pages
    171. 

  171.     $ewiki_plugins["page"][EWIKI_PAGE_NEWEST] = "ewiki_page_newest";
    172. 

  172.     $ewiki_plugins["page"][EWIKI_PAGE_SEARCH] = "ewiki_page_search";
    173. 

  173.     if (EWIKI_HIT_COUNTING) $ewiki_plugins["page"][EWIKI_PAGE_HITS] = "ewiki_page_hits";
    174. 

  174.     $ewiki_plugins["page"][EWIKI_PAGE_VERSIONS] = "ewiki_page_versions";
    175. 

  175.     $ewiki_plugins["page"][EWIKI_PAGE_UPDATES] = "ewiki_page_updates";
    176. 

  176. 

  177.     #-- page actions
    178. 

  178.     $ewiki_plugins["action"]["edit"] = "ewiki_page_edit";
    179. 

  179.     $ewiki_plugins["action_always"]["links"] = "ewiki_page_links";
    180. 

  180.     $ewiki_plugins["action"]["info"] = "ewiki_page_info";
    181. 

  181.     $ewiki_plugins["action"]["view"] = "ewiki_page_view";
    182. 

  182. 

  183.     #-- helper vars ---------------------------------------------------
    184. 

  184.     $ewiki_config["idf"]["url"] = array("http://", "mailto:", "internal://", "ftp://", "https://", "irc://", "telnet://", "news://", "chrome://", "file://", "gopher://", "httpz://");
    185. 

  185.     $ewiki_config["idf"]["img"] = array(".jpeg", ".png", ".jpg", ".gif", ".j2k");
    186. 

  186.     $ewiki_config["idf"]["obj"] = array(".swf", ".svg");
    187. 

  187. 

  188.     #-- entitle actions
    189. 

  189.     $ewiki_config["action_links"]["view"] = @array_merge(array(
    190. 

  190.         "edit" => "EDITTHISPAGE",   # ewiki_t() is called on these
    191. 

  191.         "links" => "BACKLINKS",
    192. 

  192.         "info" => "PAGEHISTORY",
    193. 

  193.         "like" => "LIKEPAGES",
    194. 

  194.     ), @$ewiki_config["action_links"]["view"]
    195. 

  195.         );
    196. 

  196.     $ewiki_config["action_links"]["info"] = @array_merge(array(
    197. 

  197.         "view" => "browse",
    198. 

  198.         "edit" => "fetchback",
    199. 

  199.     ), @$ewiki_config["action_links"]["info"]
    200. 

  200.         );
    201. 

  201. 

  202.         #-- variable configuration settings (go into '$ewiki_config')
    203. 

  203.         $ewiki_config_DEFAULTSTMP = array(
    204. 

  204.            "edit_thank_you" => 1,
    205. 

  205.            "edit_box_size" => "70x15",
    206. 

  206.            "print_title" => EWIKI_PRINT_TITLE,
    207. 

  207.            "split_title" => EWIKI_SPLIT_TITLE,
    208. 

  208.            "control_line" => EWIKI_CONTROL_LINE,
    209. 

  209.            "list_limit" => EWIKI_LIST_LIMIT,
    210. 

  210.            "script" => EWIKI_SCRIPT,
    211. 

  211.            "script_url" => (defined("EWIKI_SCRIPT_URL")?EWIKI_SCRIPT_URL:NULL),
    212. 

  212.            "script_binary" => EWIKI_SCRIPT_BINARY,
    213. 

  213.     #-- heart of the wiki -- don't try to read this! ;)
    214. 

    215. 

  215.            "wiki_pre_scan_regex" => '/
    216. 

  216.         (?<![~!])
    217. 

  217.         ((?:(?:\w+:)*['.EWIKI_CHARS_U.']+['.EWIKI_CHARS_L.']+){2,}[\w\d]*)
    218. 

  218.         |\^([-'.EWIKI_CHARS_L.EWIKI_CHARS_U.']{3,})
    219. 

  219.         |\[ (?:"[^\]\"]+" | \s+ | [^:\]#]+\|)*  ([^\|\"\[\]\#]+)  (?:\s+ | "[^\]\"]+")* [\]\#] 
    220. 

  220.         |(\w{3,9}:\/\/[^?#\s\[\]\'\"\)\,<]+)    /x',
    221. 

  221. 

  222.            "wiki_link_regex" => "\007 [!~]?(
    223. 

  223.         \#?\[[^<>\[\]\n]+\] |
    224. 

  224.         \^[-".EWIKI_CHARS_U.EWIKI_CHARS_L."]{3,} |
    225. 

  225.         \b([\w]{3,}:)*([".EWIKI_CHARS_U."]+[".EWIKI_CHARS_L."]+){2,}\#?[\w\d]* |
    226. 

  226.         ([a-z]{2,9}://|mailto:)[^\s\[\]\'\"\)\,<]+ |
    227. 

  227.         \w[-_.+\w]+@(\w[-_\w]+[.])+\w{2,}   ) \007x",
    228. 

    229. 

  229.     #-- rendering ruleset
    230. 

  230.            "wm_indent" => '',
    231. 

  231.            "wm_table_defaults" => 'cellpadding="2" border="1" cellspacing="0"',
    232. 

  232.            "wm_whole_line" => array(),
    233. 

  233.            "htmlentities" => array(
    234. 

  234.         "&" => "&amp;",
    235. 

  235.         ">" => "&gt;",
    236. 

  236.         "<" => "&lt;",
    237. 

  237.            ),
    238. 

  238.            "wm_source" => array(
    239. 

  239.         "%%%" => "<br />",
    240. 

  240.         "\t" => "        ",
    241. 

  241.         "\n;:" => "\n      ",   # workaround, replaces the old ;:
    242. 

  242.            ),
    243. 

  243.            "wm_list" => array(
    244. 

  244.         "-" => array('ul type="square"', "", "li"),
    245. 

  245.         "*" => array('ul type="circle"', "", "li"),
    246. 

  246.         "#" => array("ol", "", "li"),
    247. 

  247.         ":" => array("dl", "dt", "dd"),
    248. 

  248.     #<out># ";" => array("dl", "dt", "dd"),
    249. 

  249.            ),
    250. 

  250.            "wm_style" => array(
    251. 

  251.         "'''''" => array("<b><i>", "</i></b>"),
    252. 

  252.         "'''" => array("<b>", "</b>"),
    253. 

  253.         "___" => array("<i><b>", "</b></i>"),
    254. 

  254.         "''" => array("<em>", "</em>"),
    255. 

  255.         "__" => array("<strong>", "</strong>"),
    256. 

  256.         "^^" => array("<sup>", "</sup>"),
    257. 

  257.         "==" => array("<tt>", "</tt>"),
    258. 

  258.     #<off># "***" => array("<b><i>", "</i></b>"),
    259. 

  259.     #<off># "###" => array("<big><b>", "</b></big>"),
    260. 

  260.         "**" => array("<b>", "</b>"),
    261. 

  261.         "##" => array("<big>", "</big>"),
    262. 

  262.         "µµ" => array("<small>", "</small>"),
    263. 

  263.            ),
    264. 

  264.            "wm_start_end" => array(
    265. 

  265.            ),
    266. 

  266.     #-- rendering plugins
    267. 

  267.            "format_block" => array(
    268. 

  268.         "html" => array("&lt;html&gt;", "&lt;/html&gt;", "html", 0x0000),
    269. 

  269.         "htm" => array("&lt;htm&gt;", "&lt;/htm&gt;", "html", 0x0003),
    270. 

  270.         "code" => array("&lt;code&gt;", "&lt;/code&gt;", false, 0x0000),
    271. 

  271.         "pre" => array("&lt;pre&gt;", "&lt;/pre&gt;", false, 0x003F),
    272. 

  272.         "comment" => array("\n&lt;!--", "--&gt;", false, 0x0030),
    273. 

  273.         #  "verbatim" => array("&lt;verbatim&gt;", "&lt;/verbatim&gt;", false, 0x0000),
    274. 

  274.            ),
    275. 

  275.            "format_params" => array(
    276. 

  276.         "scan_links" => 1,
    277. 

  277.         "html" => EWIKI_ALLOW_HTML,
    278. 

  278.         "mpi" => 1,
    279. 

  279.            ),
    280. 

  280.         );
    281. 

  281.         foreach ($ewiki_config_DEFAULTSTMP as $set => $val) {
    282. 

  282.            if (!isset($ewiki_config[$set])) {
    283. 

  283.               $ewiki_config[$set] = $val;
    284. 

  284.            }
    285. 

  285.            elseif (is_array($val)) foreach ($val as $vali=>$valv) {
    286. 

  286.               if (is_int($vali)) {
    287. 

  287.                  $ewiki_config[$set][] = $valv;
    288. 

  288.               }
    289. 

  289.               elseif (!isset($ewiki_config[$set][$vali])) {
    290. 

  290.                  $ewiki_config[$set][$vali] = $valv;
    291. 

  291.               }
    292. 

  292.            }
    293. 

  293.         }
    294. 

  294.         $ewiki_config_DEFAULTSTMP = $valv = $vali = $val = NULL;
    295. 

  295. 

  296.     #-- init stuff, autostarted parts
    297. 

  297.     ksort($ewiki_plugins["init"]);
    298. 

  298.     if ($pf_a = $ewiki_plugins["init"]) foreach ($pf_a as $pf) {
    299. 

  299.            // Binary Handling starts here
    300. 

  300.            #### MOODLE CHANGE TO BE COMPATIBLE WITH PHP 4.1
    301. 

  301.            #if(headers_sent($file,$line)) {
    302. 

  302.            #  error("Headers already sent: $file:$line");
    303. 

  303.            if(headers_sent()) {
    304. 

  304.              error("Headers already sent.");
    305. 

  305.            }
    306. 

  306.            $pf($GLOBALS);
    307. 

  307.         }
    308. 

  308.     unset($ewiki_plugins["init"]);
    309. 

  309. 

  310.     #-- text  (never remove the "C" or "en" sections!)
    311. 

  311.         #
    312. 

  312.     $ewiki_t["C"] = @array_merge(@$ewiki_t["C"], array(
    313. 

  313.            "DATE" => "%a, %d %b %G %T %Z",
    314. 

  314.        "EDIT_TEXTAREA_RESIZE_JS" => '<a href="javascript:ewiki_enlarge()" style="text-decoration:none">+</a><script type="text/javascript"><!--'."\n".'function ewiki_enlarge() {var ta=document.getElementById("ewiki_content");ta.style.width=((ta.cols*=1.1)*10).toString()+"px";ta.style.height=((ta.rows*=1.1)*30).toString()+"px";}'."\n".'//--></script>',
    315. 

  315.         ));
    316. 

  316.         #
    317. 

  317.     $ewiki_t["en"] = @array_merge(@$ewiki_t["en"], array(
    318. 

  318.        "EDITTHISPAGE" => "EditThisPage",
    319. 

  319.            "APPENDTOPAGE" => "Add to",
    320. 

  320.        "BACKLINKS" => "BackLinks",
    321. 

  321.        "PAGESLINKINGTO" => "Pages linking to \$title",
    322. 

  322.        "PAGEHISTORY" => "PageInfo",
    323. 

  323.        "INFOABOUTPAGE" => "Information about page",
    324. 

  324.        "LIKEPAGES" => "Pages like this",
    325. 

  325.        "NEWESTPAGES" => "Newest Pages",
    326. 

  326.        "LASTCHANGED" => "last changed on %c",
    327. 

  327.        "DOESNOTEXIST" => "This page does not yet exist, please click on EditThisPage if you'd like to create it.",
    328. 

  328.        "DISABLEDPAGE" => "This page is currently not available.",
    329. 

  329.        "ERRVERSIONSAVE" => "Sorry, while you edited this page someone else
    330. 

  330.         did already save a changed version. Please go back to the
    331. 

  331.         previous screen and copy your changes to your computers
    332. 

  332.         clipboard to insert it again after you reload the edit
    333. 

  333.         screen.",
    334. 

  334.        "ERRORSAVING" => "An error occoured while saving your changes. Please try again.",
    335. 

  335.        "THANKSFORCONTRIBUTION" => "Thank you for your contribution!",
    336. 

  336.        "CANNOTCHANGEPAGE" => "This page cannot be changed.",
    337. 

  337.        "OLDVERCOMEBACK" => "Make this old version come back to replace the current one",
    338. 

  338.        "PREVIEW" => "Preview",
    339. 

  339.        "SAVE" => "Save",
    340. 

  340.        "CANCEL_EDIT" => "CancelEditing",
    341. 

  341.        "UPLOAD_PICTURE_BUTTON" => "upload picture &gt;&gt;&gt;",
    342. 

  342.        "EDIT_FORM_1" => "<a href=\"".EWIKI_SCRIPT."GoodStyle\">GoodStyle</a> is to
    343. 

  343.         write what comes to your mind. Don't care about how it
    344. 

  344.         looks too much now. You can add <a href=\"".EWIKI_SCRIPT."WikiMarkup\">WikiMarkup</a>
    345. 

  345.         also later if you think it is necessary.<br />",
    346. 

  346.        "EDIT_FORM_2" => "<br />Please do not write things, which may make other
    347. 

  347.         people angry. And please keep in mind that you are not all that
    348. 

  348.         anonymous in the internet (find out more about your computers
    349. 

  349.         '<a href=\"http://google.com/search?q=my+computers+IP+address\">IP address</a>' at Google).",
    350. 

  350.        "BIN_IMGTOOLARGE" => "Image file is too large!",
    351. 

  351.        "BIN_NOIMG" => "This is no image file (inacceptable file format)!",
    352. 

  352.        "FORBIDDEN" => "You are not authorized to access this page.",
    353. 

  353.     ));
    354. 

  354.         #
    355. 

  355.         $ewiki_t["es"] = @array_merge(@$ewiki_t["es"], array(
    356. 

  356.            "EDITTHISPAGE" => "EditarEstaPágina",
    357. 

  357.            "BACKLINKS" => "EnlacesInversos",
    358. 

  358.            "PAGESLINKINGTO" => "Páginas enlazando \$title",
    359. 

  359.            "PAGEHISTORY" => "InfoPágina",
    360. 

  360.            "INFOABOUTPAGE" => "Información sobre la página",
    361. 

  361.            "LIKEPAGES" => "Páginas como esta",
    362. 

  362.            "NEWESTPAGES" => "Páginas más nuevas",
    363. 

  363.            "LASTCHANGED" => "última modificación %d/%m/%Y a las %H:%M",
    364. 

  364.            "DOESNOTEXIST" => "Esta página aún no existe, por favor eliga EditarEstaPágina si desea crearla.",
    365. 

  365.            "DISABLEDPAGE" => "Esta página no está disponible en este momento.",
    366. 

  366.            "ERRVERSIONSAVE" => "Disculpe, mientras editaba esta página alguién más
    367. 

  367.         salvó una versión modificada. Por favor regrese a
    368. 

  368.         a la pantalla anterior y copie sus cambios a su computador
    369. 

  369.         para insertalos nuevamente después de que cargue
    370. 

  370.         la pantalla de edición.",
    371. 

  371.            "ERRORSAVING" => "Ocurrió un error mientras se salvavan sus cambios. Por favor intente de nuevo.",
    372. 

  372.            "THANKSFORCONTRIBUTION" => "Gracias por su contribución!",
    373. 

  373.            "CANNOTCHANGEPAGE" => "Esta página no puede ser modificada.",
    374. 

  374.            "OLDVERCOMEBACK" => "Hacer que esta versión antigua regrese a remplazar la actual",
    375. 

  375.            "PREVIEW" => "Previsualizar",
    376. 

  376.            "SAVE" => "Salvar",
    377. 

  377.            "CANCEL_EDIT" => "CancelarEdición",
    378. 

  378.            "UPLOAD_PICTURE_BUTTON" => "subir gráfica &gt;&gt;&gt;",
    379. 

  379.            "EDIT_FORM_1" => "<a href=\"".EWIKI_SCRIPT."BuenEstilo\">BuenEstilo</a> es
    380. 

  380.         escribir lo que viene a su mente. No se preocupe mucho
    381. 

  381.         por la apariencia. También puede agregar <a href=\"".EWIKI_SCRIPT."ReglasDeMarcadoWiki\">ReglasDeMarcadoWiki</a>
    382. 

  382.         más adelante si piensa que es necesario.<br />",
    383. 

  383.            "EDIT_FORM_2" => "<br />Por favor no escriba cosas, que puedan
    384. 

  384.         enfadar a otras personas. Y por favor tenga en mente que
    385. 

  385.         usted no es del todo anónimo en Internet 
    386. 

  386.         (encuentre más sobre 
    387. 

  387.         '<a href=\"http://google.com/search?q=my+computers+IP+address\">IP address</a>' de su computador con Google).",
    388. 

  388.            "BIN_IMGTOOLARGE" => "¡La gráfica es demasiado grande!",
    389. 

  389.            "BIN_NOIMG" => "¡No es un archivo con una gráfica (formato de archivo inaceptable)!",
    390. 

  390.            "FORBIDDEN" => "No está autorizado para acceder a esta página.",
    391. 

  391.         ));
    392. 

  392.         #
    393. 

  393.     $ewiki_t["de"] = @array_merge(@$ewiki_t["de"], array(
    394. 

  394.        "EDITTHISPAGE" => "DieseSeiteÄndern",
    395. 

  395.            "APPENDTOPAGE" => "Ergänze",
    396. 

  396.        "BACKLINKS" => "ZurückLinks",
    397. 

  397.        "PAGESLINKINGTO" => "Verweise zur Seite \$title",
    398. 

  398.        "PAGEHISTORY" => "SeitenInfo",
    399. 

  399.        "INFOABOUTPAGE" => "Informationen über Seite",
    400. 

  400.        "LIKEPAGES" => "Ähnliche Seiten",
    401. 

  401.        "NEWESTPAGES" => "Neueste Seiten",
    402. 

  402.        "LASTCHANGED" => "zuletzt geändert am %d.%m.%Y um %H:%M",
    403. 

  403.        "DISABLEDPAGE" => "Diese Seite kann momentan nicht angezeigt werden.",
    404. 

  404.        "ERRVERSIONSAVE" => "Entschuldige, aber während Du an der Seite
    405. 

  405.         gearbeitet hast, hat bereits jemand anders eine geänderte
    406. 

  406.         Fassung gespeichert. Damit nichts verloren geht, browse bitte
    407. 

  407.         zurück und speichere Deine Änderungen in der Zwischenablage
    408. 

  408.         (Bearbeiten->Kopieren) um sie dann wieder an der richtigen
    409. 

  409.         Stelle einzufügen, nachdem du die EditBoxSeite nocheinmal
    410. 

  410.         geladen hast.<br />
    411. 

  411.         Vielen Dank für Deine Mühe.",
    412. 

  412.        "ERRORSAVING" => "Beim Abspeichern ist ein Fehler aufgetreten. Bitte versuche es erneut.",
    413. 

  413.        "THANKSFORCONTRIBUTION" => "Vielen Dank für Deinen Beitrag!",
    414. 

  414.        "CANNOTCHANGEPAGE" => "Diese Seite kann nicht geändert werden.",
    415. 

  415.        "OLDVERCOMEBACK" => "Diese alte Version der Seite wieder zur Aktuellen machen",
    416. 

  416.        "PREVIEW" => "Vorschau",
    417. 

  417.        "SAVE" => "Speichern",
    418. 

  418.        "CANCEL_EDIT" => "ÄnderungenVerwerfen",
    419. 

  419.        "UPLOAD_PICTURE_BUTTON" => "Bild hochladen &gt;&gt;&gt;",
    420. 

  420.        "EDIT_FORM_1" => "<a href=\"".EWIKI_SCRIPT."GuterStil\">GuterStil</a> ist es,
    421. 

  421.         ganz einfach das zu schreiben, was einem gerade in den
    422. 

  422.         Sinn kommt. Du solltest dich jetzt noch nicht so sehr
    423. 

  423.         darum kümmern, wie die Seite aussieht. Du kannst später
    424. 

  424.         immernoch zurückkommen und den Text mit <a href=\"".EWIKI_SCRIPT."FormatierungsRegeln\">WikiTextFormatierungsRegeln</a>
    425. 

  425.         aufputschen.<br />",
    426. 

  426.        "EDIT_FORM_2" => "<br />Bitte schreib keine Dinge, die andere Leute
    427. 

  427.         verärgern könnten. Und bedenke auch, daß es schnell auf
    428. 

  428.         dich zurückfallen kann wenn du verschiedene andere Dinge sagst (mehr Informationen zur
    429. 

  429.         '<a href=\"http://google.de/search?q=computer+IP+adresse\">IP Adresse</a>'
    430. 

  430.         deines Computers findest du bei Google).",
    431. 

  431.     ));
    432. 

  432. 

  433.     #-- InterWiki:Links
    434. 

  434.     $ewiki_config["interwiki"] = @array_merge(
    435. 

  435.     @$ewiki_config["interwiki"],
    436. 

  436.     array(
    437. 

  437.            "javascript" => "",  # this actually protects from javascript: links
    438. 

  438.            "url" => "",
    439. 

  439. #          "self" => "this",
    440. 

  440.            "this" => EWIKI_SCRIPT,  # better was absolute _URL to ewiki wrapper
    441. 

  441.            "jump" => ""
    442. 

  442.     ));
    443. 

  443.     // BEGIN MOODLE CHANGES - disable interwiki liks by default
    444. 

  444.     // can be enabled with $CFG->wiki_allow_interwiki = true . MDL-19460
    445. 

  445.     global $CFG;
    446. 

  446.     if (!empty($CFG->wiki_allow_interwiki)) {
    447. 

  447.        $ewiki_config["interwiki"] = @array_merge(
    448. 

  448.            $ewiki_config["interwiki"],
    449. 

  449.            array (
    450. 

  450.                "ErfurtWiki" => "http://erfurtwiki.sourceforge.net/?id=",
    451. 

  451.                "InterWiki" => "InterWikiSearch",
    452. 

  452.                "InterWikiSearch" => "http://sunir.org/apps/meta.pl?",
    453. 

  453.                "Wiki" => "WardsWiki",
    454. 

  454.                "WardsWiki" => "http://www.c2.com/cgi/wiki?",
    455. 

  455.                "WikiFind" => "http://c2.com/cgi/wiki?FindPage&amp;value=",
    456. 

  456.                "WikiPedia" => "http://www.wikipedia.com/wiki.cgi?",
    457. 

  457.                "MeatBall" => "MeatballWiki",
    458. 

  458.                "MeatballWiki" => "http://www.usemod.com/cgi-bin/mb.pl?",
    459. 

  459.                "UseMod"       => "http://www.usemod.com/cgi-bin/wiki.pl?",
    460. 

  460.                "PhpWiki" => "http://phpwiki.sourceforge.net/phpwiki/index.php3?",
    461. 

  461.                "LinuxWiki" => "http://linuxwiki.de/",
    462. 

  462.                "OpenWiki" => "http://openwiki.com/?",
    463. 

  463.                "Tavi" => "http://andstuff.org/tavi/",
    464. 

  464.                "TWiki" => "http://twiki.sourceforge.net/cgi-bin/view/",
    465. 

  465.                "MoinMoin" => "http://www.purl.net/wiki/moin/",
    466. 

  466.                "Google" => "http://google.com/search?q=",
    467. 

  467.                "ISBN" => "http://www.amazon.com/exec/obidos/ISBN=",
    468. 

  468.                "icq" => "http://www.icq.com/"
    469. 

  469.     ));
    470. 

  470.     }
    471. 

  471.     // END MOODLE CHANGES
    472. 

  472. 

  473. 

  474. 

  475. 

  476. 

  477. #-------------------------------------------------------------------- main ---
    478. 

  478. 

  479. /*  this is the main function, which you should preferrably call to
    480. 

  480.     integrate the ewiki into your web site; it chains to most other
    481. 

  481.     parts and plugins (including the edit box);
    482. 

  482.     if you do not supply the requested pages "$id" we will fetch it
    483. 

  483.     from the pre-defined possible URL parameters.
    484. 

  484. */
    485. 

  485. function ewiki_page($id=false) {
    486. 

  486. 

  487.    global $ewiki_links, $ewiki_plugins, $ewiki_ring, $ewiki_t, $ewiki_errmsg;
    488. 

  488.    #-- output var
    489. 

  489.    $o = "";
    490. 

  490. 

  491.    #-- selected page
    492. 

  492.    if (!isset($_REQUEST)) {
    493. 

  493.       $_REQUEST = @array_merge($_GET, $_POST);
    494. 

  494.    }
    495. 

  495.    if (!strlen($id)) {
    496. 

  496.       $id = ewiki_id();
    497. 

  497.    }
    498. 

  498.    $id = format_string($id,true);
    499. 

  499.    #-- page action
    500. 

  500.    $action = EWIKI_DEFAULT_ACTION;
    501. 

  501.    if ($delim = strpos($id, EWIKI_ACTION_SEP_CHAR)) {
    502. 

  502.       $action = substr($id, 0, $delim);
    503. 

  503.       $id = substr($id, $delim + 1);
    504. 

  504.    }
    505. 

  505.    elseif (EWIKI_USE_ACTION_PARAM && isset($_REQUEST["action"])) {
    506. 

  506.       $action = $_REQUEST["action"];
    507. 

  507.    }
    508. 

  508.    $GLOBALS["ewiki_id"] = $id;
    509. 

  509.    $GLOBALS["ewiki_title"] = ewiki_split_title($id);
    510. 

  510.    $GLOBALS["ewiki_action"] = $action;
    511. 

  511. 

  512.    #-- fetch from db
    513. 

  513.    $dquery = array(
    514. 

  514.       "id" => $id
    515. 

  515.    );
    516. 

  516.    if (!isset($_REQUEST["content"]) && ($dquery["version"] = @$_REQUEST["version"])) {
    517. 

  517.       $dquery["forced_version"] = $dquery["version"];
    518. 

  518.    }
    519. 

  519.    $data = @array_merge($dquery, ewiki_database("GET", $dquery));
    520. 

  520. 

  521.    #-- stop here if page is not marked as _TEXT,
    522. 

  522.    #   perform authentication then, and let only administrators proceed
    523. 

  523.    if (!empty($data["flags"]) && (($data["flags"] & EWIKI_DB_F_TYPE) != EWIKI_DB_F_TEXT)) {
    524. 

  524.       if (($data["flags"] & EWIKI_DB_F_BINARY) && ($pf = $ewiki_plugins["handler_binary"][0])) {
    525. 

  525.          return($pf($id, $data, $action)); //_BINARY entries handled separately
    526. 

  526.       }
    527. 

  527.       elseif (!EWIKI_PROTECTED_MODE || !ewiki_auth($id, $data, $action, 0, 1) && ($ewiki_ring!=0)) {
    528. 

  528.          return(ewiki_t("DISABLEDPAGE"));
    529. 

  529.       }
    530. 

  530.    }
    531. 

  531. 

  532.    #-- pre-check if actions exist
    533. 

  533.    $pf_page = ewiki_array($ewiki_plugins["page"], $id);
    534. 

  534. 

  535.    #-- edit <form> for non-existent pages
    536. 

  536.    if (($action==EWIKI_DEFAULT_ACTION) && empty($data["content"]) && empty($pf_page)) {
    537. 

  537.       if (EWIKI_AUTO_EDIT) {
    538. 

  538.          $action = "edit";
    539. 

  539.       }
    540. 

  540.       else {
    541. 

  541.          $data["content"] = ewiki_t("DOESNOTEXIST");
    542. 

  542.       }
    543. 

  543.    }
    544. 

  544.    #-- more initialization
    545. 

  545.    if ($pf_a = @$ewiki_plugins["page_init"]) {
    546. 

  546.       ksort($pf_a);
    547. 

  547.       foreach ($pf_a as $pf) {
    548. 

  548.          $o .= $pf($id, $data, $action);
    549. 

  549.       }
    550. 

  550.       unset($ewiki_plugins["page_init"]);
    551. 

  551.    }
    552. 

  552.    $pf_page = ewiki_array($ewiki_plugins["page"], $id);
    553. 

  553. 

  554.    #-- require auth
    555. 

  555.    if (EWIKI_PROTECTED_MODE) {
    556. 

  556.       if (!ewiki_auth($id, $data, $action, $ring=false, $force=EWIKI_AUTO_LOGIN)) {
    557. 

  557.          return($o.=$ewiki_errmsg);
    558. 

  558.       }
    559. 

  559.    }
    560. 

  560. 

  561.    #-- handlers
    562. 

  562.    $handler_o = "";
    563. 

  563.    if ($pf_a = @$ewiki_plugins["handler"]) {
    564. 

  564.       ksort($pf_a);
    565. 

  565.       foreach ($pf_a as $pf) {
    566. 

  566.          if ($handler_o = $pf($id, $data, $action)) { break; }
    567. 

  567.    }  }
    568. 

  568. 

  569.    #-- finished by handler
    570. 

  570.    if ($handler_o) {
    571. 

  571.       $o .= $handler_o;
    572. 

  572.    }
    573. 

  573.    #-- actions that also work for static and internal pages
    574. 

  574.    elseif (($pf = @$ewiki_plugins["action_always"][$action]) && function_exists($pf)) {
    575. 

  575.       $o .= $pf($id, $data, $action);
    576. 

  576.    }
    577. 

  577.    #-- internal pages
    578. 

  578.    elseif ($pf_page && function_exists($pf_page)) {
    579. 

  579.       $o .= $pf_page($id, $data, $action);
    580. 

  580.    }
    581. 

  581.    #-- page actions
    582. 

  582.    else {
    583. 

  583.       $pf = @$ewiki_plugins["action"][$action];
    584. 

  584. 

  585.       #-- fallback to "view" action
    586. 

  586.       if (empty($pf) || !function_exists($pf)) {
    587. 

  587. 

  588.          $pf = "ewiki_page_view";
    589. 

  589.          $action = "view";     // we could also allow different (this is a
    590. 

  590.          // catch-all) view variants, but this would lead to some problems
    591. 

  591.       }
    592. 

  592. 

  593.       $o .= $pf($id, $data, $action);
    594. 

  594.    }
    595. 

  595. 

  596.    #-- error instead of page?
    597. 

  597.    if (empty($o) && $ewiki_errmsg) {
    598. 

  598.       $o = $ewiki_errmsg;
    599. 

  599.    }
    600. 

  600. 

  601.    #-- html post processing
    602. 

  602.    if ($pf_a = $ewiki_plugins["page_final"]) {
    603. 

  603.       ksort($pf_a);
    604. 

  604.       foreach ($pf_a as $pf) {
    605. 

  605.          if ($action == 'edit' and $pf == 'ewiki_html_tag_balancer') {
    606. 

  606.             continue; // balancer breaks htmlarea buttons
    607. 

  607.          }
    608. 

  608.          $pf($o, $id, $data, $action);
    609. 

  609.       }
    610. 

  610.    }
    611. 

  611. 

  612.    (EWIKI_ESCAPE_AT) && ($o = str_replace("@", "&#x40;", $o));
    613. 

  613. 

  614.    return($o);
    615. 

  615. }
    616. 

  616. 

  617. 

  618. 

  619. #-- HTTP meta headers
    620. 

  620. function ewiki_http_headers(&$o, $id, &$data, $action) {
    621. 

  621.    global $ewiki_t;
    622. 

  622.    if (EWIKI_HTTP_HEADERS && !headers_sent()) {
    623. 

  623.       if (!empty($data)) {
    624. 

  624.          if ($uu = @$data["id"]) @header('Content-Disposition: inline; filename="' . urlencode($uu) . '.html"');
    625. 

  625.          if ($uu = @$data["version"]) @header('Content-Version: ' . $uu);
    626. 

  626.          if ($uu = @$data["lastmodified"]) @header('Last-Modified: ' . gmstrftime($ewiki_t["C"]["DATE"], $uu));
    627. 

  627.       }
    628. 

  628.       if (EWIKI_NO_CACHE) {
    629. 

  629.          header('Expires: ' . gmstrftime($ewiki_t["C"]["DATE"], UNIX_MILLENNIUM));
    630. 

  630.          header('Pragma: no-cache');
    631. 

  631.          header('Cache-Control: no-cache, private, must-revalidate');
    632. 

  632.          # change to "C-C: cache, must-revalidate" ??
    633. 

  633.          # private only for authenticated users / _PROT_MODE
    634. 

  634.       }
    635. 

  635.       #-- ETag
    636. 

  636.       if ($data["version"] && ($etag=ewiki_etag($data)) || ($etag=md5($o))) {
    637. 

  637.          $weak = "W/" . urlencode($id) . "." . $data["version"];
    638. 

  638.          header("ETag: \"$etag\"");     ###, \"$weak\"");
    639. 

  639.       }
    640. 

  640.    }
    641. 

  641. }
    642. 

  642. function ewiki_etag(&$data) {
    643. 

  643.    return(  urlencode($data["id"]) . ":" . dechex($data["version"]) . ":ewiki:" .
    644. 

  644.             dechex(crc32($data["content"]) & 0x7FFFBFFF)  );
    645. 

  645. }
    646. 

  646. 

  647. 

  648. 

  649. #-- encloses whole page output with a descriptive <div>
    650. 

  650. function ewiki_page_css_container(&$o, &$id, &$data, &$action) {
    651. 

  651.    $o = "<div class=\"wiki $action "
    652. 

  652.       . strtr($id, ' ./ --_!"§$%&()=?²³{[]}`+#*;:,<>| @µöäüÖÄÜߤ^°«»\'\\',
    653. 

  653.                    '-  -----------------------------------------------')
    654. 

  654.       . "\">\n"
    655. 

  655.       . $o . "\n</div>\n";
    656. 

  656. }
    657. 

  657. 

  658. 

  659. 

  660. function ewiki_split_title ($id='', $split=EWIKI_SPLIT_TITLE, $entities=1) {
    661. 

  661.    strlen($id) or ($id = $GLOBALS["ewiki_id"]);
    662. 

  662.    if ($split) {
    663. 

  663.       $id = preg_replace("/([".EWIKI_CHARS_L."])([".EWIKI_CHARS_U."]+)/", "$1 $2", $id);
    664. 

  664.    }
    665. 

  665.    return($entities ? s($id) : $id);
    666. 

  666. }
    667. 

  667. 

  668. 

  669. 

  670. function ewiki_add_title(&$html, $id, &$data, $action, $go_action="links") {
    671. 

  671.    $html = ewiki_make_title($id, '', 1, $action, $go_action) . $html;
    672. 

  672. }
    673. 

  673. 

  674. 

  675. function ewiki_make_title($id='', $title='', $class=3, $action="view", $go_action="links", $may_split=1) {
    676. 

  676. 

  677.    global $ewiki_config, $ewiki_plugins, $ewiki_title, $ewiki_id;
    678. 

  678. 

  679.    #-- advanced handler
    680. 

  680.    if ($pf = @$ewiki_plugins["make_title"][0]) {
    681. 

  681.       return($pf($title, $class, $action, $go_action, $may_split));
    682. 

  682.    }
    683. 

  683.    #-- disabled
    684. 

  684.    elseif (!$ewiki_config["print_title"]) {
    685. 

  685.       return("");
    686. 

  686.    }
    687. 

  687. 

  688.    #-- get id
    689. 

  689.    if (empty($id)) {
    690. 

  690.       $id = $ewiki_id;
    691. 

  691.    }
    692. 

  692. 

  693.    #-- get title
    694. 

  694.    if (!strlen($title)) {
    695. 

  695.       $title = $ewiki_title;  // already in &html; format
    696. 

  696.    }
    697. 

  697.    elseif ($ewiki_config["split_title"] && $may_split) {
    698. 

  698.       $title = ewiki_split_title($title, $ewiki_config["split_title"], 0&($title!=$ewiki_title));
    699. 

  699.    }
    700. 

  700.    else {
    701. 

  701.       $title = s($title);
    702. 

  702.    }
    703. 

  703. 

  704.    #-- title mangling
    705. 

  705.    if ($pf_a = @$ewiki_plugins["title_transform"]) {
    706. 

  706.       foreach ($pf_a as $pf) { $pf($id, $title, $go_action); }
    707. 

  707.    }
    708. 

  708. 

  709.    #-- clickable link or simple headline
    710. 

  710.    if ($class <= $ewiki_config["print_title"]) {
    711. 

  711.       if ($uu = @$ewiki_config["link_title_action"][$action]) {
    712. 

  712.          $go_action = $uu;
    713. 

  713.       }
    714. 

  714.       if ($uu = @$ewiki_config["link_title_url"]) {
    715. 

  715.          $href = $uu;
    716. 

  716.          unset($ewiki_config["link_title_url"]);
    717. 

  717.       }
    718. 

  718.       else {
    719. 

  719.          $href = ewiki_script($go_action, $id);
    720. 

  720.       }
    721. 

  721.       $o = '<a href="' . $href . '">' . ($title) . '</a>';
    722. 

  722.    }
    723. 

  723.    else {
    724. 

  724.       $o = $title;
    725. 

  725.    }
    726. 

  726. 

  727.    return('<h2 class="page title">' . $o . '</h2>'."\n");
    728. 

  728. }
    729. 

  729. 

  730. 

  731. 

  732. 

  733. function ewiki_page_view($id, &$data, $action, $all=1) {
    734. 

  734. 

  735.    global $ewiki_plugins, $ewiki_config;
    736. 

  736.    $o = "";
    737. 

  737. 

  738.    #-- render requested wiki page  <-- goal !!!
    739. 

  739.    $render_args = array(
    740. 

  740.       "scan_links" => 1,
    741. 

  741.       "html" => (EWIKI_ALLOW_HTML||(@$data["flags"]&EWIKI_DB_F_HTML)),
    742. 

  742.    );
    743. 

  743.    $o .= $ewiki_plugins["render"][0] ($data["content"], $render_args);
    744. 

  744.    if (!$all) {
    745. 

  745.       return($o);
    746. 

  746.    }
    747. 

  747.    #### MOODLE CHANGE
    748. 

  748.    /// Add Moodle filters to text porion of wiki.
    749. 

  749.    global $moodle_format;   // from wiki/view.php
    750. 

  750.    $o = format_text($o, $moodle_format);
    751. 

  751.    $o.= "<br /><br />";
    752. 

  752. 

  753.    #-- control line + other per-page info stuff
    754. 

  754.    if ($pf_a = $ewiki_plugins["view_append"]) {
    755. 

  755.       ksort($pf_a);
    756. 

  756.       foreach ($pf_a as $n => $pf) { $o .= $pf($id, $data, $action); }
    757. 

  757.    }
    758. 

  758.    if ($pf_a = $ewiki_plugins["view_final"]) {
    759. 

  759.       ksort($pf_a);
    760. 

  760.       foreach ($pf_a as $n => $pf) { $pf($o, $id, $data, $action); }
    761. 

  761.    }
    762. 

  762. 

  763.    if (!empty($_REQUEST["thankyou"]) && $ewiki_config["edit_thank_you"]) {
    764. 

  764.       $o = ewiki_t("THANKSFORCONTRIBUTION") . $o;
    765. 

  765.    }
    766. 

  766. 

  767.    
    768. 

  768.    if (EWIKI_HIT_COUNTING) {
    769. 

  769.       ewiki_database("HIT", $data);
    770. 

  770.    }
    771. 

  771. 

  772.    return($o);
    773. 

  773. }
    774. 

  774. 

  775. 

  776. 

  777. 

  778. #-------------------------------------------------------------------- util ---
    779. 

  779. 

  780. 

  781. /*  retrieves "$id/$action" string from URL / QueryString / PathInfo,
    782. 

  782.     change this in conjunction with ewiki_script() to customize your URLs
    783. 

  783.     further whenever desired
    784. 

  784. */
    785. 

  785. function ewiki_id() {
    786. 

  786.    ($id = @$_REQUEST["id"]) or
    787. 

  787.    ($id = @$_REQUEST["name"]) or
    788. 

  788.    ($id = @$_REQUEST["page"]) or
    789. 

  789.    ($id = @$_REQUEST["file"]) or
    790. 

  790.    (EWIKI_USE_PATH_INFO) and ($id = ltrim(@$_SERVER["PATH_INFO"], "/")) or
    791. 

  791.    (!isset($_REQUEST["id"])) and ($id = trim(strtok($_SERVER["QUERY_STRING"], "&")));
    792. 

  792.    if (!strlen($id) || ($id=="id=")) {
    793. 

  793.       $id = EWIKI_PAGE_INDEX;
    794. 

  794.    }
    795. 

  795.    (EWIKI_URLDECODE) && ($id = urldecode($id));
    796. 

  796.    return($id);
    797. 

  797. }
    798. 

  798. 

  799. 

  800. 

  801. 

  802. /*  replaces EWIKI_SCRIPT, works more sophisticated, and
    803. 

  803.     bypasses various design flaws
    804. 

  804.     - if only the first parameter is used (old style), it can contain
    805. 

  805.       a complete "action/WikiPage" - but this is ambigutious
    806. 

  806.     - else $asid is the action, and $id contains the WikiPageName
    807. 

  807.     - $ewiki_config["script"] will now be used in favour of the constant
    808. 

  808.     - needs more work on _BINARY, should be a separate function
    809. 

  809. */
    810. 

  810. ## MOODLE-CHANGE: $asid="", Knows the devil why....
    811. 

  811. function ewiki_script($asid="", $id=false, $params="", $bin=0, $html=1, $script=NULL) {
    812. 

  812.    global $ewiki_config, $ewiki_plugins;
    813. 

  813.       
    814. 

  814.    #-- get base script url from config vars
    815. 

  815.    if (empty($script)) {
    816. 

  816.       $script = &$ewiki_config[!$bin?"script":"script_binary"];
    817. 

  817.    }
    818. 

  818. 

  819. 

  820.    #-- separate $action and $id for old style requests
    821. 

  821.    if ($id === false) {
    822. 

  822.       if (strpos($asid, EWIKI_ACTION_SEP_CHAR) !== false) {
    823. 

  823.          $asid = strtok($asid, EWIKI_ACTION_SEP_CHAR);
    824. 

  824.          $id = strtok("\000");
    825. 

  825.       }
    826. 

  826.       else {
    827. 

  827.          $id = $asid;
    828. 

  828.          $asid = "";
    829. 

  829.       }
    830. 

  830.    }
    831. 

  831. 

  832.    #-- prepare params
    833. 

  833.    if (is_array($params)) {
    834. 

  834.       $uu = $params;
    835. 

  835.       $params = "";
    836. 

  836.       if ($uu) foreach ($uu as $k=>$v) {
    837. 

  837.          $params .= (strlen($params)?"&":"") . rawurlencode($k) . "=" . rawurlencode($v);
    838. 

  838.       }
    839. 

  839.    }
    840. 

  840.    #-- action= parameter
    841. 

  841.    if (EWIKI_USE_ACTION_PARAM >= 2) {
    842. 

  842.       $params = "action=$asid" . (strlen($params)?"&":"") . $params;
    843. 

  843.       $asid = "";
    844. 

  844.    }
    845. 

  845. 

  846.    #-- workaround slashes in $id
    847. 

  847.    if (empty($asid) && (strpos($id, EWIKI_ACTION_SEP_CHAR) !== false) && !$bin) {
    848. 

  848.       $asid = "view";
    849. 

  849.    }
    850. 

  850.    /*paranoia*/ $asid = trim($asid, EWIKI_ACTION_SEP_CHAR);
    851. 

  851. 

  852.    #-- make url
    853. 

  853.    if (EWIKI_URLENCODE) {
    854. 

  854.       $id = urlencode($id);
    855. 

  855.       $asid = urlencode($asid);
    856. 

  856.    }
    857. 

  857.    else {
    858. 

  858.       # only urlencode &, %, ? for example
    859. 

  859.    }
    860. 

  860.    $url = $script;
    861. 

  861.    if ($asid) {
    862. 

  862.       $id = $asid . EWIKI_ACTION_SEP_CHAR . $id;  #= "action/PageName"
    863. 

  863.    }
    864. 

  864.    if (strpos($url, "%s") !== false) {
    865. 

  865.       $url = str_replace("%s", $id, $url);
    866. 

  866.    }
    867. 

  867.    else {
    868. 

  868.       $url .= $id;
    869. 

  869.    }
    870. 

  870. 

  871.    #-- add url params
    872. 

  872.    if (strlen($params)) {
    873. 

  873.       $url .= (strpos($url,"?")!==false ? "&":"?") . $params;
    874. 

  874.    }
    875. 

  875. 
   #-- fin
    876. 

  876.    if ($html) {
    877. 

  877.       //Don't replace & if it's part of encoded character (bug 2209)
    878. 

  878.       $url = preg_replace("/&(?![A-Za-z]{0,4}\w{2,3};|#[0-9]{2,5};)/","&amp;", $url);
    879. 

  879.    } else {
    880. 

  880.       //This is going to be used in some header or meta redirect, so It cannot use &amp; (bug 2620)
    881. 

  881.       $url = preg_replace('/&amp;/', '&', $url); 
    882. 

  882.    }
    883. 

  883.    return($url);
    884. 

  884. }
    885. 

  885. 

  886. 

  887. /*  this ewiki_script() wrapper is used to generate URLs to binary
    888. 

  888.     content in the ewiki database
    889. 

  889. */
    890. 

  890. function ewiki_script_binary($asid, $id=false, $params=array(), $upload=0) {
    891. 

  891. 

  892.    $upload |= is_string($params) && strlen($params) || count($params);
    893. 

  893. 

  894.    #-- generate URL directly to the plainly saved data file,
    895. 

  895.    #   see also plugins/binary_store
    896. 

  896. 

  897.    if (defined("EWIKI_DB_STORE_URL") && !$upload) {
    898. 

  898.       $url = EWIKI_DB_STORE_URL . rawurlencode($id);
    899. 

  899.    }
    900. 

  900. 

  901.    #-- else get standard URL (thru ewiki.php) from ewiki_script()
    902. 

  902.    else {
    903. 

  903.       $url = ewiki_script($asid, $id, $params, "_BINARY=1");
    904. 

  904.    }
    905. 

  905. 

  906.    return($url);
    907. 

  907. }
    908. 

  908. 

  909. 

  910. /*  this function returns the absolute ewiki_script url, if EWIKI_SCRIPT_URL
    911. 

  911.     is set, else it guesses the value
    912. 

  912. */
    913. 

  913. function ewiki_script_url() {
    914. 

  914. 

  915.    global $ewiki_action, $ewiki_id, $ewiki_config;
    916. 

  916. 

  917.    $scr_template = $ewiki_config["script"];
    918. 

  918.    $scr_current = ewiki_script($ewiki_action, $ewiki_id);
    919. 

  919.    $req_uri = $_SERVER["REQUEST_URI"];
    920. 

  920. 

  921.    if ($url = $ewiki_config["script_url"]) {
    922. 

  922.       return($url);
    923. 

  923.    }
    924. 

  924.    elseif (strpos($req_uri, $scr_current) !== false) {
    925. 

  925.       $url = str_replace($req_uri, $scr_current, $scr_template);
    926. 

  926.    }
    927. 

  927.    elseif (strpos($req_uri, "?") && (strpos($scr_template, "?") !== false)) {
    928. 

  928.       $url = substr($req_uri, 0, strpos($req_uri, "?"))
    929. 

  929.            . substr($scr_template, strpos($scr_template, "?"));
    930. 

  930.    }
    931. 

  931.    elseif (strpos($req_uri, $sn = $_SERVER["SCRIPT_NAME"])) {
    932. 

  932.       $url = $sn . "?id=";
    933. 

  933.    }
    934. 

  934.    else {
    935. 

  935.       return(NULL);   #-- could not guess it
    936. 

  936.    }
    937. 

  937.  
    938. 

  938.    #$url = "http://" . $_SERVER["SERVER_NAME"] . $url;
    939. 

  939.    return($url);
    940. 

  940. }
    941. 

  941. 

  942. 

  943. 

  944. 

  945. #------------------------------------------------------------ page plugins ---
    946. 

  946. 

  947. 

  948. 

  949. function ewiki_page_links($id, &$data, $action) {
    950. 

  950.    $o = ewiki_make_title($id, ewiki_t("PAGESLINKINGTO", array("title"=>$id)), 1, $action, "", "_MAY_SPLIT=1");
    951. 

  951.    if ($pages = ewiki_get_backlinks($id)) {
    952. 

  952.       $o .= ewiki_list_pages($pages);
    953. 

  953.    } else {
    954. 

  954.       $o .= ewiki_t("This page isn't linked from anywhere else.");
    955. 

  955.    }
    956. 

  956.    return($o);
    957. 

  957. }
    958. 

  958. 

  959. function ewiki_get_backlinks($id) {
    960. 

  960.    $result = ewiki_database("SEARCH", array("refs" => $id));
    961. 

  961.    $pages = array();
    962. 

  962.    while ($row = $result->get(0, 0x0020)) {
    963. 

  963.       if ( strpos($row["refs"], "\n$id\n") !== false) {
    964. 

  964.          $pages[] = $row["id"];
    965. 

  965.       }
    966. 

  966.    }
    967. 

  967.    return($pages);
    968. 

  968. }
    969. 

  969. 

  970. function ewiki_get_links($id) {
    971. 

  971.    if ($data = ewiki_database("GET", array("id"=>$id))) {
    972. 

  972.       $refs = explode("\n", trim($data["refs"]));
    973. 

  973.       $r = array();
    974. 

  974.       foreach (ewiki_database("FIND", $refs) as $id=>$exists) {
    975. 

  975.          if ($exists) {
    976. 

  976.             $r[] = $id;
    977. 

  977.          }
    978. 

  978.       }
    979. 

  979.       return($r);
    980. 

  980.    }
    981. 

  981. }
    982. 

  982. 

  983. 

  984. function ewiki_list_pages($pages=array(), $limit=EWIKI_LIST_LIMIT,
    985. 

  985.                           $value_as_title=0, $pf_list=false)
    986. 

  986. {
    987. 

  987.    global $ewiki_plugins;
    988. 

  988.    $o = "";
    989. 

  989. 

  990.    $is_num = !empty($pages[0]);
    991. 

  991.    $lines = array();
    992. 

  992.    $n = 0;
    993. 

  993. 

  994.    foreach ($pages as $id=>$add_text) {
    995. 

  995. 

  996.       $title = $id;
    997. 

  997.       $params = "";
    998. 

  998. 

  999.       if (is_array($add_text)) {
    1000. 

  1000.          list($id, $params, $title, $add_text) = $add_text;
    1001. 

  1001.       }
    1002. 

  1002.       elseif ($is_num) {
    1003. 

  1003.          $id = $title = $add_text;
    1004. 

  1004.          $add_text = "";
    1005. 

  1005.       }
    1006. 

  1006.       elseif ($value_as_title) {
    1007. 

  1007.          $title = $add_text;
    1008. 

  1008.          $add_text = "";
    1009. 

  1009.       }
    1010. 

  1010. 

  1011.       $lines[] = '<a href="' . ewiki_script("", $id, $params) . '">' . s($title) . '</a> ' . $add_text;
    1012. 

  1012. 

  1013.       if (($limit > 0)  &&  ($n++ >= $limit)) {
    1014. 

  1014.          break;
    1015. 

  1015.       }
    1016. 

  1016.    }
    1017. 

  1017. 

  1018.    if ($pf_a = @$ewiki_plugins["list_transform"])
    1019. 

  1019.    foreach ($pf_a as $pf_transform) {
    1020. 

  1020.       $pf_transform($lines);
    1021. 

  1021.    }
    1022. 

  1022. 

  1023.    if (($pf_list) || ($pf_list = @$ewiki_plugins["list_pages"][0])) {
    1024. 

  1024.       $o = $pf_list($lines);
    1025. 

  1025.    }
    1026. 

  1026.    elseif($lines) {
    1027. 

  1027.       $o = "&middot; " . implode("<br />\n&middot; ", $lines) . "<br />\n";
    1028. 

  1028.    }
    1029. 

  1029. 

  1030.    return($o);
    1031. 

  1031. }
    1032. 

  1032. 

  1033. 

  1034. 

  1035. 

  1036. function ewiki_page_ordered_list($orderby="created", $asc=0, $print, $title) {
    1037. 

  1037. 

  1038.    $o = ewiki_make_title("", $title, 2, ".list", "links", 0);
    1039. 

  1039. 

  1040.    $sorted = array();
    1041. 

  1041.    $result = ewiki_database("GETALL", array($orderby));
    1042. 

  1042. 

  1043.    while ($row = $result->get()) {
    1044. 

  1044.       $row = ewiki_database("GET", array(
    1045. 

  1045.          "id" => $row["id"],
    1046. 

  1046.          ($asc >= 0 ? "version" : "uu") => 1  // version 1 is most accurate for {hits}
    1047. 

  1047.       ));
    1048. 

  1048.       #-- text page?
    1049. 

  1049.       if (EWIKI_DB_F_TEXT == ($row["flags"] & EWIKI_DB_F_TYPE)) {
    1050. 

  1050.          #-- viewing allowed?
    1051. 

  1051.          if (!EWIKI_PROTECTED_MODE || !EWIKI_PROTECTED_MODE_HIDING || ewiki_auth($row["id"], $row, "view")) {
    1052. 

  1052.             $sorted[$row["id"]] = $row[$orderby];
    1053. 

  1053.          }
    1054. 

  1054.       }
    1055. 

  1055.    }
    1056. 

  1056. 

  1057.    if ($asc != 0) { arsort($sorted); }
    1058. 

  1058.    else { asort($sorted); }
    1059. 

  1059. 

  1060.    foreach ($sorted as $name => $value) { 
    1061. 

  1061.       if (empty($value)) { $value = "0"; }
    1062. 

  1062.    ##### BEGIN MOODLE ADDITION #####
    1063. 

  1063.       #$sorted[$name] = strftime(str_replace('%n', $value, $print), $value);      
    1064. 

  1064.       if($print=="LASTCHANGED") {
    1065. 

  1065.         $value=strftime("%c",$value);
    1066. 

  1066.       }
    1067. 

  1067.       $sorted[$name] = get_string(strtolower($print),"wiki",$value);
    1068. 

  1068.    ##### BEGIN MOODLE ADDITION #####
    1069. 

  1069.    }
    1070. 

  1070.    $o .= ewiki_list_pages($sorted);
    1071. 

  1071.    
    1072. 

  1072.    return($o);
    1073. 

  1073. }
    1074. 

  1074. 

  1075. 

  1076. 

  1077. function ewiki_page_newest($id=0, $data=0) {
    1078. 

  1078.    return( ewiki_page_ordered_list("created", 1, "LASTCHANGED", ewiki_t(EWIKI_PAGE_NEWEST)) );
    1079. 

  1079. }
    1080. 

  1080. 

  1081. function ewiki_page_updates($id=0, $data=0) {
    1082. 

  1082.    return( ewiki_page_ordered_list("lastmodified", -1, "LASTCHANGED", ewiki_t(EWIKI_PAGE_UPDATES)) );
    1083. 

  1083. }
    1084. 

  1084. 

  1085. function ewiki_page_hits($id=0, $data=0) {
    1086. 

  1086.    ##### BEGIN MOODLE ADDITION #####
    1087. 

  1087.    return( ewiki_page_ordered_list("hits", 1, "hits", ewiki_t(EWIKI_PAGE_HITS)) );
    1088. 

  1088. }
    1089. 

  1089. 

  1090. function ewiki_page_versions($id=0, $data=0) {
    1091. 

  1091.    return( ewiki_page_ordered_list("version", -1, "changes", ewiki_t(EWIKI_PAGE_VERSIONS)) );
    1092. 

  1092.    ##### END MOODLE ADDITION #####
    1093. 

  1093. }
    1094. 

  1094. 

  1095. 

  1096. 

  1097. 

  1098. 

  1099. 

  1100. 

  1101. function ewiki_page_search($id, &$data, $action) {
    1102. 

  1102. 

  1103.    global $CFG;
    1104. 

  1104. 

  1105.    $o = ewiki_make_title($id, $id, 2, $action);
    1106. 

  1106. 

  1107.    if (! ($q = @$_REQUEST["q"])) {
    1108. 

  1108. 

  1109.       $o .= '<form action="' . ewiki_script("", $id) . '" method="post">';
    1110. 

  1110.       $o .= '<fieldset class="invisiblefieldset">';
    1111. 

  1111.       $o .= '<input name="q" size="30" /><br /><br />';
    1112. 

  1112.       $o .= '<input type="submit" value="'.$id.'" />';
    1113. 

  1113.       $o .= '</fieldset>';
    1114. 

  1114.       $o .= '</form>';
    1115. 

  1115.    }
    1116. 

  1116.    else {
    1117. 

  1117.       $found = array();
    1118. 

  1118. 

  1119.       if ($CFG->unicodedb) {
    1120. 

  1120.           $q = preg_replace('/\s*[\W]+\s*/u', ' ', $q);
    1121. 

  1121.       } else {
    1122. 

  1122.           $q = preg_replace('/\s*[^\w]+\s*/', ' ', $q);
    1123. 

  1123.       }
    1124. 

  1124.       foreach (explode(" ", $q) as $search) {
    1125. 

  1125. 

  1126.          if (empty($search)) { continue; }
    1127. 

  1127. 

  1128.          $result = ewiki_database("SEARCH", array("content" => $search));
    1129. 

  1129. 

  1130.          while ($row = $result->get()) {
    1131. 

  1131. 

  1132.             #-- show this entry in page listings?
    1133. 

  1133.             if (EWIKI_PROTECTED_MODE && EWIKI_PROTECTED_MODE_HIDING && !ewiki_auth($row["id"], $row, "view")) {
    1134. 

  1134.                continue;
    1135. 

  1135.             }
    1136. 

  1136. 

  1137.             $found[] = $row["id"];
    1138. 

  1138.          }
    1139. 

  1139.       }
    1140. 

  1140. 

  1141.       $o .= ewiki_list_pages($found);
    1142. 

  1142.    }
    1143. 

  1143.  
    1144. 

  1144.    return($o);
    1145. 

  1145. }
    1146. 

  1146. 

  1147. 

  1148. 

  1149. 

  1150. 

  1151. 

  1152. 

  1153. 

  1154. function ewiki_page_info($id, &$data, $action) {
    1155. 

  1155. 

  1156.    global $ewiki_plugins, $ewiki_config, $ewiki_links;
    1157. 

  1157.    global $CFG, $course;  // MOODLE HACK
    1158. 

  1158. 

  1159.    $o = ewiki_make_title($id, ewiki_t("INFOABOUTPAGE")." '{$id}'", 2, $action,"", "_MAY_SPLIT=1"); 
    1160. 

  1160. 

  1161.    $flagnames = array(
    1162. 

  1162.       "TEXT", "BIN", "DISABLED", "HTML", "READONLY", "WRITEABLE",
    1163. 

  1163.       "APPENDONLY", "SYSTEM",
    1164. 

  1164.    );
    1165. 

  1165.    $show = array(
    1166. 

  1166.       "version", "author", "userid", "created",
    1167. 

  1167.       "lastmodified", "refs",
    1168. 

  1168.       "flags", "meta", "content"
    1169. 

  1169.    );
    1170. 

  1170. 

  1171.    #-- versions to show
    1172. 

  1172.    $v_start = $data["version"];
    1173. 

  1173.    if ( ($uu=@$_REQUEST[EWIKI_UP_PAGENUM]) && ($uu<=$v_start) ) {
    1174. 

  1174.       $v_start = $uu;
    1175. 

  1175.    }
    1176. 

  1176.    $v_end = $v_start - $ewiki_config["list_limit"] + 1;
    1177. 

  1177.    if ( ($uu=@$_REQUEST[EWIKI_UP_PAGEEND]) && ($uu<=$v_start) ) {
    1178. 

  1178.       $v_end = $uu;
    1179. 

  1179.    }
    1180. 

  1180.    $v_end = max($v_end, 1);
    1181. 

  1181. 

  1182.    #-- go
    1183. 

  1183.    # the very ($first) entry is rendered more verbosely than the others
    1184. 

  1184.    for ($v=$v_start,$first=1; ($v>=$v_end); $v--,$first=0) {
    1185. 

  1185. 

  1186.       $current = ewiki_database("GET", array("id"=>$id, "version"=>$v));
    1187. 

  1187. 

  1188.       if (!strlen(trim($current["id"])) || !$current["version"] || !strlen(trim($current["content"]))) {
    1189. 

  1189.          continue;
    1190. 

  1190.       }
    1191. 

  1191. 

  1192.       $o .= '<table  class="version-info" cellpadding="2" cellspacing="1">' . "\n";
    1193. 

  1193. 

  1194.       #-- additional info-actions
    1195. 

  1195.       $commands = '';
    1196. 

  1196.       foreach ($ewiki_config["action_links"]["info"] as $thisaction=>$title)
    1197. 

  1197.       if (@$ewiki_plugins["action"][$thisaction] || @$ewiki_plugins["action_always"][$thisaction]) {
    1198. 

  1198.    ##### BEGIN MOODLE ADDITION #####
    1199. 

  1199.          if ($commands) {
    1200. 

  1200.              $commands .= '&nbsp;&nbsp;';
    1201. 

  1201.          }
    1202. 

  1202.          $commands .= '<a href="' .
    1203. 

  1203.            ewiki_script($thisaction, $id, array("version"=>$current["version"])) .
    1204. 

  1204.            '">' . get_string($title,"wiki") . '</a>';
    1205. 

  1205.    ##### END MOODLE ADDITION #####
    1206. 

  1206.       }
    1207. 

  1207. 

  1208.       #-- print page database entry
    1209. 

  1209.       foreach($show as $i) {
    1210. 

  1210. 

  1211.          $value = @$current[$i];
    1212. 

  1212. 

  1213.          #-- show database {fields} differently
    1214. 

  1214.          if ($i == "meta") {
    1215. 

  1215.             continue;  // MOODLE DOESN'T USE IT
    1216. 

  1216.             $str = "";
    1217. 

  1217.             if ($first && $value) { foreach ($value as $n=>$d) {
    1218. 

  1218.                $str .= s("$n: $d") . "<br />\n";
    1219. 

  1219.             } }
    1220. 

  1220.             $value = $str;
    1221. 

  1221.          }
    1222. 

  1222.          elseif ($value >= UNIX_MILLENNIUM) {    #-- {lastmodified}, {created}
    1223. 

  1223.             #### BEGIN MOODLE CHANGE
    1224. 

  1224.             $value=userdate($value);
    1225. 

  1225.             #$value = strftime("%c", $value);
    1226. 

  1226.             #### END MOODLE CHANGE
    1227. 

  1227.          }
    1228. 

  1228.          elseif ($i == "content") {
    1229. 

  1229.             continue;  // MOODLE DOESN'T CARE
    1230. 

  1230.             $value = strlen(trim($value)) . " bytes";
    1231. 

  1231.             $i = "content size";
    1232. 

  1232.          }
    1233. 

  1233.          elseif ($first && ($i == "refs") && !(EWIKI_PROTECTED_MODE && (EWIKI_PROTECTED_MODE_HIDING>=2))) {
    1234. 

  1234.             $a = explode("\n", trim($value));
    1235. 

  1235.             $ewiki_links = ewiki_database("FIND", $a);
    1236. 

  1236.             ewiki_merge_links($ewiki_links);
    1237. 

  1237.             foreach ($a as $n=>$link) {
    1238. 

  1238.                $a[$n] = ewiki_link_regex_callback(array("$link"), "force_noimg");
    1239. 

  1239.             }
    1240. 

  1240.             $value = trim(implode(", ", $a));
    1241. 

  1241.             if (!$value) {
    1242. 

  1242.                 continue;
    1243. 

  1243.             }
    1244. 

  1244.          }
    1245. 

  1245.          elseif (strpos($value, "\n") !== false) {       #-- also for {refs}
    1246. 

  1246.             $value = str_replace("\n", ", ", trim($value));
    1247. 

  1247.             if (!$value) {
    1248. 

  1248.                 continue;
    1249. 

  1249.             }
    1250. 

  1250.          }
    1251. 

  1251.          elseif ($i == "version") {
    1252. 

  1252.             $value = '<a href="' .
    1253. 

  1253.                ewiki_script("", $id, array("version"=>$value)) . '">' .
    1254. 

  1254.                $value . '</a> '."($commands)";
    1255. 

  1255.          }
    1256. 

  1256.          elseif ($i == "flags") {
    1257. 

  1257.             continue;  // MOODLE DOESN'T USE IT
    1258. 

  1258.             $fstr = "";
    1259. 

  1259.             for ($n = 0; $n < 32; $n++) {
    1260. 

  1260.               if ($value & (1 << $n)) {
    1261. 

  1261.                  if (! ($s=$flagnames[$n])) { $s = "UU$n"; }
    1262. 

  1262.                  $fstr .= $s . " ";
    1263. 

  1263.               }
    1264. 

  1264.             }
    1265. 

  1265.             $value = $fstr;
    1266. 

  1266.          }
    1267. 

  1267.          elseif ($i == "author") {
    1268. 

  1268.             continue;
    1269. 

  1269.             $ewiki_links=1;
    1270. 

  1270.             $value = preg_replace_callback("/((\w+:)?([".EWIKI_CHARS_U."]+[".EWIKI_CHARS_L."]+){2,}[\w\d]*)/", "ewiki_link_regex_callback", $value);
    1271. 

  1271.          }
    1272. 

  1272.          elseif ($i == "userid") {
    1273. 

  1273.              $i = 'author';
    1274. 

  1274.              if ($user = get_record('user', 'id', (int)$value)) {
    1275. 

  1275.                  if (!isset($course->id)) {
    1276. 

  1276.                      $course->id = 1;
    1277. 

  1277.                  }
    1278. 

  1278.                  $picture = print_user_picture($user->id, $course->id, $user->picture, false, true, true);
    1279. 

  1279.                  $value = $picture." <a href=\"$CFG->wwwroot/user/view.php?id=$user->id&amp;course=$course->id\">".fullname($user)."</a>";
    1280. 

  1280.              } else {
    1281. 

  1281.                  continue;
    1282. 

  1282.                  //$value = @$current['author'];
    1283. 

  1283.              }
    1284. 

  1284.          }
    1285. 

  1285. 

  1286.    ##### BEGIN MOODLE ADDITION #####
    1287. 

  1287.          $o .= '<tr class="page-'.$i.'"><td style="vertical-align:top;text-align:right;white-space: nowrap;"><b>' .ewiki_t($i). ':</b></td>' .
    1288. 

  1288.                '<td>' . $value . "</td></tr>\n";
    1289. 

  1289.    ##### END MOODLE ADDITION #####
    1290. 

  1290. 

  1291.       }
    1292. 

  1292. 

  1293.       $o .= "</table><br /><br />\n";
    1294. 

  1294. 

  1295.    }
    1296. 

  1296. 

  1297.    #-- page result split
    1298. 

  1298.    if ($v >= 1) {
    1299. 

  1299.       $o .= "<br />\n".get_string('showversions','wiki').' '.ewiki_chunked_page($action, $id, -1, $v, 1, 0, 0) . "\n <br />";
    1300. 

  1300.    }
    1301. 

  1301. 

  1302.    return($o);
    1303. 

  1303. }
    1304. 

  1304. 

  1305. 

  1306. 

  1307. 

  1308. function ewiki_chunked_page($action, $id, $dir=-1, $start=10, $end=1, $limit=0, $overlap=0.25, $collapse_last=0.67) {
    1309. 

  1309. 

  1310.    global $ewiki_config;
    1311. 

  1311. 

  1312.    if (empty($limit)) {
    1313. 

  1313.       $limit = $ewiki_config["list_limit"];
    1314. 

  1314.    }
    1315. 

  1315.    if ($overlap < 1) {
    1316. 

  1316.       $overlap = (int) ($limit * $overlap);
    1317. 

  1317.    }
    1318. 

  1318. 

  1319.    $p = "";
    1320. 

  1320.    $n = $start;
    1321. 

  1321. 

  1322.    while ($n) {
    1323. 

  1323. 

  1324.       $n -= $dir * $overlap;
    1325. 

  1325. 

  1326.       $e = $n + $dir * ($limit + $overlap) + 1;
    1327. 

  1327. 

  1328.       if ($dir<0) {
    1329. 

  1329.          $e = max(1, $e);
    1330. 

  1330.          if ($e <= $collapse_last * $limit) {
    1331. 

  1331.             $e = 1;
    1332. 

  1332.          }
    1333. 

  1333.       }
    1334. 

  1334.       else {
    1335. 

  1335.          $e = min($end, $e);
    1336. 

  1336.          if ($e >= $collapse_last * $limit) {
    1337. 

  1337.             $e = $end;
    1338. 

  1338.          }
    1339. 

  1339.       }
    1340. 

  1340. 

  1341.       $o .= ($o?" &middot; ":"")
    1342. 

  1342.          . '<a href="'.ewiki_script($action, $id, array(EWIKI_UP_PAGENUM=>$n, EWIKI_UP_PAGEEND=>$e))
    1343. 

  1343.          . '">'. "$n-$e" . '</a>';
    1344. 

  1344. 

  1345.       if (($n=$e-1) < $end) {
    1346. 

  1346.          $n = false;
    1347. 

  1347.       }
    1348. 

  1348.    }
    1349. 

  1349. 

  1350.    return('<span class="chunked-result">'. $o .'</span>');
    1351. 

  1351. }
    1352. 

  1352. 

  1353. 

  1354. 

  1355. 

  1356. 

  1357. 

  1358. function ewiki_page_edit($id, $data, $action) {
    1359. 

  1359. 

  1360.    global $ewiki_links, $ewiki_author, $ewiki_plugins, $ewiki_ring, $ewiki_errmsg;
    1361. 

  1361. 

  1362.    $hidden_postdata = array();
    1363. 

  1363. 

  1364.    #-- previous version come back
    1365. 

  1365.    if (@$data["forced_version"]) {
    1366. 

  1366. 

  1367.       $current = ewiki_database("GET", array("id"=>$id));
    1368. 

  1368.       $data["version"] = $current["version"];
    1369. 

  1369.       unset($current);
    1370. 

  1370. 

  1371.       unset($_REQUEST["content"]);
    1372. 

  1372.       unset($_REQUEST["version"]);
    1373. 

  1373.    }
    1374. 

  1374. 

  1375.    #-- edit hacks
    1376. 

  1376.    if ($pf_a = @$ewiki_plugins["edit_hook"]) foreach ($pf_a as $pf) {
    1377. 

  1377.       if ($output = $pf($id, $data, $hidden_postdata)) {
    1378. 

  1378.          return($output);
    1379. 

  1379.       }
    1380. 

  1380.    }
    1381. 

  1381. 

  1382.    #-- permission checks
    1383. 

  1383.    if (isset($ewiki_ring)) {
    1384. 

  1384.       $ring = $ewiki_ring;
    1385. 

  1385.    } else { 
    1386. 

  1386.       $ring = 3;
    1387. 

  1387.    }
    1388. 

  1388.    $flags = @$data["flags"];
    1389. 

  1389.    if (!($flags & EWIKI_DB_F_WRITEABLE)) {
    1390. 

  1390. 

  1391.       #-- perform auth
    1392. 

  1392.       $edit_ring = (EWIKI_PROTECTED_MODE>=2) ? (2) : (NULL);
    1393. 

  1393.       if (EWIKI_PROTECTED_MODE && !ewiki_auth($id, $data, $action, $edit_ring, "FORCE")) {
    1394. 

  1394.          return($ewiki_errmsg);
    1395. 

  1395.       }
    1396. 

  1396. 

  1397.       #-- flag checking
    1398. 

  1398.       if (($flags & EWIKI_DB_F_READONLY) and ($ring >= 2)) {
    1399. 

  1399.          return(ewiki_t("CANNOTCHANGEPAGE"));
    1400. 

  1400.       }
    1401. 

  1401.       if (($flags) and (($flags & EWIKI_DB_F_TYPE) != EWIKI_DB_F_TEXT) and ($ring >= 1)) {
    1402. 

  1402.          return(ewiki_t("CANNOTCHANGEPAGE"));
    1403. 

  1403.       }
    1404. 

  1404.    }
    1405. 

  1405. 

  1406.    #-- "Edit Me"
    1407. 

  1407.    $o = ewiki_make_title($id, ewiki_t("EDITTHISPAGE").(" '{$id}'"), 2, $action, "", "_MAY_SPLIT=1");
    1408. 

  1408. 

  1409.    #-- preview
    1410. 

  1410.    if (isset($_REQUEST["preview"])) {
    1411. 

  1411.       $o .= $ewiki_plugins["edit_preview"][0]($data);
    1412. 

  1412.    }
    1413. 

  1413. 

  1414.    #-- save
    1415. 

  1415.    if (isset($_REQUEST["save"])) {
    1416. 

  1416. 

  1417. 

  1418.          #-- normalize to UNIX newlines
    1419. 

  1419.          $_REQUEST["content"] = str_replace("\015\012", "\012", $_REQUEST["content"]);
    1420. 

  1420.          $_REQUEST["content"] = str_replace("\015", "\012", $_REQUEST["content"]);
    1421. 

  1421. 

  1422.          #-- check for concurrent version saving
    1423. 

  1423.          $error = 0;
    1424. 

  1424.          if ((@$data["version"] >= 1) && ($data["version"] != @$_REQUEST["version"]) || (@$_REQUEST["version"] < 1)) {
    1425. 

  1425. 

  1426.             $pf = $ewiki_plugins["edit_patch"][0];
    1427. 

  1427. 

  1428.             if (!$pf || !$pf($id, $data)) {
    1429. 

  1429.                $error = 1;
    1430. 

  1430.                $o .= ewiki_t("ERRVERSIONSAVE") . "<br /><br />";
    1431. 

  1431.             }
    1432. 

  1432. 

  1433.          }
    1434. 

  1434.          if (!$error) {
    1435. 

  1435. 

  1436.             #-- new pages` flags
    1437. 

  1437.             if (! ($set_flags = @$data["flags"] & EWIKI_DB_F_COPYMASK)) {
    1438. 

  1438.                $set_flags = 1;
    1439. 

  1439.             }
    1440. 

  1440.             if (EWIKI_ALLOW_HTML) {
    1441. 

  1441.                $set_flags |= EWIKI_DB_F_HTML;
    1442. 

  1442.             }
    1443. 

    1444. 

  1444.             #-- mk db entry
    1445. 

  1445.             $save = array(
    1446. 

  1446.                "id" => $id,
    1447. 

  1447.                "version" => @$data["version"] + 1,
    1448. 

  1448.                "flags" => $set_flags,
    1449. 

  1449.                "content" => $_REQUEST["content"],
    1450. 

  1450.                "created" => ($uu=@$data["created"]) ? $uu : time(),
    1451. 

  1451.                "meta" => ($uu=@$data["meta"]) ? $uu : "",
    1452. 

  1452.                "hits" => ($uu=@$data["hits"]) ? $uu : "0",
    1453. 

  1453.             );
    1454. 

  1454.             ewiki_data_update($save);
    1455. 

    1456. 

  1456.             #-- edit storage hooks
    1457. 

  1457.             if ($pf_a = @$ewiki_plugins["edit_save"]) {
    1458. 

  1458.                foreach ($pf_a as $pf) {
    1459. 

  1459.                   $pf($save, $data);
    1460. 

  1460.                }
    1461. 

  1461.             }
    1462. 

    1463. 

  1463.             #-- save
    1464. 

  1464.             if (!$save || !ewiki_database("WRITE", $save)) {
    1465. 

    1466. 

  1466.                $o .= $ewiki_errmsg ? $ewiki_errmsg : ewiki_t("ERRORSAVING");
    1467. 

    1468. 

  1468.             }
    1469. 

  1469.             else {
    1470. 

  1470.                #-- prevent double saving, when ewiki_page() is re-called
    1471. 

  1471.                $_REQUEST = $_GET = $_POST = array();
    1472. 

    1473. 

  1473.                $o = ewiki_t("THANKSFORCONTRIBUTION") . "<br /><br />";
    1474. 

  1474.                $o .= ewiki_page($id);
    1475. 

    1476. 

  1476.                if (EWIKI_EDIT_REDIRECT) {
    1477. 

  1477.                   $url = ewiki_script("", $id, "thankyou=1", 0, 0, EWIKI_HTTP_HEADERS?ewiki_script_url():0);
    1478. 

  1478.                  
    1479. 

  1479.                   if (EWIKI_HTTP_HEADERS && !headers_sent()) {
    1480. 

  1480.                      header("Status: 303 Redirect for GET");
    1481. 

  1481.                      header("Location: $url");
    1482. 

  1482.                      #header("URI: $url");
    1483. 

  1483.                      #header("Refresh: 0; URL=$url");
    1484. 

  1484.                   }
    1485. 

  1485.                   else {
    1486. 

  1486.                      $o .= '<meta http-equiv="Refresh" content="0; URL='.s($url).'">';
    1487. 

  1487.                   }
    1488. 

  1488.                }
    1489. 

    1490. 

  1490.             }
    1491. 

    1492. 

  1492.          }
    1493. 

    1494. 

  1494.          //@REWORK
    1495. 

  1495.          // header("Reload-Location: " . ewiki_script("", $id, "", 0, 0, ewiki_script_url()) );
    1496. 

    1497. 

  1497.    }
    1498. 

  1498.    else {
    1499. 

  1499.       #-- Edit <form>
    1500. 

  1500.       $o .= ewiki_page_edit_form($id, $data, $hidden_postdata);
    1501. 

    1502. 

  1502.       #-- additional forms
    1503. 

  1503.       if ($pf_a = $ewiki_plugins["edit_form_final"]) foreach ($pf_a as $pf) {
    1504. 

  1504.          $pf($o, $id, $data, $action);
    1505. 

  1505.       }
    1506. 

  1506.    }
    1507. 

    1508. 

  1508.    return($o);
    1509. 

  1509. }
    1510. 

    1511. 

    1512. 

  1512. function ewiki_data_update(&$data, $author="") {
    1513. 

  1513.    global $USER, $ewiki_links;
    1514. 

    1515. 

  1515.    #-- add backlinks entry
    1516. 

  1516.    ewiki_scan_wikiwords($data["content"], $ewiki_links, "_STRIP_EMAIL=1");
    1517. 

  1517.    $data["refs"] = "\n\n".implode("\n", array_keys($ewiki_links))."\n\n";
    1518. 

  1518.    $data["lastmodified"] = time();
    1519. 

  1519.    $data["author"] = ewiki_author($author);
    1520. 

  1520.    if (isset($USER->id)) {
    1521. 

  1521.        $data["userid"] = $USER->id;
    1522. 

  1522.    }
    1523. 

  1523. }
    1524. 

    1525. 

    1526. 

    1527. 

  1527. #-- edit <textarea>
    1528. 

  1528. function ewiki_page_edit_form(&$id, &$data, &$hidden_postdata) {
    1529. 

  1529.    global $ewiki_plugins, $ewiki_config, $moodle_format;   
    1530. 

    1531. 

  1531.    $o='';
    1532. 

  1532.       
    1533. 

  1533.    #-- previously edited, or db fetched content
    1534. 

  1534.    if (@$_REQUEST["content"] || @$_REQUEST["version"]) {
    1535. 

  1535.       $data = array(
    1536. 

  1536.          "version" => &$_REQUEST["version"],
    1537. 

  1537.          "content" => &$_REQUEST["content"]
    1538. 

  1538.       );
    1539. 

  1539.    }
    1540. 

  1540.    else {
    1541. 

  1541.       if (empty($data["version"])) {
    1542. 

  1542.          $data["version"] = 1;
    1543. 

  1543.       }
    1544. 

  1544.       @$data["content"] .= "";
    1545. 

  1545.    }
    1546. 

    1547. 

  1547.    #-- normalize to DOS newlines
    1548. 

  1548.    $data["content"] = str_replace("\015\012", "\012", $data["content"]);
    1549. 

  1549.    $data["content"] = str_replace("\015", "\012", $data["content"]);
    1550. 

  1550.    $data["content"] = str_replace("\012", "\015\012", $data["content"]);
    1551. 

    1552. 

  1552.    $hidden_postdata["version"] = &$data["version"];
    1553. 

    1554. 

  1554.    #-- edit textarea/form
    1555. 

  1555.    // deleted name="ewiki", can not find the reference, and it's breaking xhtml
    1556. 

  1556.    $o .= ewiki_t("EDIT_FORM_1")
    1557. 

  1557.        . '<form method="post" enctype="multipart/form-data" action="'
    1558. 

  1558.        . ewiki_script("edit", $id) . '" '
    1559. 

  1559.        . ' accept-charset="'.EWIKI_CHARSET.'">' . "\n";
    1560. 

  1560.    $o .= '<div>';
    1561. 

  1561.    #-- additional POST vars
    1562. 

  1562.    foreach ($hidden_postdata as $name => $value) {
    1563. 

  1563.        $o .= '<input type="hidden" name="'.$name.'" value="'.$value.'" />'."\n";
    1564. 

  1564.    }
    1565. 

    1566. 

  1566.    ($cols = strtok($ewiki_config["edit_box_size"], "x*/,;:")) && ($rows = strtok("x, ")) || ($cols=70) && ($rows=15);
    1567. 

  1567.    global $ewiki_use_editor, $ewiki_editor_content;
    1568. 

  1568.    $ewiki_editor_content=1;
    1569. 

  1569.    if($ewiki_use_editor) {
    1570. 

  1570.      ob_start();
    1571. 

  1571.      $usehtmleditor = can_use_html_editor();
    1572. 

  1572.      echo '<table><tr><td>';
    1573. 

  1573.      if ($usehtmleditor) { //clean and convert before editing
    1574. 

  1574.          $options = new object();
    1575. 

  1575.          $options->smiley = false;
    1576. 

  1576.          $options->filter = false;
    1577. 

  1577.          $oldtext = format_text(ewiki_format($data["content"]), $moodle_format, $options);
    1578. 

  1578.      } else {
    1579. 

  1579.          $oldtext = ewiki_format($data["content"]);
    1580. 

  1580.      }
    1581. 

  1581.      print_textarea($usehtmleditor, $rows, $cols, 680, 400, "content", $oldtext);
    1582. 

  1582.      echo '</td></tr></table>';
    1583. 

    1584. 

  1584.      if ($usehtmleditor) {
    1585. 

  1585.         use_html_editor("content");
    1586. 

  1586.      }
    1587. 

  1587.      $o .= ob_get_contents();     
    1588. 

  1588.      ob_end_clean();     
    1589. 

    1590. 

  1590.    } else {
    1591. 

  1591.    ##### END MOODLE ADDITION #####
    1592. 

    1593. 

  1593.      $o .= '<textarea wrap="soft" id="ewiki_content" name="content" rows="'.$rows.'" cols="'.$cols.'">'
    1594. 

  1594.         . s($data["content"]) . "</textarea>"
    1595. 

  1595.         . $GLOBALS["ewiki_t"]["C"]["EDIT_TEXTAREA_RESIZE_JS"];
    1596. 

    1597. 

  1597.    ##### BEGIN MOODLE ADDITION #####
    1598. 

  1598.    }
    1599. 

  1599.    ##### END MOODLE ADDITION #####
    1600. 

  1600.    
    1601. 

  1601.    #-- more <input> elements before the submit button
    1602. 

  1602.    if ($pf_a = $ewiki_plugins["edit_form_insert"]) foreach ($pf_a as $pf) {
    1603. 

  1603.       $o .= $pf($id, $data, $action);
    1604. 

  1604.    }
    1605. 

    1606. 

  1606.    ##### BEGIN MOODLE ADDITION (Cancel Editing into Button) #####
    1607. 

  1607.    $o .= "\n<br />\n"
    1608. 

  1608.       . '<input type="submit" name="save" value="'. ewiki_t("SAVE") . '" />'."\n"
    1609. 

  1609.       . '<input type="submit" name="preview" value="'. ewiki_t("PREVIEW") . '" />' . "\n"
    1610. 

  1610.       . '<input type="submit" name="canceledit" value="'. ewiki_t("CANCEL_EDIT") . '" />' . "\n";
    1611. 

  1611. #      . ' &nbsp; <a href="'. ewiki_script("", $id) . '">' . ewiki_t("CANCEL_EDIT") . '</a>';
    1612. 

  1612.    ##### END MOODLE ADDITION #####
    1613. 

    1614. 

  1614.    #-- additional form elements
    1615. 

  1615.    if ($pf_a = $ewiki_plugins["edit_form_append"]) foreach ($pf_a as $pf) {
    1616. 

  1616.       $o .= $pf($id, $data, $action);
    1617. 

  1617.    }
    1618. 

    1619. 

  1619.    $o .= "\n</div></form>\n";
    1620. 

  1620.    //   . ewiki_t("EDIT_FORM_2");  // MOODLE DELETION
    1621. 

    1622. 

  1622.    return('<div class="edit-box">'. $o .'</div>');
    1623. 

  1623. }
    1624. 

    1625. 

    1626. 

    1627. 

  1627. #-- pic upload form
    1628. 

  1628. function ewiki_page_edit_form_final_imgupload(&$o, &$id, &$data, &$action) {
    1629. 

  1629.    if (EWIKI_SCRIPT_BINARY && EWIKI_UP_UPLOAD && EWIKI_IMAGE_MAXSIZE) {
    1630. 

  1630.       $o .= "\n<br />\n". '<div class="image-upload">'
    1631. 

  1631.       . '<form action='
    1632. 

  1632.       . '"'. ewiki_script_binary("", EWIKI_IDF_INTERNAL, "", "_UPLOAD=1") .'"'
    1633. 

  1633.       . ' method="post" enctype="multipart/form-data" target="_upload">'
    1634. 

  1634.       . '<fieldset class="invisiblefieldset">'
    1635. 

  1635.       . '<input type="hidden" name="MAX_FILE_SIZE" value="'.EWIKI_IMAGE_MAXSIZE.'" />'
    1636. 

  1636.       . '<input type="file" name="'.EWIKI_UP_UPLOAD.'"'
    1637. 

  1637.       . (defined("EWIKI_IMAGE_ACCEPT") ? ' accept="'.EWIKI_IMAGE_ACCEPT.'" />' : " />")
    1638. 

  1638.       . '<input type="hidden" name="'.EWIKI_UP_BINARY.'" value="'.EWIKI_IDF_INTERNAL.'" />'
    1639. 

  1639.       . '&nbsp;&nbsp;&nbsp;'
    1640. 

  1640.       . '<input type="submit" value="'.ewiki_t("UPLOAD_PICTURE_BUTTON").'" />'
    1641. 

  1641.       . '</fieldset></form></div>'. "\n";
    1642. 

  1642.   }
    1643. 

  1643. }
    1644. 

    1645. 

    1646. 

  1646. function ewiki_page_edit_preview(&$data) {
    1647. 

  1647. #### BEGIN MOODLE CHANGES   
    1648. 

  1648.    global $moodle_format;   
    1649. 

  1649.    $preview_text=$GLOBALS["ewiki_plugins"]["render"][0]($_REQUEST["content"], 1, EWIKI_ALLOW_HTML || (@$data["flags"]&EWIKI_DB_F_HTML));
    1650. 

  1650.    return( '<div class="preview">'
    1651. 

  1651.            . "<hr noshade>"
    1652. 

  1652.            . "<div class='mdl-right'>" . ewiki_t("PREVIEW") . "</div><hr noshade><br />\n"
    1653. 

  1653.            . format_text($preview_text, $moodle_format)
    1654. 

  1654.            . "<br /><br /><hr noshade><br />"
    1655. 

  1655.            . "</div>"
    1656. 

  1656.    );
    1657. 

  1657. #### END MOODLE CHANGES   
    1658. 

  1658. }
    1659. 

    1660. 

    1661. 

  1661. function ewiki_control_links($id, &$data, $action) {
    1662. 

    1663. 

  1663.    global $ewiki_plugins, $ewiki_ring, $ewiki_config;
    1664. 

  1664.    $action_links = & $ewiki_config["action_links"][$action];
    1665. 

    1666. 

  1666.    #-- disabled
    1667. 

  1667.    if (!$ewiki_config["control_line"]) {
    1668. 

  1668.       return("");
    1669. 

  1669.    }
    1670. 

    1671. 

  1671.    $o = "\n"
    1672. 

  1672.       . '<div class="mdl-right action-links control-links">'
    1673. 

  1673.       . "\n<br />\n"
    1674. 

  1674.       . "<hr noshade>" . "\n";
    1675. 

    1676. 

  1676.    if (@$data["forced_version"]) {
    1677. 

    1678. 

  1678.       $o .= '<form action="' . ewiki_script("edit", $id) . '" method="post">' .
    1679. 

  1679.             '<fieldset class="invisiblefieldset">'.
    1680. 

  1680.             '<input type="hidden" name="edit" value="old" />' .
    1681. 

  1681.             '<input type="hidden" name="version" value="'.$data["forced_version"].'" />' .
    1682. 

  1682.             '<input type="submit" value="' . ewiki_t("OLDVERCOMEBACK") . '" /></form> ';
    1683. 

  1683.    }
    1684. 

  1684.    else {
    1685. 

  1685.       foreach ($action_links as $action => $title)
    1686. 

  1686.       if (!empty($ewiki_plugins["action"][$action]) || !empty($ewiki_plugins["action_always"][$action]) || strpos($action, ":/"))
    1687. 

  1687.       {
    1688. 

  1688.          if (EWIKI_PROTECTED_MODE && EWIKI_PROTECTED_MODE_HIDING && !ewiki_auth($id, $data, $action))  { continue; }
    1689. 

    1690. 

  1690.          $o .= '<a href="'
    1691. 

  1691.             . (strpos($action, ":/") ? $action : ewiki_script($action, $id))
    1692. 

  1692.             . '">' . ewiki_t($title) . '</a> &middot; ';
    1693. 

  1693.       }
    1694. 

  1694.    }
    1695. 

    1696. 

  1696.    if ($data["lastmodified"] >= UNIX_MILLENNIUM) { 
    1697. 

  1697.       $o .= '<small>' . strftime(ewiki_t("LASTCHANGED"), @$data["lastmodified"]) . '</small>';
    1698. 

  1698.    }
    1699. 

    1700. 

  1700.    $o .= "</div>\n";
    1701. 

    1702. 

  1702.    return($o);
    1703. 

  1703. }
    1704. 

    1705. 

    1706. 

    1707. 

    1708. 

    1709. 

  1709. # ============================================================= rendering ===
    1710. 

    1711. 

    1712. 

    1713. 

    1714. 

    1715. 

  1715. ########  ###   ###  #########  ###  ###   ###  #######
    1716. 

  1716. ########  ####  ###  #########  ###  ####  ###  #######
    1717. 

  1717. ###       ##### ###  ###             ##### ###  ###
    1718. 

  1718. ######    #########  ###  ####  ###  #########  ######
    1719. 

  1719. ######    #########  ###  ####  ###  #########  ######
    1720. 

  1720. ###       ### #####  ###   ###  ###  ### #####  ###
    1721. 

  1721. ########  ###  ####  #########  ###  ###  ####  #######
    1722. 

  1722. ########  ###   ###  #########  ###  ###   ###  #######
    1723. 

    1724. 

    1725. 

  1725. /*
    1726. 

  1726.    The _format() function transforms $wiki_source pages into <html> strings,
    1727. 

  1727.    also calls various markup and helper plugins during the transformation
    1728. 

  1728.    process. The $params array can activate various features and extensions.
    1729. 

  1729.    only accepts UNIX newlines!
    1730. 

  1730. */
    1731. 

  1731. function ewiki_format (
    1732. 

  1732.             $wiki_source,
    1733. 

  1733.             $params = array()
    1734. 

  1734.          )
    1735. 

  1735. {
    1736. 

  1736.    global $ewiki_links, $ewiki_plugins, $ewiki_config;
    1737. 

    1738. 

  1738.    #-- state vars
    1739. 

  1739.    $params = @array_merge($ewiki_config["format_params"], $params);
    1740. 

  1740.    $s = array(
    1741. 

  1741.       "in" => 0,         # current input $iii[] block array index
    1742. 

  1742.       "para" => "",
    1743. 

  1743.       "line" => "",
    1744. 

  1744.       "post" => "",      # string to append after current line/paragraph
    1745. 

  1745.       "line_i" => 0,
    1746. 

  1746.       "lines" => array(),
    1747. 

  1747.       "list" => "",      # lists
    1748. 

  1748.       "tbl" => 0,        # open table?
    1749. 

  1749.       "indent" => 0,     # indentation
    1750. 

  1750.       "close" => array(),
    1751. 

  1751.    );
    1752. 

  1752.    #-- aliases
    1753. 

  1753.    $in = &$s["in"]; 
    1754. 

  1754.    $line = &$s["line"];
    1755. 

  1755.    $lines = &$s["lines"];
    1756. 

  1756.    $para = &$s["para"];
    1757. 

  1757.    $post = &$s["post"];
    1758. 

  1758.    $list = &$s["list"];
    1759. 

    1760. 

  1760.    #-- input and output arrays
    1761. 

  1761.    if ($wiki_source[0] == "<") {            # also prepend an empty line 
    1762. 

  1762.       $wiki_source = "\n" . $wiki_source;    # for faster strpos() searchs
    1763. 

  1763.    }
    1764. 

  1764.    $iii = array(
    1765. 

  1765.       0 => array(
    1766. 

  1766.          0 => $wiki_source."\n",    # body + empty line
    1767. 

  1767.          1 => 0x0FFF,               # flags (0x1=WikiMarkup, 0x2=WikiLinks, 0x100=BlockPlugins)
    1768. 

  1768.          2 => "core",               # block plugin name
    1769. 

  1769.       )
    1770. 

  1770.    );
    1771. 

  1771.    $ooo = array(
    1772. 

  1772.    );
    1773. 

  1773.    unset($wiki_source);
    1774. 

    1775. 

  1775.    #-- plugins
    1776. 

  1776.    $pf_tbl = @$ewiki_plugins["format_table"][0];
    1777. 

  1777.    $pf_line = @$ewiki_plugins["format_line"];
    1778. 

    1779. 

  1779.    #-- wikimarkup (wm)
    1780. 

  1780.    $htmlentities = $ewiki_config["htmlentities"];
    1781. 

  1781.    $wm_indent = &$ewiki_config["wm_indent"];
    1782. 

  1782.    $wm_table_defaults = &$ewiki_config["wm_table_defaults"];
    1783. 

  1783.    $wm_source = &$ewiki_config["wm_source"];
    1784. 

  1784.    $wm_list = &$ewiki_config["wm_list"];
    1785. 

  1785.    $wm_list_chars = implode("", array_keys($wm_list));
    1786. 

  1786.    $wm_style = &$ewiki_config["wm_style"];
    1787. 

  1787.    $wm_start_end = &$ewiki_config["wm_start_end"];
    1788. 

    1789. 

  1789.    #-- eleminate html
    1790. 

  1790.    $iii[0][0] = strtr($iii[0][0], $htmlentities);
    1791. 

  1791.    unset($htmlentities["&"]);
    1792. 

    1793. 

  1793.    #-- pre-processing plugins (working on wiki source)
    1794. 

  1794.    if ($pf_source = $ewiki_plugins["format_source"]) {
    1795. 

  1795.       foreach ($pf_source as $pf) $pf($iii[0][0]);
    1796. 

  1796.    }
    1797. 

    1798. 

  1798.    #-- simple markup
    1799. 

  1799.    $iii[0][0] = strtr($iii[0][0], $wm_source);
    1800. 

    1801. 

  1801.    #-- separate input into blocks ------------------------------------------
    1802. 

  1802.    foreach ($ewiki_config["format_block"] as $btype => $binfo) {
    1803. 

    1804. 

  1804.       #-- disabled block plugin?
    1805. 

  1805.       if ($binfo[2] && !$params[$binfo[2]])  {
    1806. 

  1806.          continue;
    1807. 

  1807.       }
    1808. 

    1809. 

  1809.       #-- traverse $iii[]
    1810. 

  1810.       $in = -1;
    1811. 

  1811.       while ((++$in) < count($iii)) {
    1812. 

    1813. 

  1813.          #-- search fragment delimeters
    1814. 

  1814.          if ($iii[$in][1] & 0x0100)
    1815. 

  1815.          while (
    1816. 

  1816.             ($c = & $iii[$in][0]) &&
    1817. 

  1817.             (($l = strpos($c, $binfo[0])) !== false) &&
    1818. 

  1818.             ($r = strpos($c, $binfo[1], $l))   )
    1819. 

  1819.          {
    1820. 

  1820.             $l_len = strlen($binfo[0]);
    1821. 

  1821.             $r_len = strlen($binfo[1]);
    1822. 

    1823. 

  1823.             $repl = array();
    1824. 

  1824.             // pre-text
    1825. 

  1825.             if (($l > 0) && trim($text = substr($c, 0, $l))) {
    1826. 

  1826.                $repl[] = array($text, 0xFFFF, "core");
    1827. 

  1827.             }
    1828. 

  1828.             // the extracted part
    1829. 

  1829.             if (trim($text = substr($c, $l+$l_len, $r-$l-$r_len))) {
    1830. 

  1830.                $repl[] = array($text, $binfo[3], "$btype");
    1831. 

  1831.             }
    1832. 

  1832.             // rest
    1833. 

  1833.             if (($r+$r_len < strlen($c)) && trim($text = substr($c, $r+$r_len))) {
    1834. 

  1834.                $repl[] = array($text, 0xFFFF, "core");
    1835. 

  1835.             }
    1836. 

  1836.             array_splice($iii, $in, 1, $repl);
    1837. 

    1838. 

  1838.             $in += 1;
    1839. 

  1839.          }
    1840. 

  1840.       }
    1841. 

  1841.    }
    1842. 

    1843. 

  1843.    #-- run format_block plugins
    1844. 

  1844.    $in = -1;
    1845. 

  1845.    while ((++$in) < count($iii)) {
    1846. 

  1846.       if (($btype = $iii[$in][2]) && ($pf_a = $ewiki_plugins["format_block"][$btype])) {
    1847. 

  1847.          $c = &$iii[$in][0];
    1848. 

  1848.          foreach ($pf_a as $pf) {   
    1849. 

  1849.             # current buffer $c and pointer $in into $iii[] and state $s
    1850. 

  1850.             $pf($c, $in, $iii, $s, $btype);
    1851. 

  1851.          }
    1852. 

  1852.       }
    1853. 

  1853.    }
    1854. 

    1855. 

  1855.    #-- wiki markup ------------------------------------------------------
    1856. 

  1856.    $para = "";
    1857. 

  1857.    $in = -1;   
    1858. 

  1858.    while ((++$in) < count($iii)) {
    1859. 

  1859.       #-- wikimarkup
    1860. 

  1860.       if ($iii[$in][1] & 0x0001) {
    1861. 

    1862. 

  1862.          #-- input $lines buffer, and output buffer $ooo array
    1863. 

  1863.          $lines = explode("\n", $iii[$in][0]);
    1864. 

  1864.          $ooo[$in] = array(
    1865. 

  1865.             0 => "",
    1866. 

  1866.             1 => $iii[$in][1]
    1867. 

  1867.          );
    1868. 

  1868.          $out = &$ooo[$in][0];
    1869. 

  1869.          $s["block"] = ($iii[$in][2] != "core");  # disables indentation & paragraphs
    1870. 

    1871. 

  1871.          #-- walk through wiki source lines
    1872. 

  1872.          $line_max = count($lines);
    1873. 

  1873.          foreach ($lines as $s["line_i"]=>$line) {
    1874. 

  1874. //echo "<pre>line={$s[line_i]}:".htmlspecialchars($line).":".htmlspecialchars($line[0])."</pre>";
    1875. 

    1876. 

  1876.             #-- empty lines separate paragraphs
    1877. 

  1877.             if (!strlen($line)) {
    1878. 

  1878.                ewiki_format_close_para($ooo, $s);
    1879. 

  1879.                ewiki_format_close_tags($ooo, $s);
    1880. 

  1880.                if (!$s["block"]) {
    1881. 

  1881.                   $out .= "\n";
    1882. 

  1882.                }
    1883. 

  1883.             }
    1884. 

  1884.             #-- horiz bar
    1885. 

  1885.             if (!strncmp($line, "----", 4)) {
    1886. 

  1886.                $out .= "<hr noshade>\n";
    1887. 

  1887.                continue;
    1888. 

  1888.             }
    1889. 

  1889.             #-- html comment
    1890. 

  1890.             #if (!strncmp($line, "&lt;!--", 7)) {
    1891. 

  1891.             #   $out .= "<!-- " . htmlentities(str_replace("--", "__", substr($line, 7))) . " -->\n";
    1892. 

  1892.             #   continue;
    1893. 

  1893.             #}
    1894. 

    1895. 

  1895.             ($c0 = $line[0])
    1896. 

  1896.             or ($c0 = "\000");
    1897. 

    1898. 

  1898.             #-- tables
    1899. 

  1899.             ### MOODLE CHANGE: TRIM
    1900. 

  1900.             if (($c0 == "|") && ($line[strlen(trim($line))-1] == "|")) {
    1901. 

  1901.                if (!$s["tbl"]) {
    1902. 

  1902.                   ewiki_format_close_para($ooo, $s);
    1903. 

  1903.                   ewiki_format_close_tags($ooo, $s);
    1904. 

  1904.                   $s["list"] = "";
    1905. 

  1905.                }
    1906. 

  1906.                $line = substr($line, 1, -1);
    1907. 

  1907.                if ($pf_tbl) { 
    1908. 

  1908.                   $pf_tbl($line, $ooo, $s);
    1909. 

  1909.                }
    1910. 

  1910.                else {
    1911. 

  1911.                   if (!$s["tbl"]) {  
    1912. 

  1912.                      $out .= "<table " . $wm_table_defaults . ">\n";
    1913. 

  1913.                      $s["close"][] = "\n</table>"; 
    1914. 

  1914.                   }
    1915. 

  1915.                   $line = "<tr>\n<td>" . str_replace("|", "</td>\n<td>", $line) . "</td>\n</tr>";
    1916. 

  1916.                }
    1917. 

  1917.                $s["tbl"] = 1;
    1918. 

  1918.                $para = false;
    1919. 

  1919.             }
    1920. 

  1920.             elseif ($s["tbl"]) {
    1921. 

  1921.                $s["tbl"] = 0;
    1922. 

  1922.             }
    1923. 

    1924. 

    1925. 

  1925.             #-- headlines
    1926. 

  1926.             if (($c0 == "!") && ($excl = strspn($line, "!"))) {
    1927. 

  1927.                if ($excl > 3) { 
    1928. 

  1928.                   $excl = 3;
    1929. 

  1929.                }
    1930. 

  1930.                $line = substr($line, $excl);
    1931. 

  1931.                $excl = 5 - $excl;
    1932. 

  1932.                $line = "<h$excl>" . $line . "</h$excl>";
    1933. 

  1933.                if ($para) {
    1934. 

  1934.                   ewiki_format_close_para($ooo, $s);
    1935. 

  1935.                }
    1936. 

  1936.                ewiki_format_close_tags($ooo, $s);
    1937. 

  1937.                $para = false;
    1938. 

  1938.             }
    1939. 

    1940. 

  1940.             #-- whole-line markup
    1941. 

  1941.             # ???
    1942. 

    1943. 

    1944. 

  1944.             #-- indentation (space/tab markup)
    1945. 

  1945.             $n_indent = 0;
    1946. 

  1946.             if (!$list && (!$s["block"]) && ($n_indent = strspn($line, " "))) {
    1947. 

  1947.                $n_indent = (int) ($n_indent / 2.65);
    1948. 

  1948.                while ($n_indent > $s["indent"]) { 
    1949. 

  1949.                   $out .= $wm_indent;
    1950. 

  1950.                   $s["indent"]++;
    1951. 

  1951.                }
    1952. 

  1952.             }
    1953. 

  1953.             while ($n_indent < $s["indent"]) { 
    1954. 

  1954.                $out .= "";
    1955. 

  1955.                $s["indent"]--;
    1956. 

  1956.             }
    1957. 

    1958. 

    1959. 

  1959.             #-- text style triggers
    1960. 

  1960.             foreach ($wm_style as $find=>$replace) {
    1961. 

  1961.                $find_len = strlen($find);
    1962. 

  1962.                $loop = 20;
    1963. 

  1963.                while(($loop--) && (($l = strpos($line, $find)) !== false) && ($r = strpos($line, $find, $l + $find_len))) {
    1964. 

  1964.                   $line = substr($line, 0, $l) . $replace[0] .
    1965. 

  1965.                           substr($line, $l + strlen($find), $r - $l - $find_len) .
    1966. 

  1966.                           $replace[1] . substr($line, $r + $find_len);
    1967. 

  1967.                }
    1968. 

  1968.             }
    1969. 

    1970. 

    1971. 

  1971.             #-- list markup
    1972. 

  1972.             if (isset($wm_list[$c0])) {
    1973. 

  1973.                if (!$list) {
    1974. 

  1974.                   ewiki_format_close_para($ooo, $s);
    1975. 

  1975.                   ewiki_format_close_tags($ooo, $s);
    1976. 

  1976.                }
    1977. 

  1977.                $new_len = strspn($line, $wm_list_chars);
    1978. 

  1978.                $new_list = substr($line, 0, $new_len);
    1979. 

  1979.                $old_len = strlen($list);
    1980. 

  1980.                $lchar = $new_list[$new_len-1];
    1981. 

  1981.                list($lopen, $ltag1, $ltag2) = $wm_list[$lchar];
    1982. 

    1983. 

  1983.                #-- cut line
    1984. 

  1984.                $line = substr($line, $new_len);
    1985. 

  1985.                $lspace = "";
    1986. 

  1986.                $linsert = "";
    1987. 

  1987.                if ($ltag1) {
    1988. 

  1988.                   $linsert = "<$ltag1>" . strtok($line, $lchar) . "</$ltag1> ";
    1989. 

  1989.                   $line = strtok("\000");
    1990. 

  1990.                }
    1991. 

    1992. 

  1992.                #-- add another <li>st entry
    1993. 

  1993.                if ($new_len == $old_len) {
    1994. 

  1994.                   $lspace = str_repeat("  ", $new_len);
    1995. 

  1995.                   $out .=  "</$ltag2>\n" . $lspace . $linsert . "<$ltag2>";
    1996. 

  1996.                }
    1997. 

  1997.                #-- add list
    1998. 

  1998.                elseif ($new_len > $old_len) {
    1999. 

  1999.                   while ($new_len > ($old_len=strlen($list))) {
    2000. 

  2000.                      $lchar = $new_list[$old_len];
    2001. 

  2001.                      $list .= $lchar;
    2002. 

  2002.                      list($lopen, $ltag1, $ltag2) = $wm_list[$lchar];
    2003. 

  2003.                      $lclose = strtok($lopen, " ");
    2004. 

  2004.                      $lspace = str_repeat("  ", $new_len);
    2005. 

  2005.                      
    2006. 

  2006.                      $out .= "\n$lspace<$lopen>\n" . "$lspace". $linsert . "<$ltag2>";
    2007. 

  2007.                      $s["close"][] = "$lspace</$lclose>";
    2008. 

  2008.                      $s["close"][] = "$lspace</$ltag2>";
    2009. 

  2009.                   }
    2010. 

  2010.                }
    2011. 

  2011.                #-- close lists
    2012. 

  2012.                else {
    2013. 

  2013.                   while ($new_len < ($old_len=strlen($list))) {
    2014. 

  2014.                      $remove = $old_len-$new_len;
    2015. 

  2015.                      ewiki_format_close_tags($ooo, $s, 2*$remove);
    2016. 

  2016.                      $list = substr($list, 0, -$remove);
    2017. 

  2017.                   }
    2018. 

  2018.                   if ($new_len) {
    2019. 

  2019.                      $lspace = str_repeat("  ", $new_len);
    2020. 

  2020.                      $out .= "$lspace</$ltag2>\n" . $lspace . $linsert . "<$ltag2>";
    2021. 

  2021.                   }
    2022. 

  2022.                }
    2023. 

    2024. 

  2024.                $list = $new_list;
    2025. 

  2025.                $para = false;
    2026. 

  2026.             }
    2027. 

  2027.             elseif ($list) {
    2028. 

  2028.                if ($c0 == " ") {
    2029. 

  2029.                   $para = false;
    2030. 

  2030.                }
    2031. 

  2031.                else {
    2032. 

  2032.                   ewiki_format_close_tags($ooo, $s);
    2033. 

  2033.                   $list = "";
    2034. 

  2034.                }
    2035. 

  2035.             }
    2036. 

    2037. 

    2038. 

  2038.             #-- start-end markup
    2039. 

  2039.             foreach ($wm_start_end as $d) {
    2040. 

  2040.                $len0 = strlen($d[0]);
    2041. 

  2041.                $loop = 20;
    2042. 

  2042.                while(($loop--) && (($l = strpos($line, $d[0])) !== false) && ($r = strpos($line, $d[1], $l + $len0))) {
    2043. 

  2043.                   $len1 = strlen($d[1]);
    2044. 

  2044.                   $line = substr($line, 0, $l) . $d[2] .
    2045. 

  2045.                           substr($line, $l + $len0, $r - $l - $len0) .
    2046. 

  2046.                           $replace[1] . substr($line, $r + $len1);
    2047. 

  2047.                }
    2048. 

  2048.             }
    2049. 

    2050. 

  2050.             #-- call wiki source formatting plugins that work on current line
    2051. 

  2051.             if ($pf_line) {
    2052. 

  2052.                foreach ($pf_line as $pf) $pf($out, $line, $post);
    2053. 

  2053.             }
    2054. 

    2055. 

    2056. 

    2057. 

  2057.             #-- add formatted line to page-output
    2058. 

  2058.             $line .= $post;
    2059. 

  2059.             if ($para === false) {
    2060. 

  2060.                $out .= $line;
    2061. 

  2061.                $para = "";
    2062. 

  2062.             }
    2063. 

  2063.             else {
    2064. 

  2064.                $para .= $line . "\n";
    2065. 

  2065.             }
    2066. 

    2067. 

  2067.          }
    2068. 

    2069. 

  2069.          #-- last block, or next not WikiSource?
    2070. 

  2070.          if (!isset($iii[$in+1]) || !($iii[$in+1][1] & 0x0011)) {
    2071. 

  2071.             ewiki_format_close_para($ooo, $s);
    2072. 

  2072.             ewiki_format_close_tags($ooo, $s);
    2073. 

  2073.          }
    2074. 

  2074.       }
    2075. 

  2075.       #-- copy as is into output buffer
    2076. 

  2076.       else {
    2077. 

  2077.          $ooo[$in] = $iii[$in];
    2078. 

  2078.       }
    2079. 

  2079.       $iii[$in] = array();
    2080. 

  2080.    }
    2081. 

    2082. 

  2082.    #-- wiki linking ------------------------------------------------------
    2083. 

  2083.    $scan_src = "";
    2084. 

  2084.    for ($in=0; $in<count($ooo); $in++) {
    2085. 

  2085.       if (EWIKI_HTML_CHARS && ($ooo[$in][1] & 0x0004)) {  # html character entities
    2086. 

  2086.          $ooo[$in][0] = str_replace("&amp;#", "&#", $ooo[$in][0]);
    2087. 

  2087.       }
    2088. 

  2088.       if ($ooo[$in][1] & 0x0022) {
    2089. 

  2089.          #-- join together multiple WikiSource blocks
    2090. 

  2090.          while (isset($ooo[$in+1]) && ($ooo[$in][1] & 0x0002) && ($ooo[$in+1][1] & 0x0002)) {
    2091. 

  2091.             $ooo[$in] = array(
    2092. 

  2092.                0 => $ooo[$in][0] . "\n" . $ooo[$in+1][0],
    2093. 

  2093.                1 => $ooo[$in][1] | $ooo[$in+1][1],
    2094. 

  2094.             );
    2095. 

  2095.             array_splice($ooo, $in+1, 1);
    2096. 

  2096.          }
    2097. 

  2097.       }
    2098. 

  2098.       $scan_src .= $ooo[$in][0];
    2099. 

  2099.    }
    2100. 

    2101. 

    2102. 

  2102.    #-- pre-scan
    2103. 

  2103.    if (1+$params["scan_links"]) {
    2104. 

  2104.       ewiki_scan_wikiwords($scan_src, $ewiki_links);
    2105. 

  2105.    }
    2106. 

  2106.    if ($pf_linkprep = $ewiki_plugins["format_prepare_linking"]) {
    2107. 

  2107.       foreach ($pf_linkprep as $pf) $pf($scan_src);
    2108. 

  2108.    }
    2109. 

  2109.    $scan_src = NULL;
    2110. 

    2111. 

  2111.    #-- finally the link-detection-regex
    2112. 

  2112.    for ($in=0; $in<count($ooo); $in++) {
    2113. 

  2113.       if ($ooo[$in][1] & 0x0002) {
    2114. 

  2114.       ##### BEGIN MOODLE ADDITION #####
    2115. 

  2115.       # No WikiLinks in Editor
    2116. 

  2116.       #################################  
    2117. 

  2117.         global $ewiki_use_editor, $ewiki_editor_content;
    2118. 

  2118.         if(!($ewiki_use_editor && $ewiki_editor_content)) {
    2119. 

  2119.       ##### END MOODLE ADDITION #####
    2120. 

  2120.           ewiki_render_wiki_links($ooo[$in][0]);
    2121. 

  2121.       ##### BEGIN MOODLE ADDITION #####
    2122. 

  2122.          }
    2123. 

  2123.       ##### END MOODLE ADDITION #####
    2124. 

  2124.       }
    2125. 

  2125.    }
    2126. 

    2127. 

  2127.    #-- fin: combine all blocks into html string ----------------------------
    2128. 

  2128.    $html = "";
    2129. 

  2129.    for ($in=0; $in<count($ooo); $in++) {
    2130. 

  2130.       $html .= $ooo[$in][0] . "\n";
    2131. 

  2131.       $ooo[$in] = 0;
    2132. 

  2132.    }
    2133. 

  2133.    #-- call post processing plugins
    2134. 

  2134.    if ($pf_final = $ewiki_plugins["format_final"]) {
    2135. 

  2135.       foreach ($pf_final as $pf) $pf($html);
    2136. 

  2136.    }
    2137. 

  2137.    return($html);
    2138. 

  2138. }
    2139. 

    2140. 

    2141. 

    2142. 

  2142. function ewiki_format_close_para(&$ooo, &$s) {
    2143. 

  2143.    $out = &$ooo[$s["in"]][0];
    2144. 

  2144.    #-- output text block
    2145. 

  2145.    if (trim($s["para"])) {
    2146. 

  2146.       if (!$s["block"]) {
    2147. 

  2147.          #### MOODLE CHANGES
    2148. 

  2148.          global $ewiki_use_editor;
    2149. 

  2149.          if(!$ewiki_use_editor) {
    2150. 

  2150.            $s["para"] = "\n<p>\n" . ltrim($s["para"], "\n") . "</p>\n";
    2151. 

  2151.          }
    2152. 

  2152.          #### MOODLE CHANGES
    2153. 

  2153.       }
    2154. 

  2154.       #-- paragraph formation plugins
    2155. 

  2155.       if ($pf_a = $GLOBALS["ewiki_plugins"]["format_para"]) {
    2156. 

  2156.          foreach ($pf_a as $pf) {
    2157. 

  2157.             $pf($s["para"], $ooo, $s);
    2158. 

  2158.          }
    2159. 

  2159.       }
    2160. 

  2160.       $out .= $s["para"];
    2161. 

  2161.       $s["para"] = "";
    2162. 

  2162.    }
    2163. 

  2163.    #-- indentation
    2164. 

  2164.    while ($s["indent"]) {
    2165. 

  2165.       $out .= "";
    2166. 

  2166.       $s["indent"]--;
    2167. 

  2167.    }
    2168. 

  2168. }
    2169. 

    2170. 

    2171. 

  2171. function ewiki_format_close_tags(&$ooo, &$s, $count=100) {
    2172. 

  2172.    $out = &$ooo[$s["in"]][0];
    2173. 

  2173.    if (!is_array($s) || !is_array($s["close"])) { 
    2174. 

  2174.       die("\$s is garbaged == $s!!");
    2175. 

  2175.    }
    2176. 

  2176.    while (($count--) && ($add = array_pop($s["close"]))) {
    2177. 

  2177.       $out .= $add . "\n";
    2178. 

  2178.    }
    2179. 

  2179. }
    2180. 

    2181. 

    2182. 

  2182. function ewiki_format_pre(&$str, &$in, &$iii, &$s, $btype) {
    2183. 

  2183.    $str = "<pre class=\"markup $btype\">" . $str . "</pre>";
    2184. 

  2184. }
    2185. 

    2186. 

    2187. 

  2187. function ewiki_format_html(&$str, &$in, &$iii, &$s) {
    2188. 

  2188.    $he = array_reverse($GLOBALS["ewiki_config"]["htmlentities"]);
    2189. 

  2189.    $str = strtr($str, array_flip($he));
    2190. 

  2190.    $str = "<span class=\"markup html\">" . $str . "\n</span>\n"; 
    2191. 

  2191. }
    2192. 

    2193. 

    2194. 

  2194. function ewiki_format_comment(&$str, &$in, &$iii, &$s, $btype) {
    2195. 

  2195.    $str = "<!-- "  . str_replace("--", "¯¯", $str) . " -->";
    2196. 

  2196. }
    2197. 

    2198. 

    2199. 

    2200. 

    2201. 

  2201. /* unclean pre-scanning for WikiWords in a page,
    2202. 

  2202.    pre-query to the db */
    2203. 

  2203. function ewiki_scan_wikiwords(&$wiki_source, &$ewiki_links, $se=0) {
    2204. 

    2205. 

  2205.    global $ewiki_config;
    2206. 

    2207. 

  2207.    #-- find matches
    2208. 

  2208.    preg_match_all($ewiki_config["wiki_pre_scan_regex"], $wiki_source, $uu);
    2209. 

  2209.    $uu = @array_merge($uu[1], $uu[2], $uu[3], $uu[4], (array)@$uu[5]);
    2210. 

    2211. 

  2211.    #-- clean up list, trim() spaces (allows more unclean regex) - page id unification
    2212. 

  2212.    foreach ($uu as $i=>$id) {
    2213. 

  2213.       $uu[$i] = trim($id);
    2214. 

  2214.    }
    2215. 

  2215.    unset($uu[""]);
    2216. 

  2216.    $uu = array_unique($uu);
    2217. 

    2218. 

  2218.    #-- query db
    2219. 

  2219.    $ewiki_links = ewiki_database("FIND",  $uu);
    2220. 

    2221. 

  2221.    #-- strip email adresses
    2222. 

  2222.    if ($se) {
    2223. 

  2223.       foreach ($ewiki_links as $c=>$uu) {
    2224. 

  2224.          if (strpos($c, "@") && (strpos($c, ".") || strpos($c, ":"))) {
    2225. 

  2225.             unset($ewiki_links[$c]);
    2226. 

  2226.          }
    2227. 

  2227.       }
    2228. 

  2228.    }
    2229. 

    2230. 

  2230. }
    2231. 

    2232. 

    2233. 

    2234. 

  2234. /* regex on page content,
    2235. 

  2235.    handled by callback (see below)
    2236. 

  2236. */
    2237. 

  2237. function ewiki_render_wiki_links(&$o) {
    2238. 

    2239. 

  2239.    global $ewiki_links, $ewiki_config, $ewiki_plugins;
    2240. 

    2241. 

  2241.    #-- merge with dynamic pages list
    2242. 

  2242.    ewiki_merge_links($ewiki_links);
    2243. 

    2244. 

  2244.    #-- replace WikiWords
    2245. 

  2245.    $link_regex = &$ewiki_config["wiki_link_regex"];
    2246. 

  2246.    $o = preg_replace_callback($link_regex, "ewiki_link_regex_callback", $o);
    2247. 

    2248. 

  2248.    #-- cleanup
    2249. 

  2249.    unset($ewiki_links);
    2250. 

  2250. }
    2251. 

    2252. 

    2253. 

  2253. /*
    2254. 

  2254.    combines with page plugin list,
    2255. 

  2255.    and makes all case-insensitive
    2256. 

  2256. */
    2257. 

  2257. function ewiki_merge_links(&$ewiki_links) {
    2258. 

  2258.    global $ewiki_plugins;
    2259. 

  2259. #### BEGIN MOODLE CHANGES   
    2260. 

  2260.      global $ewiki_link_case;
    2261. 

  2261.      $ewiki_link_case=array();
    2262. 

  2262. #### END MOODLE CHANGES
    2263. 

  2263.      if ($ewiki_links !== true) {
    2264. 

  2264.       foreach ($ewiki_plugins["page"] as $page=>$uu) {
    2265. 

  2265.          $ewiki_links[$page] = 1;
    2266. 

  2266.       }
    2267. 

  2267. #### BEGIN MOODLE CHANGES   
    2268. 

  2268.      foreach($ewiki_links as $page => $uu) {
    2269. 

  2269.        if($uu) {
    2270. 

  2270.          $ewiki_link_case[strtolower($page)]=$page;  
    2271. 

  2271.        }        
    2272. 

  2272.      }
    2273. 

  2273. #### END MOODLE CHANGES
    2274. 

  2274.       $ewiki_links = ewiki_array($ewiki_links);
    2275. 

  2275.    }
    2276. 

  2276. }
    2277. 

    2278. 

    2279. 

    2280. 

    2281. 

  2281. /* link rendering (p)regex callback
    2282. 

  2282.    (ooutch, this is a complicated one)
    2283. 

  2283. */
    2284. 

  2284. function ewiki_link_regex_callback($uu, $force_noimg=0) {
    2285. 

  2285.    #print "<pre>"; print_r($uu); print "</pre>";
    2286. 

  2286.    global $ewiki_links, $ewiki_plugins, $ewiki_config, $ewiki_id;
    2287. 

    2288. 

  2288.    $str = trim($uu[0]);
    2289. 

  2289.    $type = array();
    2290. 

  2290.    $states = array();
    2291. 

    2292. 

  2292.    #-- link bracket '[' escaped with '!' or '~'
    2293. 

  2293.    if (($str[0] == "!") || ($str[0] == "~")) {
    2294. 

  2294.       return(substr($str, 1));
    2295. 

  2295.    }
    2296. 

  2296.    if ($str[0] == "#") {
    2297. 

  2297.       $states["define"] = 1;
    2298. 

  2298.       $str = substr($str, 1);
    2299. 

  2299.    }
    2300. 

  2300.    if ($str[0] == "[") {
    2301. 

  2301.       $states["brackets"] = 1;
    2302. 

  2302.       $str = substr($str, 1, -1);
    2303. 

  2303.    }
    2304. 

    2305. 

  2305.    #-- explicit title given via [ title | WikiLink ]
    2306. 

  2306.    $href = $title = strtok($str, "|");
    2307. 

  2307.    if ($uu = strtok("|")) {
    2308. 

  2308.       $href = $uu;
    2309. 

  2309.       $states["titled"] = 1;
    2310. 

  2310.    }
    2311. 

  2311.    #-- title and href swapped: swap back
    2312. 

  2312.    if (strpos("://", $title) || strpos($title, ":") && !strpos($href, ":")) {
    2313. 

  2313.       $uu = $title; $title = $href; $href = $uu;
    2314. 

  2314.    }
    2315. 

    2316. 

  2316.    #-- new entitling scheme [ url "title" ]
    2317. 

  2317.    if ((($l=strpos($str, '"')) < ($r=strrpos($str, '"'))) && ($l!==false) ) {
    2318. 

  2318.       $title = substr($str, $l + 1, $r - $l - 1);
    2319. 

  2319.       $href = substr($str, 0, $l) . substr($str, $r + 1);
    2320. 

  2320.       $states["titled"] = 1;
    2321. 

  2321.     }
    2322. 

    2323. 

  2323.    #-- strip spaces
    2324. 

  2324.    $spaces_l = ($href[0]==" ") ?1:0;
    2325. 

  2325.    $spaces_r = ($href[strlen($href)-1]==" ") ?1:0;
    2326. 

  2326.    $title = ltrim(trim($title), "^");
    2327. 

  2327.    $href = ltrim(trim($href), "^");
    2328. 

    2329. 

  2329.    #-- strip_htmlentities()
    2330. 

  2330.    if (1&&    (strpos($href, "&")!==false) && strpos($href, ";")) {
    2331. 

  2331.       foreach (array("&lt;"=>"<", "&gt;"=>">", "&amp;"=>"&") as $f=>$t) {
    2332. 

  2332.          $href = str_replace($f, $t, $href);
    2333. 

  2333.       }
    2334. 

  2334.    }
    2335. 

  2335.  
    2336. 

  2336.    #-- anchors
    2337. 

  2337.    $href2 = "";
    2338. 

  2338.    if (($p = strrpos($href, "#")) && ($p) && ($href[$p-1] != "&")) {
    2339. 

  2339.       $href2 = trim(substr($href, $p));
    2340. 

  2340.       $href = trim(substr($href, 0, $p));
    2341. 

  2341.    }
    2342. 

  2342.    elseif ($p === 0) {
    2343. 

  2343.       $states["define"] = 1;
    2344. 

  2344.    }
    2345. 

  2345.    if ($href == ".") {
    2346. 

  2346.       $href = $ewiki_id;
    2347. 

  2347.    }
    2348. 

    2349. 

  2349.    #-- for case-insensitivines
    2350. 

  2350.    $href_i = EWIKI_CASE_INSENSITIVE ? strtolower($href) : ($href);
    2351. 

    2352. 

  2352.    #-- injected URLs
    2353. 

  2353.    if (strpos($inj_url = $ewiki_links[$href_i], "://")) {
    2354. 

  2354.       if ($href==$title) { $href = $inj_url; }
    2355. 

  2355.    }
    2356. 

    2357. 

  2357.    #-- interwiki links
    2358. 

  2358.    if (strpos($href, ":") && ($uu = ewiki_interwiki($href, $type))) {
    2359. 

  2359.       $href = $uu;
    2360. 

  2360.       $str = "<a href=\"$href$href2\">$title</a>";
    2361. 

  2361.    }
    2362. 

  2362.    #-- action:WikiLinks
    2363. 

  2363.    elseif ($ewiki_plugins["action"][$a=strtolower(strtok($href, ":"))]) {
    2364. 

  2364.       $type = array($a, "action", "wikipage");
    2365. 

  2365.       $str = '<a href="' . ewiki_script($a, strtok("\000")) . '">' . $title . '</a>';
    2366. 

  2366.    }
    2367. 

  2367.    #-- page anchor definitions, if ($href[0]=="#")
    2368. 

  2368.    elseif (@$states["define"]) {
    2369. 

  2369.       $type = array("anchor");
    2370. 

  2370.       if ($title==$href) { $title="&nbsp;"; }
    2371. 

  2371.       $str = '<a name="' . s(ltrim($href, "#")) . '">' . ltrim($title, "#") . '</a>';
    2372. 

  2372.    }
    2373. 

  2373.    #-- inner page anchor jumps
    2374. 

  2374.    elseif (strlen($href2) && ($href==$ewiki_id) || ($href[0]=="#") && ($href2=&$href)) {
    2375. 

  2375.       $type = array("jump");
    2376. 

  2376.       $str = '<a href="' . s($href2) . '">' . $title . '</a>';
    2377. 

  2377.    }
    2378. 

  2378.    #-- ordinary internal WikiLinks
    2379. 

  2379.    elseif (($ewiki_links === true) || @$ewiki_links[$href_i]) {
    2380. 

  2380.       $type = array("wikipage");
    2381. 

  2381. #### BEGIN MOODLE CHANGES   
    2382. 

  2382.       global $ewiki_link_case;
    2383. 

  2383.       $href_realcase=array_key_exists($href_i,$ewiki_link_case) ? $ewiki_link_case[$href_i] : $href;  
    2384. 

  2384.       $str = '<a href="' . ewiki_script("", $href_realcase) . s($href2)
    2385. 

  2385.            . '">' . $title . '</a>';
    2386. 

  2386. #### END MOODLE CHANGES
    2387. 

  2387.    }
    2388. 

  2388.    #-- guess for mail@addresses, convert to URI if
    2389. 

  2389.    elseif (strpos($href, "@") && !strpos($href, ":")) {
    2390. 

  2390.       $type = array("email");
    2391. 

  2391.       $href = "mailto:" . $href;
    2392. 

  2392.    }
    2393. 

  2393.    #-- not found fallback
    2394. 

  2394.    else {
    2395. 

  2395.       $str = "";
    2396. 

  2396.       #-- a plugin may take care
    2397. 

  2397.       if ($pf_a = $ewiki_plugins["link_notfound"]) {
    2398. 

  2398.          foreach ($pf_a as $pf) {
    2399. 

  2399.             if ($str = $pf($title, $href, $href2, $type)) {
    2400. 

  2400.                break;
    2401. 

  2401.          }  }
    2402. 

  2402.       }
    2403. 

    2404. 

  2404.       #-- (QuestionMarkLink to edit/ action)
    2405. 

  2405.       if (!$str) {
    2406. 

  2406.          $type = array("notfound");
    2407. 

  2407.          $str = '<span class="NotFound"><b>' . $title . '</b><a href="' .
    2408. 

  2408.              ewiki_script("", $href) . '">?</a></span>';
    2409. 

  2409.       }
    2410. 

  2410.    }
    2411. 

    2412. 

  2412.    #-- convert standard URLs
    2413. 

  2413.    foreach ($ewiki_config["idf"]["url"] as $find) 
    2414. 

  2414.     if (strpos($href, $find)===0) {
    2415. 

  2415.       $type[-2] = "url";
    2416. 

  2416.       $type[-1] = strtok($find, ":");
    2417. 

    2418. 

  2418.       #-- URL plugins
    2419. 

  2419.       if ($pf_a = $ewiki_plugins["link_url"]) foreach ($pf_a as $pf) {
    2420. 

  2420.          if ($str = $pf($href, $title)) { break 2; }
    2421. 

  2421.       }
    2422. 

  2422.       $meta = @$ewiki_links[$href];
    2423. 

    2424. 

  2424.       #-- check for image files
    2425. 

  2425.       $ext = substr($href, strrpos($href,"."));
    2426. 

  2426.       $nocache = strpos($ext, "no");
    2427. 

  2427.       $ext = strtok($ext, "?&#");
    2428. 

  2428.       $obj = in_array($ext, $ewiki_config["idf"]["obj"]);
    2429. 

  2429.       $img = $obj || in_array($ext, $ewiki_config["idf"]["img"]);
    2430. 

    2431. 

  2431.       #-- internal:// references (binary files)
    2432. 

  2432.       if (EWIKI_SCRIPT_BINARY && ((strpos($href, EWIKI_IDF_INTERNAL)===0)  ||
    2433. 

  2433.           EWIKI_IMAGE_MAXSIZE && EWIKI_CACHE_IMAGES && $img && !$nocache) )
    2434. 

  2434.       {
    2435. 

  2435.          $type = array("binary");
    2436. 

  2436.          $href = ewiki_script_binary("", $href);
    2437. 

  2437.       }
    2438. 

    2439. 

  2439.       #-- output html reference
    2440. 

  2440.       if (!$img || $force_noimg || !$states["brackets"] || (strpos($href, EWIKI_IDF_INTERNAL) === 0)) {
    2441. 

  2441.          $str = '<a href="' . $href . '">' . $title . '</a>';
    2442. 

  2442.       }
    2443. 

  2443.       #-- img tag
    2444. 

  2444.       else {
    2445. 

  2445.          if (is_string($meta)) {
    2446. 

  2446.             $meta = unserialize($meta);
    2447. 

  2447.          }
    2448. 

  2448.          $type = array("image");
    2449. 

  2449.          #-- uploaded images size
    2450. 

  2450.          $x = $meta["width"];
    2451. 

  2451.          $y = $meta["height"];
    2452. 

  2452.          if ($p = strpos('?', $href)) {      #-- width/height given in url
    2453. 

  2453.             parse_str(str_replace("&amp;", "&", substr($href, $p)), $meta);
    2454. 

  2454.             ($uu = $meta["x"] . $meta["width"]) and ($x = $uu);
    2455. 

  2455.             ($uu = $meta["y"] . $meta["height"]) and ($y = $uu);
    2456. 

  2456.             if ($scale = $meta["r"] . $meta["scale"]) {
    2457. 

  2457.                ($p = strpos($scale, "%")) and ($scale = strpos($scale, 0, $p) / 100);
    2458. 

  2458.                $x *= $scale; $y *= $scale;
    2459. 

  2459.             }
    2460. 

  2460.          }
    2461. 

  2461.          $align = array('', ' align="right"', ' align="left"', ' align="center"');
    2462. 

  2462.          $align = $align[$spaces_l + 2*$spaces_r];
    2463. 

  2463.          $str = ($obj ? '<embed width="70%"' : '<img') . ' src="' . $href . '"' .
    2464. 

  2464.                 ' alt="' . ($title) . '"' .
    2465. 

  2465.                 (@$states["titled"] ? ' title="' . ($title) . '"' : '').
    2466. 

  2466.         ($x && $y ? " width=\"$x\" height=\"$y\"" : "") .
    2467. 

  2467.                 $align . " />" . ($obj ? "</embed>" : "");
    2468. 

  2468.                                             # htmlentities($title)
    2469. 

  2469.       }
    2470. 

    2471. 

  2471.       break;
    2472. 

  2472.    }
    2473. 

    2474. 

  2474.    #-- icon/transform plugins
    2475. 

  2475.    ksort($type);
    2476. 

  2476.    if ($pf_a = @$ewiki_plugins["link_final"]) {
    2477. 

  2477.       foreach ($pf_a as $pf) { $pf($str, $type, $href, $title); }
    2478. 

  2478.    }
    2479. 

    2480. 

  2480.    return($str);
    2481. 

  2481. }
    2482. 

    2483. 

    2484. 

  2484. /*
    2485. 

  2485.    Returns URL if it encounters an InterWiki:Link or workalike.
    2486. 

  2486. */
    2487. 

  2487. function ewiki_interwiki($href, &$type) {
    2488. 

  2488.    global $ewiki_config, $ewiki_plugins;
    2489. 

    2490. 

  2490.    if (strpos($href, ":") and !strpos($href, "//")
    2491. 

  2491.    and ($p1 = strtok($href, ":"))) {
    2492. 

    2493. 

  2493.       $page = strtok("\000");
    2494. 

    2495. 

  2495.       if (($p1 = ewiki_array($ewiki_config["interwiki"], $p1)) !== NULL) {
    2496. 

  2496.          $type = array("interwiki", $uu);
    2497. 

  2497.          while ($p1_alias = $ewiki_config["interwiki"][$p1]) {
    2498. 

  2498.              $type[] = $p1;
    2499. 

  2499.              $p1 = $p1_alias;
    2500. 

  2500.          }
    2501. 

  2501.          if (!strpos($p1, "%s")) {
    2502. 

  2502.              $p1 .= "%s";
    2503. 

  2503.          }
    2504. 

  2504.          $href = str_replace("%s", $page, $p1);
    2505. 

  2505.          return($href);
    2506. 

  2506.       }
    2507. 

  2507.       elseif ($pf = $ewiki_plugins["intermap"][$p1]) {
    2508. 

  2508.          return($pf($p1, $page));
    2509. 

  2509.       }
    2510. 

  2510.    }
    2511. 

  2511. }
    2512. 

    2513. 

    2514. 

  2514. /* 
    2515. 

  2515.    implements FeatureWiki:InterMapWalking
    2516. 

  2516. */
    2517. 

  2517. function ewiki_intermap_walking($id, &$data, $action) {
    2518. 

  2518.    if (empty($data["version"]) && ($href = ewiki_interwiki($id, $uu))) {
    2519. 

  2519.       header("Location: $href");
    2520. 

  2520.       return("<a href=\"$href\">$href</a>");
    2521. 

  2521.    }
    2522. 

  2522. }
    2523. 

    2524. 

    2525. 

    2526. 

  2526. # =========================================================================
    2527. 

    2528. 

    2529. 

    2530. 

  2530. #####    ##  ##   ##    ##    #####   ##  ##
    2531. 

  2531. ######   ##  ###  ##   ####   ######  ##  ##
    2532. 

  2532. ##  ##   ##  ###  ##  ######  ##  ##  ##  ##
    2533. 

  2533. #####    ##  #### ##  ##  ##  ######  ######
    2534. 

  2534. #####    ##  #######  ######  ####     ####
    2535. 

  2535. ##  ###  ##  ## ####  ######  #####     ##
    2536. 

  2536. ##  ###  ##  ##  ###  ##  ##  ## ###    ##
    2537. 

  2537. ######   ##  ##  ###  ##  ##  ##  ##    ##
    2538. 

  2538. ######   ##  ##   ##  ##  ##  ##  ##    ##
    2539. 

    2540. 

    2541. 

    2542. 

    2543. 

  2543. /*  fetch & store
    2544. 

  2544. */
    2545. 

  2545. function ewiki_binary($break=0) {
    2546. 

  2546.    global $ewiki_plugins;
    2547. 

  2547.    global $USER;   // MOODLE
    2548. 

    2549. 

  2549.    #-- reject calls
    2550. 

  2550.    if (!strlen($id = @$_REQUEST[EWIKI_UP_BINARY]) || !EWIKI_IDF_INTERNAL) {
    2551. 

  2551.       return(false);
    2552. 

  2552.    }
    2553. 

  2553.    if (headers_sent()) die("ewiki-binary configuration error");
    2554. 

    2555. 

  2555.    #-- upload requests
    2556. 

  2556.    $upload_file = @$_FILES[EWIKI_UP_UPLOAD];
    2557. 

  2557.    $add_meta = array();
    2558. 

  2558.    if ($orig_name = @$upload_file["name"]) {
    2559. 

  2559.       $add_meta["Content-Location"] = urlencode($orig_name);
    2560. 

  2560.       $add_meta["Content-Disposition"] = 'inline; filename="'.urlencode(basename("remote://$orig_name")).'"';
    2561. 

  2561.    }
    2562. 

    2563. 

  2563.    #-- what are we doing here?
    2564. 

  2564.    if (($id == EWIKI_IDF_INTERNAL) && ($upload_file)) { 
    2565. 

  2565.       $do = "upload";
    2566. 

  2566.    }
    2567. 

  2567.    else {
    2568. 

  2568.       $data = ewiki_database("GET", array("id" => $id));
    2569. 

  2569.       $flags = @$data["flags"];
    2570. 

  2570.       if (EWIKI_DB_F_BINARY == ($flags & EWIKI_DB_F_TYPE)) { 
    2571. 

  2571.          $do = "get";
    2572. 

  2572.       }
    2573. 

  2573.       elseif (empty($data["version"]) and EWIKI_CACHE_IMAGES) {
    2574. 

  2574.          $do = "cache";
    2575. 

  2575.       }
    2576. 

  2576.       else { 
    2577. 

  2577.          $do = "nop";
    2578. 

  2578.       }
    2579. 

  2579.    }
    2580. 

  2580.    
    2581. 

  2581.    #-- auth only happens when enforced with _PROTECTED_MODE_XXL setting
    2582. 

  2582.    #   (authentication for inline images in violation of the WWW spirit)
    2583. 

  2583.    if ((EWIKI_PROTECTED_MODE>=5) && !ewiki_auth($id, $data, "binary-{$do}")) {
    2584. 

  2584.       return($_REQUEST["id"]="view/BinaryPermissionError");
    2585. 

  2585.    }
    2586. 

    2587. 

  2587.    #-- upload an image
    2588. 

  2588.    if ($do == "upload"){
    2589. 

  2589.       $id = ewiki_binary_save_image($upload_file["tmp_name"], "", $return=0, $add_meta);
    2590. 

  2590.       @unlink($upload_file["tmp_name"]);
    2591. 

  2591.       ($title = trim($orig_name, "/")) && ($title = preg_replace("/[^-._\w\d]+/", "_", substr(substr($orig_name, strrpos($title, "/")), 0, 20)))
    2592. 

  2592.       && ($title = '"'.$title.'"') || ($title="");
    2593. 

    2594. 

  2594.       if ($id) {
    2595. 

  2595.          echo<<<EOF
    2596. 

  2596. <html><head><title>File/Picture Upload</title><script type="text/javascript"><!--
    2597. 

  2597.  opener.document.forms["ewiki"].elements["content"].value += "\\nUPLOADED PICTURE: [$id$title]\\n";
    2598. 

  2598.  window.setTimeout("self.close()", 5000);
    2599. 

  2599. //--></script></head><body bgcolor="#440707" text="#FFFFFF">Your uploaded file was saved as<br /><big><b>
    2600. 

  2600. [$id]
    2601. 

  2601. </b></big>.<br /><br /><noscript>Please copy this &uarr; into the text input box:<br />select/mark it with your mouse, press [Ctrl]+[Insert], go back<br />to the previous screen and paste it into the textbox by pressing<br />[Shift]+[Insert] inside there.</noscript></body></html>
    2602. 

  2602. EOF;
    2603. 

  2603.       }
    2604. 

  2604.    }
    2605. 

    2606. 

  2606.    #-- request for contents from the db
    2607. 

  2607.    elseif ($do == "get") {
    2608. 

  2608. #### CHANGED FOR MOODLE        
    2609. 

  2609.    if (EWIKI_HIT_COUNTING) {
    2610. 

  2610.       $tmp["id"]=$id;
    2611. 

  2611.       ewiki_database("HIT", $tmp);
    2612. 

  2612.    }
    2613. 

  2613. #### CHANGED FOR MOODLE        
    2614. 

    2615. 

  2615.       #-- send http_headers from meta
    2616. 

  2616.       if (is_array($data["meta"])) {
    2617. 

  2617.          foreach ($data["meta"] as $hdr=>$val) {
    2618. 

  2618.             if (($hdr[0] >= "A") && ($hdr[0] <= "Z")) {
    2619. 

  2619.                header("$hdr: $val");
    2620. 

  2620.             }
    2621. 

  2621.          }
    2622. 

  2622.       }
    2623. 

    2624. 

  2624.       #-- fetch from binary store
    2625. 

  2625.       if ($pf_a = $ewiki_plugins["binary_get"]) {
    2626. 

  2626. #### CHANGED FOR MOODLE        
    2627. 

  2627.         foreach ($pf_a as $pf) { $pf($id, $data["meta"]); }
    2628. 

    2629. 

  2629. #### END CHANGED FOR MOODLE        
    2630. 

  2630.       }
    2631. 

    2632. 

  2632.       #-- else fpassthru
    2633. 

  2633.       echo $data["content"];
    2634. 

  2634.    }
    2635. 

    2636. 

  2636.    #-- fetch & cache requested URL,
    2637. 

  2637.    elseif ($do == "cache") {
    2638. 

    2639. 

  2639.       #-- check for standard protocol names, to prevent us from serving
    2640. 

  2640.       #   evil requests for '/etc/passwd.jpeg' or '../.htaccess.gif'
    2641. 

  2641.       if (preg_match('@^\w?(http|ftp|https|ftps|sftp)\w?://@', $id)) {
    2642. 

    2643. 

  2643.          #-- generate local copy
    2644. 

  2644.          $filename = tempnam(EWIKI_TMP, "ewiki.local.temp.");
    2645. 

  2645.          if (($i = fopen($id, "rb")) && ($o = fopen($filename, "wb"))) {
    2646. 

    2647. 

  2647.             while (!feof($i)) {
    2648. 

  2648.                fwrite($o, fread($i, 65536));
    2649. 

  2649.             }
    2650. 

    2651. 

  2651.             fclose($i);
    2652. 

  2652.             fclose($o);
    2653. 

    2654. 

  2654.             $add_meta = array(
    2655. 

  2655.                "Content-Location" => urlencode($id),
    2656. 

  2656.                "Content-Disposition" => 'inline; filename="'.urlencode(basename($id)).'"'
    2657. 

  2657.             );
    2658. 

    2659. 

  2659.             $result = ewiki_binary_save_image($filename, $id, "RETURN", $add_meta);
    2660. 

  2660.          }
    2661. 

  2661.       }      
    2662. 

    2663. 

  2663.       #-- deliver
    2664. 

  2664.       if ($result && !$break) {
    2665. 

  2665.          ewiki_binary($break=1);
    2666. 

  2666.       }
    2667. 

  2667.       #-- mark URL as unavailable
    2668. 

  2668.       else {
    2669. 

  2669.          $data = array(
    2670. 

  2670.             "id" => $id,
    2671. 

  2671.             "version" => 1, 
    2672. 

  2672.             "flags" => EWIKI_DB_F_DISABLED,
    2673. 

  2673.             "lastmodified" => time(),
    2674. 

  2674.             "created" => time(),
    2675. 

  2675.             "author" => ewiki_author("ewiki_binary_cache"),
    2676. 

  2676.             "userid" => $USER->id,
    2677. 

  2677.             "content" => "",
    2678. 

  2678.             "meta" => array("Status"=>"404 Absent"),
    2679. 

  2679.          );
    2680. 

  2680.          ewiki_database("WRITE", $data);
    2681. 

  2681.          header("Location: $id");
    2682. 

  2682.          ewiki_log("imgcache: did not find '$id', and marked it now in database as DISABLED", 2);
    2683. 

  2683.       }
    2684. 

  2684.       
    2685. 

  2685.    }
    2686. 

    2687. 

  2687.    #-- "we don't sell this!"
    2688. 

  2688.    else {
    2689. 

  2689.       if (strpos($id, EWIKI_IDF_INTERNAL) === false) {
    2690. 

  2690.          header("Status: 301 Located SomeWhere Else");
    2691. 

  2691.          header("Location: $id");
    2692. 

  2692.       }
    2693. 

  2693.       else {
    2694. 

  2694.          header("Status: 404 Absent");
    2695. 

  2695.          header("X-Broken-URI: $id");
    2696. 

  2696.       }
    2697. 

  2697.    }
    2698. 

    2699. 

  2699.    // you should not remove this one, it is really a good idea to use it!
    2700. 

  2700.    die();
    2701. 

  2701. }
    2702. 

    2703. 

    2704. 

    2705. 

    2706. 

    2707. 

    2708. 

  2708. function ewiki_binary_save_image($filename, $id="", $return=0,
    2709. 

  2709. $add_meta=array(), $accept_all=EWIKI_ACCEPT_BINARY, $care_for_images=1)
    2710. 

  2710. {
    2711. 

  2711.    global $ewiki_plugins;
    2712. 

  2712.    global $USER;   // MOODLE
    2713. 

    2714. 

  2714.    #-- break on empty files
    2715. 

  2715.    if (!filesize($filename)) {
    2716. 

  2716.       return(false);
    2717. 

  2717.    }
    2718. 

    2719. 

  2719.    #-- check for image type and size
    2720. 

  2720.    $mime_types = array(
    2721. 

  2721.       "application/octet-stream",
    2722. 

  2722.       "image/gif",
    2723. 

  2723.       "image/jpeg",
    2724. 

  2724.       "image/png",
    2725. 

  2725.       "application/x-shockwave-flash"
    2726. 

  2726.    );
    2727. 

  2727.    $ext_types = array(
    2728. 

  2728.       "bin", "gif", "jpeg", "png", "swf"
    2729. 

  2729.    );
    2730. 

  2730.    list($width, $height, $mime_i, $uu) = getimagesize($filename);
    2731. 

  2731.    (!$mime_i) && ($mime_i=0) || ($mime = $mime_types[$mime_i]);
    2732. 

    2733. 

  2733.    #-- images expected
    2734. 

  2734.    if ($care_for_images) {
    2735. 

    2736. 

  2736.       #-- mime type
    2737. 

  2737.       if (!$mime_i && !$accept_all || !filesize($filename)) {
    2738. 

  2738.          ewiki_die(ewiki_t("BIN_NOIMG"), $return);
    2739. 

  2739.          return;
    2740. 

  2740.       }
    2741. 

    2742. 

  2742.       #-- resize image
    2743. 

  2743.       if (strpos($mime,"image/")!==false) {
    2744. 

  2744.       if ($pf_a = $ewiki_plugins["image_resize"]) {
    2745. 

  2745.       foreach ($pf_a as $pf) {
    2746. 

  2746.       if (EWIKI_IMAGE_RESIZE && (filesize($filename) > EWIKI_IMAGE_MAXSIZE)) {
    2747. 

  2747.          $pf($filename, $mime, $return);
    2748. 

  2748.          clearstatcache();
    2749. 

  2749.       }}}}
    2750. 

    2751. 

  2751.       #-- reject image if too large
    2752. 

  2752.       if (strlen($content) > EWIKI_IMAGE_MAXSIZE) {
    2753. 

  2753.          ewiki_die(ewiki_t("BIN_IMGTOOLARGE"), $return);
    2754. 

  2754.          return;
    2755. 

  2755.       }
    2756. 

    2757. 

  2757.       #-- again check mime type and image sizes
    2758. 

  2758.       list($width, $height, $mime_i, $uu) = getimagesize($filename);
    2759. 

  2759.       (!$mime_i) && ($mime_i=0) || ($mime = $mime_types[$mime_i]);
    2760. 

    2761. 

  2761.    }
    2762. 

  2762.    ($ext = $ext_types[$mime_i]) or ($ext = $ext_types[0]);
    2763. 

    2764. 

  2764.    #-- binary files
    2765. 

  2765.    if ((!$mime_i) && ($pf = $ewiki_plugins["mime_magic"][0])) {
    2766. 

  2766.       if ($tmp = $pf($content)) {
    2767. 

  2767.          $mime = $tmp;
    2768. 

  2768.       }
    2769. 

  2769.    }
    2770. 

  2770.    if (!strlen($mime)) {
    2771. 

  2771.       $mime = $mime_types[0];
    2772. 

  2772.    }
    2773. 

    2774. 

  2774.    #-- store size of binary file
    2775. 

  2775.    $add_meta["size"] = filesize($filename);
    2776. 

  2776.    $content = "";
    2777. 

    2778. 

  2778.    #-- handler for (large/) binary content?
    2779. 

  2779.    if ($pf_a = $ewiki_plugins["binary_store"]) {
    2780. 

  2780.       foreach ($pf_a as $pf) {
    2781. 

  2781.          $pf($filename, $id, $add_meta, $ext);
    2782. 

  2782.       }
    2783. 

  2783.    }
    2784. 

    2785. 

  2785.    #-- read file into memory (2MB), to store it into the database
    2786. 

  2786.    if ($filename) {
    2787. 

  2787.       $f = fopen($filename, "rb");
    2788. 

  2788.       $content = fread($f, 1<<21);
    2789. 

  2789.       fclose($f);
    2790. 

  2790.    }
    2791. 

    2792. 

  2792.    #-- generate db file name
    2793. 

  2793.    if (empty($id)) {
    2794. 

  2794.       $md5sum = md5($content);
    2795. 

  2795.       $id = EWIKI_IDF_INTERNAL . $md5sum . ".$ext";
    2796. 

  2796.       ewiki_log("generated md5sum '$md5sum' from file content");
    2797. 

  2797.    }
    2798. 

    2799. 

  2799.    #-- prepare meta data
    2800. 

  2800.    $meta = @array_merge(array(
    2801. 

  2801.       "class" => $mime_i ? "image" : "file",
    2802. 

  2802.       "Content-Type" => $mime,
    2803. 

  2803.       "Pragma" => "cache",
    2804. 

  2804.    ), $add_meta);
    2805. 

  2805.    if ($mime_i) {
    2806. 

  2806.       $meta["width"] = $width;
    2807. 

  2807.       $meta["height"] = $height;
    2808. 

  2808.    }
    2809. 

    2810. 

  2810.    #-- database entry
    2811. 

  2811.    $data = array(
    2812. 

  2812.       "id" => $id,
    2813. 

  2813.       "version" => "1", 
    2814. 

  2814.       "author" => ewiki_author(),
    2815. 

  2815.       "userid" => $USER->id,
    2816. 

  2816.       "flags" => EWIKI_DB_F_BINARY | EWIKI_DB_F_READONLY,
    2817. 

  2817.       "created" => time(),
    2818. 

  2818.       "lastmodified" => time(),
    2819. 

  2819.       "meta" => &$meta,
    2820. 

  2820.       "content" => &$content,
    2821. 

  2821.    );
    2822. 

  2822.    
    2823. 

  2823.    #-- write if not exist
    2824. 

  2824.    $exists = ewiki_database("FIND", array($id));
    2825. 

  2825.    if (! $exists[$id] ) {
    2826. 

  2826.       $result = ewiki_database("WRITE", $data);
    2827. 

  2827.       ewiki_log("saving of '$id': " . ($result ? "ok" : "error"));
    2828. 

  2828.    }
    2829. 

  2829.    else {
    2830. 

  2830.       ewiki_log("binary_save_image: '$id' was already in the database", 2);
    2831. 

  2831.    }
    2832. 

    2833. 

  2833.    return($id);
    2834. 

  2834. }
    2835. 

    2836. 

    2837. 

    2838. 

    2839. 

  2839. # =========================================================================
    2840. 

    2841. 

    2842. 

  2842. ####     ####  ####   ########     ########
    2843. 

  2843. #####   #####  ####  ##########   ##########
    2844. 

  2844. ###### ######  ####  ####   ###   ####    ###
    2845. 

  2845. #############        ####        ####
    2846. 

  2846. #############  ####   ########   ####
    2847. 

  2847. #### ### ####  ####    ########  ####
    2848. 

  2848. ####  #  ####  ####        ####  ####
    2849. 

  2849. ####     ####  ####  ###   ####  ####    ###
    2850. 

  2850. ####     ####  ####  #########    ##########
    2851. 

  2851. ####     ####  ####   #######      ########
    2852. 

    2853. 

    2854. 

    2855. 

  2855. /* yes! it is not neccessary to annoy users with country flags, if the
    2856. 

  2856.    http already provides means to determine preferred languages!
    2857. 

  2857. */
    2858. 

  2858. function ewiki_localization() {
    2859. 

    2860. 

  2860.    global $ewiki_t, $ewiki_plugins;
    2861. 

    2862. 

  2862.    $deflangs = ','.@$_ENV["LANGUAGE"] . ','.@$_ENV["LANG"]
    2863. 

  2863.              . ",".EWIKI_DEFAULT_LANG . ",en,C";
    2864. 

    2865. 

  2865.    foreach (explode(",", @$_SERVER["HTTP_ACCEPT_LANGUAGE"].$deflangs) as $l) {
    2866. 

    2867. 

  2867.       $l = strtok($l, ";");
    2868. 

  2868.       $l = strtok($l, "-"); $l = strtok($l, "_"); $l = strtok($l, ".");
    2869. 

  2869.       $l = trim($l);
    2870. 

    2871. 

  2871.       $ewiki_t["languages"][] = strtolower($l);
    2872. 

  2872.    }
    2873. 

  2873. }
    2874. 

    2875. 

    2876. 

    2877. 

    2878. 

  2878. /* poor mans gettext, $repl is an array of string replacements to get
    2879. 

  2879.    applied to the fetched text chunk,
    2880. 

  2880.    "$const" is either an entry from $ewiki_t[] or a larger text block
    2881. 

  2881.    containing _{text} replacement braces of the form "_{...}"
    2882. 

  2882. */
    2883. 

  2883. function ewiki_t($const, $repl=array(), $pref_langs=array()) {
    2884. 

  2884.    ##### BEGIN MOODLE ADDITION #####
    2885. 

  2885.    $replacechars=array("." => "",
    2886. 

  2886.                        "," => "",
    2887. 

  2887.                        "!" => "",
    2888. 

  2888.                        ";" => "",
    2889. 

  2889.                        ":" => "",
    2890. 

  2890.                        "'" => "",
    2891. 

  2891.                        '"' => "",
    2892. 

  2892.                        "-" => "",
    2893. 

  2893.                        "_" => "",
    2894. 

  2894.                        " " => "",
    2895. 

  2895.                        "+" => "");
    2896. 

  2896.    
    2897. 

  2897.    $translation=get_string(strtolower(strtr($const,$replacechars)),"wiki",$repl);
    2898. 

  2898.    return $translation;
    2899. 

  2899.    ##### END MOODLE ADDITION #####
    2900. 

  2900.    
    2901. 

  2901. /*   global $ewiki_t;
    2902. 

    2903. 

  2903.    #-- use default language wishes
    2904. 

  2904.    if (empty($pref_langs)) {
    2905. 

  2905.       $pref_langs = $ewiki_t["languages"];
    2906. 

  2906.    }
    2907. 

    2908. 

  2908.    #-- large text snippet replaceing
    2909. 

  2909.    if (strpos($const, "_{") !== false) {
    2910. 

  2910.       while ( (($l=strpos($const,"_{")) || ($l===0)) && ($r=strpos($const,"}",$l)) ) {
    2911. 

  2911.          $const = substr($const, 0, $l)
    2912. 

  2912.                 . ewiki_t(substr($const, $l+2, $r-$l-2))
    2913. 

  2913.                 . substr($const,$r+1);
    2914. 

  2914.       }
    2915. 

  2915.    }
    2916. 

    2917. 

  2917.    #-- just one string
    2918. 

  2918.    else foreach ($pref_langs as $l) {
    2919. 

    2920. 

  2920.       if (is_string($r = @$ewiki_t[$l][$const]) || ($r = @$ewiki_t[$l][strtoupper($const)])) {
    2921. 

    2922. 

  2922.          foreach ($repl as $key=>$value) {
    2923. 

  2923.             if ($key[0] != '$') {
    2924. 

  2924.                $key = '$'.$key;
    2925. 

  2925.             }
    2926. 

  2926.             $r = str_replace($key, $value, $r);
    2927. 

  2927.          }
    2928. 

  2928.          return($r);
    2929. 

    2930. 

  2930.       }
    2931. 

  2931.    }
    2932. 

    2933. 

  2933.    return($const);*/
    2934. 

  2934. }
    2935. 

    2936. 

    2937. 

    2938. 

    2939. 

    2940. 

    2941. 

  2941. function ewiki_log($msg, $error_type=3) {
    2942. 

    2943. 

  2943.    if ((EWIKI_LOGLEVEL >= 0) && ($error_type <= EWIKI_LOGLEVEL)) {
    2944. 

    2945. 

  2945.       $msg = time() . " - " .
    2946. 

  2946.              getremoteaddr() . ":" . $_SERVER["REMOTE_PORT"] . " - " .
    2947. 

  2947.              $_SERVER["REQUEST_METHOD"] . " " . $_SERVER["REQUEST_URI"] . " - " .
    2948. 

  2948.              strtr($msg, "\n\r\000\377\t\f", "\r\r\r\r\t\f") . "\n";
    2949. 

  2949.       error_log($msg, 3, EWIKI_LOGFILE);
    2950. 

  2950.    }
    2951. 

  2951. }
    2952. 

    2953. 

    2954. 

    2955. 

    2956. 

  2956. function ewiki_die($msg, $return=0) {
    2957. 

  2957.    ewiki_log($msg, 1);
    2958. 

  2958.    if ($return) {
    2959. 

  2959.       return($GLOBALS["ewiki_error"] = $msg);
    2960. 

  2960.    }
    2961. 

  2961.    else {
    2962. 

  2962.       die($msg);
    2963. 

  2963.    }
    2964. 

  2964. }
    2965. 

    2966. 

    2967. 

    2968. 

  2968. function ewiki_array_hash(&$a) {
    2969. 

  2969.    return(count($a) . ":" . implode(":", array_keys(array_slice($a, 0, 3))));
    2970. 

  2970. }
    2971. 

    2972. 

    2973. 

    2974. 

  2974. /* provides an case-insensitive in_array replacement to search a page name
    2975. 

  2975.    in a list of others;
    2976. 

  2976.    the supplied $array WILL be lowercased afterwards, unless $dn was set
    2977. 

  2977. */
    2978. 

  2978. function ewiki_in_array($value, &$array, $dn=0, $ci=EWIKI_CASE_INSENSITIVE) {
    2979. 

    2980. 

  2980.    static $as = array();
    2981. 

    2982. 

  2982.    #-- work around pass-by-reference
    2983. 

  2983.    if ($dn && $ci) {   $dest = array();   }
    2984. 

  2984.               else {   $dest = &$array;   }
    2985. 

    2986. 

  2986.    #-- make everything lowercase
    2987. 

  2987.    if ($ci) {
    2988. 

  2988.       $value = strtolower($value);
    2989. 

  2989.       if (empty($as[ewiki_array_hash($array)])) {  // prevent working on the
    2990. 

  2990.          foreach ($array as $i=>$v) {              // same array multiple times
    2991. 

  2991.             $dest[$i] = strtolower($v);
    2992. 

  2992.          }
    2993. 

  2993.          $as[ewiki_array_hash($dest)] = 1;
    2994. 

  2994.       }
    2995. 

  2995.    }
    2996. 

    2997. 

  2997.    #-- search in values
    2998. 

  2998.    return(in_array($value, $dest));
    2999. 

  2999. }
    3000. 

    3001. 

    3002. 

    3003. 

  3003. /* case-insensitively retrieves an entry from an $array,
    3004. 

  3004.    or returns the given $array lowercased if $key was obmitted
    3005. 

  3005. */
    3006. 

  3006. function ewiki_array($array, $key=false, $am=1, $ci=EWIKI_CASE_INSENSITIVE) {
    3007. 

    3008. 

  3008.    #-- make everything lowercase
    3009. 

  3009.    if ($ci) {
    3010. 

  3010.       $key = strtolower($key);
    3011. 

    3012. 

  3012.       $r = array();
    3013. 

  3013.       foreach ($array as $i=>$v) {
    3014. 

  3014.          $i = strtolower($i);
    3015. 

  3015.          if (!$am || empty($r[$i])) {
    3016. 

  3016.             $r[$i] = $v;
    3017. 

  3017.          }
    3018. 

  3018.          else {
    3019. 

  3019.             $r[$i] .= $v;   //RET: doubling for images`meta won't happen
    3020. 

  3020.          }          // but should be "+" here for integers
    3021. 

  3021.       }
    3022. 

  3022.       $array = &$r;
    3023. 

  3023.    }
    3024. 

  3024. 

  3025.    #-- search in values
    3026. 

  3026.    if ($key) {
    3027. 

  3027.       return(@$array[$key]);
    3028. 

  3028.    }
    3029. 

  3029.    else {
    3030. 

  3030.       return($array);
    3031. 

  3031.    }
    3032. 

  3032. }
    3033. 

  3033. 

  3034. 

  3035. 

  3036. 

  3037. 

  3038. 

  3039. function ewiki_author($defstr="") {
    3040. 

  3040. 

  3041.    $author = @$GLOBALS["ewiki_author"];
    3042. 

  3042.    ($ip = getremoteaddr()) or ($ip = "127.0.0.0");
    3043. 

  3043.    ($port = $_SERVER["REMOTE_PORT"]) or ($port = "null");
    3044. 

  3044.    $hostname = $ip;
    3045. 

  3045.    $remote = (($ip != $hostname) ? $hostname . " " : "")
    3046. 

  3046.            . $ip . ":" . $port;
    3047. 

  3047. 

  3048.    (empty($author)) && (
    3049. 

  3049.       ($author = $defstr) ||
    3050. 

  3050.       ($author = $_SERVER["HTTP_FROM"]) ||  // RFC2068 sect 14.22
    3051. 

  3051.       ($author = $_SERVER["PHP_AUTH_USER"])
    3052. 

  3052.    );
    3053. 

  3053. 

  3054.    (empty($author))
    3055. 

  3055.       && ($author = $remote)
    3056. 

  3056.       || ($author = addslashes($author) . " (" . $remote . ")" );
    3057. 

  3057. 

  3058.    return($author);
    3059. 

  3059. }
    3060. 

  3060. 

  3061. 

  3062. 

  3063. 

  3064. 

  3065. /*  Returns a value of (true) if the currently logged in user (this must
    3066. 

  3066.     be handled by one of the plugin backends) is authenticated to do the
    3067. 

  3067.     current $action, or to view the current $id page.
    3068. 

  3068.   - alternatively just checks current authentication $ring permission level
    3069. 

  3069.   - errors are returned via the global $ewiki_errmsg
    3070. 

  3070. */
    3071. 

  3071. function ewiki_auth($id, &$data, $action, $ring=false, $request_auth=0) {
    3072. 

  3072. 

  3073.    global $ewiki_plugins, $ewiki_ring, $ewiki_author, $ewiki_errmsg;
    3074. 

  3074.    $ok = true;
    3075. 

  3075.    $ewiki_errmsg="";
    3076. 

  3076. 

  3077. #echo "_a($id,dat,$action,$ring,$request_auth)<br />\n";
    3078. 

  3078. 

  3079.    if (EWIKI_PROTECTED_MODE) {
    3080. 

  3080.  
    3081. 

  3081.       #-- set required vars
    3082. 

  3082.       if (!isset($ewiki_ring)) {
    3083. 

  3083.          $ewiki_ring = (int)EWIKI_AUTH_DEFAULT_RING;
    3084. 

  3084.       }
    3085. 

  3085.       if ($ring===false) {
    3086. 

  3086.          $ring = NULL;
    3087. 

  3087.       }
    3088. 

  3088. 

  3089.       #-- plugins to call
    3090. 

  3090.       $pf_login = @$ewiki_plugins["auth_query"][0];
    3091. 

  3091.       $pf_perm = $ewiki_plugins["auth_perm"][0];
    3092. 

  3092. 

  3093.       #-- nobody is currently logged in, so try to fetch username,
    3094. 

  3094.       #   the login <form> is not yet enforced
    3095. 

  3095.       if ($pf_login && empty($ewiki_auth_user)) {
    3096. 

  3096.          $pf_login($data, 0);
    3097. 

  3097.       }
    3098. 

  3098. 

  3099.       #-- check permission for current request (page/action/ring)
    3100. 

  3100.       if ($pf_perm) {
    3101. 

  3101. 

  3102.          #-- via _auth handler
    3103. 

  3103.          $ok = $pf_perm($id, $data, $action, $ring, $request_auth);
    3104. 

  3104. 

  3105.          #-- if it failed, we really depend on the login <form>,
    3106. 

  3106.          #   and then recall the _perm plugin
    3107. 

  3107.          if ($pf_login && (($request_auth >= 2) || !$ok && $request_auth && (empty($ewiki_auth_user) || EWIKI_AUTO_LOGIN) && empty($ewiki_errmsg))) {
    3108. 

  3108. //@FIXME: complicated if()  - strip empty(errmsg) ??
    3109. 

  3109.             $pf_login($data, $request_auth);
    3110. 

  3110.             $ok = $pf_perm($id, $data, $action, $ring, $request_auth=0);
    3111. 

  3111.          }
    3112. 

  3112.       }
    3113. 

  3113.       else {
    3114. 

  3114.          $ok = !isset($ring) || isset($ring) && ($ewiki_ring <= $ring);
    3115. 

  3115.       }
    3116. 

  3116. 

  3117.       #-- return error string
    3118. 

  3118.       if (!$ok && empty($ewiki_errmsg)) {
    3119. 

  3119.          $ewiki_errmsg = ewiki_t("FORBIDDEN");
    3120. 

  3120.       }
    3121. 

  3121.    }
    3122. 

  3122. 

  3123.    return($ok);
    3124. 

  3124. }
    3125. 

  3125. 

  3126. 

  3127. /*
    3128. 

  3128.    Queries all registered ["auth_userdb"] plugins for the given
    3129. 

  3129.    username, and compares password to against "db" value, sets
    3130. 

  3130.    $ewiki_ring and returns(true) if valid.
    3131. 

  3131. */
    3132. 

  3132. function ewiki_auth_user($username, $password) {
    3133. 

  3133.   global $ewiki_ring, $ewiki_errmsg, $ewiki_auth_user, $ewiki_plugins, $ewiki_author;
    3134. 

  3134. 

  3135.   if (empty($username)) {
    3136. 

  3136.      return(false);
    3137. 

  3137.   }
    3138. 

  3138.   if (($password[0] == "$") || (strlen($password) > 12)) {
    3139. 

  3139.      ewiki_log("_auth_userdb: password was transmitted in encoded form, or is just too long (login attemp for user '$username')", 2);
    3140. 

  3140.      return(false);
    3141. 

  3141.   }
    3142. 

  3142. 

  3143.   if ($pf_u = $ewiki_plugins["auth_userdb"])
    3144. 

  3144.   foreach ($pf_u as $pf) {
    3145. 

  3145. 

  3146.      if (function_exists($pf) && ($entry = $pf($username, $password))) {
    3147. 

  3147. 

  3148.         #-- get and compare password
    3149. 

  3149.         if ($entry = (array) $entry) {
    3150. 

  3150.            $enc_pw = $entry[0];
    3151. 

  3151.         }
    3152. 

  3152.         $success = false
    3153. 

  3153.                 || ($enc_pw == substr($password, 0, 12))
    3154. 

  3154.                 || ($enc_pw == md5($password))
    3155. 

  3155.                 || ($enc_pw == crypt($password, substr($enc_pw, 0, 2)))
    3156. 

  3156.                 || function_exists("sha1") && ($enc_pw == sha1($password));
    3157. 

  3157.         $success &= $enc_pw != "*";
    3158. 

  3158. 

  3159.         #-- return if it matches
    3160. 

  3160.         if ($success) {
    3161. 

  3161.            if (isset($entry[1])) { 
    3162. 

  3162.               $ewiki_ring = (int)($entry[1]);
    3163. 

  3163.            } else {
    3164. 

  3164.               $ewiki_ring = 2;  //(EWIKI_AUTH_DEFAULT_RING - 1);
    3165. 

  3165.            }
    3166. 

  3166.            if (empty($ewiki_author)) {
    3167. 

  3167.               ($ewiki_author = $entry[2]) or
    3168. 

  3168.               ($ewiki_author = $username);
    3169. 

  3169.            }
    3170. 

  3170.            return($success && ($ewiki_auth_user=$username));
    3171. 

  3171.         }
    3172. 

  3172.      }
    3173. 

  3173.   }
    3174. 

  3174. 

  3175.   if ($username || $password) {
    3176. 

  3176.      ewiki_log("_auth_userdb: wrong password supplied for user '$username', not verified against any userdb", 3);
    3177. 

  3177.      $ewiki_errmsg = "wrong username and/or password";
    3178. 

  3178. #     ewiki_auth($uu, $uu, $uu, $uu, 2);
    3179. 

  3179.   }
    3180. 

  3180.   return(false);
    3181. 

  3181. }
    3182. 

  3182. 

  3183. 

  3184. 

  3185. 

  3186. 

  3187. /*  reads all files from "./init-pages/" into the database,
    3188. 

  3188.     when ewiki is run for the very first time and the FrontPage
    3189. 

  3189.     does not yet exist in the database
    3190. 

  3190. */
    3191. 

  3191. function ewiki_eventually_initialize(&$id, &$data, &$action) {
    3192. 

  3192. 

  3193.    global $USER;
    3194. 

  3194. 

  3195.    #-- initialize database only if frontpage missing
    3196. 

  3196.    if (($id==EWIKI_PAGE_INDEX) && ($action=="edit") && empty($data["version"])) {
    3197. 

  3197. 

  3198.       ewiki_database("INIT", array());
    3199. 

  3199. #### BEGIN MOODLE CHANGE
    3200. 

  3200.       $path=EWIKI_INIT_PAGES;
    3201. 

  3201.       if (!empty($path)) {
    3202. 

  3202.         if ($dh = @opendir($path=EWIKI_INIT_PAGES)) {
    3203. 

  3203.          while (false !== ($filename = readdir($dh))) {
    3204. 

  3204. #### MOODLE CHANGE TO SOLVE BUG #3830. Original doesn't support dots in names.
    3205. 

  3205.     //Orig->if (preg_match('/^(['.EWIKI_CHARS_U.']+['.EWIKI_CHARS_L.']+\w*)+/', $filename)) {
    3206. 

  3206.             if ($filename == clean_filename($filename) && !is_dir($path.'/'.$filename)) {
    3207. 

  3207. #### END OF MOODLE CHANGE TO SOLVE BUG #3830. Original doesn't support dots in names.
    3208. 

  3208.                $found = ewiki_database("FIND", array($filename));
    3209. 

  3209.                if (! $found[$filename]) {
    3210. 

  3210.                   $content = implode("", file("$path/$filename"));
    3211. 

  3211.                   ewiki_scan_wikiwords($content, $ewiki_links, "_STRIP_EMAIL=1");
    3212. 

  3212.                   $refs = "\n\n" . implode("\n", array_keys($ewiki_links)) . "\n\n";
    3213. 

  3213.                   $save = array(
    3214. 

  3214.                      "id" => "$filename",
    3215. 

  3215.                      "version" => "1",
    3216. 

  3216.                      "flags" => "1",
    3217. 

  3217.                      "content" => $content,
    3218. 

  3218.                      "author" => ewiki_author("ewiki_initialize"),
    3219. 

  3219.                      "userid" => $USER->id,
    3220. 

  3220.                      "refs" => $refs,
    3221. 

  3221.                      "lastmodified" => filemtime("$path/$filename"),
    3222. 

  3222.                      "created" => filectime("$path/$filename")   // (not exact)
    3223. 

  3223.                   );
    3224. 

  3224.                   ewiki_database("WRITE", $save);
    3225. 

  3225.                }
    3226. 

  3226.             }
    3227. 

  3227.          }
    3228. 

  3228.          closedir($dh);
    3229. 

  3229.         }
    3230. 

  3230.         else {
    3231. 

  3231.          echo "<b>ewiki error</b>: could not read from directory ". realpath($path) ."<br />\n";
    3232. 

  3232.         }
    3233. 

  3233.       }
    3234. 

  3234. #### END MOODLE CHANGE
    3235. 

  3235. 

  3236.       #-- try to view/ that newly inserted page
    3237. 

  3237.       if ($data = ewiki_database("GET", array("id"=>$id))) {
    3238. 

  3238.          $action = "view";
    3239. 

  3239.       }
    3240. 

  3240.    }
    3241. 

  3241. }
    3242. 

  3242. 

  3243. 

  3244. 

  3245. 

  3246. #---------------------------------------------------------------------------
    3247. 

  3247. 

  3248. 

  3249. 

  3250. ########     ###    ########    ###    ########     ###     ######  ########
    3251. 

  3251. ########     ###    ########    ###    ########     ###     ######  ########
    3252. 

  3252. ##     ##   ## ##      ##      ## ##   ##     ##   ## ##   ##    ## ##
    3253. 

  3253. ##     ##   ## ##      ##      ## ##   ##     ##   ## ##   ##    ## ##
    3254. 

  3254. ##     ##  ##   ##     ##     ##   ##  ##     ##  ##   ##  ##       ##
    3255. 

  3255. ##     ##  ##   ##     ##     ##   ##  ##     ##  ##   ##  ##       ##
    3256. 

  3256. ##     ## ##     ##    ##    ##     ## ########  ##     ##  ######  ######
    3257. 

  3257. ##     ## ##     ##    ##    ##     ## ########  ##     ##  ######  ######
    3258. 

  3258. ##     ## #########    ##    ######### ##     ## #########       ## ##
    3259. 

  3259. ##     ## #########    ##    ######### ##     ## #########       ## ##
    3260. 

  3260. ##     ## ##     ##    ##    ##     ## ##     ## ##     ## ##    ## ##
    3261. 

  3261. ##     ## ##     ##    ##    ##     ## ##     ## ##     ## ##    ## ##
    3262. 

  3262. ########  ##     ##    ##    ##     ## ########  ##     ##  ######  ########
    3263. 

  3263. ########  ##     ##    ##    ##     ## ########  ##     ##  ######  ########
    3264. 

  3264. 

  3265. 

  3266. 

  3267. 

  3268. /*  wrapper
    3269. 

  3269. */
    3270. 

  3270. function ewiki_database($action, $args, $sw1=0, $sw2=0, $pf=false) {
    3271. 

  3271. 

  3272.    #-- normalize (fetch bad parameters)
    3273. 

  3273.    if (($action=="GET") && !is_array($args) && is_string($args)) {   
    3274. 

  3274.       $args = array("id" => $args);
    3275. 

  3275.    }
    3276. 

  3276. 

  3277.    #-- treat special
    3278. 

  3278.    switch ($action) {
    3279. 

  3279. 

  3280.       case "GETALL":
    3281. 

  3281.          $args = array_unique(@array_merge($args, array("flags", "version")));
    3282. 

  3282.          $args = array_diff($args, array("id"));
    3283. 

  3283.          break;
    3284. 

  3284. 

  3285.       case "SEARCH":
    3286. 

  3286. #         unset($args["version"]);
    3287. 

  3287. #         unset($args["flags"]);
    3288. 

  3288.          break;
    3289. 

  3289. 

  3290.       default:
    3291. 

  3291.          break;
    3292. 

  3292.    }
    3293. 

  3293. 

  3294.    #-- handle {meta} sub array as needed
    3295. 

  3295.    if (is_array(@$args["meta"])) {
    3296. 

  3296.       $args["meta"] = serialize($args["meta"]);
    3297. 

  3297.    }
    3298. 

  3298. 

  3299.    #-- database plugin
    3300. 

  3300.    if (($pf) || ($pf = @$GLOBALS["ewiki_plugins"]["database"][0])) {
    3301. 

  3301.       $r = $pf($action, $args, $sw1, $sw2);
    3302. 

  3302.    }
    3303. 

  3303.    else {
    3304. 

  3304.       ewiki_log("DB layer: no backend!", 0);
    3305. 

  3305.       $r = false;
    3306. 

  3306.    }
    3307. 

  3307. 

  3308.    #-- database layer generation 2 abstraction
    3309. 

  3309.    if (is_array($r) && (($action=="SEARCH") || ($action=="GETALL"))) {
    3310. 

  3310.       $z = new ewiki_dbquery_result(array_keys($args));
    3311. 

  3311.       foreach ($r as $id=>$row) {
    3312. 

  3312.          $z->add($row);
    3313. 

  3313.       }
    3314. 

  3314.       $r = $z;
    3315. 

  3315.    }
    3316. 

  3316. 

  3317.    #-- extract {meta} sub array
    3318. 

  3318.    if (is_array($r) && !is_array(@$r["meta"]) && strlen(@$r["meta"])) {
    3319. 

  3319.       $r["meta"] = unserialize($r["meta"]);
    3320. 

  3320.    }
    3321. 

  3321. 

  3322.    return($r);
    3323. 

  3323. }
    3324. 

  3324. 

  3325. 

  3326. 

  3327. /*  returned for SEARCH and GETALL queries, as those operations are
    3328. 

  3328.     otherwise too memory exhaustive
    3329. 

  3329. */
    3330. 

  3330. class ewiki_dbquery_result {
    3331. 

  3331. 

  3332.    var $keys = array();
    3333. 

  3333.    var $entries = array();
    3334. 

  3334.    var $buffer = EWIKI_DBQUERY_BUFFER;
    3335. 

  3335.    var $size = 0;
    3336. 

  3336. 

  3337.    function ewiki_dbquery_result($keys) {
    3338. 

  3338.       $keys = @array_merge($keys, array(-50=>"id", "version", "flags"));
    3339. 

  3339.       $this->keys = array_unique($keys);
    3340. 

  3340.    }
    3341. 

  3341. 

  3342.    function add($row) {
    3343. 

  3343.       if (is_array($row)) {
    3344. 

  3344.          if ($this->buffer) {
    3345. 

  3345.             $this->size += strlen(serialize($row));
    3346. 

  3346.             $this->buffer = $this->size <= EWIKI_DBQUERY_BUFFER;
    3347. 

  3347.          }
    3348. 

  3348.          else {
    3349. 

  3349.             $row = $row["id"];
    3350. 

  3350.          }
    3351. 

  3351.       }
    3352. 

  3352.       $this->entries[] = $row;
    3353. 

  3353.    }
    3354. 

  3354. 

  3355.    function get($all=0, $flags=0x00) {
    3356. 

  3356.       $row = array();
    3357. 

  3357. 

  3358.       $prot_hide = ($flags&0x0020) && EWIKI_PROTECTED_MODE && EWIKI_PROTECTED_MODE_HIDING;
    3359. 

  3359.       do {
    3360. 

  3360.          if (count($this->entries)) {
    3361. 

  3361. 

  3362.             #-- fetch very first entry from $entries list
    3363. 

  3363.             $r = array_shift($this->entries);
    3364. 

  3364. 

  3365.             #-- finish if buffered entry
    3366. 

  3366.             if (is_array($r) && !$all) {
    3367. 

  3367.                $row = $r;
    3368. 

  3368.             }
    3369. 

  3369.             #-- else refetch complete entry from database
    3370. 

  3370.             else {
    3371. 

  3371.                if (is_array($r)) {
    3372. 

  3372.                   $r = $r["id"];
    3373. 

  3373.                }
    3374. 

  3374.                $r = ewiki_database("GET", array("id"=>$r));
    3375. 

  3375.                if (!$all) {
    3376. 

  3376.                   foreach ($this->keys as $key) {
    3377. 

  3377.                      $row[$key] = $r[$key];
    3378. 

  3378.                   }
    3379. 

  3379.                } else { 
    3380. 

  3380.                   $row = $r;
    3381. 

  3381.                }
    3382. 

  3382.             }
    3383. 

  3383.             unset($r);
    3384. 

  3384.          }
    3385. 

  3385.          else { 
    3386. 

  3386.             return(NULL);  // no more entries
    3387. 

  3387.          }
    3388. 

  3388. 

  3389.          #-- expand {meta} field
    3390. 

  3390.          if (is_array($row) && is_string(@$row["meta"])) {
    3391. 

  3391.             $row["meta"] = unserialize($row["meta"]);
    3392. 

  3392.          }
    3393. 

  3393. 

  3394.          #-- drop unwanted results
    3395. 

  3395.          if ($prot_hide && !ewiki_auth($row["id"], $row, $ewiki_action)) {
    3396. 

  3396.             $row = array();
    3397. 

  3397.          }
    3398. 

  3398.       } while ($prot_hide && empty($row));
    3399. 

  3399. 

  3400.       return($row);
    3401. 

  3401.    }
    3402. 

  3402. 

  3403.    function count() {
    3404. 

  3404.       return(count($this->entries));
    3405. 

  3405.    }
    3406. 

  3406. }
    3407. 

  3407. 

  3408. 

  3409. 

  3410. /*  MySQL database backend
    3411. 

  3411.     (default)
    3412. 

  3412.     Note: this is of course an abuse of the relational database scheme,
    3413. 

  3413.     but neccessary for real db independence and abstraction
    3414. 

  3414. */
    3415. 

  3415. function ewiki_database_mysql($action, &$args, $sw1, $sw2) {
    3416. 

  3416. 

  3417.    #-- reconnect to the database (if multiple are used)
    3418. 

  3418.    #<off>#  mysql_ping($GLOBALS["db"]);
    3419. 

  3419. 

  3420.    #-- result array
    3421. 

  3421.    $r = array();
    3422. 

  3422. 

  3423.    switch($action) {
    3424. 

  3424. 

  3425.       /*  Returns database entry as array for the page whose name was given
    3426. 

  3426.           with the "id" key in the $args array, usually fetches the latest
    3427. 

  3427.           version of a page, unless a specific "version" was requested in
    3428. 

  3428.           the $args array.
    3429. 

  3429.       */
    3430. 

  3430.       case "GET":
    3431. 

  3431.          $id = "'" . mysql_escape_string($args["id"]) . "'";
    3432. 

  3432.          ($version = 0 + @$args["version"]) and ($version = "AND (version=$version)") or ($version="");
    3433. 

  3433.          $result = mysql_query("SELECT * FROM " . EWIKI_DB_TABLE_NAME
    3434. 

  3434.             . " WHERE (pagename=$id) $version  ORDER BY version DESC  LIMIT 1"
    3435. 

  3435.          );
    3436. 

  3436.          if ($result && ($r = mysql_fetch_array($result, MYSQL_ASSOC))) {
    3437. 

  3437.             $r["id"] = $r["pagename"];
    3438. 

  3438.             unset($r["pagename"]);
    3439. 

  3439.          }
    3440. 

  3440.          if (strlen($r["meta"])) {
    3441. 

  3441.             $r["meta"] = @unserialize($r["meta"]);
    3442. 

  3442.          }
    3443. 

  3443.          break;
    3444. 

  3444. 

  3445. 

  3446. 

  3447.       /*  Increases the hit counter for the page name given in $args array
    3448. 

  3448.           with "id" index key.
    3449. 

  3449.       */
    3450. 

  3450.       case "HIT":
    3451. 

  3451.          mysql_query("UPDATE " . EWIKI_DB_TABLE_NAME . " SET hits=(hits+1) WHERE pagename='" . mysql_escape_string($args["id"]) . "'");
    3452. 

  3452.          break;
    3453. 

  3453. 

  3454. 

  3455. 

  3456.       /*  Stores the $data array into the database, while not overwriting
    3457. 

  3457.           existing entries (using WRITE); returns 0 on failure and 1 if
    3458. 

  3458.           saved correctly.
    3459. 

  3459.       */
    3460. 

  3460.       case "OVERWRITE":     // fall-through
    3461. 

  3461.          $COMMAND = "REPLACE";
    3462. 

  3462. 

  3463.       case "WRITE":
    3464. 

  3464.          $args["pagename"] = $args["id"];
    3465. 

  3465.          unset($args["id"]);
    3466. 

  3466. 

  3467.          if (is_array($args["meta"])) {
    3468. 

  3468.             $args["meta"] = serialize($args["meta"]);
    3469. 

  3469.          }
    3470. 

  3470. 

  3471.          $sql1 = $sql2 = "";
    3472. 

  3472.          foreach ($args as $index => $value) {
    3473. 

  3473.             if (is_int($index)) {
    3474. 

  3474.                continue;
    3475. 

  3475.             }
    3476. 

  3476.             $a = ($sql1 ? ', ' : '');
    3477. 

  3477.             $sql1 .= $a . $index;
    3478. 

  3478.             $sql2 .= $a . "'" . mysql_escape_string($value) . "'";
    3479. 

  3479.          }
    3480. 

  3480. 

  3481.          strlen(@$COMMAND) || ($COMMAND = "INSERT");
    3482. 

  3482. 

  3483.          $result = mysql_query("$COMMAND INTO " . EWIKI_DB_TABLE_NAME .
    3484. 

  3484.             " (" . $sql1 . ") VALUES (" . $sql2 . ")"
    3485. 

  3485.          );
    3486. 

  3486. 

  3487.          return($result && mysql_affected_rows() ?1:0);
    3488. 

  3488.          break;
    3489. 

  3489. 

  3490. 

  3491. 

  3492.       /*  Checks for existence of the WikiPages whose names are given in
    3493. 

  3493.           the $args array. Returns an array with the specified WikiPageNames
    3494. 

  3494.           associated with values of "0" or "1" (stating if the page exists
    3495. 

  3495.           in the database). For images/binary db entries returns the "meta"
    3496. 

  3496.           field instead of an "1".
    3497. 

  3497.       */
    3498. 

  3498.       case "FIND":
    3499. 

  3499.          $sql = "";
    3500. 

  3500.          foreach (array_values($args) as $id) if (strlen($id)) {
    3501. 

  3501.             $r[$id] = 0;
    3502. 

  3502.             $sql .= ($sql ? " OR " : "") .
    3503. 

  3503.                     "(pagename='" . mysql_escape_string($id) . "')";
    3504. 

  3504.          }
    3505. 

  3505.          $result = mysql_query($sql = "SELECT pagename AS id, meta FROM " .
    3506. 

  3506.             EWIKI_DB_TABLE_NAME . " WHERE $sql "
    3507. 

  3507.          );
    3508. 

  3508.          while ($result && ($row = mysql_fetch_row($result))) {
    3509. 

  3509.             $r[$row[0]] = strpos($row[1], 's:5:"image"') ? $row[1] : 1;
    3510. 

  3510.          }
    3511. 

  3511.          break;
    3512. 

  3512. 

  3513. 

  3514. 

  3515.       /*  Returns an array of __all__ pages, where each entry is made up
    3516. 

  3516.           of the fields from the database requested with the $args array,
    3517. 

  3517.           e.g. array("flags","meta","lastmodified");
    3518. 

  3518.       */
    3519. 

  3519.       case "GETALL":
    3520. 

  3520.          $result = mysql_query("SELECT pagename AS id, ".
    3521. 

  3521.             implode(", ", $args) .
    3522. 

  3522.             " FROM ". EWIKI_DB_TABLE_NAME .
    3523. 

  3523.             " GROUP BY id, version DESC"
    3524. 

  3524.          );
    3525. 

  3525.          $r = new ewiki_dbquery_result($args);
    3526. 

  3526.          $drop = "";
    3527. 

  3527.          while ($result && ($row = mysql_fetch_array($result, MYSQL_ASSOC))) {
    3528. 

  3528.             $i = EWIKI_CASE_INSENSITIVE ? strtolower($row["id"]) : $row["id"];
    3529. 

  3529.             if ($i != $drop) {
    3530. 

  3530.                $drop = $i;
    3531. 

  3531.                $r->add($row);
    3532. 

  3532.             }
    3533. 

  3533.          }
    3534. 

  3534.          break;
    3535. 

  3535. 

  3536. 

  3537. 

  3538.       /*  Returns array of database entries (also arrays), where the one
    3539. 

  3539.           specified column matches the specified content string, for example
    3540. 

  3540.           $args = array("content" => "text...piece")
    3541. 

  3541.           is not guaranteed to only search/return the latest version of a page
    3542. 

  3542.       */
    3543. 

  3543.       case "SEARCH":
    3544. 

  3544.          $field = implode("", array_keys($args));
    3545. 

  3545.          $content = strtolower(implode("", $args));
    3546. 

  3546.          if ($field == "id") { $field = "pagename"; }
    3547. 

  3547. 

  3548.          $result = mysql_query("SELECT pagename AS id, version, flags" .
    3549. 

  3549.             (EWIKI_DBQUERY_BUFFER && ($field!="pagename") ? ", $field" : "") .
    3550. 

  3550.             " FROM " . EWIKI_DB_TABLE_NAME .
    3551. 

  3551.             " WHERE LOCATE('" . mysql_escape_string($content) . "', LCASE($field)) " .
    3552. 

  3552.             " GROUP BY id, version DESC"
    3553. 

  3553.          );
    3554. 

  3554.          $r = new ewiki_dbquery_result(array("id","version",$field));
    3555. 

  3555.          $drop = "";
    3556. 

  3556.          while ($result && ($row = mysql_fetch_array($result, MYSQL_ASSOC))) {
    3557. 

  3557.             $i = EWIKI_CASE_INSENSITIVE ? strtolower($row["id"]) : $row["id"];
    3558. 

  3558.             if ($i != $drop) {
    3559. 

  3559.                $drop = $i;
    3560. 

  3560.                $r->add($row);
    3561. 

  3561.             }
    3562. 

  3562.          }
    3563. 

  3563.          break;
    3564. 

  3564. 

  3565. 

  3566. 

  3567.       case "DELETE":
    3568. 

  3568.          $id = mysql_escape_string($args["id"]);
    3569. 

  3569.          $version = $args["version"];
    3570. 

  3570.          mysql_query("DELETE FROM " . EWIKI_DB_TABLE_NAME ."
    3571. 

  3571.             WHERE pagename='$id' AND version=$version");
    3572. 

  3572.          break;
    3573. 

  3573. 

  3574. 

  3575. 

  3576.       case "INIT":
    3577. 

  3577.          mysql_query("CREATE TABLE " . EWIKI_DB_TABLE_NAME ."
    3578. 

  3578.             (pagename VARCHAR(160) NOT NULL,
    3579. 

  3579.             version INTEGER UNSIGNED NOT NULL DEFAULT 0,
    3580. 

  3580.             flags INTEGER UNSIGNED DEFAULT 0,
    3581. 

  3581.             content MEDIUMTEXT,
    3582. 

  3582.             author VARCHAR(100) DEFAULT 'ewiki',
    3583. 

  3583.             userid INTEGER UNSIGNED DEFAULT 0,
    3584. 

  3584.             created INTEGER UNSIGNED DEFAULT ".time().",
    3585. 

  3585.             lastmodified INTEGER UNSIGNED DEFAULT 0,
    3586. 

  3586.             refs MEDIUMTEXT,
    3587. 

  3587.             meta MEDIUMTEXT,
    3588. 

  3588.             hits INTEGER UNSIGNED DEFAULT 0,
    3589. 

  3589.             PRIMARY KEY id (pagename, version) )
    3590. 

  3590.             ");
    3591. 

  3591.          echo mysql_error();
    3592. 

  3592.          break;
    3593. 

  3593. 

  3594.       default:
    3595. 

  3595.    }
    3596. 

  3596. 

  3597.    return($r);
    3598. 

  3598. }
    3599. 

  3599. 

  3600. ?>
    3601. 

  3601.