画像からリンクを貼るためには

wiki3_6_2/lib/Wiki/HTMLParser.pm ファイルを変更してやる必要がある。
（wiki3_6_2/lib ディレクトリごとコピーしたら、楽）（2008.4）
どのように変更したかは以下の通り（参照ページ　http://fswiki.org/wiki.cgi?page=BugTrack%2Dplugin%...）

399,404d398
< my $label;
< if($name =~ /(http|https):[a-zA-Z0-9\.,%~^_+\-%\/\?\(\)!\$&=:;\*#\@']*.(gif|jpg|jpeg|bmp|png)$/){
< $label = "<img src=\"".$name."\">";
< }else{
< $label = Util::escapeHTML($name);
< }
406c400
< return "<a href =\"$url\" target=\"_blank\">".$label."</ a>";
---
> return "<a href =\"$url\" target=\"_blank\">".Util::escapeHTML($name)."</ a>";
408c402
< return "<a href =\"$url\">".$label."</ a>";
---
> return "<a href =\"$url\">".Util::escapeHTML($name)."</ a>";

変更の仕方は異なるが下記のような変更方法もあるようだ。

参照ページ　http://airpocket.jp/misuzu/wiki.cgi?page=SandBox

#==============================================================================
# URLアンカ
#==============================================================================
sub url_anchor {
my $self = shift;
my $url = shift;
my $name = shift;
my $wiki = $self->{wiki};


if($name eq ""){
$name = $url;
}
if($url eq $name && $url=~/\.(gif|jpg|jpeg|bmp|png)$/i){
return "<img src=\"".$url."\" border=0>";
}

my $label = "";
if($name =~/\.(gif|jpg|jpeg|bmp|png)$/i){
if($name =~ /(http|https):[a-zA-Z0-9\.,%~^_+\-%\/\?\(\)!\$&=:;\*#\@']*.(gif|jpg|jpeg|bmp|png)$/){
# ラベルがＵＲＬの場合
$label = "<img src=\"".$name."\" border=0>";
} else {
# ラベルが添付ファイル名の場合
my $dir = $wiki->config('attach_dir');
my $xname=&Util::url_encode($name);
my $page;
foreach $page ($wiki->get_CGI()->param("page"),"Header","Footer","Menu") {
my $xpage=&Util::url_encode($page);
my $file = $dir."/".$xpage.".".$xname;
if(-e $file){
$label= "<img src=\"".$wiki->config('script_name')."?action=ATTACH&".
"page=".$xpage."&file=".$xname."\" border=0>";
last;
}
}
}
}
# 単に文字列の場合
if ($label eq "") { $label = Util::escapeHTML($name); }

if($wiki->config('open_new_window')==1){
return "<a href=\"$url\" target=\"_blank\">".$label."</a>";
} else {
return "<a href=\"$url\">".$label."</a>";
}
}