OSDN Git Service

BugTrack/2514 Support PHP 8
[pukiwiki/pukiwiki.git] / lib / file.php
index ffe5a7d..9600cd6 100644 (file)
@@ -1,29 +1,74 @@
 <?php
 // PukiWiki - Yet another WikiWikiWeb clone.
-// $Id: file.php,v 1.40 2005/10/04 13:41:03 henoheno Exp $
-// Copyright (C)
-//   2002-2005 PukiWiki Developers Team
+// file.php
+// Copyright
+//   2002-2021 PukiWiki Development Team
 //   2001-2002 Originally written by yu-ji
 // License: GPL v2 or (at your option) any later version
 //
 // File related functions
 
-// Get source(wiki text) data of the page
-function get_source($page = NULL, $lock = TRUE)
+// RecentChanges
+define('PKWK_MAXSHOW_ALLOWANCE', 10);
+define('PKWK_MAXSHOW_CACHE', 'recent.dat');
+
+// AutoLink
+define('PKWK_AUTOLINK_REGEX_CACHE', 'autolink.dat');
+
+// 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)
 {
-       $array = array();
+       //$result = NULL;       // File is not found
+       $result = $join ? '' : array();
+               // Compat for "implode('', get_source($file))",
+               //      -- this is slower than "get_source($file, TRUE, TRUE)"
+               // Compat for foreach(get_source($file) as $line) {} not to warns
 
-       if (is_page($page)) {
-               $path  = get_filename($page);
+       $path = get_filename($page);
+       if (file_exists($path)) {
 
                if ($lock) {
                        $fp = @fopen($path, 'r');
-                       if ($fp == FALSE) return $array;
+                       if ($fp === FALSE) return FALSE;
                        flock($fp, LOCK_SH);
                }
 
-               // Removing line-feeds: Because file() doesn't remove them.
-               $array = str_replace("\r", '', file($path));
+               if ($join) {
+                       // Returns a value
+                       $size = filesize($path);
+                       if ($size === FALSE) {
+                               $result = FALSE;
+                       } else if ($size == 0) {
+                               $result = '';
+                       } else {
+                               $result = fread($fp, $size);
+                               if ($result !== FALSE) {
+                                       if ($raw) {
+                                               return $result;
+                                       }
+                                       // Removing Carriage-Return
+                                       $result = str_replace("\r", '', $result);
+                               }
+                       }
+               } else {
+                       // Returns an array
+                       $result = file($path);
+                       if ($result !== FALSE) {
+                               // Removing Carriage-Return
+                               $result = str_replace("\r", '', $result);
+                       }
+               }
 
                if ($lock) {
                        flock($fp, LOCK_UN);
@@ -31,7 +76,7 @@ function get_source($page = NULL, $lock = TRUE)
                }
        }
 
-       return $array;
+       return $result;
 }
 
 // Get last-modified filetime of the page
@@ -40,6 +85,19 @@ function get_filetime($page)
        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)
 {
@@ -49,35 +107,45 @@ function get_filename($page)
 // Put a data(wiki text) into a physical file(diff, backup, text)
 function page_write($page, $postdata, $notimestamp = FALSE)
 {
-       global $trackback;
+       global $autoalias, $aliaspage;
 
        if (PKWK_READONLY) return; // Do nothing
 
        $postdata = make_str_rules($postdata);
+       $timestamp_to_keep = null;
+       if ($notimestamp) {
+               $timestamp_to_keep = get_filetime($page);
+       }
+       $text_without_author = remove_author_info($postdata);
+       $postdata = add_author_info($text_without_author, $timestamp_to_keep);
+       $is_delete = empty($text_without_author);
 
-       // Create and write diff
+       // Do nothing when it has no changes
        $oldpostdata = is_page($page) ? join('', get_source($page)) : '';
+       $oldtext_without_author = remove_author_info($oldpostdata);
+       if (!$is_delete && $text_without_author === $oldtext_without_author) {
+               // Do nothing on updating with unchanged content
+               return;
+       }
+       // Create and write diff
        $diffdata    = do_diff($oldpostdata, $postdata);
        file_write(DIFF_DIR, $page, $diffdata);
 
        // Create backup
-       make_backup($page, $postdata == ''); // Is $postdata null?
+       make_backup($page, $is_delete, $postdata); // Is $postdata null?
 
        // Create wiki text
-       file_write(DATA_DIR, $page, $postdata, $notimestamp);
-
-       if ($trackback) {
-               // TrackBack Ping
-               $_diff = explode("\n", $diffdata);
-               $plus  = join("\n", preg_replace('/^\+/', '', preg_grep('/^\+/', $_diff)));
-               $minus = join("\n", preg_replace('/^-/',  '', preg_grep('/^-/',  $_diff)));
-               tb_send($page, $plus, $minus);
-       }
+       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 ogirinal text with user-defined / system-defined rules
+// Modify original text with user-defined / system-defined rules
 function make_str_rules($source)
 {
        global $str_rules, $fixed_heading_anchor;
@@ -92,7 +160,7 @@ function make_str_rules($source)
                $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) {
@@ -136,92 +204,228 @@ function make_str_rules($source)
        return implode("\n", $lines);
 }
 
+/**
+ * Add author plugin text for wiki text body
+ *
+ * @param string $wikitext
+ * @param integer $timestamp_to_keep Set null when not to keep timestamp
+ */
+function add_author_info($wikitext, $timestamp_to_keep)
+{
+       global $auth_user, $auth_user_fullname;
+       $author = preg_replace('/"/', '', $auth_user);
+       $fullname = $auth_user_fullname;
+       if (!$fullname && $author) {
+               // Fullname is empty, use $author as its fullname
+               $fullname = preg_replace('/^[^:]*:/', '', $author);
+       }
+       $datetime_to_keep = '';
+       if (!is_null($timestamp_to_keep)) {
+               $datetime_to_keep .= ';' . get_date_atom($timestamp_to_keep + LOCALZONE);
+       }
+       $displayname = preg_replace('/"/', '', $fullname);
+       $user_prefix = get_auth_user_prefix();
+       $author_text = sprintf('#author("%s","%s","%s")',
+               get_date_atom(UTIME + LOCALZONE) . $datetime_to_keep,
+               ($author ? $user_prefix . $author : ''),
+               $displayname) . "\n";
+       return $author_text . $wikitext;
+}
+
+function remove_author_info($wikitext)
+{
+       return preg_replace('/^\s*#author\([^\n]*(\n|$)/m', '', $wikitext);
+}
+
+/**
+ * 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)
+{
+       $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);
 }
 
+// Read top N lines as an array
+// (Use PHP file() function if you want to get ALL lines)
+function file_head($file, $count = 1, $lock = TRUE, $buffer = 8192)
+{
+       $array = array();
+
+       $fp = @fopen($file, 'r');
+       if ($fp === FALSE) return FALSE;
+       set_file_buffer($fp, 0);
+       if ($lock) flock($fp, LOCK_SH);
+       rewind($fp);
+       $index = 0;
+       while (! feof($fp)) {
+               $line = fgets($fp, $buffer);
+               if ($line != FALSE) $array[] = $line;
+               if (++$index >= $count) break;
+       }
+       if ($lock) flock($fp, LOCK_UN);
+       if (! fclose($fp)) return FALSE;
+
+       return $array;
+}
+
 // Output to a file
-function file_write($dir, $page, $str, $notimestamp = FALSE)
+function file_write($dir, $page, $str, $notimestamp = FALSE, $is_delete = FALSE)
 {
-       global $update_exec, $_msg_invalidiwn, $notify, $notify_diff_only, $notify_subject;
+       global $_msg_invalidiwn, $notify, $notify_diff_only, $notify_subject;
        global $whatsdeleted, $maxshow_deleted;
 
        if (PKWK_READONLY) return; // Do nothing
+       if ($dir != DATA_DIR && $dir != DIFF_DIR) die('file_write(): Invalid directory');
 
-       if (! is_pagename($page))
-               die_message(str_replace('$1', htmlspecialchars($page),
-                           str_replace('$2', 'WikiName', $_msg_invalidiwn)));
-
-       $page      = strip_bracket($page);
-       $file      = $dir . encode($page) . '.txt';
-       $timestamp = FALSE;
+       $page = strip_bracket($page);
+       $file = $dir . encode($page) . '.txt';
+       $file_exists = file_exists($file);
 
-       if ($str === '') {
-               if ($dir == DATA_DIR && file_exists($file)) {
-                       // File deletion
-                       unlink($file);
-                       add_recent($page, $whatsdeleted, '', $maxshow_deleted); // RecentDeleted
-               }
-       } else {
-               // File replacement (Edit)
-               $str = rtrim(preg_replace('/' . "\r" . '/', '', $str)) . "\n";
+       // ----
+       // Delete?
 
-               if ($notimestamp && file_exists($file))
-                       $timestamp = filemtime($file) - LOCALZONE;
+       if ($dir == DATA_DIR && $is_delete) {
+               // Page deletion
+               if (! $file_exists) return; // Ignore null posting for DATA_DIR
 
-               $fp = fopen($file, 'a') or die('fopen() failed: ' .
-                       htmlspecialchars(basename($dir) . '/' . encode($page) . '.txt') .       
-                       '<br />' . "\n" .
-                       'Maybe permission is not writable or filename is too long');
-               set_file_buffer($fp, 0);
+               // Update RecentDeleted (Add the $page)
+               add_recent($page, $whatsdeleted, '', $maxshow_deleted);
 
-               flock($fp, LOCK_EX);
+               // Remove the page
+               unlink($file);
 
-               // Write
-               ftruncate($fp, 0);
-               rewind($fp);
-               fputs($fp, $str);
+               // Update RecentDeleted, and remove the page from RecentChanges
+               lastmodified_add($whatsdeleted, $page);
 
-               flock($fp, LOCK_UN);
+               // Clear is_page() cache
+               is_page($page, TRUE);
 
-               fclose($fp);
+               return;
 
-               if ($timestamp) pkwk_touch_file($file, $timestamp + LOCALZONE);
+       } else if ($dir == DIFF_DIR && $str === " \n") {
+               return; // Ignore null posting for DIFF_DIR
        }
 
-       // Clear is_page() cache
-       is_page($page, TRUE);
+       // ----
+       // File replacement (Edit)
 
-       if (! $timestamp && $dir == DATA_DIR)
-               put_lastmodified();
+       if (! is_pagename($page))
+               die_message(str_replace('$1', htmlsc($page),
+                           str_replace('$2', 'WikiName', $_msg_invalidiwn)));
 
-       // Execute $update_exec here
-       if ($update_exec && $dir == DATA_DIR)
-               system($update_exec . ' > /dev/null &');
+       $str = rtrim(preg_replace('/' . "\r" . '/', '', $str)) . "\n";
+       $timestamp = ($file_exists && $notimestamp) ? filemtime($file) : FALSE;
 
-       if ($notify && $dir == DIFF_DIR) {
-               if ($notify_diff_only) $str = preg_replace('/^[^-+].*\n/m', '', $str);
+       $fp = fopen($file, 'a') or die('fopen() failed: ' .
+               htmlsc(basename($dir) . '/' . encode($page) . '.txt') . 
+               '<br />' . "\n" .
+               'Maybe permission is not writable or filename is too long');
+       set_file_buffer($fp, 0);
+       flock($fp, LOCK_EX);
+       ftruncate($fp, 0);
+       rewind($fp);
+       fputs($fp, $str);
+       flock($fp, LOCK_UN);
+       fclose($fp);
+
+       if ($timestamp) pkwk_touch_file($file, $timestamp);
+
+       // Optional actions
+       if ($dir == DATA_DIR) {
+               // Update RecentChanges (Add or renew the $page)
+               if ($timestamp === FALSE) lastmodified_add($page);
 
+               // Command execution per update
+               if (defined('PKWK_UPDATE_EXEC') && PKWK_UPDATE_EXEC)
+                       system(PKWK_UPDATE_EXEC . ' > /dev/null &');
+
+       } 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() . '?' . rawurlencode($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
 }
 
 // Update RecentDeleted
 function add_recent($page, $recentpage, $subject = '', $limit = 0)
 {
-       if (PKWK_READONLY || $limit == 0 || $page == '' || $recentpage == '') return;
+       if (PKWK_READONLY || $limit == 0 || $page == '' || $recentpage == '' ||
+           check_non_list($page)) return;
 
        // Load
        $lines = $matches = array();
@@ -236,7 +440,7 @@ function add_recent($page, $recentpage, $subject = '', $limit = 0)
 
        // Add
        array_unshift($lines, '-' . format_date(UTIME) . ' - ' . $_page .
-               htmlspecialchars($subject) . "\n");
+               htmlsc($subject) . "\n");
 
        // Get latest $limit reports
        $lines = array_splice($lines, 0, $limit);
@@ -244,7 +448,7 @@ function add_recent($page, $recentpage, $subject = '', $limit = 0)
        // Update
        $fp = fopen(get_filename($recentpage), 'w') or
                die_message('Cannot write page file ' .
-               htmlspecialchars($recentpage) .
+               htmlsc($recentpage) .
                '<br />Maybe permission is not writable or filename is too long');
        set_file_buffer($fp, 0);
        flock($fp, LOCK_EX);
@@ -256,31 +460,132 @@ function add_recent($page, $recentpage, $subject = '', $limit = 0)
        fclose($fp);
 }
 
-// Update RecentChanges
+// Update PKWK_MAXSHOW_CACHE itself (Add or renew about the $page) (Light)
+// Use without $autolink
+function lastmodified_add($update = '', $remove = '')
+{
+       global $maxshow, $whatsnew, $autolink;
+
+       // AutoLink implimentation needs everything, for now
+       if ($autolink) {
+               put_lastmodified(); // Try to (re)create ALL
+               return;
+       }
+
+       if (($update == '' || check_non_list($update)) && $remove == '')
+               return; // No need
+
+       $file = CACHE_DIR . PKWK_MAXSHOW_CACHE;
+       if (! file_exists($file)) {
+               put_lastmodified(); // Try to (re)create ALL
+               return;
+       }
+
+       // Open
+       pkwk_touch_file($file);
+       $fp = fopen($file, 'r+') or
+               die_message('Cannot open ' . 'CACHE_DIR/' . PKWK_MAXSHOW_CACHE);
+       set_file_buffer($fp, 0);
+       flock($fp, LOCK_EX);
+
+       // Read (keep the order of the lines)
+       $recent_pages = $matches = array();
+       foreach(file_head($file, $maxshow + PKWK_MAXSHOW_ALLOWANCE, FALSE) as $line)
+               if (preg_match('/^([0-9]+)\t(.+)/', $line, $matches))
+                       $recent_pages[$matches[2]] = $matches[1];
+
+       // Remove if it exists inside
+       if (isset($recent_pages[$update])) unset($recent_pages[$update]);
+       if (isset($recent_pages[$remove])) unset($recent_pages[$remove]);
+
+       // Add to the top: like array_unshift()
+       if ($update != '')
+               $recent_pages = array($update => get_filetime($update)) + $recent_pages;
+
+       // Check
+       $abort = count($recent_pages) < $maxshow;
+
+       if (! $abort) {
+               // Write
+               ftruncate($fp, 0);
+               rewind($fp);
+               foreach ($recent_pages as $_page=>$time)
+                       fputs($fp, $time . "\t" . $_page . "\n");
+       }
+
+       flock($fp, LOCK_UN);
+       fclose($fp);
+
+       if ($abort) {
+               put_lastmodified(); // Try to (re)create ALL
+               return;
+       }
+
+
+
+       // ----
+       // Update the page 'RecentChanges'
+
+       $recent_pages = array_splice($recent_pages, 0, $maxshow);
+       $file = get_filename($whatsnew);
+
+       // Open
+       pkwk_touch_file($file);
+       $fp = fopen($file, 'r+') or
+               die_message('Cannot open ' . htmlsc($whatsnew));
+       set_file_buffer($fp, 0);
+       flock($fp, LOCK_EX);
+
+       // Recreate
+       ftruncate($fp, 0);
+       rewind($fp);
+       foreach ($recent_pages as $_page=>$time)
+               fputs($fp, '-' . htmlsc(format_date($time)) .
+                       ' - ' . '[[' . htmlsc($_page) . ']]' . "\n");
+       fputs($fp, '#norelated' . "\n"); // :)
+
+       flock($fp, LOCK_UN);
+       fclose($fp);
+}
+
+// Re-create PKWK_MAXSHOW_CACHE (Heavy)
 function put_lastmodified()
 {
-       global $maxshow, $whatsnew, $non_list, $autolink;
+       global $maxshow, $whatsnew, $autolink;
 
        if (PKWK_READONLY) return; // Do nothing
 
+       // Get WHOLE page list
        $pages = get_existpages();
+
+       // Check ALL filetime
        $recent_pages = array();
-       $non_list_pattern = '/' . $non_list . '/';
        foreach($pages as $page)
-               if ($page != $whatsnew && ! preg_match($non_list_pattern, $page))
+               if ($page !== $whatsnew && ! check_non_list($page))
                        $recent_pages[$page] = get_filetime($page);
 
        // Sort decending order of last-modification date
        arsort($recent_pages, SORT_NUMERIC);
 
-       // Create recent.dat (for recent.inc.php)
-       $fp = fopen(CACHE_DIR . 'recent.dat', 'w') or
-               die_message('Cannot write cache file ' .
-               CACHE_DIR . 'recent.dat' .
-               '<br />Maybe permission is not writable or filename is too long');
+       // Cut unused lines
+       // BugTrack2/179: array_splice() will break integer keys in hashtable
+       $count   = $maxshow + PKWK_MAXSHOW_ALLOWANCE;
+       $_recent = array();
+       foreach($recent_pages as $key=>$value) {
+               unset($recent_pages[$key]);
+               $_recent[$key] = $value;
+               if (--$count < 1) break;
+       }
+       $recent_pages = & $_recent;
 
+       // Re-create PKWK_MAXSHOW_CACHE
+       $file = CACHE_DIR . PKWK_MAXSHOW_CACHE;
+       pkwk_touch_file($file);
+       $fp = fopen($file, 'r+') or
+               die_message('Cannot open' . 'CACHE_DIR/' . PKWK_MAXSHOW_CACHE);
        set_file_buffer($fp, 0);
        flock($fp, LOCK_EX);
+       ftruncate($fp, 0);
        rewind($fp);
        foreach ($recent_pages as $page=>$time)
                fputs($fp, $time . "\t" . $page . "\n");
@@ -288,22 +593,18 @@ function put_lastmodified()
        fclose($fp);
 
        // Create RecentChanges
-       $fp = fopen(get_filename($whatsnew), 'w') or
-               die_message('Cannot write page file ' .
-               htmlspecialchars($whatsnew) .
-               '<br />Maybe permission is not writable or filename is too long');
-
+       $file = get_filename($whatsnew);
+       pkwk_touch_file($file);
+       $fp = fopen($file, 'r+') or
+               die_message('Cannot open ' . htmlsc($whatsnew));
        set_file_buffer($fp, 0);
        flock($fp, LOCK_EX);
+       ftruncate($fp, 0);
        rewind($fp);
-
-       // BugTrack2/106: Only variables can be passed by reference from PHP 5.0.5
-       $tmp_array = array_keys($recent_pages); // with array_splice()
-
-       foreach (array_splice($tmp_array, 0, $maxshow) as $page) {
+       foreach (array_keys($recent_pages) as $page) {
                $time      = $recent_pages[$page];
-               $s_lastmod = htmlspecialchars(format_date($time));
-               $s_page    = htmlspecialchars($page);
+               $s_lastmod = htmlsc(format_date($time));
+               $s_page    = htmlsc($page);
                fputs($fp, '-' . $s_lastmod . ' - [[' . $s_page . ']]' . "\n");
        }
        fputs($fp, '#norelated' . "\n"); // :)
@@ -312,25 +613,70 @@ function put_lastmodified()
 
        // For AutoLink
        if ($autolink) {
-               list($pattern, $pattern_a, $forceignorelist) =
-                       get_autolink_pattern($pages);
-
-               $fp = fopen(CACHE_DIR . 'autolink.dat', 'w') or
-                       die_message('Cannot write autolink file ' .
-                       CACHE_DIR . '/autolink.dat' .
-                       '<br />Maybe permission is not writable');
-               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);
+               autolink_pattern_write(CACHE_DIR . PKWK_AUTOLINK_REGEX_CACHE,
+                       get_autolink_pattern($pages, $autolink));
        }
 }
 
-// Get elapsed date of the pate
+/**
+ * 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));
+       }
+}
+
+// Get elapsed date of the page
 function get_pg_passage($page, $sw = TRUE)
 {
        global $show_passage;
@@ -354,23 +700,69 @@ function header_lastmod($page = NULL)
        }
 }
 
-// Get a page list of this wiki
-function get_existpages($dir = DATA_DIR, $ext = '.txt')
+// Get a list of encoded files (must specify a directory and a suffix)
+function get_existfiles($dir = DATA_DIR, $ext = '.txt')
 {
        $aryret = array();
+       $pattern = '/^(?:[0-9A-F]{2})+' . preg_quote($ext, '/') . '$/';
+
+       $dp = @opendir($dir) or die_message($dir . ' is not found or not readable.');
+       while (($file = readdir($dp)) !== FALSE) {
+               if (preg_match($pattern, $file)) {
+                       $aryret[] = $dir . $file;
+               }
+       }
+       closedir($dp);
+
+       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;
+}
 
-       $pattern = '((?:[0-9A-F]{2})+)';
-       if ($ext != '') $ext = preg_quote($ext, '/');
-       $pattern = '/^' . $pattern . $ext . '$/';
+// 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;
 
-       $dp = @opendir($dir) or
-               die_message($dir . ' is not found or not readable.');
+       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))
-               if (preg_match($pattern, $file, $matches))
+       while (($file = readdir($dp)) !== FALSE) {
+               if (preg_match($pattern, $file, $matches)) {
                        $aryret[$file] = decode($matches[1]);
+               }
+       }
        closedir($dp);
-
+       if ($use_cache) {
+               $cached_list = $aryret;
+       }
        return $aryret;
 }
 
@@ -422,7 +814,7 @@ function get_readings()
                                if(! file_exists($pagereading_chasen_path))
                                        die_message('ChaSen not found: ' . $pagereading_chasen_path);
 
-                               $tmpfname = tempnam(CACHE_DIR, 'PageReading');
+                               $tmpfname = tempnam(realpath(CACHE_DIR), 'PageReading');
                                $fp = fopen($tmpfname, 'w') or
                                        die_message('Cannot write temporary file "' . $tmpfname . '".' . "\n");
                                foreach ($readings as $page => $reading) {
@@ -458,7 +850,7 @@ function get_readings()
                                if(! file_exists($pagereading_kakasi_path))
                                        die_message('KAKASI not found: ' . $pagereading_kakasi_path);
 
-                               $tmpfname = tempnam(CACHE_DIR, 'PageReading');
+                               $tmpfname = tempnam(realpath(CACHE_DIR), 'PageReading');
                                $fp       = fopen($tmpfname, 'w') or
                                        die_message('Cannot write temporary file "' . $tmpfname . '".' . "\n");
                                foreach ($readings as $page => $reading) {
@@ -517,7 +909,7 @@ function get_readings()
 
                if($unknownPage || $deletedPage) {
 
-                       asort($readings); // Sort by pronouncing(alphabetical/reading) order
+                       asort($readings, SORT_STRING); // Sort by pronouncing(alphabetical/reading) order
                        $body = '';
                        foreach ($readings as $page => $reading)
                                $body .= '-[[' . $page . ']] ' . $reading . "\n";
@@ -535,19 +927,6 @@ function get_readings()
        return $readings;
 }
 
-// Get a list of encoded files (must specify a directory and a suffix)
-function get_existfiles($dir, $ext)
-{
-       $pattern = '/^(?:[0-9A-F]{2})+' . preg_quote($ext, '/') . '$/';
-       $aryret = array();
-       $dp = @opendir($dir) or die_message($dir . ' is not found or not readable.');
-       while ($file = readdir($dp))
-               if (preg_match($pattern, $file))
-                       $aryret[] = $dir . $file;
-       closedir($dp);
-       return $aryret;
-}
-
 // Get a list of related pages of the page
 function links_get_related($page)
 {
@@ -557,7 +936,7 @@ function links_get_related($page)
        if (isset($links[$page])) return $links[$page];
 
        // If possible, merge related pages generated by make_link()
-       $links[$page] = ($page == $vars['page']) ? $related : array();
+       $links[$page] = ($page === $vars['page']) ? $related : array();
 
        // Get repated pages from DB
        $links[$page] += links_get_related_db($vars['page']);
@@ -583,12 +962,12 @@ function pkwk_chown($filename, $preserve_time = TRUE)
        $lockfile = CACHE_DIR . 'pkwk_chown.lock';
        $flock = fopen($lockfile, 'a') or
                die('pkwk_chown(): fopen() failed for: CACHEDIR/' .
-                       basename(htmlspecialchars($lockfile)));
+                       basename(htmlsc($lockfile)));
        flock($flock, LOCK_EX) or die('pkwk_chown(): flock() failed for lock');
 
        // Check owner
        $stat = stat($filename) or
-               die('pkwk_chown(): stat() failed for: '  . basename(htmlspecialchars($filename)));
+               die('pkwk_chown(): stat() failed for: '  . basename(htmlsc($filename)));
        if ($stat[4] === $php_uid) {
                // NOTE: Windows always here
                $result = TRUE; // Seems the same UID. Nothing to do
@@ -599,7 +978,7 @@ function pkwk_chown($filename, $preserve_time = TRUE)
                // NOTE: Not 'r+'. Don't check write permission here
                $ffile = fopen($filename, 'r') or
                        die('pkwk_chown(): fopen() failed for: ' .
-                               basename(htmlspecialchars($filename)));
+                               basename(htmlsc($filename)));
 
                // Try to chown by re-creating files
                // NOTE:
@@ -639,7 +1018,75 @@ function pkwk_touch_file($filename, $time = FALSE, $atime = FALSE)
                return $result;
        } else {
                die('pkwk_touch_file(): Invalid UID and (not writable for the directory or not a flie): ' .
-                       htmlspecialchars(basename($filename)));
+                       htmlsc(basename($filename)));
+       }
+}
+
+/**
+ * Lock-enabled file_get_contents
+ *
+ * Require: PHP5+
+ */
+function pkwk_file_get_contents($filename) {
+       if (! file_exists($filename)) {
+               return false;
+       }
+       $fp   = fopen($filename, 'rb');
+       flock($fp, LOCK_SH);
+       $file = file_get_contents($filename);
+       flock($fp, LOCK_UN);
+       return $file;
+}
+
+/**
+ * Prepare some cache files for convert_html()
+ *
+ * * Make cache/autolink.dat if needed
+ */
+function prepare_display_materials() {
+       global $autolink;
+       if ($autolink) {
+               // Make sure 'cache/autolink.dat'
+               $file = CACHE_DIR . PKWK_AUTOLINK_REGEX_CACHE;
+               if (!file_exists($file)) {
+                       // Re-create autolink.dat
+                       put_lastmodified();
+               }
+       }
+}
+
+/**
+ * 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();
+               }
        }
 }
-?>