相模原フィルム・コミッションマップ：$loc_name

#!/usr/local/bin/perl # 2006.02.06 Google Maps API v2.36に設定変更。 # 2006.7.20 緯度経度情報がないときの表示を「このデータには位置情報が登録されていません。」から「このデータは、地図案内をしておりません。相模原フィルム・コミッション事務局までお問い合せ下さい。」へ変更。 use CGI qw(:standard fatalsToBrowser); use strict; use Jcode; my $APIVER = "2.36"; my $datadir = "../db/data/entry/"; my $eid = param('eid'); open FILE,"$datadir$eid.cgi"; my $entry = ; close FILE; Jcode::convert(\$entry, "utf8", "euc"); my @temp = split ("\t",$entry); @temp = split ("<>",$temp[1]); my $loc_name_t = $temp[2]; my $loc_name_h ; $entry =~ s/<//g; $entry =~ s/&/&/g; $entry =~ s/"/\'/g; my ($lat,$lng,$html); if ($entry =~ /(]+>).+ll=([0-9.]+),([0-9.]+)/) { $html = "

$loc_name_t

";# 地図を上部に表示 $lng = $2; $lat = $3; $loc_name_h = $loc_name_t ; } else { $loc_name_t = "登録データ無し"; $loc_name_h = "このデータは地図案内をしておりません。
お手数ですが、相模原フィルム・コミッション事務局までお問い合せ下さい。"; $lng = ""; $lat = ""; } print <<"EOM"; Content-type: text/html; charset=utf-8 相模原フィルム・コミッションマップ：$loc_name_t

相模原フィルム・コミッションマップ

$loc_name_h

$lat,$lng

EOM __END__