Home Explore Help
Sign In
OSInet
/
phpgtk__legacy
2
0
Fork 0
Files Pull Requests 0
Branch: master
Branches Tags
phpgtk__legacy
/
wiki1
/
pmwiki.php

pmwiki.php 46 KB
Permalink History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212 
  1. <?php
    2. 

  2. /*
    3. 

  3.     PmWiki
    4. 

  4.     Copyright 2001-2004 Patrick R. Michaud 
    5. 

  5.     pmichaud@pobox.com
    6. 

  6.     http://www.pmichaud.com/
    7. 

  7. 

  8.     This program is free software; you can redistribute it and/or modify
    9. 

  9.     it under the terms of the GNU General Public License as published by
    10. 

  10.     the Free Software Foundation; either version 2 of the License, or
    11. 

  11.     (at your option) any later version.
    12. 

  12. 

  13.     This program is distributed in the hope that it will be useful,
    14. 

  14.     but WITHOUT ANY WARRANTY; without even the implied warranty of
    15. 

  15.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    16. 

  16.     GNU General Public License for more details.
    17. 

  17. 

  18.     You should have received a copy of the GNU General Public License
    19. 

  19.     along with this program; if not, write to the Free Software
    20. 

  20.     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
    21. 

  21. */
    22. 

  22. 

  23. if (ini_get('register_globals')) {
    24. 

  24.   foreach($_REQUEST as $k=>$v) { unset(${$k}); }
    25. 

  25. }
    26. 

  26. $UnsafeGlobals = array_keys($GLOBALS);
    27. 

  27. SDV($FarmD,dirname(__FILE__));
    28. 

  28. define('PmWiki',1);
    29. 

  29. @include_once("$FarmD/scripts/version.php");
    30. 

  30. $WikiTitle = "PmWiki";
    31. 

  31. $DefaultGroup = "Main";
    32. 

  32. $DefaultTitle = "HomePage";
    33. 

  33. $ScriptUrl = 'http://'.htmlspecialchars($_SERVER['HTTP_HOST']);
    34. 

  34. $ScriptUrl .= htmlspecialchars($_SERVER['SCRIPT_NAME']);
    35. 

  35. $PubDirUrl = preg_replace("#/[^/]*\$#","/pub",$ScriptUrl,1);
    36. 

  36. $DiffKeepDays = 3650;
    37. 

  37. $WikiDir = "wiki.d";
    38. 

  38. $WikiLibDirs = array(&$WikiDir,"$FarmD/wikilib.d");
    39. 

  39. $DeleteKeyWord = "delete";
    40. 

  40. $RedirectDelay = 0;
    41. 

  41. $AuthFunction = 'BasicAuth';
    42. 

  42. $AsSpacedFunction = 'AsSpaced';
    43. 

  43. $AllowPassword = 'nopass';
    44. 

  44. $DiffFunction = 'Diff';
    45. 

  45. $SysDiffCmd = '/usr/bin/diff';
    46. 

  46. $PatchFunction = 'Patch';
    47. 

  47. $DefaultPasswords = array('admin'=>'*','attr'=>'','edit'=>'','read'=>'');
    48. 

  48. $AuthRealmFmt = '$WikiTitle';
    49. 

  49. $AuthDeniedFmt = 'A valid password is required to access this feature.';
    50. 

  50. $DefaultPageTextFmt = '$[Describe $Tlink here.]';
    51. 

  51. $PageRedirectFmt = "<i>($[redirected from] <a href='\$PageUrl?action=edit'>\$PageName</a>)</i><p />\n";
    52. 

  52. $IncludeBadAnchorFmt = "include:\$Group.\$Tlink - #\$BadAnchor \$[not found]\n";
    53. 

  53. $PageEditFmt=array("
    54. 

  54.   <div id='wikiedit'>
    55. 

  55.   <a id='top' name='top'></a><h1 class='wikiaction'>$[Editing \$PageName]</h1>
    56. 

  56.   <form name = 'editform' action='\$PageUrl' onSubmit = 'return check_post();' method='post'>
    57. 

  57.   <input type='hidden' name='pagename' value='\$PageName' />
    58. 

  58.   <input type='hidden' name='action' value='edit' />
    59. 

  59.   \$EditMessageFmt
    60. 

  60.   <textarea name='text' rows='25' cols='60'
    61. 

  61.     onkeydown='if (event.keyCode == 27) event.returnValue=false;'
    62. 

  62.     >\$Text</textarea><br />
    63. 

  63.   $[Author]: <input type='text' name='author' value='\$Author' />
    64. 

  64.   <input type='checkbox' name='diffclass' value='minor' \$DiffClassMinor />
    65. 

  65.     $[This is a minor edit]<br />
    66. 

  66.   <input type='submit' name='post' value=' $[Save] ' />
    67. 

  67.   <input type='submit' name='preview' value=' $[Preview] ' />
    68. 

  68.   <input type='reset' value=' $[Reset] ' />
    69. 

  69.   </form></div>",'wiki:$[PmWiki.EditQuickReference]');
    70. 

  70. $EditMessageFmt='';
    71. 

  71. $PagePreviewFmt=array(
    72. 

  72.   "function:ProcessTextDirectives",
    73. 

  73.   "<h2 class='wikiaction'>Preview \$PageName</h2>
    74. 

  74.     <b>Page is unsaved</b><hr /><p></p>",
    75. 

  75.   "function:PrintText",
    76. 

  76.   "<hr /><b>End of preview -- remember to save</b>
    77. 

  77.    <br /><a href='#top'>$[Top]</a>");
    78. 

  78. $PageAttrFmt="<h1 class='wikiaction'>$[\$PageName Attributes]</h1>
    79. 

  79.   <p>Enter new attributes for this page below.  Leaving a field blank
    80. 

  80.   will leave the attribute unchanged.  To clear an attribute, enter
    81. 

  81.   'clear'.</p>";
    82. 

  82. 

  83. $GroupHeaderFmt = '$Group.GroupHeader';
    84. 

  84. $GroupFooterFmt = '$Group.GroupFooter';
    85. 

  85. $GroupAttributesFmt = '$Group.GroupAttributes';
    86. 

  86. $TimeFmt = "%B %d, %Y, at %I:%M %p";
    87. 

  87. $SpaceWikiWordsString = ' ';
    88. 

  88. $PageNameFmt = '$Group.$Title_';
    89. 

  89. $PageFileFmt = '$PageName';
    90. 

  90. $PageUrlFmt = '$ScriptUrl/$Group/$Title_';
    91. 

  91. $HTTPHeaders=array(
    92. 

  92.   "Expires: Tue, 01 Jan 2002 00:00:00 GMT",
    93. 

  93.   "Last-Modified: ".gmstrftime('%a, %d %b %Y %H:%M:%S GMT'),
    94. 

  94.   "Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0",
    95. 

  95.   "Pragma: no-cache",
    96. 

  96.   "Content-Type: text/html; charset=iso-8859-1;");
    97. 

  97. $HTMLDoctypeFmt = 
    98. 

  98.   "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" 
    99. 

  99.     \"http://www.w3.org/TR/html40/loose.dtd\">
    100. 

  100. <html><head>\n";
    101. 

  101. $HTMLTitleFmt = "  <title>\$WikiTitle - \$HTMLTitle</title>\n";
    102. 

  102. $HTMLHeaders = <<<EOT
    103. 

  103. <SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
    104. 

  104. <!--
    105. 

  105. function check_post() {
    106. 

  106. 

  107. 	var namevalue = document.editform.author.value;
    108. 

  108. 	var textvalue = document.editform.text.value;
    109. 

  109. 	var uc = /[A-Z]/;
    110. 

  110. 	var i, x = 0;
    111. 

  111. 

  112. 	/* 'Describe ' opens an unedited page. Nobody should be leaving that in
    113. 

  113. 		place if they're performing a genuine page edit... */
    114. 

  114. 	if (textvalue.substr(0, 9) == 'Describe ') {
    115. 

  115. 		window.alert('No editing appears to have taken place');
    116. 

  116. 		return false;
    117. 

  117. 	}
    118. 

  118. 	/* Randomly generated names are more likely to end in a capital letter */
    119. 

  119. 	if (uc.test(namevalue.substring(namevalue.length - 1))) {
    120. 

  120. 		return window.confirm('Please confirm that the name given is valid');
    121. 

  121. 	}
    122. 

  122. 

  123. 	/* Randomly generated names often exceed genuine use of capitalization */
    124. 

  124. 	for (i = 0; i < namevalue.length; i++) {
    125. 

  125. 		if (uc.test(namevalue.substring(i))) {
    126. 

  126. 			x++;
    127. 

  127. 			if (x > 3) {
    128. 

  128. 				return window.confirm('Please confirm that the name given is valid');
    129. 

  129. 			}
    130. 

  130. 		}
    131. 

  131. 	}
    132. 

  132. 

  133. 	return true;
    134. 

  134. }
    135. 

  135. //-->
    136. 

  136. </SCRIPT>
    137. 

  137. EOT;
    138. 

  138. $HTMLHeaderFmt = array(&$HTMLHeaders);
    139. 

  139. $HTMLBodyFmt = "</head>\n<body>";
    140. 

  140. $HTMLStartFmt = array('headers:',&$HTMLDoctypeFmt,&$HTMLHeaderFmt,
    141. 

  141.   &$HTMLTitleFmt,&$HTMLBodyFmt);
    142. 

  142. $HTMLEndFmt = "\n</body>\n</html>";
    143. 

  143. $PageStartFmt = array(&$HTMLStartFmt,"\n<div id='wikitext'>\n");
    144. 

  144. $PageEndFmt = array('</div>',&$HTMLEndFmt);
    145. 

  145. $HTMLVSpace = "<p></p>";
    146. 

  146. $HTMLLineBreak = '';
    147. 

  147. 

  148. $XLLangs = array('en');
    149. 

  149. 

  150. $FmtWikiLink = 'FmtWikiLink';
    151. 

  151. $FmtUrlLink = 'FmtUrlLink';
    152. 

  152. $WikiWordPagePathFmt = array('$Group.$1','$1.$1');
    153. 

  153. $WikiPageExistsFmt = "<a class='wikilink' href='\$PageUrl\$Fragment'>\$LinkText</a>";
    154. 

  154. $WikiPageCreateFmt = 
    155. 

  155.   "<span class='createlink'>\$LinkText</span><a class='createlink' href='\$PageUrl?action=edit'>?</a>";
    156. 

  156. $WikiWordCountMax = 1000000;
    157. 

  157. $WikiWordCount['PmWiki'] = 1;
    158. 

  158. $UrlLinkFmt = "<a class='urllink' href='\$Url'>\$LinkText</a>";
    159. 

  159. $UrlImgFmt = "<img src='\$Url' border='0' alt='' img>";
    160. 

  160. $GroupNamePattern="[[:upper:]][[:alnum:]]+";
    161. 

  161. $WikiWordPattern="[[:upper:]][[:alnum:]]*(?:[[:upper:]][[:lower:]0-9]|[[:lower:]0-9][[:upper:]])[[:alnum:]]*";
    162. 

  162. $GroupFreeLinkPattern="{{(?>(?:($GroupNamePattern)([.\\/]))?([[:alpha:]][[:alnum:]]*(?:(?:[\\s_]*|-)[[:alnum:]]+)*)(?:\\|((?:(?:[\\s_]*|-)[[:alnum:]])*))?)}}((?:-?[[:alnum:]]+)*)";                                         # deprecated 0.6
    163. 

  163. $FreeLinkPattern = $GroupFreeLinkPattern;
    164. 

  164. $FragmentPattern="#([A-Za-z][-.:\\w]*)";
    165. 

  165. $PageTitlePattern="[[:upper:]][[:alnum:]]*(?:-[[:alnum:]]+)*";
    166. 

  166. $UrlPathPattern="[^\\s<>[\\]\"\'()`|^]*[^\\s<>[\\]\"\'()`|^,.?]";
    167. 

  167. $UrlMethodPattern="http|ftp|news|file|gopher|nap|https";
    168. 

  168. $ImgExtPattern="\\.(gif|jpg|jpeg|png)";
    169. 

  169. $InterMapFiles=array("$FarmD/scripts/intermap.txt","$FarmD/local/farmmap.txt",
    170. 

  170.   'localmap.txt', 'local/localmap.txt');
    171. 

  171. $LinkPatterns=array();
    172. 

  172. 

  173. $PostFields = array('text');
    174. 

  174. $RCDelimPattern = ' \\. ';
    175. 

  175. $RecentChanges = array(
    176. 

  176.   'Main.AllRecentChanges'=>'* $Group.$Tlink . . . $CurrentTime by $AuthorLink',
    177. 

  177.   '$Group.RecentChanges'=>'* $Group/$Tlink . . . $CurrentTime by $AuthorLink');
    178. 

  178. $BrowseDirectives = array(
    179. 

  179.   '[[spacewikiwords]]' => '$GLOBALS["SpaceWikiWords"]=1;',
    180. 

  180.   '[[noheader]]' => '$GLOBALS["PageHeaderFmt"]="";',
    181. 

  181.   '[[notitle]]' => '$GLOBALS["PageTitleFmt"]="";',
    182. 

  182.   '[[nofooter]]' => '$GLOBALS["PageFooterFmt"]="";',
    183. 

  183.   '[[nogroupheader]]' => '', '[[nogroupfooter]]' => '');
    184. 

  184. $DoubleBrackets = array('[[$Group]]'=>'$Group', '[[$Title]]'=>'$Title',
    185. 

  185.   '[[$Groupspaced]]'=>'$Groupspaced','[[$Titlespaced]]'=>'$Titlespaced',
    186. 

  186.   '[[$Tlink]]'=>'$Tlink',
    187. 

  187.   '[[$LastModifiedBy]]'=>'$LastModifiedBy',
    188. 

  188.   '[[$LastModifiedHost]]'=>'$LastModifiedHost',
    189. 

  189.   '[[$LastModified]]'=>'$LastModified',
    190. 

  190.   '[[$Author]]'=>'$Author',
    191. 

  191.   '[[$Version]]'=>'$Version',
    192. 

  192.   '[[$DefaultGroup]]'=>'$DefaultGroup',
    193. 

  193.   '[[$Edit' => '[[$PageUrl?action=edit ',
    194. 

  194.   '[[$Diff' => '[[$PageUrl?action=diff ');
    195. 

  195. $InlineReplacements = array(
    196. 

  196.   "/'''''(.*?)'''''/" => "<em><strong>\$1</strong></em>",
    197. 

  197.   "/'''(.*?)'''/" => "<strong>\$1</strong>",
    198. 

  198.   "/''(.*?)''/" => "<em>\$1</em>",
    199. 

  199.   "/@@(.*?)@@/" => "<code>\$1</code>",
    200. 

  200.   "/\\[\\[&lt;&lt;\\]\\]/" => "<br clear='all' />",
    201. 

  201.   "/\\[(\\++)(.*?)\\1\\]/e" =>
    202. 

  202.     "'<span style=\'font-size:'.(round(pow(1.2,strlen('$1'))*100,0)).'%\'>'.str_replace('\\\"','\"','$2').'</span>'",
    203. 

  203.   "/\\[(-+)(.*?)\\1\\]/e" =>
    204. 

  204.     "'<span style=\'font-size:'.(round(pow(5/6,strlen('$1'))*100,0)).'%\'>'.str_replace('\\\"','\"','$2').'</span>'",
    205. 

  205.   "/^----+/" => "<hr />",
    206. 

  206.   "/&amp;([A-Za-z0-9]+;|#\d+;|#[xX][A-Fa-f0-9]+;)/" => "&\$1");
    207. 

  207. $PageAttributes = array(
    208. 

  208.   'passwdread' => '$[Set new read password:]',
    209. 

  209.   'passwdedit' => '$[Set new edit password:]',
    210. 

  210.   'passwdattr' => '$[Set new attribute password:]');
    211. 

  211. $HandleActions = array(
    212. 

  212.   'edit' => 'HandleEdit', 'post' => 'HandlePost',
    213. 

  213.   'attr' => 'HandleAttr', 'postattr' => 'HandlePostAttr',
    214. 

  214.   'source' => 'HandleSource');
    215. 

  215. $WikiStylePattern = '%%|%[A-Za-z][-,=:#\\w\\s]*%';
    216. 

  216. $WikiStyleTags = array(
    217. 

  217.   'color' => array( 'style' => 'color:$value; ', 
    218. 

  218.                     'a' => 'style=\'color:$value\' '), 
    219. 

  219.   'bgcolor' => array( 'style' => 'background-color:$value; '),
    220. 

  220.   'font-size' => array( 'style' => 'font-size:$value; '),
    221. 

  221.   'font-family' => array( 'style' => 'font-family:$value; '),
    222. 

  222.   'font-style' => array( 'style' => 'font-style:$value; '),
    223. 

  223.   'font-weight' => array( 'style' => 'font-weight:$value; '),
    224. 

  224.   'text-decoration' => array( 'style' => 'text-decoration:$value; '),
    225. 

  225.   'class' => array( 'class' => 'class=\'$value\''),
    226. 

  226.   'target' => array( 'a' => 'target=\'$value\' '),
    227. 

  227.   'rel' => array('a' => 'rel=\'$value\' '),
    228. 

  228.   'hspace' => array( 'img' => 'hspace=\'$value\' '),
    229. 

  229.   'vspace' => array( 'img' => 'vspace=\'$value\' '),
    230. 

  230.   'width' => array( 'img' => 'width=\'$value\' '),
    231. 

  231.   'height' => array( 'img' => 'height=\'$value\' ')
    232. 

  232. );
    233. 

  233. 

  234. $Now = time(); 
    235. 

  235. $MaxIncludes = 10;
    236. 

  236. $TableAttr = "";
    237. 

  237. $TableCellAttr = "valign='top'";
    238. 

  238. $Newline = "\262";
    239. 

  239. $KeepToken = "\263"; $KPCount=0;
    240. 

  240. $LinkToken = "\037"; 
    241. 

  241. $StyleToken = "\036";
    242. 

  242. $EnableStdConfig = 1;
    243. 

  243. 

  244. umask(is_writable($WikiDir) ? (fileperms($WikiDir)^0777) : 002);
    245. 

  245. if (setlocale(LC_ALL,0)=='C') setlocale(LC_ALL,'en_US');
    246. 

  246. 

  247. if (strpos(@$_SERVER['QUERY_STRING'],'?')!==false) { 
    248. 

  248.   unset($_GET); 
    249. 

  249.   parse_str(str_replace('?','&',$_SERVER['QUERY_STRING']),$_GET);
    250. 

  250. }
    251. 

  251. $gvars = array('pagename','action','text','restore','preview');
    252. 

  252. foreach($gvars as $v) {
    253. 

  253.   if (isset($_GET[$v])) $$v=$_GET[$v];
    254. 

  254.   elseif (isset($_POST[$v])) $$v=$_POST[$v];
    255. 

  255.   else $$v = '';
    256. 

  256. }
    257. 

  257. 

  258. SDV($EnablePathInfo,!preg_match("/^cgi/",php_sapi_name()));
    259. 

  259. if ($pagename=='' && $EnablePathInfo)
    260. 

  260.   $pagename = @substr(htmlspecialchars($_SERVER['PATH_INFO']),1);
    261. 

  261. if (preg_match('/[\\x80-\\xbf]/',$pagename)) $pagename=utf8_decode($pagename);
    262. 

  262. if ($action=='') $action='browse';
    263. 

  263. 

  264. error_reporting(E_ALL ^ E_NOTICE);
    265. 

  265. if (file_exists("$FarmD/local/farmconfig.php"))
    266. 

  266.   include_once("$FarmD/local/farmconfig.php");
    267. 

  267. if (!isset($EnableLocalConfig) || $EnableLocalConfig) {
    268. 

  268.   if (file_exists('local/config.php'))
    269. 

  269.     { include_once('local/config.php'); $LocalConf=1; }
    270. 

  270.   elseif (file_exists('local.php'))                          # deprecated 0.6
    271. 

  271.     { include_once('local.php'); $LocalConf=1; }             # deprecated 0.6
    272. 

  272.   elseif (file_exists('local/local.php'))                    # deprecated 0.6
    273. 

  273.     { include_once('local/local.php'); $LocalConf=1; }       # deprecated 0.6
    274. 

  274. }
    275. 

  275. 

  276. SDV($DefaultPage,"$DefaultGroup/$DefaultTitle");
    277. 

  277. if ($pagename=='') $pagename=$DefaultPage;
    278. 

  278. 

  279. if ($EnableStdConfig)
    280. 

  280.   @include_once("$FarmD/scripts/stdconfig.php");
    281. 

  281. 

  282. mkgiddir($WikiDir);
    283. 

  283. if (!file_exists("$WikiDir/.htaccess") && 
    284. 

  284.     $fp=@fopen("$WikiDir/.htaccess","w")) {
    285. 

  285.   fwrite($fp,"Order Deny,Allow\nDeny from all\n");
    286. 

  286.   fclose($fp);
    287. 

  287. }
    288. 

  288. SDV($UrlLinkTextFmt,$UrlLinkFmt);
    289. 

  289. SDV($RedirectPattern,"\\[\\[redirect:(\\S+)\\]\\]");
    290. 

  290. SDV($WikiPageCreateSpaceFmt,$WikiPageCreateFmt);
    291. 

  291. 

  292. $LinkPatterns[200]["\\bmailto:($UrlPathPattern)"] = "<a href='$0'>$1</a>";
    293. 

  293. $LinkPatterns[300]["\\b($UrlMethodPattern):($UrlPathPattern)"] = $FmtUrlLink;
    294. 

  294. 

  295. foreach($InterMapFiles as $mapfile) {
    296. 

  296.   if (@!($mapfd=fopen($mapfile,"r"))) continue;
    297. 

  297.   while ($mapline=fgets($mapfd,1024)) {
    298. 

  298.     if (preg_match("/^\\s*\$/",$mapline)) continue;
    299. 

  299.     list($mapid,$mapurl) = preg_split("/\\s+/",$mapline);
    300. 

  300.     if (strpos($mapurl,'$1')===false) $mapurl .= '$1';
    301. 

  301.     $LinkPatterns[400]["\\b$mapid:($UrlPathPattern)"] = $FmtUrlLink;
    302. 

  302.     $InterMapUrls[$mapid] = $mapurl;
    303. 

  303.   }
    304. 

  304.   fclose($mapfd);
    305. 

  305. }
    306. 

  306. 

  307. $LinkPatterns[480]["($WikiStylePattern)"] = "$StyleToken$1";
    308. 

  308. $LinkPatterns[500]["\\b($GroupNamePattern([\\/.]))?($FreeLinkPattern)($FragmentPattern)?"] = $FmtWikiLink;
    309. 

  309. $LinkPatterns[600]["$FreeLinkPattern($FragmentPattern)?"]  = $FmtWikiLink;
    310. 

  310. $LinkPatterns[700]["\\b$GroupNamePattern([\\/.])$WikiWordPattern($FragmentPattern)?"] = $FmtWikiLink;
    311. 

  311. $LinkPatterns[780]["\\[\\[$FragmentPattern\\]\\]"] = 
    312. 

  312.   "<a name='$1' id='$1'></a>";
    313. 

  313. $LinkPatterns[780]["\\[\\[$FragmentPattern\\s(.+?)\\]\\]"] =
    314. 

  314.   "<a href='#$1'>$2</a>";
    315. 

  315. $LinkPatterns[800]["\\b$WikiWordPattern($FragmentPattern)?"] = $FmtWikiLink;
    316. 

  316. 

  317. $CurrentTime = strftime($TimeFmt,$Now);
    318. 

  318. 

  319. if (preg_match("/^($GroupNamePattern)[\\/.]?\$/",$pagename,$match)) {
    320. 

  320.   if (PageExists($match[1].'.'.$match[1])) Redirect($match[1].'.'.$match[1]);
    321. 

  321.   else Redirect($match[1].".$DefaultTitle");
    322. 

  322. }
    323. 

  323. if (!preg_match("/^($GroupNamePattern)[\\/.]($PageTitlePattern)\$/",$pagename,
    324. 

  324.     $match))
    325. 

  325.   Abort("'$pagename' is not a valid PmWiki page name");
    326. 

  326. $pagename=FmtPageName('$PageName',$pagename);
    327. 

  327. 

  328. $handle = @$HandleActions[$action];
    329. 

  329. if (function_exists($handle)) $handle($pagename);
    330. 

  330. else { HandleBrowse($pagename); }
    331. 

  331. EndHTML();
    332. 

  332. Lock(-1);
    333. 

  333. 

  334. function SDV(&$var,$val) { if (!isset($var)) $var=$val; }
    335. 

  335. function SDVA(&$var,$val) {
    336. 

  336.   foreach($val as $k=>$v) if (!isset($var[$k])) $var[$k]=$v;
    337. 

  337. }
    338. 

  338. function stripmagic($s) 
    339. 

  339.   { return get_magic_quotes_gpc() ? stripslashes($s) : $s; } 
    340. 

  340. 

  341. function mkgiddir($dir) {
    342. 

  342.   global $ForceMkdir;
    343. 

  343.   $dir = preg_replace('!/$!','',$dir);
    344. 

  344.   if (is_dir($dir)) return;
    345. 

  345.   if (!$ForceMkdir) {
    346. 

  346.     $parent = dirname($dir);
    347. 

  347.     $rparent = realpath($parent);
    348. 

  348.     $perms = fileperms($parent);
    349. 

  349.     if (umask()!=0 && posix_getegid()!=filegroup($parent) && 
    350. 

  350.         ($perms & 02000)==0) 
    351. 

  351.       Abort("PmWiki wants setgid permissions enabled on <tt>$rparent</tt><br />
    352. 

  352.         before it creates the <tt>$dir</tt> directory.  <br />
    353. 

  353.         Try executing <pre>    chmod 2777 $rparent</pre> 
    354. 

  354.         on your server and reloading this page.  Afterwards, you 
    355. 

  355.         can restore the permissions<br />to their current setting by executing
    356. 

  356.         <pre>    chmod ".decoct($perms & 03777)." $rparent</pre>If this
    357. 

  357.         doesn't work for you, see the link below.","Setgid");
    358. 

  358.   }
    359. 

  359.   mkdir($dir,0777) or 
    360. 

  360.     Abort("Cannot create <tt>$dir</tt><br />
    361. 

  361.       Current directory is <tt>".getcwd()."</tt>","Mkdir");
    362. 

  362. }
    363. 

  363. 

  364. function Abort($msg,$aref = NULL) {
    365. 

  365.   StartHTML("","Program error");
    366. 

  366.   echo("<h3>PmWiki can't process your request</h3>
    367. 

  367.     <p>$msg</p><p>We are sorry for any inconvenience.</p>");
    368. 

  368.   if ($aref) {
    369. 

  369.     $href = "http://www.pmichaud.com/ref/PmWiki/$aref";
    370. 

  370.     echo("<p><a href='$href' target='_blank'>$href</a></p>");
    371. 

  371.   }
    372. 

  372.   EndHTML();
    373. 

  373.   exit();
    374. 

  374. }
    375. 

  375. 

  376. function SetPageVars($pagename,&$page,$title) {
    377. 

  377.   $GLOBALS['LastModified'] = $page['timefmt'];
    378. 

  378.   $GLOBALS['LastModifiedBy'] = @$page['author'];
    379. 

  379.   $GLOBALS['LastModifiedHost'] = @$page['host'];
    380. 

  380.   $GLOBALS['HTMLTitle'] = $title;
    381. 

  381.   $GLOBALS['GCount'] = 0;
    382. 

  382. }
    383. 

  383. 

  384. function StartHTML($pagename,$title = "") {
    385. 

  385.   global $calledStartHTML; if ($calledStartHTML++) return;
    386. 

  386.   global $HTMLStartFmt,$GCount;
    387. 

  387.   $GLOBALS['HTMLTitle']=$title; $GCount=0;
    388. 

  388.   PrintFmt($pagename,$HTMLStartFmt);
    389. 

  389. }
    390. 

  390. 

  391. function EndHTML($pagename=NULL,$x=NULL) {
    392. 

  392.   static $called; if ($called++) return;
    393. 

  393.   global $calledStartHTML,$HTMLEndFmt;
    394. 

  394.   if ($calledStartHTML) PrintFmt($pagename,$HTMLEndFmt);
    395. 

  395. }
    396. 

  396. 

  397. function Redirect($pagename,$urlfmt='$PageUrl') {
    398. 

  398.   global $RedirectDelay,$ScriptUrl,$DefaultPage;
    399. 

  399.   clearstatcache();
    400. 

  400.   if (!PageExists($pagename)) $pagename=$DefaultPage;
    401. 

  401.   $pageurl=FmtPageName($urlfmt,$pagename);
    402. 

  402.   header("Location: $pageurl");
    403. 

  403.   header("Content-type: text/html");
    404. 

  404.   print("<html><head>
    405. 

  405.     <meta http-equiv='Refresh' Content='$RedirectDelay; URL=$pageurl'>
    406. 

  406.     <title>Redirect</title></head><body></body></html>");
    407. 

  407.   exit;
    408. 

  408. }
    409. 

  409. 

  410. function AsSpaced($word) {
    411. 

  411.   global $SpaceWikiWords,$SpaceWikiWordsString;
    412. 

  412.   $word = str_replace('_',$SpaceWikiWordsString,$word);
    413. 

  413.   $word = preg_replace("/([[:lower:]\\d])([[:upper:]])/",
    414. 

  414.     '$1'.$SpaceWikiWordsString.'$2',$word);
    415. 

  415.   if ($SpaceWikiWords==2)
    416. 

  416.     $word = preg_replace("/([[:lower:]])(\\d+( |\$))/",
    417. 

  417.       '$1'.$SpaceWikiWordsString.'$2',$word);
    418. 

  418.   else 
    419. 

  419.     $word = preg_replace("/(?<![-\\d])(\\d+( |\$))/",
    420. 

  420.       $SpaceWikiWordsString.'$1',$word);
    421. 

  421.   return preg_replace("/([[:upper:]])([[:upper:]][[:lower:]\\d])/",
    422. 

  422.     '$1'.$SpaceWikiWordsString.'$2',$word);
    423. 

  423. }
    424. 

  424. 

  425. function FreeLink($link) {
    426. 

  426.   global $GroupFreeLinkPattern,$PageNameSpace;
    427. 

  427.   if (!preg_match("/$GroupFreeLinkPattern/",$link,$match)) return NULL;
    428. 

  428.   $name = preg_replace('/[_\\s]+/',' ',$match[3].$match[4]);
    429. 

  429.   $name = str_replace(' ',$PageNameSpace,ucwords($name));
    430. 

  430.   return array('name'=>$name,'text'=>$match[3].$match[5],
    431. 

  431.     'group'=>$match[1],'sep'=>$match[2]);
    432. 

  432. }
    433. 

  433. 

  434. function PrintFmt($pagename,$fmt) {
    435. 

  435.   global $HTTPHeaders;
    436. 

  436.   if (is_array($fmt)) 
    437. 

  437.     { foreach($fmt as $f) PrintFmt($pagename,$f); return; }
    438. 

  438.   $x = FmtPageName($fmt,$pagename);
    439. 

  439.   if (preg_match("/^headers:/",$x)) {
    440. 

  440.     foreach($HTTPHeaders as $h) (@$sent++) ? @header($h) : header($h);
    441. 

  441.     return; 
    442. 

  442.   }
    443. 

  443.   if (preg_match("/^function:(\S+)\s*(.*)\$/s",$x,$match) && 
    444. 

  444.       function_exists($match[1])) 
    445. 

  445.     { $f = $match[1]; $f($pagename,$match[2]); return; }
    446. 

  446.   if (preg_match("/^wiki:(.+)\$/s",$x,$match))
    447. 

  447.     { PrintWikiPage($pagename,$match[1]); return; }
    448. 

  448.   if (preg_match("/^file:(.+)/s",$x,$match)) {
    449. 

  449.     $filelist = preg_split('/[\\s]+/',$match[1],-1,PREG_SPLIT_NO_EMPTY);
    450. 

  450.     foreach($filelist as $f) {
    451. 

  451.       if (file_exists($f)) { include($f); return; }
    452. 

  452.     }
    453. 

  453.     return;
    454. 

  454.   }
    455. 

  455.   print $x;
    456. 

  456. }
    457. 

  457. 

  458. function FmtUrlLink($pat,$ref,$txt) {
    459. 

  459.   global $InterMapUrls,$ImgExtPattern,$UrlLinkFmt,$UrlImgFmt,$UrlLinkTextFmt;
    460. 

  460.   $link = $UrlLinkFmt; $rtxt=$ref;
    461. 

  461.   if (!is_null($txt)) { $rtxt=$txt; $link=$UrlLinkTextFmt; }
    462. 

  462.   elseif (preg_match("/$ImgExtPattern\$/",$ref)) { $link=$UrlImgFmt; }
    463. 

  463.   if (preg_match('/^([^:]*):/',$ref,$match)) {
    464. 

  464.     if (@$InterMapUrls[$match[1]]) 
    465. 

  465.       $ref=preg_replace("/^$pat\$/",$InterMapUrls[$match[1]],$ref);
    466. 

  466.   }
    467. 

  467.   $link = str_replace('$Url',$ref,$link);
    468. 

  468.   return str_replace('$LinkText',$rtxt,$link);
    469. 

  469. }
    470. 

  470. 

  471. function FmtWikiLink($pat,$ref,$btext,$out=NULL,$rname=NULL) {
    472. 

  472.   global $GroupNamePattern,$PageNameSpace,$SpaceWikiWords,
    473. 

  473.     $WikiPageExistsFmt,$WikiPageCreateSpaceFmt,$WikiPageCreateFmt,
    474. 

  474.     $PageTitlePattern,$FragmentPattern,$WikiWordPagePathFmt,
    475. 

  475.     $WikiWordPattern,$WikiWordReplaceFmt,$WWCount,$WikiWordCountMax,
    476. 

  476.     $AsSpacedFunction;
    477. 

  477.   $lref=$ref; $fragment='';
    478. 

  478.   if (preg_match("/^(.*)($FragmentPattern)\$/",$lref,$match)) 
    479. 

  479.     { $lref=$match[1]; $fragment=$match[2]; }
    480. 

  480.   if ($fl=FreeLink($lref)) { $name=$fl['name']; $txt=$fl['text']; } 
    481. 

  481.   else { 
    482. 

  482.     $name = preg_replace('/^.*[\\/.]/','',$lref);
    483. 

  483.     $txt = ($SpaceWikiWords) ? $AsSpacedFunction($name) : $name;
    484. 

  484.   }
    485. 

  485.   if (preg_match("/^($GroupNamePattern)([\\/.])/",$lref,$match)) 
    486. 

  486.     { $fl['group']=$match[1]; $fl['sep']=$match[2]; }
    487. 

  487.   if ($fl['group']) {
    488. 

  488.     $pname = $fl['group'].'.'.$name;;
    489. 

  489.     if ($fl['sep']=='.') $txt=$fl['group'].'.'.$txt; 
    490. 

  490.   } else {
    491. 

  491.     if ($rname=='') $rname=$GLOBALS['pagename'];
    492. 

  492.     foreach((array)$WikiWordPagePathFmt as $pg) {
    493. 

  493.       $pn=FmtPageName(str_replace('$1',$name,$pg),$rname);
    494. 

  494.       if (PageExists($pn)) { $pname=$pn; break; }
    495. 

  495.       if (@$pname=='') $pname=$pn;
    496. 

  496.     }
    497. 

  497.   }
    498. 

  498.   if ($out=='PageName') return $pname;
    499. 

  499.   if (!preg_match("/\.$PageTitlePattern\$/",$pname)) return $ref;
    500. 

  500.   $txt .= $fragment;
    501. 

  501.   if (!is_null($btext)) $txt=$btext;
    502. 

  502.   if (PageExists($pname)) $fmt=$WikiPageExistsFmt;
    503. 

  503.   elseif (preg_match('/\\s/',$txt)) $fmt=$WikiPageCreateSpaceFmt;
    504. 

  504.   else $fmt=$WikiPageCreateFmt;
    505. 

  505.   if (is_null($btext) && preg_match("/^$WikiWordPattern\$/",$ref)) {
    506. 

  506.     if (@$WikiWordReplaceFmt[$name]) $fmt=$WikiWordReplaceFmt[$name];
    507. 

  507.     else {
    508. 

  508.       if (!isset($WWCount[$name])) $WWCount[$name]=$WikiWordCountMax;
    509. 

  509.       if ($WWCount[$name]-- < 1) return $ref;
    510. 

  510.     }
    511. 

  511.   }
    512. 

  512.   $fmt=str_replace(array('$LinkText','$Fragment'),array($txt,$fragment),$fmt);
    513. 

  513.   return FmtPageName($fmt,$pname);
    514. 

  514. }
    515. 

  515. 

  516. function XL($key) {
    517. 

  517.   global $XL,$XLLangs;
    518. 

  518.   foreach($XLLangs as $l) { if (isset($XL[$l][$key])) return $XL[$l][$key]; }
    519. 

  519.   return $key;
    520. 

  520. }
    521. 

  521. function XLSDV($lang,$a) {
    522. 

  522.   global $XL;
    523. 

  523.   foreach($a as $k=>$v) { if (!isset($XL[$lang][$k])) $XL[$lang][$k]=$v; }
    524. 

  524. }
    525. 

  525. function XLPage($lang,$p) {
    526. 

  526.   global $TimeFmt,$XLLangs,$FarmD;
    527. 

  527.   $page = ReadPage($p);
    528. 

  528.   if (!$page) return;
    529. 

  529.   $text = preg_replace("/=>\\s*\n/",'=> ',$page['text']);
    530. 

  530.   foreach(explode("\n",$text) as $l) 
    531. 

  531.     if (preg_match('/^\\s*[\'"](.+?)[\'"]\\s*=>\\s*[\'"](.+)[\'"]/',$l,$match))
    532. 

  532.       $xl[stripslashes($match[1])] = stripslashes($match[2]); 
    533. 

  533.   if ($xl) {
    534. 

  534.     if ($xl['xlpage-i18n']) {
    535. 

  535.       $i18n = preg_replace('/[^-\\w]/','',$xl['xlpage-i18n']);
    536. 

  536.       include_once("$FarmD/scripts/xlpage-$i18n.php");
    537. 

  537.     }
    538. 

  538.     if ($xl['Locale']) setlocale(LC_ALL,$xl['Locale']);
    539. 

  539.     if ($xl['TimeFmt']) $TimeFmt=$xl['TimeFmt'];
    540. 

  540.     array_unshift($XLLangs,$lang);
    541. 

  541.     XLSDV($lang,$xl); 
    542. 

  542.   }
    543. 

  543. }
    544. 

  544. 

  545. function FmtPageName($fmt,$pagename) {
    546. 

  546.   if (strpos($fmt,'$')===false) return $fmt;
    547. 

  547.   global $UnsafeGlobals,$GroupNamePattern,$PageTitlePattern,
    548. 

  548.     $PageUrlFmt,$EnablePathInfo,$PageNameFmt,$WikiWordPattern,$GCount,
    549. 

  549.     $AsSpacedFunction;
    550. 

  550.   static $g;
    551. 

  551.   static $qk = array('$ScriptUrl','$Groupspaced','$Group',
    552. 

  552.     '$Titlespaced','$Title_','$Title','$Tlink');
    553. 

  553.   if (!is_null($pagename) && !preg_match("/^($GroupNamePattern)[\\/.]($PageTitlePattern)\$/",$pagename,$match)) return "";
    554. 

  554.   $fmt = preg_replace('/\\$([A-Z]\\w*Fmt)\\b/e','$GLOBALS[\'$1\']',$fmt);
    555. 

  555.   $fmt = preg_replace("/\\$\\[(.+?)\\]/e","XL(stripslashes('$1'))",$fmt);
    556. 

  556.   $qv = @array($GLOBALS['ScriptUrl'],$AsSpacedFunction($match[1]),$match[1],
    557. 

  557.     $AsSpacedFunction($match[2]),$match[2],str_replace('_',' ',$match[2]),
    558. 

  558.     preg_match("/^$WikiWordPattern\$/",$match[2]) ? $match[2] :
    559. 

  559.       '{{'.str_replace('_',' ',$match[2]).'}}');
    560. 

  560.   $fmt=str_replace('$PageUrl',$PageUrlFmt,$fmt);
    561. 

  561.   $fmt=str_replace('$PageName',$PageNameFmt,$fmt);
    562. 

  562.   if (isset($EnablePathInfo) && !$EnablePathInfo) 
    563. 

  563.     $fmt = preg_replace('!\\$ScriptUrl/([^\'"\\s?./]+)(?:[./]([^\'"\\s?]*))?(?:\\?([^\'"\\s]*))?!e',"'\$ScriptUrl?pagename=$1'.(('$2')?'.$2':'').(('$3')?'&amp;$3':'')",$fmt);
    564. 

  564.   $fmt=str_replace($qk,$qv,$fmt);
    565. 

  565.   if (strpos($fmt,'$')===false) return $fmt;
    566. 

  566.   if (count($GLOBALS)!=$GCount) {
    567. 

  567.     foreach($GLOBALS as $n=>$v) {
    568. 

  568.       if ($n == 'Text') continue;
    569. 

  569.       if (in_array($n,$UnsafeGlobals)) continue;
    570. 

  570.       if (is_array($v)) { $UnsafeGlobals[]=$n; continue; }
    571. 

  571.       $g["\$$n"]= $GLOBALS[$n];
    572. 

  572.     }
    573. 

  573.     $GCount = count($GLOBALS);
    574. 

  574.     krsort($g); reset($g);
    575. 

  575.   }
    576. 

  576.   if (isset($g[$fmt])) return $g[$fmt];
    577. 

  577.   $fmt = str_replace(array_keys($g),array_values($g),$fmt);
    578. 

  578.   $fmt = str_replace('$Text',
    579. 

  579.     @htmlspecialchars($GLOBALS['Text'],ENT_NOQUOTES),$fmt);
    580. 

  580.   return $fmt;
    581. 

  581. }
    582. 

  582. 

  583. function Diff($oldtext,$newtext) {
    584. 

  584.   global $WikiDir,$SysDiffCmd;
    585. 

  585.   if (!$SysDiffCmd) return '';
    586. 

  586.   $tempold = tempnam($WikiDir,"old");
    587. 

  587.   if ($oldfp = fopen($tempold,"w")) { 
    588. 

  588.     fputs($oldfp,$oldtext); 
    589. 

  589.     fclose($oldfp); 
    590. 

  590.   }
    591. 

  591.   $tempnew = tempnam($WikiDir,"new");
    592. 

  592.   if ($newfp = fopen($tempnew,"w")) { 
    593. 

  593.     fputs($newfp,$newtext); 
    594. 

  594.     fclose($newfp); 
    595. 

  595.   }
    596. 

  596.   $diff = '';
    597. 

  597.   $diff_handle = popen("$SysDiffCmd $tempold $tempnew","r");
    598. 

  598.   if ($diff_handle) {
    599. 

  599.     while (!feof($diff_handle)) { $diff .= fread($diff_handle,1024); }
    600. 

  600.     pclose($diff_handle);
    601. 

  601.   }            
    602. 

  602.   @unlink($tempold); @unlink($tempnew);
    603. 

  603.   return $diff;
    604. 

  604. }
    605. 

  605. 

  606. function Patch($page,$restore) {
    607. 

  607.   $text = $page['text'];
    608. 

  608.   krsort($page); reset($page);
    609. 

  609.   $t = explode("\n",$text);
    610. 

  610.   $nl = (substr($text,-1)=="\n");
    611. 

  611.   if ($nl) array_pop($t);
    612. 

  612.   foreach($page as $k=>$v) {
    613. 

  613.     if ($k<$restore) break;
    614. 

  614.     if (substr($k,0,5)!='diff:') continue;
    615. 

  615.     foreach(explode("\n",$v) as $x) {
    616. 

  616.       if (preg_match('/^(\\d+)(,(\\d+))?([adc])(\\d+)/',$x,$match)) {
    617. 

  617.         $a1 = $a2 = $match[1];
    618. 

  618.         if ($match[3]) $a2=$match[3];
    619. 

  619.         $b1 = $match[5];
    620. 

  620.         if ($match[4]=='d') array_splice($t,$b1,$a2-$a1+1);
    621. 

  621.         if ($match[4]=='c') array_splice($t,$b1-1,$a2-$a1+1);
    622. 

  622.         continue;
    623. 

  623.       }
    624. 

  624.       if (substr($x,0,2)=='< ') { $nlflag=true; continue; }
    625. 

  625.       if (preg_match('/^> (.*)$/',$x,$match)) {
    626. 

  626.         $nlflag=false;
    627. 

  627.         array_splice($t,$b1-1,0,$match[1]); $b1++;
    628. 

  628.       }
    629. 

  629.       if ($x=='\\ No newline at end of file') $nl=$nlflag;
    630. 

  630.     }
    631. 

  631.   }
    632. 

  632.   if ($nl) $t[]='';
    633. 

  633.   return implode("\n",$t);
    634. 

  634. }
    635. 

  635. 

  636. function PageExists($pagename) {
    637. 

  637.   global $WikiLibDirs,$PageFileFmt;
    638. 

  638.   $pagefile = FmtPageName($PageFileFmt,$pagename);
    639. 

  639.   if (!$pagefile) return false;
    640. 

  640.   foreach ($WikiLibDirs as $dir) {
    641. 

  641.     if (file_exists("$dir/$pagefile")) return true;
    642. 

  642.   }
    643. 

  643.   return false;
    644. 

  644. }
    645. 

  645.     
    646. 

  646. function Lock($op) {
    647. 

  647.   global $WikiDir;
    648. 

  648.   static $lockfp,$curop;
    649. 

  649.   if (!$lockfp) {
    650. 

  650.     $lockfp=fopen("$WikiDir/.flock","w") or 
    651. 

  651.       Abort("Cannot acquire lockfile","Lockfile");
    652. 

  652.   }
    653. 

  653.   if ($op<0) { flock($lockfp,LOCK_UN); fclose($lockfp); $lockfp=0; $curop=0; }
    654. 

  654.   elseif ($op==0) { flock($lockfp,LOCK_UN); $curop=0; }
    655. 

  655.   elseif ($op==1 && $curop<1) { flock($lockfp,LOCK_SH); $curop=1; }
    656. 

  656.   elseif ($op==2 && $curop<2) { flock($lockfp,LOCK_EX); $curop=2; }
    657. 

  657. }
    658. 

  658. 

  659. function ReadPage($pagename,$defaulttext=NULL) {
    660. 

  660.   global $WikiLibDirs,$PageFileFmt,$DefaultPageTextFmt,$Now,$TimeFmt;
    661. 

  661.   $pagefile = FmtPageName($PageFileFmt,$pagename);
    662. 

  662.   if (!$pagefile) return false;
    663. 

  663.   if (is_null($defaulttext)) $defaulttext=$DefaultPageTextFmt;
    664. 

  664.   $page["text"] = FmtPageName($defaulttext,$pagename);
    665. 

  665.   $page["time"] = $Now;
    666. 

  666.   $newline = "\262";
    667. 

  667.   Lock(1);
    668. 

  668.   foreach ($WikiLibDirs as $dir) {
    669. 

  669.     $fp = @fopen("$dir/$pagefile","r");
    670. 

  670.     if ($fp) break;
    671. 

  671.   }
    672. 

  672.   if ($fp) {
    673. 

  673.     while (!feof($fp)) {
    674. 

  674.       $line = fgets($fp,4096);
    675. 

  675.       while (!strstr($line,"\n") && !feof($fp)) { $line .= fgets($fp,4096); }
    676. 

  676.       @list($k,$v) = explode("=",rtrim($line),2);
    677. 

  677.       if ($k=='newline') { $newline=$v; continue; }
    678. 

  678.       $page[$k] = str_replace($newline,"\n",$v);
    679. 

  679.     }
    680. 

  680.     fclose($fp);
    681. 

  681.   }
    682. 

  682.   $page['timefmt'] = strftime($TimeFmt,$page['time']);
    683. 

  683.   return $page;
    684. 

  684. }
    685. 

  685. 

  686. function WritePage($pagename,$page) {
    687. 

  687.   global $Now,$WikiDir,$PageFileFmt,$Version,$Newline;
    688. 

  688.   if( preg_match_all( '|http://|', $page['text'], $arMatches) > 20) { die( 'too many links'); }
    689. 

  689.   Lock(2);
    690. 

  690.   foreach (array('timefmt','pagename','action','version','newline') as $k)
    691. 

  691.     unset($page[$k]);
    692. 

  692.   $page['name'] = $pagename;
    693. 

  693.   $page['time'] = $Now; 
    694. 

  694.   $page['host'] = $_SERVER['REMOTE_ADDR'];
    695. 

  695.   $page['agent'] = $_SERVER['HTTP_USER_AGENT'];
    696. 

  696.   $page['rev'] = @$page['rev']+1;
    697. 

  697.   $pagefile = FmtPageName("$WikiDir/$PageFileFmt",$pagename);
    698. 

  698.   $pagedir = preg_replace('#/[^/]*$#','',$pagefile);
    699. 

  699.   if ($pagedir) mkgiddir($pagedir);
    700. 

  700.   $s = false;
    701. 

  701.   if ($pagefile && ($fp=fopen("$pagefile.new","w"))) {
    702. 

  702.     $s = true && fputs($fp,"version=$Version\nnewline=$Newline\n");
    703. 

  703.     foreach($page as $k=>$v) 
    704. 

  704.       if ($k>"") $s = $s && fputs($fp,str_replace("\n",$Newline,"$k=$v")."\n"); 
    705. 

  705.     $s = fclose($fp) && $s;
    706. 

  706.     if (file_exists($pagefile)) $s = $s && unlink($pagefile);
    707. 

  707.     $s = $s && rename("$pagefile.new",$pagefile);
    708. 

  708.   } 
    709. 

  709.   if (!$s) 
    710. 

  710.     Abort("Cannot write text to $pagename ($pagefile)...changes not saved"); 
    711. 

  711. }  
    712. 

  712. 

  713. function Keep($text) {
    714. 

  714.   global $KeepToken,$KPV,$KPCount;
    715. 

  715.   $KPCount++; $KPV[$KPCount]=$text;
    716. 

  716.   return $KeepToken.$KPCount.$KeepToken;
    717. 

  717. }
    718. 

  718. 

  719. function KeepWikiEscapes($text) {
    720. 

  720.   $e0 = array('=' => '', '@' => '<code>');
    721. 

  721.   $e1 = array('=' => '', '@' => '</code>');
    722. 

  722.   return preg_replace("/\\[([=@])(.*?)\\1\\]/se",
    723. 

  723.     "Keep(\$e0['$1'].htmlspecialchars(str_replace('\\\"','\"','$2'),ENT_NOQUOTES).\$e1['$1'])",$text);
    724. 

  724. }
    725. 

  725. 

  726. function QuoteAttrs($attr) {
    727. 

  727.   return preg_replace('/([a-zA-Z]=)([^\'"]\\S*)/',"\$1'\$2'",$attr);
    728. 

  728. }
    729. 

  729.   
    730. 

  730. function EmitCode($code,$depth,$attr="") {
    731. 

  731.   global $HTMLVSpace;
    732. 

  732.   static $cs,$vspaces;
    733. 

  733.   static $li = array('dl'=>'</dd>','ul'=>'</li>','ol'=>'</li>',
    734. 

  734.     'indent' => '</div>');
    735. 

  735.   static $le = array('dl'=>'</dl>','ul'=>'</ul>','ol'=>'</ol>');
    736. 

  736.   $attr = QuoteAttrs($attr);
    737. 

  737.   if (!$cs) { $cs = array(); }
    738. 

  738.   if ($code=='p') { $vspaces.="\n"; return; }
    739. 

  739.   if ((@$cs[0]=='table' || @$cs[0]=='pre') && $code!=@$cs[0]) 
    740. 

  740.     while (count($cs)>0) { echo "</",array_pop($cs),">"; }
    741. 

  741.   while (count($cs)>$depth) 
    742. 

  742.     { $c=array_pop($cs); echo @$li[$c],@$le[$c]; }
    743. 

  743.   if ($depth>0 && $depth==count($cs) && $cs[$depth-1]!=$code) 
    744. 

  744.     { $c=array_pop($cs); echo @$li[$c],@$le[$c]; }
    745. 

  745.   if ($vspaces) 
    746. 

  746.     { echo (@$cs[0]=='pre') ? $vspaces : $HTMLVSpace; $vspaces=''; }
    747. 

  747.   if ($depth==0) return;
    748. 

  748.   if ($depth==count($cs)) { echo @$li[$code]; return; }
    749. 

  749.   while (count($cs)<$depth-1) { array_push($cs,'dl'); echo '<dl><dd>'; }
    750. 

  750.   while (count($cs)<$depth) { 
    751. 

  751.     array_push($cs,$code); 
    752. 

  752.     if ($code!='indent') echo "<$code $attr>"; 
    753. 

  753.   }
    754. 

  754. }
    755. 

  755. 

  756. function FormatTableRow($x,$cellattr) {
    757. 

  757.   $x = preg_replace("/\\|\\|\$/","",$x);
    758. 

  758.   $td = explode('||',$x); $y='';
    759. 

  759.   for($i=0;$i<count($td);$i++) {
    760. 

  760.     if ($td[$i]=='') continue;
    761. 

  761.     $attr=" $cellattr";
    762. 

  762.     if (preg_match('/^\\s+\$/',$td[$i])) $td[$i]='&nbsp;';
    763. 

  763.     if (preg_match('/^!(.*?)!$/',$td[$i],$match)) 
    764. 

  764.       { $td[$i]=$match[1]; $t='caption'; $attr=''; }
    765. 

  765.     elseif (preg_match('/^!(.*?)$/',$td[$i],$match)) 
    766. 

  766.       { $td[$i]=$match[1]; $t='th'; }
    767. 

  767.     else $t='td';
    768. 

  768.     if (preg_match('/^\\s.*\\s$/',$td[$i])) { $attr .= " align='center'"; }
    769. 

  769.     elseif (preg_match('/^\\s/',$td[$i])) { $attr .= " align='right'"; }
    770. 

  770.     elseif (preg_match('/\\s$/',$td[$i])) { $attr .= " align='left'"; }
    771. 

  771.     for($colspan=1;$i+$colspan<count($td);$colspan++) 
    772. 

  772.       if ($td[$colspan+$i] != '') break;
    773. 

  773.     if ($colspan>1) { $attr .= " colspan='$colspan'"; }
    774. 

  774.     $y .= "<$t$attr>".$td[$i]."</$t>";
    775. 

  775.   }
    776. 

  776.   if ($t=='caption') return $y;
    777. 

  777.   return "<tr>$y</tr>";
    778. 

  778. }
    779. 

  779. 

  780. function EmitCell($x,$y) {
    781. 

  781.   static $tableattr,$intable;
    782. 

  782.   $y = QuoteAttrs($y);
    783. 

  783.   if ($x == 'cell' || $x == 'cellnr') {
    784. 

  784.     if (!$intable) { echo "<table $tableattr><tr><td $y>"; $intable=1; }
    785. 

  785.     else if ($x == 'cellnr') { echo "</td></tr><tr><td $y>"; }
    786. 

  786.     else { echo "</td><td $y>"; }
    787. 

  787.     return;
    788. 

  788.   } 
    789. 

  789.   if ($intable) { echo "</td></tr></table>"; $intable=0; }
    790. 

  790.   $tableattr = $y;
    791. 

  791. }
    792. 

  792. 

  793. function ApplyStyles($x) {
    794. 

  794.   global $WikiStylePattern,$WikiStyle,$WikiStyleTags,$StyleToken;
    795. 

  795.   $lineparts = preg_split("/$StyleToken($WikiStylePattern)/",$x,-1,
    796. 

  796.     PREG_SPLIT_DELIM_CAPTURE);
    797. 

  797.   $out='';
    798. 

  798.   $style = array();
    799. 

  799.   while ($lineparts) {
    800. 

  800.     $WikiStyle['curr']=$style; $style = array();
    801. 

  801.     if (preg_match("/^$WikiStylePattern\$/",$lineparts[0])) {
    802. 

  802.       $slist=preg_split('/[^-#=:,\\w]+/',array_shift($lineparts),-1,
    803. 

  803.         PREG_SPLIT_NO_EMPTY);
    804. 

  804.       foreach($slist as $s) {
    805. 

  805.         if (preg_match('/^([^=:]+)[=:](.*)$/',$s,$match)) {
    806. 

  806.           $style[$match[1]] = $match[2];
    807. 

  807.         } else { $style = array_merge($style,(array)@$WikiStyle[$s]); }
    808. 

  808.       }
    809. 

  809.       if (@$style['define']) { 
    810. 

  810.         $d = $style['define']; unset($style['define']);
    811. 

  811.         $WikiStyle[$d] = $style;
    812. 

  812.       }
    813. 

  813.     }
    814. 

  814.     $l = array_shift($lineparts);
    815. 

  815.     if ($l>"") {
    816. 

  816.       $styleattr = '';
    817. 

  817.       $classattr = '';
    818. 

  818.       foreach($style as $k=>$v) {
    819. 

  819.         if (!is_array($WikiStyleTags[$k])) continue;
    820. 

  820.         foreach($WikiStyleTags[$k] as $tag=>$w) {
    821. 

  821.           $w = str_replace('$value',$v,$w);
    822. 

  822.           if ($tag=='style') $styleattr.=$w;
    823. 

  823.           elseif ($tag=='class') $classattr=$w;
    824. 

  824.           else $l=preg_replace("/(<$tag )/","\$1$w ",$l);
    825. 

  825.         }
    826. 

  826.       }
    827. 

  827.       if ($styleattr) { $styleattr="style='$styleattr'"; }
    828. 

  828.       if ($styleattr || $classattr) 
    829. 

  829.         $out .= "<span $classattr $styleattr>$l</span>";
    830. 

  830.       else $out .= $l;
    831. 

  831.     }
    832. 

  832.   }
    833. 

  833.   return $out;
    834. 

  834. }
    835. 

  835.   
    836. 

  836. function PrintText($pagename,$text="") {
    837. 

  837.   global $KeepToken,$KPV,$LinkToken,$LinkPatterns,$ImgExtPattern,
    838. 

  838.     $DoubleBrackets,$TableAttr,$TableCellAttr,$HTMLLineBreak,
    839. 

  839.     $InlineReplacements,$WikiStylePattern,$Text,$WWCount,$WikiWordCount;
    840. 

  840.   static $refcount;
    841. 

  841.   $WWCount=$WikiWordCount;
    842. 

  842.   if ($text=="") $text=$Text;
    843. 

  843.   ksort($LinkPatterns);
    844. 

  844.   foreach($LinkPatterns as $n=>$a)
    845. 

  845.     foreach($a as $p=>$r) $linkpats[$p]=$r;
    846. 

  846.   $lp=$LinkToken;
    847. 

  847.   $text = KeepWikiEscapes($text);
    848. 

  848.   $text = htmlspecialchars($text,ENT_NOQUOTES);
    849. 

  849.   $text = str_replace("\r","",$text);
    850. 

  850.   $text = preg_replace("/(\\\\*)\\\\\n/e",
    851. 

  851.     "' '.str_repeat('<br />',strlen('$1'))",$text);
    852. 

  852.   foreach($DoubleBrackets as $n=>$fmt) {
    853. 

  853.     if ($n[0]!='/') $text=str_replace($n,FmtPageName($fmt,$pagename),$text);
    854. 

  854.   }
    855. 

  855.   $lines = explode("\n",$text);
    856. 

  856.   foreach($lines as $x) {
    857. 

  857.     foreach($DoubleBrackets as $n=>$fmt) {
    858. 

  858.       if ($n[0]=='/') $x=preg_replace($n,$fmt,$x);
    859. 

  859.     }
    860. 

  860.     $lpcount = 0;
    861. 

  861.     $lpv = array();
    862. 

  862.     foreach($linkpats as $pat=>$rep) {
    863. 

  863.       $re = "/\\[\\[($pat)(\\s.*?)?(\\]\\])/";
    864. 

  864.       while(preg_match($re,$x,$match)) {
    865. 

  865.         $x=preg_replace($re,"$lp$lpcount$lp",$x,1);
    866. 

  866.         array_pop($match); $txt=array_pop($match);
    867. 

  867.         if ($txt=="") $txt="$lp#$lp";
    868. 

  868.         else {
    869. 

  869.           $txt = ltrim($txt);
    870. 

  870.           if (preg_match("/$ImgExtPattern\$/",$txt)) {
    871. 

  871.             foreach($linkpats as $p=>$r) {
    872. 

  872.               if (preg_match("/^$p\$/",$txt)) {
    873. 

  873.                 if (function_exists($r)) $txt = $r($p,$txt,NULL); 
    874. 

  874.                 else $txt = preg_replace($p,$r,$txt);
    875. 

  875.                 break;
    876. 

  876.               }
    877. 

  877.             }
    878. 

  878.           } 
    879. 

  879.         }
    880. 

  880.         if (function_exists($rep)) 
    881. 

  881.           $txt = $rep($pat,$match[1],$txt);
    882. 

  882.         else {
    883. 

  883.           $r = preg_replace("/^$pat\$/",$rep,$match[1]);
    884. 

  884.           preg_match("/(name|href)='.*?'/",$r,$match);
    885. 

  885.           $txt = "<a ".@$match[0].">$txt</a>";
    886. 

  886.         }
    887. 

  887.         $lpv[$lpcount++] = $txt;
    888. 

  888.       }
    889. 

  889.     }
    890. 

  890.     foreach($linkpats as $pat=>$rep) {
    891. 

  891.       $re = "/($pat)/";
    892. 

  892.       while(preg_match($re,$x,$match)) {
    893. 

  893.         $x=preg_replace($re,"$lp$lpcount$lp",$x,1);
    894. 

  894.         if (function_exists($rep)) 
    895. 

  895.           $txt = $rep($pat,$match[1],NULL);
    896. 

  896.         else $txt = preg_replace("/^$pat\$/",$rep,$match[1]);
    897. 

  897.         $lpv[$lpcount++] = $txt;
    898. 

  898.       }
    899. 

  899.     }
    900. 

  900.     if (preg_match("/^\\[\\[(table|cell|cellnr|tableend)(\\s.*?)?\\]\\]/",$x,$match)) {
    901. 

  901.       EmitCode("",0);
    902. 

  902.       @EmitCell($match[1],$match[2]);
    903. 

  903.       $x=preg_replace("/^\\[\\[.*?\\]\\]/","",$x);
    904. 

  904.     }
    905. 

  905.     else if (preg_match("/^\\s*\$/",$x)) { EmitCode("p",0); continue; }
    906. 

  906.     if (preg_match("/^(:+)[^:]*:/",$x,$match)) {
    907. 

  907.       $x=preg_replace("/^:+([^:]*):/","<dt>\\1</dt><dd>",$x);
    908. 

  908.       EmitCode("dl",strlen($match[1]));
    909. 

  909.     } elseif (preg_match("/^(\\*+)/",$x,$match)) {
    910. 

  910.       $x=preg_replace("/^\\*+/","<li>",$x);
    911. 

  911.       EmitCode("ul",strlen($match[1]));
    912. 

  912.     } elseif (preg_match("/^(#+)/",$x,$match)) {
    913. 

  913.       $x=preg_replace("/^#+/","<li>",$x);
    914. 

  914.       EmitCode("ol",strlen($match[1]));
    915. 

  915.     } elseif (preg_match("/^\s/",$x)) {
    916. 

  916.       EmitCode("pre",1);
    917. 

  917.     } elseif (preg_match("/^\\|\\|.*\\|\\|/",$x,$match)) {
    918. 

  918.       EmitCode("table",1,$TableAttr);
    919. 

  919.       $x=FormatTableRow($x,$TableCellAttr);
    920. 

  920.     } elseif (preg_match("/^\\|\\|(.*)/",$x,$match)) {
    921. 

  921.       EmitCode("",0);
    922. 

  922.       $TableAttr = $match[1];
    923. 

  923.       continue;
    924. 

  924.     } elseif (preg_match("/^(!{1,6})/",$x,$match)) {
    925. 

  925.       $h="h".strlen($match[1]);
    926. 

  926.       $x=preg_replace("/^(!{1,6})/","<$h>",$x)."</$h>";
    927. 

  927.       EmitCode("",0);
    928. 

  928.     } elseif (preg_match("/^(-+)&gt;/",$x,$match)) {
    929. 

  929.       $x=preg_replace("/^(-+)&gt;/","<div class='indent'>",$x);
    930. 

  930.       EmitCode("indent",strlen($match[1]));
    931. 

  931.     } else { $x.=$HTMLLineBreak; EmitCode("",0); }
    932. 

  932.     foreach ($InlineReplacements as $pat => $rep) 
    933. 

  933.       $x = preg_replace($pat,$rep,$x);
    934. 

  934.     if (preg_match("/^\\s*($lp(\\d+)$lp)\\s*\$/",$x,$match)) 
    935. 

  935.       $x = str_replace(" img>"," /><br />",$lpv[$match[2]]); 
    936. 

  936.     if (preg_match("/^\\s*($lp(\\d+)$lp).*\\S/",$x,$match)) 
    937. 

  937.       $x = str_replace($match[1],
    938. 

  938.         str_replace(" img>"," align='left' />",$lpv[$match[2]]), $x); 
    939. 

  939.     if (preg_match("/\\S.*($lp(\\d+)$lp)\\s*\$/",$x,$match)) {
    940. 

  940.       $rt = str_replace(" img>"," align='right' />",$lpv[$match[2]]);
    941. 

  941.       if (strstr($rt,"<img")) $x=$rt.str_replace($match[1],"",$x);
    942. 

  942.       else $x=str_replace($match[1],$rt,$x);
    943. 

  943.     } 
    944. 

  944.     $x = preg_replace("/$lp(\\d+)$lp/e",
    945. 

  945.       'str_replace(" img>"," />",$lpv[$1])',$x);
    946. 

  946.     $x = preg_replace("/$lp#$lp/e",'"[".++$refcount."]"',$x);
    947. 

  947.     if ($WikiStylePattern) $x = ApplyStyles($x);
    948. 

  948.     while (preg_match("/$KeepToken(\\d+?)$KeepToken/",$x)) 
    949. 

  949.       $x = preg_replace("/$KeepToken(\\d+?)$KeepToken/e",'$KPV[$1]',$x);
    950. 

  950.     echo $x,"\n";
    951. 

  951.   }
    952. 

  952.   EmitCode("",0);
    953. 

  953.   EmitCell("","");
    954. 

  954. }
    955. 

  955. 

  956. function PrintWikiPage($pagename,$wikilist=NULL) {
    957. 

  957.   global $PrintWikiPageNotFoundFmt;
    958. 

  958.   if (is_null($wikilist)) $wikilist=$pagename;
    959. 

  959.   $pagelist = preg_split('/\s+/',$wikilist,-1,PREG_SPLIT_NO_EMPTY);
    960. 

  960.   foreach($pagelist as $p) {
    961. 

  961.     if (PageExists($p)) {
    962. 

  962.       $page = RetrieveAuthPage($p,"read",false);
    963. 

  963.       if ($page['text']) 
    964. 

  964.         PrintText($pagename,ProcessIncludes($pagename,$page['text']));
    965. 

  965.       return;
    966. 

  966.     }
    967. 

  967.   }
    968. 

  968.   if ($PrintWikiPageNotFoundFmt>'') 
    969. 

  969.     print FmtPageName(@$PrintWikiPageNotFoundFmt,array_pop($pagelist));
    970. 

  970. }
    971. 

  971. 

  972. function ProcessIncludes($pagename,$text="") {
    973. 

  973.   global $MaxIncludes,$IncludeBadAnchorFmt,$GroupNamePattern,$PageTitlePattern;
    974. 

  974.   $inclcount=0;
    975. 

  975.   while ($inclcount<$MaxIncludes &&
    976. 

  976.       preg_match("/\\[\\[include:(($GroupNamePattern([\\/.]))?$PageTitlePattern)(#(\\w[-.:\\w]*)?(#(\\w[-.:\\w]*)?)?)?\\]\\]/",$text,$match)) {
    977. 

  977.     list($inclrepl,$inclname,$group,$dot,$a,$aa,$b,$bb) = $match;
    978. 

  978.     if (!$group) $inclname=FmtPageName('$Group.',$pagename).$inclname;
    979. 

  979.     $inclpage = RetrieveAuthPage($inclname,"read",false);
    980. 

  980.     $incltext = $inclpage['text'];
    981. 

  981.     $badanchor = '';
    982. 

  982.     if ($bb && !preg_match('/^\\d+$/',$bb) && 
    983. 

  983.       strpos($incltext,"[[#$bb]]")===false) $badanchor=$bb;
    984. 

  984.     if ($aa && !preg_match('/^\\d+$/',$aa) && 
    985. 

  985.       strpos($incltext,"[[#$aa]]")===false) $badanchor=$aa;
    986. 

  986.     if ($badanchor)
    987. 

  987.       $incltext=FmtPageName(str_replace('$BadAnchor',$badanchor,
    988. 

  988.         $IncludeBadAnchorFmt),$inclname);
    989. 

  989.     if (preg_match('/^\\d+$/',$bb)) 
    990. 

  990.       $incltext=preg_replace("/^(([^\\n]*\\n)\{0,$bb}).*$/s",'$1',$incltext,1);
    991. 

  991.     elseif ($bb) 
    992. 

  992.       $incltext=preg_replace("/[^\\n]*\\[\\[#$bb\\]\\].*$/s",'',$incltext,1);
    993. 

  993.     if (preg_match('/^\\d+$/',$aa)) {
    994. 

  994.       $aa--; $incltext=preg_replace("/^([^\\n]*\\n)\{0,$aa}/s",'',$incltext,1);
    995. 

  995.       if (!$b) $incltext=preg_replace("/\\n.*$/s",'',$incltext);
    996. 

  996.     } elseif ($aa && $b)
    997. 

  997.       $incltext=preg_replace("/^.*?([^\\n]*\\[\\[#$aa\\]\\])/s",'$1',$incltext,1);
    998. 

  998.     elseif ($aa)
    999. 

  999.       $incltext=preg_replace("/^.*?([^\\n]*\\[\\[#$aa\\]\\]( *\\n)?[^\\n]*).*/s",'$1',$incltext,1);
    1000. 

  1000.     $text = str_replace($inclrepl,$incltext,$text);
    1001. 

  1001.     $inclcount++;
    1002. 

  1002.   }
    1003. 

  1003.   return $text;
    1004. 

  1004. }
    1005. 

  1005. 

  1006. function ProcessTextDirectives($pagename,$text="") {
    1007. 

  1007.   global $Text,$GroupHeaderFmt,$GroupFooterFmt,$BrowseDirectives;
    1008. 

  1008.   if (!$text) $text=$Text;
    1009. 

  1009.   $text = KeepWikiEscapes($text);
    1010. 

  1010.   $text = ProcessIncludes($pagename,$text);
    1011. 

  1011.   if (!strstr($text,"[[nogroupheader]]")) {
    1012. 

  1012.     $hdname = FmtPageName($GroupHeaderFmt,$pagename);
    1013. 

  1013.     if ($hdname != $pagename) { 
    1014. 

  1014.       $hdpage=ReadPage($hdname,""); 
    1015. 

  1015.       if ($hdpage['text'] && substr($hdpage['text'],-1,1)!="\n" &&
    1016. 

  1016.         substr($text,0,1)!="\n") $hdpage['text'] .= "\n";
    1017. 

  1017.       $text = $hdpage['text'].$text; 
    1018. 

  1018.     }
    1019. 

  1019.   }
    1020. 

  1020.   if (!strstr($text,"[[nogroupfooter]]")) {
    1021. 

  1021.     $hdname = FmtPageName($GroupFooterFmt,$pagename);
    1022. 

  1022.     if ($hdname != $pagename) { 
    1023. 

  1023.       $hdpage=ReadPage($hdname,""); 
    1024. 

  1024.       if ($hdpage['text'] && substr($hdpage['text'],0,1)!="\n" &&
    1025. 

  1025.         substr($text,-1,1)!="\n") $text .= "\n";
    1026. 

  1026.       $text .= $hdpage['text']; 
    1027. 

  1027.     }
    1028. 

  1028.   }
    1029. 

  1029.   Lock(0);
    1030. 

  1030.   foreach($BrowseDirectives as $p=>$s) {
    1031. 

  1031.     if ($p[0]=='/') $text=preg_replace($p,$s,$text);
    1032. 

  1032.     else if (strstr($text,$p)) $text = str_replace($p,eval($s),$text);
    1033. 

  1033.   }
    1034. 

  1034.   $Text = $text;
    1035. 

  1035. }
    1036. 

  1036. 

  1037. function HandleBrowse($pagename) {
    1038. 

  1038.   global $Text,$PageRedirectFmt,$RedirectPattern,
    1039. 

  1039.     $HandleBrowseFmt,$PageStartFmt,$PageEndFmt;
    1040. 

  1040.   $page = RetrieveAuthPage($pagename,"read"); 
    1041. 

  1041.   if (!$page) { Abort("Invalid page name"); }
    1042. 

  1042.   $Text = $page['text'];
    1043. 

  1043.   SetPageVars($pagename,$page,$pagename);
    1044. 

  1044.   if (@!$_GET['from']) {
    1045. 

  1045.     $PageRedirectFmt = '';
    1046. 

  1046.     if (preg_match("/$RedirectPattern/",$Text,$match)) {
    1047. 

  1047.       $rpage = FmtWikiLink('',$match[1],NULL,'PageName',$pagename);
    1048. 

  1048.       if (PageExists($rpage)) Redirect($rpage,"\$PageUrl?from=$pagename");
    1049. 

  1049.     }
    1050. 

  1050.   }
    1051. 

  1051.   else $PageRedirectFmt = FmtPageName($PageRedirectFmt,$_GET['from']);
    1052. 

  1052.   ProcessTextDirectives($pagename);
    1053. 

  1053.   SDV($HandleBrowseFmt,array(&$PageStartFmt,
    1054. 

  1054.     &$PageRedirectFmt,'function:PrintText',
    1055. 

  1055.     &$PageEndFmt));
    1056. 

  1056.   PrintFmt($pagename,$HandleBrowseFmt);
    1057. 

  1057. }
    1058. 

  1058. 

  1059. function HandleEdit($pagename) {
    1060. 

  1060.   global $restore,$preview,$HandleActions,$Text,
    1061. 

  1061.     $HandleEditFmt,$PageStartFmt,$PageEditFmt,$PagePreviewFmt,$PageEndFmt,
    1062. 

  1062.     $DiffClassMinor,$PatchFunction;
    1063. 

  1063.   if (@$_POST['post']) 
    1064. 

  1064.     { $handle = $HandleActions['post']; return $handle($pagename); }
    1065. 

  1065.   $page = RetrieveAuthPage($pagename,"edit");
    1066. 

  1066.   if (!$page) { Abort("?cannot edit $pagename"); }
    1067. 

  1067.   SetPageVars($pagename,$page,"Edit $pagename");
    1068. 

  1068.   if ($restore && $PatchFunction) { $text = $PatchFunction($page,$restore); }
    1069. 

  1069.   else if ($preview) { $text = stripmagic($_POST['text']); }
    1070. 

  1070.   else { $text = $page['text']; }
    1071. 

  1071.   $Text = $text;
    1072. 

  1072.   $DiffClassMinor = ''; 
    1073. 

  1073.   if (@$_POST['diffclass']=='minor') $DiffClassMinor="checked='checked'";
    1074. 

  1074.   SDV($HandleEditFmt,array(&$PageStartFmt,
    1075. 

  1075.     &$PageEditFmt,&$PagePreviewFmt,
    1076. 

  1076.     &$PageEndFmt));
    1077. 

  1077.   PrintFmt($pagename,$HandleEditFmt);
    1078. 

  1078. }
    1079. 

  1079. 

  1080. function HandlePost($pagename) {
    1081. 

  1081.   global $WikiDir,$DeleteKeyWord,$RecentChanges,$RCDelimPattern,$Now,
    1082. 

  1082.     $TimeFmt,$CurrentTime,$PageFileFmt,$DiffKeepDays,$Author,$PostFields,
    1083. 

  1083.     $DiffFunction,$ChangeSummary;
    1084. 

  1084.   $CurrentTime = strftime($TimeFmt,$Now);
    1085. 

  1085.   foreach($PostFields as $k) {
    1086. 

  1086.     if (isset($_POST[$k]))
    1087. 

  1087.       $new[$k]=str_replace("\r","",stripmagic($_POST[$k])); 
    1088. 

  1088.   }
    1089. 

  1089.   Lock(2);
    1090. 

  1090.   $page = RetrieveAuthPage($pagename,"edit");
    1091. 

  1091.   if (!$page) { Abort("?cannot post $pagename"); }
    1092. 

  1092.   $pagename = FmtPageName('$PageName',$pagename);
    1093. 

  1093.   if ($new['text']==$page['text']) 
    1094. 

  1094.     { Redirect($pagename); return; }
    1095. 

  1095.   $diffclass=preg_replace('/\\W/','',@$_POST['diffclass']);
    1096. 

  1096.   if ($page["time"]>0)  
    1097. 

  1097.     $new["diff:$Now:".$page['time'].":$diffclass"] = 
    1098. 

  1098.       $DiffFunction($new['text'],$page['text']); 
    1099. 

  1099.   $new['author'] = $Author;
    1100. 

  1100.   $new["author:$Now"] = $Author;
    1101. 

  1101.   $new["host:$Now"] = $_SERVER['REMOTE_ADDR'];
    1102. 

  1102.   if ($ChangeSummary) $new["csum:$Now"] = $ChangeSummary;
    1103. 

  1103.   foreach($new as $k=>$v) {
    1104. 

  1104.     if ($k=='pagename' || $k=='action') continue;
    1105. 

  1105.     $page[$k] = $v;
    1106. 

  1106.   }
    1107. 

  1107.   $keepgmt = $Now-$DiffKeepDays*86400;
    1108. 

  1108.   $keys = array_keys($page);
    1109. 

  1109.   foreach ($keys as $k) 
    1110. 

  1110.     if (preg_match("/^\\w+:(\\d+)/",$k,$match))
    1111. 

  1111.       if ($match[1] < $keepgmt) unset($page[$k]);
    1112. 

  1112.   $pagefile = FmtPageName($PageFileFmt,$pagename);
    1113. 

  1113.   if ($page['text']==$DeleteKeyWord) 
    1114. 

  1114.     { @rename("$WikiDir/$pagefile","$WikiDir/$pagefile,$Now"); }
    1115. 

  1115.   else WritePage($pagename,$page);
    1116. 

  1116.   foreach($RecentChanges as $rcfmt => $pgfmt) {
    1117. 

  1117.     $rcname=FmtPageName($rcfmt,$pagename); if (!$rcname) continue;
    1118. 

  1118.     $pgtext=FmtPageName($pgfmt,$pagename); if (!$pgtext) continue;
    1119. 

  1119.     if (@$seen[$rcname]++) continue;
    1120. 

  1120.     $rcpage = ReadPage($rcname,"");
    1121. 

  1121.     $rcelim = preg_quote(preg_replace("/$RCDelimPattern.*$/",' ',$pgtext),'/');
    1122. 

  1122.     $rcpage['text'] = preg_replace("/[^\n]*$rcelim.*\n/","",$rcpage['text']);
    1123. 

  1123.     if (!preg_match("/$RCDelimPattern/",$rcpage['text'])) 
    1124. 

  1124.       $rcpage['text'] .= "$pgtext\n";
    1125. 

  1125.     else 
    1126. 

  1126.       $rcpage['text'] = preg_replace("/([^\n]*$RCDelimPattern.*\n)/",
    1127. 

  1127.         "$pgtext\n$1",$rcpage['text'],1);
    1128. 

  1128.     WritePage($rcname,$rcpage);
    1129. 

  1129.   }
    1130. 

  1130.   Redirect($pagename); 
    1131. 

  1131. }
    1132. 

  1132. 

  1133. function HandleSource($pagename) {
    1134. 

  1134.   $page = RetrieveAuthPage($pagename,"read");
    1135. 

  1135.   if (!$page) Abort("?cannot source $pagename");
    1136. 

  1136.   Lock(0);
    1137. 

  1137.   header("Content-Type: text/plain");
    1138. 

  1138.   echo $page['text'];
    1139. 

  1139. }
    1140. 

  1140. 

  1141. function BasicAuth($pagename,$level,$authprompt=true) {
    1142. 

  1142.   global $AuthRealmFmt,$AuthDeniedFmt,$DefaultPasswords,
    1143. 

  1143.     $AllowPassword,$GroupAttributesFmt;
    1144. 

  1144.   $page = ReadPage($pagename);
    1145. 

  1145.   if (!$page) { return false; }
    1146. 

  1146.   @$passwd = $page["passwd$level"];
    1147. 

  1147.   if ($passwd=="") { 
    1148. 

  1148.     $grouppg = ReadPage(FmtPageName($GroupAttributesFmt,$pagename));
    1149. 

  1149.     @$passwd = $grouppg["passwd$level"];
    1150. 

  1150.   }
    1151. 

  1151.   if (crypt($AllowPassword,$passwd)==$passwd) return $page;
    1152. 

  1152.   if ($passwd=="") { $passwd=@$DefaultPasswords[$level]; }
    1153. 

  1153.   if ($passwd=="") return $page;
    1154. 

  1154.   foreach (array_merge((array)$DefaultPasswords['admin'],(array)$passwd) as $pw)
    1155. 

  1155.     if (@crypt($_SERVER['PHP_AUTH_PW'],$pw)==$pw) return $page;
    1156. 

  1156.   if (!$authprompt) return false;
    1157. 

  1157.   $realm=FmtPageName($AuthRealmFmt,$pagename);
    1158. 

  1158.   header("WWW-Authenticate: Basic realm=\"$realm\"");
    1159. 

  1159.   header("Status: 401 Unauthorized");
    1160. 

  1160.   header("HTTP-Status: 401 Unauthorized");
    1161. 

  1161.   PrintFmt($pagename,$AuthDeniedFmt);
    1162. 

  1162.   exit;
    1163. 

  1163. }
    1164. 

  1164. 

  1165. function RetrieveAuthPage($pagename,$level,$authprompt=true) {
    1166. 

  1166.   global $AuthFunction;
    1167. 

  1167.   if (!function_exists($AuthFunction)) 
    1168. 

  1168.     Abort("?Invalid AuthFunction specified: $AuthFunction","AuthFunction");
    1169. 

  1169.   return $AuthFunction($pagename,$level,$authprompt);
    1170. 

  1170. }
    1171. 

  1171. 

  1172. function PrintAttrForm($pagename) {
    1173. 

  1173.   global $PageAttributes;
    1174. 

  1174.   echo FmtPageName("<form action='\$PageUrl' method='post'>
    1175. 

  1175.     <input type='hidden' name='action' value='postattr' />
    1176. 

  1176.     <input type='hidden' name='pagename' value='$PageName' />
    1177. 

  1177.     <table>",$pagename);
    1178. 

  1178.   foreach($PageAttributes as $attr=>$p) {
    1179. 

  1179.     $value = (substr($attr,0,6)=='passwd') ? '' : $page[$k];
    1180. 

  1180.     $prompt = FmtPageName($p,$pagename);
    1181. 

  1181.     echo "<tr><td>$prompt</td>
    1182. 

  1182.       <td><input type='text' name='$attr' value='$value' /></td></tr>";
    1183. 

  1183.   }
    1184. 

  1184.   echo "</table><input type='submit' /></form>";
    1185. 

  1185. }
    1186. 

  1186. 

  1187. function HandleAttr($pagename) {
    1188. 

  1188.   global $HandleAttrFmt,$PageStartFmt,$PageAttrFmt,$PageEndFmt;
    1189. 

  1189.   $page = RetrieveAuthPage($pagename,"attr");
    1190. 

  1190.   if (!$page) { Abort("?unable to read $pagename"); }
    1191. 

  1191.   SetPageVars($pagename,$page,"Edit $pagename Attributes");
    1192. 

  1192.   SDV($HandleAttrFmt,array(&$PageStartFmt,
    1193. 

  1193.     &$PageAttrFmt,'function:PrintAttrForm',
    1194. 

  1194.     &$PageEndFmt));
    1195. 

  1195.   PrintFmt($pagename,$HandleAttrFmt);
    1196. 

  1196. }
    1197. 

  1197. 

  1198. function HandlePostAttr($pagename) {
    1199. 

  1199.   global $PageAttributes;
    1200. 

  1200.   $page = RetrieveAuthPage($pagename,"attr");
    1201. 

  1201.   if (!$page) { Abort("?cannot get $pagename"); }
    1202. 

  1202.   foreach($PageAttributes as $k=>$v) {
    1203. 

  1203.     $newpw = $_POST[$k];
    1204. 

  1204.     if ($newpw=="clear") unset($page[$k]);
    1205. 

  1205.     else if ($newpw>"") $page[$k]=crypt($newpw);
    1206. 

  1206.   }
    1207. 

  1207.   WritePage($pagename,$page);
    1208. 

  1208.   Redirect($pagename);
    1209. 

  1209.   exit;
    1210. 

  1210. }
    1211. 

  1211. 

  1212. ?>
    1213.