PyukiWiki CVS Commit
pyuki****@lists*****
2012年 2月 20日 (月) 03:29:28 JST
Index: PyukiWiki-Devel-UTF8/plugin/ad.inc.pl diff -u PyukiWiki-Devel-UTF8/plugin/ad.inc.pl:1.250 PyukiWiki-Devel-UTF8/plugin/ad.inc.pl:1.251 --- PyukiWiki-Devel-UTF8/plugin/ad.inc.pl:1.250 Mon Feb 20 02:39:49 2012 +++ PyukiWiki-Devel-UTF8/plugin/ad.inc.pl Mon Feb 20 03:29:28 2012 @@ -1,6 +1,6 @@ ###################################################################### # ad.inc.pl - This is PyukiWiki, yet another Wiki clone. -# $Id: ad.inc.pl,v 1.250 2012/02/19 17:39:49 papu Exp $ +# $Id: ad.inc.pl,v 1.251 2012/02/19 18:29:28 papu Exp $ # # "ad" version 1.07 $$ # Author: Nanami http://nanakochi.daiba.cx/ @@ -103,13 +103,12 @@ if(&plugin_ad_pyukiver >= 2) { my $loop=1; $ret=~s/[\x0a|\x0d]//g; - while($ret=~/<[Aa]([^<]*)[Hh][Rr][Ee][Ff]="?($::isurl)"?([^<]*)>(([\n\r]|.*)?)<\/[Aa]>/) { - my $title=$5; - $title=~s/<[Ii][Mm][Gg](.*)?>//g; - $ret=~s/<[Aa]([^<]*)[Hh][Rr][Ee][Ff]="?($::isurl)"?([^<]*)>(([\n\r]|.)*?)<\/[Aa]>/@{[&make_link_target("$::script?cmd=ad&c=$loop&p=@{[&dbmname($::form{mypage})]}&l=$id", "adlink", "_blank", $title, 1)]}$title<\/a>/; - $loop++; - last if($loop >= 5); - } + $ret=~s/<[Aa]\s/\f /g; +# while($ret=~/\f([^<]*)[Hh][Rr][Ee][Ff]="?($::isurl)"?([^<]*)>([^\f]*)<\/[Aa]>/) { + $ret=~s/\f([^<]*)[Hh][Rr][Ee][Ff]="?($::isurl)"?([^<]*)>([^\f]*)<\/[Aa]>/@{[&make_link_target("$::script?cmd=ad&c=@{[$loop++]}&p=@{[&dbmname($::form{mypage})]}&l=$id", "adlink", "_blank", $4, 1)]}$4<\/a>/g; +# $loop++; +# last if($loop >= 5); +# } } return $ret; }
