Google Maps にリンク

結構、ログをみていると治療施設を探している方が多いように思う腰痛やヘルニア関連。
「腰椎椎間板ヘルニアになっちゃいました」の体験談だけではなく、各都道府県の医療機関リンクをつくって訪問者の流れをつくってみることにしよう！
と思い立って作っていた「Hernia Links」。
各機関の所在地も記入していたが、なんか全部記入するのは長いような気がしていて○丁目○番地○号あたりは省いていた（これが後で大変後悔。。）

別のところで、
「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