PukiWiki 1.4.6 以降に同梱されている、r1.21 基準に書いてあります
if (PKWK_READONLY) die_message('PKWK_READONLY prohibits editing'); if (! isset($vars['refer']) || ! is_page($vars['refer'])) return FALSE; + check_readable($vars['refer'], true, true); + $lines = get_source($vars['refer']); // Remove '#freeze' if (! empty($lines) && strtolower(rtrim($lines[0])) == '#freeze') array_shift($lines);
$page = isset($vars['page']) ? $vars['page'] : ''; $is_page = is_page($page); // edit if ($is_pagename = is_pagename($page) && (! $is_page || ! empty($vars['force']))) { + check_editable($page, true, true) + $postdata = join('', array_splice($lines, $begin, $end - $begin + 1)); $retvar['msg'] = $_title_edit; $retvar['body'] = edit_form($vars['page'], $postdata); $vars['refer'] = $vars['page']; return $retvar; }