Inicio Explorar Axuda
Iniciar sesión
OSInet
/
phpgtk__legacy
2
0
Fork 0
Ficheiros Pull Requests 0
Árbore: cffcf649ab
Ramas Etiquetas
phpgtk__legacy
/
wiki1
/
index.php

index.php 46 KB
Histórico Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211 
  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' rel='nofollow'>\$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.   Lock(2);
    689. 

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

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

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

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

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

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

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

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

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

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

  699.   $s = false;
    700. 

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

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

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

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

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

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

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

  707.   } 
    708. 

  708.   if (!$s) 
    709. 

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

  710. }  
    711. 

  711. 

  712. function Keep($text) {
    713. 

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

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

  715.   return $KeepToken.$KPCount.$KeepToken;
    716. 

  716. }
    717. 

  717. 

  718. function KeepWikiEscapes($text) {
    719. 

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

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

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

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

  723. }
    724. 

  724. 

  725. function QuoteAttrs($attr) {
    726. 

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

  727. }
    728. 

  728.   
    729. 

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

  730.   global $HTMLVSpace;
    731. 

  731.   static $cs,$vspaces;
    732. 

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

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

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

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

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

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

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

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

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

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

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

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

  744.   if ($vspaces) 
    745. 

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

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

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

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

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

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

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

  752.   }
    753. 

  753. }
    754. 

  754. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  774.   }
    775. 

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

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

  777. }
    778. 

  778. 

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

  780.   static $tableattr,$intable;
    781. 

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

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

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

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

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

  786.     return;
    787. 

  787.   } 
    788. 

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

  789.   $tableattr = $y;
    790. 

  790. }
    791. 

  791. 

  792. function ApplyStyles($x) {
    793. 

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

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

  795.     PREG_SPLIT_DELIM_CAPTURE);
    796. 

  796.   $out='';
    797. 

  797.   $style = array();
    798. 

  798.   while ($lineparts) {
    799. 

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

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

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

  802.         PREG_SPLIT_NO_EMPTY);
    803. 

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

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

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

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

  807.       }
    808. 

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

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

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

  811.       }
    812. 

  812.     }
    813. 

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

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

  815.       $styleattr = '';
    816. 

  816.       $classattr = '';
    817. 

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

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

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

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

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

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

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

  824.         }
    825. 

  825.       }
    826. 

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

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

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

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

  830.     }
    831. 

  831.   }
    832. 

  832.   return $out;
    833. 

  833. }
    834. 

  834.   
    835. 

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

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

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

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

  839.   static $refcount;
    840. 

  840.   $WWCount=$WikiWordCount;
    841. 

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

  842.   ksort($LinkPatterns);
    843. 

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

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

  845.   $lp=$LinkToken;
    846. 

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

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

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

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

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

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

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

  853.   }
    854. 

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

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

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

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

  858.     }
    859. 

  859.     $lpcount = 0;
    860. 

  860.     $lpv = array();
    861. 

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

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

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

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

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

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

  867.         else {
    868. 

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

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

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

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

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

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

  874.                 break;
    875. 

  875.               }
    876. 

  876.             }
    877. 

  877.           } 
    878. 

  878.         }
    879. 

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

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

  881.         else {
    882. 

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

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

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

  885.         }
    886. 

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

  887.       }
    888. 

  888.     }
    889. 

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

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

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

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

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

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

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

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

  897.       }
    898. 

  898.     }
    899. 

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

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

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

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

  903.     }
    904. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  922.       continue;
    923. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  942.     } 
    943. 

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

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

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

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

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

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

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

  950.   }
    951. 

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

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

  953. }
    954. 

  954. 

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

  956.   global $PrintWikiPageNotFoundFmt;
    957. 

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

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

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

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

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

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

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

  964.       return;
    965. 

  965.     }
    966. 

  966.   }
    967. 

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

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

  969. }
    970. 

  970. 

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

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

  973.   $inclcount=0;
    974. 

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

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

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

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

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

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

  980.     $badanchor = '';
    981. 

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

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

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

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

  985.     if ($badanchor)
    986. 

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

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

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

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

  990.     elseif ($bb) 
    991. 

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

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

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

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

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

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

  997.     elseif ($aa)
    998. 

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

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

  1000.     $inclcount++;
    1001. 

  1001.   }
    1002. 

  1002.   return $text;
    1003. 

  1003. }
    1004. 

  1004. 

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

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

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

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

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

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

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

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

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

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

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

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

  1017.     }
    1018. 

  1018.   }
    1019. 

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

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

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

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

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

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

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

  1026.     }
    1027. 

  1027.   }
    1028. 

  1028.   Lock(0);
    1029. 

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

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

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

  1032.   }
    1033. 

  1033.   $Text = $text;
    1034. 

  1034. }
    1035. 

  1035. 

  1036. function HandleBrowse($pagename) {
    1037. 

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

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

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

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

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

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

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

  1044.     $PageRedirectFmt = '';
    1045. 

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

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

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

  1048.     }
    1049. 

  1049.   }
    1050. 

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

  1051.   ProcessTextDirectives($pagename);
    1052. 

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

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

  1054.     &$PageEndFmt));
    1055. 

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

  1056. }
    1057. 

  1057. 

  1058. function HandleEdit($pagename) {
    1059. 

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

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

  1061.     $DiffClassMinor,$PatchFunction;
    1062. 

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

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

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

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

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

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

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

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

  1070.   $Text = $text;
    1071. 

  1071.   $DiffClassMinor = ''; 
    1072. 

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

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

  1074.     &$PageEditFmt,&$PagePreviewFmt,
    1075. 

  1075.     &$PageEndFmt));
    1076. 

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

  1077. }
    1078. 

  1078. 

  1079. function HandlePost($pagename) {
    1080. 

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

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

  1082.     $DiffFunction,$ChangeSummary;
    1083. 

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

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

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

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

  1087.   }
    1088. 

  1088.   Lock(2);
    1089. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1105.   }
    1106. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  1124.     else 
    1125. 

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

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

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

  1128.   }
    1129. 

  1129.   Redirect($pagename); 
    1130. 

  1130. }
    1131. 

  1131. 

  1132. function HandleSource($pagename) {
    1133. 

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

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

  1135.   Lock(0);
    1136. 

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

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

  1138. }
    1139. 

  1139. 

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

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

  1142.     $AllowPassword,$GroupAttributesFmt;
    1143. 

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

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

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

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

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

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

  1149.   }
    1150. 

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

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

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

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

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

  1155.   if (!$authprompt) return false;
    1156. 

  1156.   $realm=FmtPageName($AuthRealmFmt,$pagename);
    1157. 

  1157.   header("WWW-Authenticate: Basic realm=\"$realm\"");
    1158. 

  1158.   header("Status: 401 Unauthorized");
    1159. 

  1159.   header("HTTP-Status: 401 Unauthorized");
    1160. 

  1160.   PrintFmt($pagename,$AuthDeniedFmt);
    1161. 

  1161.   exit;
    1162. 

  1162. }
    1163. 

  1163. 

  1164. function RetrieveAuthPage($pagename,$level,$authprompt=true) {
    1165. 

  1165.   global $AuthFunction;
    1166. 

  1166.   if (!function_exists($AuthFunction)) 
    1167. 

  1167.     Abort("?Invalid AuthFunction specified: $AuthFunction","AuthFunction");
    1168. 

  1168.   return $AuthFunction($pagename,$level,$authprompt);
    1169. 

  1169. }
    1170. 

  1170. 

  1171. function PrintAttrForm($pagename) {
    1172. 

  1172.   global $PageAttributes;
    1173. 

  1173.   echo FmtPageName("<form action='\$PageUrl' method='post'>
    1174. 

  1174.     <input type='hidden' name='action' value='postattr' />
    1175. 

  1175.     <input type='hidden' name='pagename' value='$PageName' />
    1176. 

  1176.     <table>",$pagename);
    1177. 

  1177.   foreach($PageAttributes as $attr=>$p) {
    1178. 

  1178.     $value = (substr($attr,0,6)=='passwd') ? '' : $page[$k];
    1179. 

  1179.     $prompt = FmtPageName($p,$pagename);
    1180. 

  1180.     echo "<tr><td>$prompt</td>
    1181. 

  1181.       <td><input type='text' name='$attr' value='$value' /></td></tr>";
    1182. 

  1182.   }
    1183. 

  1183.   echo "</table><input type='submit' /></form>";
    1184. 

  1184. }
    1185. 

  1185. 

  1186. function HandleAttr($pagename) {
    1187. 

  1187.   global $HandleAttrFmt,$PageStartFmt,$PageAttrFmt,$PageEndFmt;
    1188. 

  1188.   $page = RetrieveAuthPage($pagename,"attr");
    1189. 

  1189.   if (!$page) { Abort("?unable to read $pagename"); }
    1190. 

  1190.   SetPageVars($pagename,$page,"Edit $pagename Attributes");
    1191. 

  1191.   SDV($HandleAttrFmt,array(&$PageStartFmt,
    1192. 

  1192.     &$PageAttrFmt,'function:PrintAttrForm',
    1193. 

  1193.     &$PageEndFmt));
    1194. 

  1194.   PrintFmt($pagename,$HandleAttrFmt);
    1195. 

  1195. }
    1196. 

  1196. 

  1197. function HandlePostAttr($pagename) {
    1198. 

  1198.   global $PageAttributes;
    1199. 

  1199.   $page = RetrieveAuthPage($pagename,"attr");
    1200. 

  1200.   if (!$page) { Abort("?cannot get $pagename"); }
    1201. 

  1201.   foreach($PageAttributes as $k=>$v) {
    1202. 

  1202.     $newpw = $_POST[$k];
    1203. 

  1203.     if ($newpw=="clear") unset($page[$k]);
    1204. 

  1204.     else if ($newpw>"") $page[$k]=crypt($newpw);
    1205. 

  1205.   }
    1206. 

  1206.   WritePage($pagename,$page);
    1207. 

  1207.   Redirect($pagename);
    1208. 

  1208.   exit;
    1209. 

  1209. }
    1210. 

  1210. 

  1211. ?>
    1212.