function getLocalPage($page = NULL)
 {
     if (!PukiWikiFunc::is_local_page($page)) {
         return "";
     } else {
         $source = str_replace("\r", '', file(PukiWikiFunc::get_local_filename($page)));
         return implode("", $source);
     }
 }
 function make_pagelink($page, $alias = '', $anchor = '', $refer = '')
 {
     $s_page = htmlspecialchars(PukiWikiFunc::strip_bracket($page));
     $s_alias = $alias == '' ? $s_page : $alias;
     if ($page == '') {
         return "<a href=\"{$anchor}\">{$s_alias}</a>";
     }
     $r_page = rawurlencode($page);
     $r_refer = $refer == '' ? '' : '&amp;refer=' . rawurlencode($refer);
     if (PukiWikiConfig::getParam('LocalShowURL')) {
         if (PukiWikiFunc::is_local_page($page)) {
             $passage = "";
             $title = PukiWikiConfig::getParam('link_compact') ? '' : " title=\"{$s_page}{$passage}\"";
             $url = sprintf(PukiWikiConfig::getParam('LocalShowURL'), $r_page . $anchor);
             return "<a href=\"{$url}\"{$title}>{$s_alias}</a>";
         }
     }
     if (defined('MOD_PUKI_WIKI_URL')) {
         if (PukiWikiFunc::is_page($page)) {
             $passage = "";
             $title = PukiWikiConfig::getParam('link_compact') ? '' : " title=\"{$s_page}{$passage}\"";
             if (defined('XOOPS_URL') and MOD_PUKI_WIKI_VER == '1.3' and PukiWikiConfig::getParam('use_static_url')) {
                 return "<a href=\"" . XOOPS_URL . '/modules/pukiwiki/' . PukiWikiFunc::get_pgid_by_name($page) . ".html{$anchor}\"{$title}>{$s_alias}</a>";
             } else {
                 return "<a href=\"" . MOD_PUKI_WIKI_URL . "?{$r_page}{$anchor}\"{$title}>{$s_alias}</a>";
             }
         } else {
             // ページ作成リンクをつけないオプション追加 by nao-pon
             if (PukiWikiConfig::getParam('makepage_link')) {
                 return $s_alias;
             }
             $retval = "{$s_alias}<a href=\"" . MOD_PUKI_WIKI_URL . "?cmd=edit&amp;page={$r_page}{$r_refer}\">" . PukiWikiConfig::getParam('_symbol_noexists') . "</a>";
             if (PukiWikiConfig::getParam('link_compact')) {
                 $retval = "<span class=\"" . PukiWikiConfig::getParam('style_prefix') . "noexists\">{$retval}</span>";
             }
             return $retval;
         }
     } else {
         return $s_alias;
     }
 }