PyukiWiki CVS Commit
pyuki****@lists*****
2012年 3月 13日 (火) 19:05:44 JST
Index: PyukiWiki-Devel-UTF8/plugin/tb.inc.pl diff -u PyukiWiki-Devel-UTF8/plugin/tb.inc.pl:1.3 PyukiWiki-Devel-UTF8/plugin/tb.inc.pl:1.4 --- PyukiWiki-Devel-UTF8/plugin/tb.inc.pl:1.3 Tue Mar 13 17:54:45 2012 +++ PyukiWiki-Devel-UTF8/plugin/tb.inc.pl Tue Mar 13 19:05:44 2012 @@ -1,6 +1,6 @@ ###################################################################### # tb.inc.pl - This is PyukiWiki, yet another Wiki clone. -# $Id: tb.inc.pl,v 1.3 2012/03/13 08:54:45 papu Exp $ +# $Id: tb.inc.pl,v 1.4 2012/03/13 10:05:44 papu Exp $ # # "PyukiWiki" version 0.2.0-p3-dev1 $$ # Author: Nanami http://nanakochi.daiba.cx/ @@ -111,6 +111,13 @@ sub plugin_tb_add { my($tb,$page,$ch,$flg,$maxcount)=@_; my $wiki; + + if($page=~/SandBox|$::resource{help}|$::resource{rulepage}|$::MenuBar|$::non_list/ + || $::meta_keyword eq "" || lc $::meta_keyword eq "disable" + || &is_readable($::form{mypage}) eq 0) { + return " "; + } + my @tb=reverse split(/\n/,$tb); if($tb eq '' && $flg eq 1) { my $title=$::resource{trackbackplugin_nodata}; @@ -179,6 +186,12 @@ } } my $tbpage=&tb_id2page($::form{tb_id}); + if($tbpage=~/SandBox|$::resource{help}|$::resource{rulepage}|$::MenuBar|$::non_list/ + || $::meta_keyword eq "" || lc $::meta_keyword eq "disable" + || &is_readable($tbpage) eq 0) { + return('init'=>0); + } + my $tb = $::trackbackbase{$tbpage}; foreach my $line(split(/\n/,$tb)) { my($time,$url,$title,$except,$blog_name,$remote_host)=split(/,/,$line);
