Google Maps にリンク

別のところで、
「Google、検索結果に地図へのリンクを表示」
という記事を見て、あぁ。。地図にリンクをしておけば使い勝手いいんちゃう？って思いつくの遅せぇ。。

ということで、管理者コメントで記入していた住所にリンクを作るようシステム改造した。
ココからは、おもいっきり自分の覚え書き♪

template/kt.html　と　template/search.html

if($Slog[7]){
print<<"<!--HTML-->";
<tr>
<td width="3"></td>
<td colspan="2"><font id="kanri">$Slog[7]</font></td>
</tr>
<!--HTML-->
#<!--(↓修正不可↓)
}

if($Slog[7]){
print<<"<!--HTML-->";
<tr>
<td width="3"></td>
<td colspan="2"><font id="kanri"><IMG src="$EST{home}img/map.gif" width="36" height="13" border="0" align="left" alt="$Slog[1]_地図">
<!--HTML-->
@map=split(/￥/,$Slog[7]);
foreach(@map){
{local($encomap=$_);
$encomap=~s/(\W)/'%' . unpack('H2',$1)/eg;
}
if(length($_) > 6){
print "＜<a href=\"http://maps.google.co.jp/maps?ie=SJIS&q=$encomap\" target=\"_blank\" rel=\"nofollow\">";
print $_;
print "</a>＞";
}
else{
print $_;
}
}
print<<"<!--HTML-->";
</font></td>
</tr>
<!--HTML-->
#<!--(↓修正不可↓)
}

regist_ys.cgi

$PR_data=<<"EOM";
<div class="sub_bar">[登録データ]</div>
<table width="336" summary="$Tlog[1] サイト情報"><tr><td>
■タイトル：<br><a href="$Tlog[2]"><strong><b>$Tlog[1]</b></strong></a><br>
■URL：<br><a href="$Tlog[2]"><font size="1" color="#008000" style="text-decoration:none" title="$Tlog[1]">$Tlog[2]</font></a><br>
■紹介文：<br>$Tlog[6]
<br><br>$Tlog[7]
</td></tr>
</table>
EOM

if($Tlog[7]){
@map=split(/￥/,$Tlog[7]);
foreach(@map){
{local($encomap=$_);
$encomap=~s/(\W)/'%' . unpack('H2',$1)/eg;
}
if(length($_) > 6){
$map_data=$map_data."<br>＜<a href=\"http://maps.google.co.jp/maps?ie=SJIS&q=$encomap\" target=\"_blank\" rel=\"nofollow\">".$_."</a>＞";
}
else{
$map_data=$map_data.$_;
}
}
$map_data="<IMG src=\"$EST{home}img/map.gif\" width=\"36\" height=\"13\" border=\"0\" align=\"left\" alt=\"$Tlog[1]_地図\">".$map_data;
}

$PR_data=<<"EOM";
<div class="sub_bar">[登録データ]</div>
<table width="336" summary="$Tlog[1] サイト情報"><tr><td>
■タイトル：<br><a href="$Tlog[2]"><strong><b>$Tlog[1]</b></strong></a><br>
■URL：<br><a href="$Tlog[2]"><font size="1" color="#008000" style="text-decoration:none" title="$Tlog[1]">$Tlog[2]</font></a><br>
■紹介文：<br>$Tlog[6]
<br>$map_data<br><br>
</td></tr>
</table>
EOM

という感じ。。まぁ、わかんない人には全然わかんないな。。っと。
最初に書いたが、住所は最初から全部記入しとけばよかった。。二度手間だ。。