画像にリンクを張る

画像にリンクを張る

http://fswiki.poi.jp/wiki.cgi?page=BugTrack%2Dplugin%2F91

(lib/Wiki/HTMLParser.pm)

#==============================================================================
# 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>";
	}
}

[カテゴリ:wikiメモ]