<?php
// PukiWiki - Yet another WikiWikiWeb clone.
// file.php
-// Copyright (C)
-// 2002-2016 PukiWiki Development Team
+// Copyright
+// 2002-2021 PukiWiki Development Team
// 2001-2002 Originally written by yu-ji
// License: GPL v2 or (at your option) any later version
//
// AutoLink
define('PKWK_AUTOLINK_REGEX_CACHE', 'autolink.dat');
-// Get source(wiki text) data of the page
-// Returns FALSE if error occurerd
-function get_source($page = NULL, $lock = TRUE, $join = FALSE)
+// AutoAlias
+define('PKWK_AUTOALIAS_REGEX_CACHE', 'autoalias.dat');
+
+/**
+ * Get source(wiki text) data of the page
+ *
+ * @param $page page name
+ * @param $lock lock
+ * @param $join true: return string, false: return array of string
+ * @param $raw true: return file content as-is
+ * @return FALSE if error occurerd
+ */
+function get_source($page = NULL, $lock = TRUE, $join = FALSE, $raw = FALSE)
{
//$result = NULL; // File is not found
$result = $join ? '' : array();
} else {
$result = fread($fp, $size);
if ($result !== FALSE) {
+ if ($raw) {
+ return $result;
+ }
// Removing Carriage-Return
$result = str_replace("\r", '', $result);
}
return is_page($page) ? filemtime(get_filename($page)) - LOCALZONE : 0;
}
+/**
+ * Get last-modified filemtime (plain value) of the page.
+ *
+ * @param $page
+ */
+function get_page_date_atom($page)
+{
+ if (is_page($page)) {
+ return get_date_atom(filemtime(get_filename($page)));
+ }
+ return null;
+}
+
// Get physical file name of the page
function get_filename($page)
{
// Put a data(wiki text) into a physical file(diff, backup, text)
function page_write($page, $postdata, $notimestamp = FALSE)
{
+ global $autoalias, $aliaspage;
+
if (PKWK_READONLY) return; // Do nothing
$postdata = make_str_rules($postdata);
// Do nothing when it has no changes
$oldpostdata = is_page($page) ? join('', get_source($page)) : '';
$oldtext_without_author = remove_author_info($oldpostdata);
- if ($text_without_author === $oldtext_without_author) {
+ if (!$is_delete && $text_without_author === $oldtext_without_author) {
// Do nothing on updating with unchanged content
return;
}
file_write(DATA_DIR, $page, $postdata, $notimestamp, $is_delete);
links_update($page);
+
+ // Update autoalias.dat (AutoAliasName)
+ if ($autoalias && $page === $aliaspage) {
+ update_autoalias_cache_file();
+ }
}
// Modify original text with user-defined / system-defined rules
$line = & $lines[$i]; // Modify directly
// Ignore null string and preformatted texts
- if ($line == '' || $line{0} == ' ' || $line{0} == "\t") continue;
+ if ($line == '' || $line[0] == ' ' || $line[0] == "\t") continue;
// Modify this line?
if ($modify) {
return preg_replace('/^\s*#author\([^\n]*(\n|$)/m', '', $wikitext);
}
-function get_date_atom($timestamp)
+/**
+ * Remove author line from wikitext
+ */
+function remove_author_header($wikitext)
+{
+ $start = 0;
+ while (($pos = strpos($wikitext, "\n", $start)) != false) {
+ $line = substr($wikitext, $start, $pos);
+ $m = null;
+ if (preg_match('/^#author\(/', $line, $m)) {
+ // fond #author line, Remove this line only
+ if ($start === 0) {
+ return substr($wikitext, $pos + 1);
+ } else {
+ return substr($wikitext, 0, $start - 1) .
+ substr($wikitext, $pos + 1);
+ }
+ } else if (preg_match('/^#freeze(\W|$)/', $line, $m)) {
+ // Found #freeze still in header
+ } else {
+ // other line, #author not found
+ return $wikitext;
+ }
+ $start = $pos + 1;
+ }
+ return $wikitext;
+}
+
+/**
+ * Get author info from wikitext
+ */
+function get_author_info($wikitext)
{
- // Compatible with DATE_ATOM format
- // return date(DATE_ATOM, $timestamp);
- $zmin = abs(LOCALZONE / 60);
- return date('Y-m-d\TH:i:s', $timestamp) . sprintf('%s%02d:%02d',
- (LOCALZONE < 0 ? '-' : '+') , $zmin / 60, $zmin % 60);
+ $start = 0;
+ while (($pos = strpos($wikitext, "\n", $start)) != false) {
+ $line = substr($wikitext, $start, $pos);
+ $m = null;
+ if (preg_match('/^#author\(/', $line, $m)) {
+ return $line;
+ } else if (preg_match('/^#freeze(\W|$)/', $line, $m)) {
+ // Found #freeze still in header
+ } else {
+ // other line, #author not found
+ return null;
+ }
+ $start = $pos + 1;
+ }
+ return null;
+}
+
+/**
+ * Get updated datetime from author
+ */
+function get_update_datetime_from_author($author_line) {
+ $m = null;
+ if (preg_match('/^#author\(\"([^\";]+)(?:;([^\";]+))?/', $author_line, $m)) {
+ if ($m[2]) {
+ return $m[2];
+ } else if ($m[1]) {
+ return $m[1];
+ }
+ }
+ return null;
}
// Generate ID
function generate_fixed_heading_anchor_id($seed)
{
- // A random alphabetic letter + 7 letters of random strings from md()
+ // A random alphabetic letter + 7 letters of random strings from md5()
return chr(mt_rand(ord('a'), ord('z'))) .
substr(md5(uniqid(substr($seed, 0, 100), TRUE)),
mt_rand(0, 24), 7);
} else if ($dir == DIFF_DIR && $notify) {
if ($notify_diff_only) $str = preg_replace('/^[^-+].*\n/m', '', $str);
$footer['ACTION'] = 'Page update';
- $footer['PAGE'] = & $page;
- $footer['URI'] = get_script_uri() . '?' . pagename_urlencode($page);
+ $footer['PAGE'] = $page;
+ $footer['URI'] = get_page_uri($page, PKWK_URI_ABSOLUTE);
$footer['USER_AGENT'] = TRUE;
$footer['REMOTE_ADDR'] = TRUE;
pkwk_mail_notify($notify_subject, $str, $footer) or
die('pkwk_mail_notify(): Failed');
}
-
+ if ($dir === DIFF_DIR) {
+ pkwk_log_updates($page, $str);
+ }
is_page($page, TRUE); // Clear is_page() cache
}
// For AutoLink
if ($autolink) {
- list($pattern, $pattern_a, $forceignorelist) =
- get_autolink_pattern($pages);
+ autolink_pattern_write(CACHE_DIR . PKWK_AUTOLINK_REGEX_CACHE,
+ get_autolink_pattern($pages, $autolink));
+ }
+}
- $file = CACHE_DIR . PKWK_AUTOLINK_REGEX_CACHE;
- pkwk_touch_file($file);
- $fp = fopen($file, 'r+') or
- die_message('Cannot open ' . 'CACHE_DIR/' . PKWK_AUTOLINK_REGEX_CACHE);
- set_file_buffer($fp, 0);
- flock($fp, LOCK_EX);
- ftruncate($fp, 0);
- rewind($fp);
- fputs($fp, $pattern . "\n");
- fputs($fp, $pattern_a . "\n");
- fputs($fp, join("\t", $forceignorelist) . "\n");
- flock($fp, LOCK_UN);
- fclose($fp);
+/**
+ * Get recent files
+ *
+ * @return Array of (file => time)
+ */
+function get_recent_files()
+{
+ $recentfile = CACHE_DIR . PKWK_MAXSHOW_CACHE;
+ $lines = file($recentfile);
+ if (!$lines) return array();
+ $files = array();
+ foreach ($lines as $line) {
+ list ($time, $file) = explode("\t", rtrim($line));
+ $files[$file] = $time;
+ }
+ return $files;
+}
+
+/**
+ * Update RecentChanges page / Invalidate recent.dat
+ */
+function delete_recent_changes_cache() {
+ $file = CACHE_DIR . PKWK_MAXSHOW_CACHE;
+ unlink($file);
+}
+
+// update autolink data
+function autolink_pattern_write($filename, $autolink_pattern)
+{
+ list($pattern, $pattern_a, $forceignorelist) = $autolink_pattern;
+
+ $fp = fopen($filename, 'w') or
+ die_message('Cannot open ' . $filename);
+ set_file_buffer($fp, 0);
+ flock($fp, LOCK_EX);
+ rewind($fp);
+ fputs($fp, $pattern . "\n");
+ fputs($fp, $pattern_a . "\n");
+ fputs($fp, join("\t", $forceignorelist) . "\n");
+ flock($fp, LOCK_UN);
+ fclose($fp);
+}
+
+// Update AutoAlias regex cache
+function update_autoalias_cache_file()
+{
+ global $autoalias; // Disable (0), Enable (min-length)
+ $aliases = get_autoaliases();
+ if (empty($aliases)) {
+ // Remove
+ @unlink(CACHE_DIR . PKWK_AUTOALIAS_REGEX_CACHE);
+ } else {
+ // Create or Update
+ autolink_pattern_write(CACHE_DIR . PKWK_AUTOALIAS_REGEX_CACHE,
+ get_autolink_pattern(array_keys($aliases), $autoalias));
}
}
return $aryret;
}
+/**
+ * Get/Set pagelist cache enabled for get_existpages()
+ *
+ * @param $newvalue Set true when the system can cache the page list
+ * @return true if can use page list cache
+ */
+function is_pagelist_cache_enabled($newvalue = null)
+{
+ static $cache_enabled = null;
+
+ if (!is_null($newvalue)) {
+ $cache_enabled = $newvalue;
+ return; // Return nothing on setting newvalue call
+ }
+ if (is_null($cache_enabled)) {
+ return false;
+ }
+ return $cache_enabled;
+}
+
// Get a page list of this wiki
function get_existpages($dir = DATA_DIR, $ext = '.txt')
{
+ static $cached_list = null; // Cached wikitext page list
+ $use_cache = false;
+
+ if ($dir === DATA_DIR && $ext === '.txt' && is_pagelist_cache_enabled()) {
+ // Use pagelist cache for "wiki/*.txt" files
+ if (!is_null($cached_list)) {
+ return $cached_list;
+ }
+ $use_cache = true;
+ }
$aryret = array();
$pattern = '/^((?:[0-9A-F]{2})+)' . preg_quote($ext, '/') . '$/';
-
$dp = @opendir($dir) or die_message($dir . ' is not found or not readable.');
$matches = array();
while (($file = readdir($dp)) !== FALSE) {
}
}
closedir($dp);
-
+ if ($use_cache) {
+ $cached_list = $aryret;
+ }
return $aryret;
}
}
}
}
+
+/**
+ * Prepare page related links and references for links_get_related()
+ */
+function prepare_links_related($page) {
+ global $defaultpage;
+
+ $enc_defaultpage = encode($defaultpage);
+ if (file_exists(CACHE_DIR . $enc_defaultpage . '.rel')) return;
+ if (file_exists(CACHE_DIR . $enc_defaultpage . '.ref')) return;
+ $enc_name = encode($page);
+ if (file_exists(CACHE_DIR . $enc_name . '.rel')) return;
+ if (file_exists(CACHE_DIR . $enc_name . '.ref')) return;
+
+ $pattern = '/^((?:[0-9A-F]{2})+)' . '(\.ref|\.rel)' . '$/';
+ $dir = CACHE_DIR;
+ $dp = @opendir($dir) or die_message('CACHE_DIR/'. ' is not found or not readable.');
+ $rel_ref_ready = false;
+ $count = 0;
+ while (($file = readdir($dp)) !== FALSE) {
+ if (preg_match($pattern, $file, $matches)) {
+ if ($count++ > 5) {
+ $rel_ref_ready = true;
+ break;
+ }
+ }
+ }
+ closedir($dp);
+ if (!$rel_ref_ready) {
+ if (count(get_existpages()) < 50) {
+ // Make link files automatically only if page count < 50.
+ // Because large number of update links will cause PHP timeout.
+ links_init();
+ }
+ }
+}