CVS update: PyukiWiki-Devel-UTF8/plugin (Pyukiwiki-cvs 0006025) - PyukiWiki

Index: PyukiWiki-Devel-UTF8/plugin/ad.inc.pl
diff -u PyukiWiki-Devel-UTF8/plugin/ad.inc.pl:1.236 PyukiWiki-Devel-UTF8/plugin/ad.inc.pl:1.237

--- PyukiWiki-Devel-UTF8/plugin/ad.inc.pl:1.236	Wed Feb 15 06:54:53 2012
+++ PyukiWiki-Devel-UTF8/plugin/ad.inc.pl	Sat Feb 18 20:42:24 2012
@@ -1,8 +1,8 @@
 ######################################################################
 # ad.inc.pl - This is PyukiWiki, yet another Wiki clone.
-# $Id: ad.inc.pl,v 1.236 2012/02/14 21:54:53 papu Exp $
+# $Id: ad.inc.pl,v 1.237 2012/02/18 11:42:24 papu Exp $
 #
-# "ad" version 1.06 $$
+# "ad" version 1.07 $$
 # Author: Nanami http://nanakochi.daiba.cx/
 # Copyright (C) 2004-2012 Nekyo
 # http://nekyo.qp.land.to/
@@ -18,7 +18,7 @@
 ######################################################################
 
 $PLUGIN="ad";
-$VERSION="1.06";
+$VERSION="1.07";
 
 use strict;
 
@@ -75,9 +75,10 @@
 					# URLæ›¸ãæ›ãˆ
 					if(&plugin_ad_pyukiver >= 2) {
 						my $loop=1;
-						while($tmphtml=~/<[Aa](.+?)[Hh][Rr][Ee][Ff]="$::isurl"/) {
-							$tmphtml=~s/<[Aa]([^<]*)[Hh][Rr][Ee][Ff]="?($::isurl)"?([^<]*)>(.+?)<\/[Aa]>/@{[&make_link_target("$::script?cmd=ad&amp;c=$loop&amp;p=@{[&dbmname($::form{mypage})]}&amp;l=$id", "adlink", "_blank", $5, 1)]}$5<\/a>/;
-
+						while($tmphtml=~/<[Aa]([^<]*)[Hh][Rr][Ee][Ff]="?($::isurl)"?([^<]*)>(([\n\r]|.)*?)<\/[Aa]>/) {
+							my $title=$5;
+							$title=~s/<[Ii][Mm][Gg](.*)?>//g;
+							$tmphtml=~s/<[Aa]([^<]*)[Hh][Rr][Ee][Ff]="?($::isurl)"?([^<]*)>(([\n\r]|.)*?)<\/[Aa]>/@{[&make_link_target("$::script?cmd=ad&amp;c=$loop&amp;p=@{[&dbmname($::form{mypage})]}&amp;l=$id", "adlink", "_blank", $title, 1)]}$5<\/a>/;
 							$loop++;
 							last if($loop >= 5);
 						}


PyukiWiki

[Pyukiwiki-cvs 0006025] CVS update: PyukiWiki-Devel-UTF8/plugin