|
Links
Recent
PyukiWiki
Counter: 1362888,
today: 2430,
yesterday: 4127
|
PyukiWiki_Classic_0.1.9について
目次
カスタマイズ新規ページを作成・編集する際にwikiコード入力フォームに初期値を設定したい！ 2013-8-11
（１）
if (not $mymsg ){
$mymsg = "\n\n\n\n#counter";
}
$mymsg =~ s/\n?#freeze\r?\n//g; #「#freeze」を削除している
$mymsg = &htmlspecialchars($mymsg);
$mode{admin} = 1; #koala
$frozen = 1; #koala
my $edit = $mode{admin} ? 'adminedit' : 'edit';
my $escapedmypage = &htmlspecialchars($::form{mypage});
my $escapedmypassword = &htmlspecialchars($::form{mypassword});
if (not $mymsg ){
$mymsg = "\n\n\n\n#counter";
}
if ($::extend_edit) {
$body .= <<"EOD";
<div>
<a href="javascript:insTag('\\'\\'','\\'\\'','bold');"><b>B</b></a>
ページの印刷時に、メニューバーやタイトルバー、フッターを印刷しないようにする
div.header {display: none;}
div.navigator {display: none;}
td.menubar {display: none;}
div.footer {display: none;}
<link rel="stylesheet" href="$skin::default_css" type="text/css" media="screen,print" charset="Shift_JIS" /> <link rel="stylesheet" href="$skin::print_css" type="text/css" media="print" charset="Shift_JIS" />
$::css_dir = "$::skin_dir/css";
$skin::print_css = "$::skin_uri/print.css";
ページヘッダー（一番上の欄）のページ名をクリックすると、そのページに飛ぶようにする
��
<h1 class="title"><a
title="$::resource{searchthispage}"
href="$::script?cmd=search&mymsg=$skin::cookedpage">@{[&::htmlspecialchars($skin::page)]}</a></h1>
<a href="$::script?$cookedpage">$::script?$skin::cookedpage</a>
��
<h1 class="title"><a
title="@{[&::htmlspecialchars($skin::page)]}"
href="$::script?$skin::cookedpage">@{[&::htmlspecialchars($skin::page)]}</a></h1>
[[]]内画像アドレスの処理
$::graph_disp = 0; #koala H24.8.28; [[]]内での画像アドレスへのリンクで、画像を表示する：１、表示しない：０
sub plugin_img_convert {
・・・
if ($uri =~ /\.(gif|png|jpe?g)$/i) {
if ($module == 1) {
#koala H24.8.28 FROM 下のＩＦブロックを追加
if ($::graph_disp == 0) {
return '';
} else {
# 必要であれば、この部分を拡張する。
$res .= "<a href=\"$uri\"><img src=\"$uri\" /></a>\n"; ←もともとはこれのみ
} # TO
各種バグの解決
ＩＥ以外のブラウザでうまく動作しない機能がある
全角文字添付ファイル名の件
sub attach_form
{
my $page = $::form{mypage}; #split(/,/, shift);
# $r_page = rawurlencode($page);
# my $r_page = $page;
# 全角ページ名でもうまくリストが表示されるように koala Ｈ２４．４．２０
my $r_page = &::encode($page); #←ページ名をコード化
my $s_page = &::htmlspecialchars($page);
my $navi =<<"EOD"; #ahref内で、生のページ名「$page」をコード化ページ名「$r_page」に変更
<span class="small">
[<a href="$::script?cmd=attach&mypage=$r_page&pcmd=list&refer=$r_page">$::resource{'attach_msg_listpage'}</a>]
[<a href="$::script?cmd=attach&mypage=$r_page&pcmd=list">$::resource{'attach_msg_listall'}</a>]
</span><br />
EOD
# $url = "$::script?cmd=attach&pcmd=open"
# . "&file=$name&mypage=$page&refer=$page";
# 日本語ページ名・ファイル名がrefでうまく参照できない不具合の修正
$url = "$::script?cmd=attach&pcmd=open"
. "&file=" . &::encode($name) . "&mypage=" . &::encode($page)
. "&refer=" . &::encode($page) ;
編集画面で、編集ウインドウ上方の入力支援キー（「Ｂ Ｉ Ｕ・・・」）が使えない件
<script type="text/javascript" src="js/edit.js"></script>
「ls２」プラグインでリスト各ページの見出しにリンクで飛べない件
�� foreach (@txt) {
chomp;
if (/^(\*{1,3})(.+)/) {
&back_push('ul', length($1), \@tocsaved, \@tocresult);
push(@tocresult, qq( <li><a href="$::script?$page#i$tocnum">@{[&escape($2)]}</a></li>\n));
$tocnum++;
}
}
�� foreach (@txt) {
chomp;
if (/^(\*{1,3})(.+)/) {
&back_push('ul', length($1), \@tocsaved, \@tocresult);
my $r_page=&encode($page); #←追加（タイトルのリンクのページ名をコード化）
# push(@tocresult, qq( <li><a href="$::script?$page#i$tocnum">@{[&escape($2)]}</a></li>\n)); #同上。コード化していないページ名へのリンクをやめて、
push(@tocresult, qq( <li><a href="$::script?$r_page#i$tocnum">@{[&escape($2)]}</a></li>\n)); #同上。 コード化したページ名へのリンクとする
$tocnum++;
}
}
「#contents」で同一ページ内にページ名指定したものと無指定のものを順に記載すると無指定の方のリンク先アドレスに先の指定ページ名が引き継がれてしまう件
#contents(別ページ名) ←（１） #contents ←（２）
（１）
my @args = &func_get_args(shift);
my $page;
if (@args > 0) {
$page = $args[0];
（２）
my @args = &func_get_args(shift);
my $page;
$::pushedpage =""; #←追加（Ｈ２４．５）
# 同一ページでページ名指定の#contentsのあとに無指定の#contentsが存在する場合に、
# 無指定の方で先に指定したページ名が引き継がれてしまうことを防止するために初期化用に挿入
if (@args > 0) {
$page = $args[0];
全角ページ名のページ内のアンカー（［＃○○］）に「ページ名＃アンカー名」のリンクで飛べない件 †
$chunk = get_fullname($chunk, $::form{mypage});
$cookedchunk = &rawurlencode($chunk);
my @echunk=split('#',$chunk); #H24.8.3追加（koala）
my $encchunk=&::encode(@echunk[0]) . '#' . &::encode(@echunk[1]) ; #H24.8.3追加（koala）
if ($::database{$chunk}) {
return qq(<a title="$chunk" href="$::script?$cookedchunk">$escapedchunk</a>);
} elsif (($chunk =~ /^([^#]*)#/) && $::database{$1}) {
# return qq(<a title="$chunk" href="$::script?$chunk">$escapedchunk</a>);
return qq(<a title="$chunk" href="$::script?$encchunk">$escapedchunk</a>); #H24.8.3追加（koala）
} elsif (&is_editable($chunk)) {
return qq($escapedchunk<a title="$::resource{editthispage}" class="editlink" href="$::script?cmd=edit&mypage=$cookedchunk">$editchar</a>);
}
return $escapedchunk;
}
}
sub get_fullname {
リンクのポップアップ指定が無視される件
$::use_popup = 1; # リンク先を 1:ポップアップ/0:ページ切替
index.cgiのsub make_link内７６３行目あたり、
if ($chunk =~ /(.+?)>(.+)/ or $chunk =~ /(.+?):(.+)/) { # v0.1.4
$escapedchunk = &htmlspecialchars($1);
if ($escapedchunk =~ /\.(gif|png|jpe?g)$/) {
$escapedchunk = "<img src=\"$escapedchunk\">";
}
$chunk = $2;
if ($2 =~ /$ismail/) {
$escapedchunk = $chunk if ($escapedchunk =~ /^mailto/);
$chunk = "mailto:$chunk" if ($chunk !~ /^mailto:/);
return qq(<a href="$chunk">$escapedchunk</a>);
} elsif (($chunk =~ /(https?|ftp):.*/) or !$::interwiki{$1}) {
$cookedchunk = &rawurlencode($chunk);
}
} elsif ($chunk =~ /^($ismail)/) {
return qq(<a href="mailto:$chunk">$chunk</a>);
}
if ($chunk =~ /^(https?|ftp):/) {
if (&exist_plugin('img') == 1) {
$res = &plugin_img_convert("$chunk,module");
return $res if ($res ne '');
}
return qq(<a href="$chunk"$target>$escapedchunk</a>); #koala H24.8.23 $target追加
} elsif ($chunk =~ /^$interwiki_name2$/) {
my ($intername, $keyword, $anchor) = ($1, $2, $3);
if (exists $::interwiki2{$intername}) {
my ($code, $url) = %{$::interwiki2{$intername}};
$url =~ s/\$1/&interwiki_convert($code, $keyword)/e;
$url = &htmlspecialchars($url.$anchor);
return qq(<a href="$url"$target>$escapedchunk</a>);
} else {
return $escapedchunk;
}
} elsif ($chunk =~ /^$interwiki_name$/) {
my ($intername, $localname) = ($1, $2);
my $remoteurl = $::interwiki{$intername};
if ($remoteurl) {
$remoteurl =~
s/\b(utf8|euc|sjis|ykwk|asis)\(\$1\)/&interwiki_convert($1, $localname)/e;
return qq(<a href="$remoteurl">$escapedchunk</a>);
} else {
return $escapedchunk;
}
}
のブロックで、
if ($chunk =~ /^(https?|ftp):/) {
if (&exist_plugin('img') == 1) {
$res = &plugin_img_convert("$chunk,module");
return $res if ($res ne '');
}
return qq(<a href="$chunk"$target>$escapedchunk</a>); #koala H24.8.23 $target追加
の返り値内に＄target追加。
［［文字列＞ＵＲＬ］］で、ＵＲＬに「＠」を含む場合に、リンク先の先頭に「mailto:」が付けられてメアド化されてしまう件
＜修正前＞
if ($2 =~ /$ismail/) {
$escapedchunk = $chunk if ($escapedchunk =~ /^mailto/);
$chunk = "mailto:$chunk" if ($chunk !~ /^mailto:/);
return qq(<a href="$chunk">$escapedchunk</a>);
} elsif (($chunk =~ /(https?|ftp):.*/) or !$::interwiki{$1}) {
$cookedchunk = &rawurlencode($chunk);
}
＜修正後＞
if (($chunk =~ /(https?|ftp):.*/) or !$::interwiki{$1}) {
$cookedchunk = &rawurlencode($chunk);
} elsif ($2 =~ /$ismail/) {
$escapedchunk = $chunk if ($escapedchunk =~ /^mailto/);
$chunk = "mailto:$chunk" if ($chunk !~ /^mailto:/);
return qq(<a href="$chunk">$escapedchunk</a>);
} #Ｈ２５．３．３０koala変更
Counter: 5342,
today: 4,
yesterday: 14
|
