\n");
$PageEndFmt = array('
',&$HTMLEndFmt);
$HTMLVSpace = "";
$HTMLLineBreak = '';
$XLLangs = array('en');
$FmtWikiLink = 'FmtWikiLink';
$FmtUrlLink = 'FmtUrlLink';
$WikiWordPagePathFmt = array('$Group.$1','$1.$1');
$WikiPageExistsFmt = "\$LinkText";
$WikiPageCreateFmt =
"\$LinkText?";
$WikiWordCountMax = 1000000;
$WikiWordCount['PmWiki'] = 1;
$UrlLinkFmt = "\$LinkText";
$UrlImgFmt = "\$1",
"/\\[\\[<<\\]\\]/" => "", "/\\[(\\++)(.*?)\\1\\]/e" => "''.str_replace('\\\"','\"','$2').''", "/\\[(-+)(.*?)\\1\\]/e" => "''.str_replace('\\\"','\"','$2').''", "/^----+/" => "
", "/&([A-Za-z0-9]+;|#\d+;|#[xX][A-Fa-f0-9]+;)/" => "&\$1"); $PageAttributes = array( 'passwdread' => '$[Set new read password:]', 'passwdedit' => '$[Set new edit password:]', 'passwdattr' => '$[Set new attribute password:]'); $HandleActions = array( 'edit' => 'HandleEdit', 'post' => 'HandlePost', 'attr' => 'HandleAttr', 'postattr' => 'HandlePostAttr', 'source' => 'HandleSource'); $WikiStylePattern = '%%|%[A-Za-z][-,=:#\\w\\s]*%'; $WikiStyleTags = array( 'color' => array( 'style' => 'color:$value; ', 'a' => 'style=\'color:$value\' '), 'bgcolor' => array( 'style' => 'background-color:$value; '), 'font-size' => array( 'style' => 'font-size:$value; '), 'font-family' => array( 'style' => 'font-family:$value; '), 'font-style' => array( 'style' => 'font-style:$value; '), 'font-weight' => array( 'style' => 'font-weight:$value; '), 'text-decoration' => array( 'style' => 'text-decoration:$value; '), 'class' => array( 'class' => 'class=\'$value\''), 'target' => array( 'a' => 'target=\'$value\' '), 'rel' => array('a' => 'rel=\'$value\' '), 'hspace' => array( 'img' => 'hspace=\'$value\' '), 'vspace' => array( 'img' => 'vspace=\'$value\' '), 'width' => array( 'img' => 'width=\'$value\' '), 'height' => array( 'img' => 'height=\'$value\' ') ); $Now = time(); $MaxIncludes = 10; $TableAttr = ""; $TableCellAttr = "valign='top'"; $Newline = "\262"; $KeepToken = "\263"; $KPCount=0; $LinkToken = "\037"; $StyleToken = "\036"; $EnableStdConfig = 1; umask(is_writable($WikiDir) ? (fileperms($WikiDir)^0777) : 002); if (setlocale(LC_ALL,0)=='C') setlocale(LC_ALL,'en_US'); if (strpos(@$_SERVER['QUERY_STRING'],'?')!==false) { unset($_GET); parse_str(str_replace('?','&',$_SERVER['QUERY_STRING']),$_GET); } $gvars = array('pagename','action','text','restore','preview'); foreach($gvars as $v) { if (isset($_GET[$v])) $$v=$_GET[$v]; elseif (isset($_POST[$v])) $$v=$_POST[$v]; else $$v = ''; } SDV($EnablePathInfo,!preg_match("/^cgi/",php_sapi_name())); if ($pagename=='' && $EnablePathInfo) $pagename = @substr(htmlspecialchars($_SERVER['PATH_INFO']),1); if (preg_match('/[\\x80-\\xbf]/',$pagename)) $pagename=utf8_decode($pagename); if ($action=='') $action='browse'; error_reporting(E_ALL ^ E_NOTICE); if (file_exists("$FarmD/local/farmconfig.php")) include_once("$FarmD/local/farmconfig.php"); if (!isset($EnableLocalConfig) || $EnableLocalConfig) { if (file_exists('local/config.php')) { include_once('local/config.php'); $LocalConf=1; } elseif (file_exists('local.php')) # deprecated 0.6 { include_once('local.php'); $LocalConf=1; } # deprecated 0.6 elseif (file_exists('local/local.php')) # deprecated 0.6 { include_once('local/local.php'); $LocalConf=1; } # deprecated 0.6 } SDV($DefaultPage,"$DefaultGroup/$DefaultTitle"); if ($pagename=='') $pagename=$DefaultPage; if ($EnableStdConfig) @include_once("$FarmD/scripts/stdconfig.php"); mkgiddir($WikiDir); if (!file_exists("$WikiDir/.htaccess") && $fp=@fopen("$WikiDir/.htaccess","w")) { fwrite($fp,"Order Deny,Allow\nDeny from all\n"); fclose($fp); } SDV($UrlLinkTextFmt,$UrlLinkFmt); SDV($RedirectPattern,"\\[\\[redirect:(\\S+)\\]\\]"); SDV($WikiPageCreateSpaceFmt,$WikiPageCreateFmt); $LinkPatterns[200]["\\bmailto:($UrlPathPattern)"] = "$1"; $LinkPatterns[300]["\\b($UrlMethodPattern):($UrlPathPattern)"] = $FmtUrlLink; foreach($InterMapFiles as $mapfile) { if (@!($mapfd=fopen($mapfile,"r"))) continue; while ($mapline=fgets($mapfd,1024)) { if (preg_match("/^\\s*\$/",$mapline)) continue; list($mapid,$mapurl) = preg_split("/\\s+/",$mapline); if (strpos($mapurl,'$1')===false) $mapurl .= '$1'; $LinkPatterns[400]["\\b$mapid:($UrlPathPattern)"] = $FmtUrlLink; $InterMapUrls[$mapid] = $mapurl; } fclose($mapfd); } $LinkPatterns[480]["($WikiStylePattern)"] = "$StyleToken$1"; $LinkPatterns[500]["\\b($GroupNamePattern([\\/.]))?($FreeLinkPattern)($FragmentPattern)?"] = $FmtWikiLink; $LinkPatterns[600]["$FreeLinkPattern($FragmentPattern)?"] = $FmtWikiLink; $LinkPatterns[700]["\\b$GroupNamePattern([\\/.])$WikiWordPattern($FragmentPattern)?"] = $FmtWikiLink; $LinkPatterns[780]["\\[\\[$FragmentPattern\\]\\]"] = ""; $LinkPatterns[780]["\\[\\[$FragmentPattern\\s(.+?)\\]\\]"] = "$2"; $LinkPatterns[800]["\\b$WikiWordPattern($FragmentPattern)?"] = $FmtWikiLink; $CurrentTime = strftime($TimeFmt,$Now); if (preg_match("/^($GroupNamePattern)[\\/.]?\$/",$pagename,$match)) { if (PageExists($match[1].'.'.$match[1])) Redirect($match[1].'.'.$match[1]); else Redirect($match[1].".$DefaultTitle"); } if (!preg_match("/^($GroupNamePattern)[\\/.]($PageTitlePattern)\$/",$pagename, $match)) Abort("'$pagename' is not a valid PmWiki page name"); $pagename=FmtPageName('$PageName',$pagename); $handle = @$HandleActions[$action]; if (function_exists($handle)) $handle($pagename); else { HandleBrowse($pagename); } EndHTML(); Lock(-1); function SDV(&$var,$val) { if (!isset($var)) $var=$val; } function SDVA(&$var,$val) { foreach($val as $k=>$v) if (!isset($var[$k])) $var[$k]=$v; } function stripmagic($s) { return get_magic_quotes_gpc() ? stripslashes($s) : $s; } function mkgiddir($dir) { global $ForceMkdir; $dir = preg_replace('!/$!','',$dir); if (is_dir($dir)) return; if (!$ForceMkdir) { $parent = dirname($dir); $rparent = realpath($parent); $perms = fileperms($parent); if (umask()!=0 && posix_getegid()!=filegroup($parent) && ($perms & 02000)==0) Abort("PmWiki wants setgid permissions enabled on $rparent
before it creates the $dir directory.
Try executing
chmod 2777 $rparenton your server and reloading this page. Afterwards, you can restore the permissions
to their current setting by executing
chmod ".decoct($perms & 03777)." $rparentIf this doesn't work for you, see the link below.","Setgid"); } mkdir($dir,0777) or Abort("Cannot create $dir
Current directory is ".getcwd()."","Mkdir"); } function Abort($msg,$aref = NULL) { StartHTML("","Program error"); echo("
PmWiki can't process your request
$msg
We are sorry for any inconvenience.
"); if ($aref) { $href = "http://www.pmichaud.com/ref/PmWiki/$aref"; echo(""); } EndHTML(); exit(); } function SetPageVars($pagename,&$page,$title) { $GLOBALS['LastModified'] = $page['timefmt']; $GLOBALS['LastModifiedBy'] = @$page['author']; $GLOBALS['LastModifiedHost'] = @$page['host']; $GLOBALS['HTMLTitle'] = $title; $GLOBALS['GCount'] = 0; } function StartHTML($pagename,$title = "") { global $calledStartHTML; if ($calledStartHTML++) return; global $HTMLStartFmt,$GCount; $GLOBALS['HTMLTitle']=$title; $GCount=0; PrintFmt($pagename,$HTMLStartFmt); } function EndHTML($pagename=NULL,$x=NULL) { static $called; if ($called++) return; global $calledStartHTML,$HTMLEndFmt; if ($calledStartHTML) PrintFmt($pagename,$HTMLEndFmt); } function Redirect($pagename,$urlfmt='$PageUrl') { global $RedirectDelay,$ScriptUrl,$DefaultPage; clearstatcache(); if (!PageExists($pagename)) $pagename=$DefaultPage; $pageurl=FmtPageName($urlfmt,$pagename); header("Location: $pageurl"); header("Content-type: text/html"); print("');
$e1 = array('=' => '', '@' => '');
return preg_replace("/\\[([=@])(.*?)\\1\\]/se",
"Keep(\$e0['$1'].htmlspecialchars(str_replace('\\\"','\"','$2'),ENT_NOQUOTES).\$e1['$1'])",$text);
}
function QuoteAttrs($attr) {
return preg_replace('/([a-zA-Z]=)([^\'"]\\S*)/',"\$1'\$2'",$attr);
}
function EmitCode($code,$depth,$attr="") {
global $HTMLVSpace;
static $cs,$vspaces;
static $li = array('dl'=>'','ul'=>'','ol'=>'',
'indent' => '');
static $le = array('dl'=>'','ul'=>'','ol'=>'');
$attr = QuoteAttrs($attr);
if (!$cs) { $cs = array(); }
if ($code=='p') { $vspaces.="\n"; return; }
if ((@$cs[0]=='table' || @$cs[0]=='pre') && $code!=@$cs[0])
while (count($cs)>0) { echo ""; }
while (count($cs)>$depth)
{ $c=array_pop($cs); echo @$li[$c],@$le[$c]; }
if ($depth>0 && $depth==count($cs) && $cs[$depth-1]!=$code)
{ $c=array_pop($cs); echo @$li[$c],@$le[$c]; }
if ($vspaces)
{ echo (@$cs[0]=='pre') ? $vspaces : $HTMLVSpace; $vspaces=''; }
if ($depth==0) return;
if ($depth==count($cs)) { echo @$li[$code]; return; }
while (count($cs)<$depth-1) { array_push($cs,'dl'); echo '- '; }
while (count($cs)<$depth) {
array_push($cs,$code);
if ($code!='indent') echo "<$code $attr>";
}
}
function FormatTableRow($x,$cellattr) {
$x = preg_replace("/\\|\\|\$/","",$x);
$td = explode('||',$x); $y='';
for($i=0;$i
$y "; } function EmitCell($x,$y) { static $tableattr,$intable; $y = QuoteAttrs($y); if ($x == 'cell' || $x == 'cellnr') { if (!$intable) { echo "
"; $intable=0; } $tableattr = $y; } function ApplyStyles($x) { global $WikiStylePattern,$WikiStyle,$WikiStyleTags,$StyleToken; $lineparts = preg_split("/$StyleToken($WikiStylePattern)/",$x,-1, PREG_SPLIT_DELIM_CAPTURE); $out=''; $style = array(); while ($lineparts) { $WikiStyle['curr']=$style; $style = array(); if (preg_match("/^$WikiStylePattern\$/",$lineparts[0])) { $slist=preg_split('/[^-#=:,\\w]+/',array_shift($lineparts),-1, PREG_SPLIT_NO_EMPTY); foreach($slist as $s) { if (preg_match('/^([^=:]+)[=:](.*)$/',$s,$match)) { $style[$match[1]] = $match[2]; } else { $style = array_merge($style,(array)@$WikiStyle[$s]); } } if (@$style['define']) { $d = $style['define']; unset($style['define']); $WikiStyle[$d] = $style; } } $l = array_shift($lineparts); if ($l>"") { $styleattr = ''; $classattr = ''; foreach($style as $k=>$v) { if (!is_array($WikiStyleTags[$k])) continue; foreach($WikiStyleTags[$k] as $tag=>$w) { $w = str_replace('$value',$v,$w); if ($tag=='style') $styleattr.=$w; elseif ($tag=='class') $classattr=$w; else $l=preg_replace("/(<$tag )/","\$1$w ",$l); } } if ($styleattr) { $styleattr="style='$styleattr'"; } if ($styleattr || $classattr) $out .= "$l"; else $out .= $l; } } return $out; } function PrintText($pagename,$text="") { global $KeepToken,$KPV,$LinkToken,$LinkPatterns,$ImgExtPattern, $DoubleBrackets,$TableAttr,$TableCellAttr,$HTMLLineBreak, $InlineReplacements,$WikiStylePattern,$Text,$WWCount,$WikiWordCount; static $refcount; $WWCount=$WikiWordCount; if ($text=="") $text=$Text; ksort($LinkPatterns); foreach($LinkPatterns as $n=>$a) foreach($a as $p=>$r) $linkpats[$p]=$r; $lp=$LinkToken; $text = KeepWikiEscapes($text); $text = htmlspecialchars($text,ENT_NOQUOTES); $text = str_replace("\r","",$text); $text = preg_replace("/(\\\\*)\\\\\n/e", "' '.str_repeat('"; $intable=1; } else if ($x == 'cellnr') { echo " "; } else { echo " "; } return; } if ($intable) { echo "
',strlen('$1'))",$text); foreach($DoubleBrackets as $n=>$fmt) { if ($n[0]!='/') $text=str_replace($n,FmtPageName($fmt,$pagename),$text); } $lines = explode("\n",$text); foreach($lines as $x) { foreach($DoubleBrackets as $n=>$fmt) { if ($n[0]=='/') $x=preg_replace($n,$fmt,$x); } $lpcount = 0; $lpv = array(); foreach($linkpats as $pat=>$rep) { $re = "/\\[\\[($pat)(\\s.*?)?(\\]\\])/"; while(preg_match($re,$x,$match)) { $x=preg_replace($re,"$lp$lpcount$lp",$x,1); array_pop($match); $txt=array_pop($match); if ($txt=="") $txt="$lp#$lp"; else { $txt = ltrim($txt); if (preg_match("/$ImgExtPattern\$/",$txt)) { foreach($linkpats as $p=>$r) { if (preg_match("/^$p\$/",$txt)) { if (function_exists($r)) $txt = $r($p,$txt,NULL); else $txt = preg_replace($p,$r,$txt); break; } } } } if (function_exists($rep)) $txt = $rep($pat,$match[1],$txt); else { $r = preg_replace("/^$pat\$/",$rep,$match[1]); preg_match("/(name|href)='.*?'/",$r,$match); $txt = "$txt"; } $lpv[$lpcount++] = $txt; } } foreach($linkpats as $pat=>$rep) { $re = "/($pat)/"; while(preg_match($re,$x,$match)) { $x=preg_replace($re,"$lp$lpcount$lp",$x,1); if (function_exists($rep)) $txt = $rep($pat,$match[1],NULL); else $txt = preg_replace("/^$pat\$/",$rep,$match[1]); $lpv[$lpcount++] = $txt; } } if (preg_match("/^\\[\\[(table|cell|cellnr|tableend)(\\s.*?)?\\]\\]/",$x,$match)) { EmitCode("",0); @EmitCell($match[1],$match[2]); $x=preg_replace("/^\\[\\[.*?\\]\\]/","",$x); } else if (preg_match("/^\\s*\$/",$x)) { EmitCode("p",0); continue; } if (preg_match("/^(:+)[^:]*:/",$x,$match)) { $x=preg_replace("/^:+([^:]*):/","- \\1
- ",$x); EmitCode("dl",strlen($match[1])); } elseif (preg_match("/^(\\*+)/",$x,$match)) { $x=preg_replace("/^\\*+/","
- ",$x); EmitCode("ul",strlen($match[1])); } elseif (preg_match("/^(#+)/",$x,$match)) { $x=preg_replace("/^#+/","
- ",$x); EmitCode("ol",strlen($match[1])); } elseif (preg_match("/^\s/",$x)) { EmitCode("pre",1); } elseif (preg_match("/^\\|\\|.*\\|\\|/",$x,$match)) { EmitCode("table",1,$TableAttr); $x=FormatTableRow($x,$TableCellAttr); } elseif (preg_match("/^\\|\\|(.*)/",$x,$match)) { EmitCode("",0); $TableAttr = $match[1]; continue; } elseif (preg_match("/^(!{1,6})/",$x,$match)) { $h="h".strlen($match[1]); $x=preg_replace("/^(!{1,6})/","<$h>",$x).""; EmitCode("",0); } elseif (preg_match("/^(-+)>/",$x,$match)) { $x=preg_replace("/^(-+)>/","
",$x); EmitCode("indent",strlen($match[1])); } else { $x.=$HTMLLineBreak; EmitCode("",0); } foreach ($InlineReplacements as $pat => $rep) $x = preg_replace($pat,$rep,$x); if (preg_match("/^\\s*($lp(\\d+)$lp)\\s*\$/",$x,$match)) $x = str_replace(" img>"," />
",$lpv[$match[2]]); if (preg_match("/^\\s*($lp(\\d+)$lp).*\\S/",$x,$match)) $x = str_replace($match[1], str_replace(" img>"," align='left' />",$lpv[$match[2]]), $x); if (preg_match("/\\S.*($lp(\\d+)$lp)\\s*\$/",$x,$match)) { $rt = str_replace(" img>"," align='right' />",$lpv[$match[2]]); if (strstr($rt,"