#!/usr/bin/perl
#print "Content-type: text/html\n\n";
#print "<html><head></head><body>ok<br>\n\n";
#print "</body></html>\n\n";
#exit;
#use utf8;
#use Jcode;
use Encode qw(decode);

use CGI qw(:standard);
$SHORI = param('SHORI');
$DBF = 'dat/shopdata.csv';
$TICKETDBF = 'dat/ticket.csv';
$MCOUNT =9;#モーダルの数字カウント用
$AREA = param('BASHO');


	if ( $AREA < 1 or $AREA > 4 ){ &error('Areacode fail','no data.'); }
	if ( $AREA eq '' ){ &error('Areacode fail','no data.'); }

	if (!open(IN,"$TICKETDBF")){ &error('Can not open the data file','no information.'); }
	@TICKET = <IN>;
	close (IN);
	
	if (!open(IN,"$DBF")){ &error('Can not open the data file','no information.'); }
	@OMISE = <IN>;
	close (IN);

#全データまたは抽出されたデータを回す
foreach $DATA (@OMISE){

	$TAISAKU10 = '';#別データから作られているフラグを空にする
	$CHECK = '';#対策店のフラグは毎回からにする
	$VIEW = '';#表示用に作ったデータを消す
	$HP = '';	
	$DENWA = '';	
	
	($CODE,$KAI,$TENMEI,$BUNRUI,$TAISAKU1,$TAISAKU2,$TAISAKU3,$TAISAKU4,$TAISAKU5,$TAISAKU6,$TAISAKU7,$TAISAKU10,$TAISAKU9,$SONOTA,$SETSUMEI,$JIKAN,$URL,$KYUGYO,$ACCDATA,$MAPURL,$TELEPHONE,$TES,$EN) = split(/\,/,$DATA);
if ( $AREA != $KAI ){ next; }

#クーポンを発行している場合は対策店として取り扱う
foreach $TDATA (@TICKET){ 
	($TICKETNUM,$TCODE,$TKAI,$TTENMEI,$TBUNRUI,$TTELEPHONE,$TTICKETNAME,$THAIKEI,$TLIMSYEAR,$TLIMSMON,$TLIMSDAY,$TLIMEYEAR,$TLIMEMON,$TLIMEDAY,$TNAIYO,$TYOYAKU,$J1,$J2,$J3,$J4,$J5,$J5A,$J6,$J6A,$J7,$J8,$J9,$J10,$TCHIZU,$TURL,$TYOBI,$YOBI,$YOBI,$YOBI,$EN) = split(/\,/,$TDATA);
		if ( $CODE eq $TCODE ){ $TAISAKU10 ='on';}
}#foreac:TICKETの終わり


#加盟商店会の表示用
if ( $KAI eq '1' ){ $KAIDATA = "<img src=\"img/onsenba-logo.png\" alt=\"温泉場商店会\" width=\"40%\" height=\"40%\" />"; $BGCOLOR = '#ffe6e6'; }
if ( $KAI eq '2' ){ $KAIDATA = "<img src=\"img/meitengai-logo.png\" alt=\"湯河原駅前通り 明店街\" width=\"40%\" height=\"40%\" />"; $BGCOLOR = '#ffdd66'; }
if ( $KAI eq '3' ){ $KAIDATA = "<img src=\"img/sansan-logo.png\" alt=\"サンサン通り会\" width=\"40%\" height=\"40%\" />"; $BGCOLOR = '#e6e6ff'; }
if ( $KAI eq '4' ){ $KAIDATA = "<img src=\"img/chuo-logo.png\" alt=\"中央商店会\" width=\"40%\" height=\"40%\" />"; $BGCOLOR = '#99eeee'; }

#対策を表示用にする
if ( $TAISAKU1 eq 'on' ){ $TAISAKUDATA1 = "<img src=\"img/jitan.jpg\" alt=\"時短営業をしています。\" title=\"時短営業をしています。\" width=\"25%\" />"; $CHECK = 'on'; }else{ $TAISAKUDATA1 = "<img src=\"img/neigyo.jpg\" alt=\"気を付けながら通常営業しています。\" width=\"25%\" />"; }
if ( $TAISAKU1 eq 'closed' ){ $TAISAKUDATA1 = "<img src=\"img/closed.jpg\" alt=\"店舗は閉めております。\" width=\"25%\" />"; $CHECK = 'on'; }
if ( $TAISAKU2 eq 'on' ){ $TAISAKUDATA2 = "<img src=\"img/social.jpg\" alt=\"ソーシャルディスタンスを実施しています。\" width=\"25%\" />"; $CHECK = 'on'; }else{ $TAISAKUDATA2 = ''; }
if ( $TAISAKU3 eq 'on' ){ $TAISAKUDATA3 = "<img src=\"img/tuhan.jpg\" alt=\"商品を通信販売しています。\" width=\"25%\" />"; $CHECK = 'on'; }else{ $TAISAKUDATA3 = '';}
if ( $TAISAKU4 eq 'on' ){ $TAISAKUDATA4 = "<img src=\"img/lunch.jpg\" alt=\"ランチ営業をしています。\" width=\"25%\" />"; $CHECK = 'on'; }else{ $TAISAKUDATA4 = ''; }
if ( $TAISAKU5 eq 'on' ){ $TAISAKUDATA5 = "<img src=\"img/takeout.jpg\" alt=\"テイクアウト販売可能です。\" width=\"25%\" />"; $CHECK = 'on'; }else{ $TAISAKUDATA5 = ''; }
if ( $TAISAKU6 eq 'on' ){ $TAISAKUDATA6 = "<img src=\"img/haitatsu.jpg\" alt=\"配達承ります。\" width=\"25%\" />"; $CHECK = 'on'; }else{ $TAISAKUDATA6 = ''; }
if ( $TAISAKU7 eq 'on' ){ $TAISAKUDATA7 = "<img src=\"img/telshop.jpg\" alt=\"電話受付しています。\" width=\"25%\" />"; $CHECK = 'on'; }else{ $TAISAKUDATA7 = ''; }
if ( $TAISAKU8 eq 'on' ){ $TAISAKUDATA8 = "<img src=\"img/\" alt=\"\" width=\"%\" />"; }else{ $TAISAKUDATA8 = ''; }
if ( $TAISAKU9 eq 'on' ){ $TAISAKUDATA9 = "<img src=\"img/kyugyo.jpg\" alt=\"店舗は閉めています\" width=\"25%\" />"; $CHECK = 'on'; }else{ $TAISAKUDATA9 = ''; }
if ( $TAISAKU10 eq 'on' ){ $TAISAKUDATA10 = "<img src=\"img/waribiki.jpg\" alt=\"クーポン券発行中\" width=\"25%\" />"; $CHECK = 'on'; }else{ $TAISAKUDATA10 = ''; }

#その他の対策をしている場合も対策店にする
if ( $SONOTA ne '' ){ $CHECK = 'on'; }

#完全休業の場合は他の対策を無視して、その他の対策に休業期間を代入する
if ( $TAISAKU9 eq 'on' ){#未来に使えるクーポンは発行できるのでTAISAKU10は消さない
	$TAISAKUDATA1 = ''; $TAISAKUDATA2 = ''; $TAISAKUDATA = ''; $TAISAKUDATA4 = ''; 
	$TAISAKUDATA5 = ''; $TAISAKUDATA6 = ''; $TAISAKUDATA7 = ''; $TAISAKUDATA8 = ''; 
	$SONOTA = "$SONOTA" . "$KYUGYO";
}

#説明が長いときは途中で切って、続きはモーダルにする
$SETSUMEI2 = $SETSUMEI;
$MOJISU = length(decode('utf-8',$SETSUMEI2));
if ( $MOJISU > 50 ){ &modalmake; }

#ＵＲＬがある場合の表示用
if ( $URL ne '' ){ $HP = "<br /><a href=\"$URL\" class=\"btn btn-info\">WEB</a>"; }

#休業中以外で電話番号があるときに表示用を作る（未対策の申し込みのない店舗は表示しないけどね。
if ( $TAISAKU9 ne 'on' and $TELEPHONE ne '' ){ $TELEPHONE = '0'."$TELEPHONE"; $DENWA = "<a href=\"tel:$TELEPHONE\" class=\"btn btn-info\">お電話</a>"; }


if ( $CHECK ne 'on' ){ #対策なし
	if ( $TES ne '' ){ #申し込みなしなので小さな表示（最後に表示）
	
	$VIEW = "
		<div class=\"col-xl-4 col-md-6\">
		<div class=\"card\" style=\"margin-top:10px;\">
		<img src=\"./img/cl.png\" width=\"100%\">
		<div style=\"background-color:$BGCOLOR;padding:0.5rem;\">$TENMEI</div>
		</div>
		</div>
	";
		if ( $BUNRUI eq '1' ){ push(@CNOTOFF1,$VIEW); }
		if ( $BUNRUI eq '2' or $BUNRUI eq '6' ){ push(@CNOTOFF2,$VIEW); }
		if ( $BUNRUI eq '3' ){ push(@CNOTOFF3,$VIEW); }
		if ( $BUNRUI eq '4' ){ push(@CNOTOFF4,$VIEW); }
		if ( $BUNRUI eq '5' ){ push(@CNOTOFF5,$VIEW); }
		if ( $BUNRUI eq '6' ){ push(@CNOTOFF6,$VIEW); }
		if ( $BUNRUI eq '7' ){ push(@CNOTOFF7,$VIEW); }
		
		$CNOTOFFCOUNT[$BUNRUI]++;
		
	}else{#申し込みありなので（通常営業なので、対策店の後に表示）
	
	&jikankoushin; #更新時間を最新にする
	
	$VIEW = "
		<div class=\"col-xl-4 col-md-6\">
		<div class=\"card\">
			$KAIDATA
		<div class=\"card-body\">
			<strong>$TENMEI</strong>
			<br />
			$TAISAKUDATA1
			<br />
			$SETSUMEI
			$HP
			$DENWA
		</div>
		</div>
		</div>
	";
		
		if ( $BUNRUI eq '1' ){ push(@CNOTYES1,$VIEW); }
		if ( $BUNRUI eq '2' or $BUNRUI eq '6' ){ push(@CNOTYES2,$VIEW); }
		if ( $BUNRUI eq '3' ){ push(@CNOTYES3,$VIEW); }
		if ( $BUNRUI eq '4' ){ push(@CNOTYES4,$VIEW); }
		if ( $BUNRUI eq '5' ){ push(@CNOTYES5,$VIEW); }
		if ( $BUNRUI eq '6' ){ push(@CNOTYES6,$VIEW); }
		if ( $BUNRUI eq '7' ){ push(@CNOTYES7,$VIEW); }
		
		$BUNRUICOUNT[$BUNRUI]++;;
	}
}else{#対策有りなので、先頭に表示）

	&jikankoushin; #更新時間を最新にする

	$VIEW = "
		<div class=\"col-xl-4 col-md-6\">
		<div class=\"card\">
			$KAIDATA
			<div class=\"card-body\">
				<strong>$TENMEI</strong>
				<br />
				$TAISAKUDATA9
				$TAISAKUDATA1
				$TAISAKUDATA2
				$TAISAKUDATA3
				$TAISAKUDATA4
				$TAISAKUDATA5
				$TAISAKUDATA7
				$TAISAKUDATA6
				$TAISAKUDATA8
				$TAISAKUDATA10
				<br />
					<div style=\"color:#008888;\">
						$SONOTA
					</div>
					<hr />
						$SETSUMEI
						$HP
						$DENWA
			</div>
		</div>
		</div>
	"; 

		if ( $BUNRUI eq '1' ){ push(@CONTYES1,$VIEW); }
		if ( $BUNRUI eq '2' or $BUNRUI eq '6' ){ push(@CONTYES2,$VIEW); }
		if ( $BUNRUI eq '3' ){ push(@CONTYES3,$VIEW); }
		if ( $BUNRUI eq '4' ){ push(@CONTYES4,$VIEW); }
		if ( $BUNRUI eq '5' ){ push(@CONTYES5,$VIEW); }
		if ( $BUNRUI eq '6' ){ push(@CONTYES6,$VIEW); }
		if ( $BUNRUI eq '7' ){ push(@CONTYES7,$VIEW); }

		$BUNRUICOUNT[$BUNRUI]++;;
}#check=on
}#foreachの終わり
#振り分けととりあえずのデータ化はここまで、ここから表示について考える




#表示
&htmlatama;

#分類１について
$XYZ = 1;
#まず対策店と申し込み店
while ( $XYZ < 8 ){
$TUIKA ='';$TUIKA2 ='';
if ( $BUNRUICOUNT[$XYZ] ne '' ){
#最後に追加する空白の数を計算
$AMARI = $BUNRUICOUNT[$XYZ] % 3;#最後に追加する空白の数を計算
if ( $AMARI == 0 ){ $TUIKA = ''; }
if ( $AMARI == 1 ){ $TUIKA = "<div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div><div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div>"; }
if ( $AMARI == 2 ){ $TUIKA = "<div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div>"; }
}
if ( $CNOTOFFCOUNT[$XYZ] ne '' ){
#最後に追加する空白の数を計算
$AMARI = $CNOTOFFCOUNT[$XYZ] % 3;#最後に追加する空白の数を計算
if ( $AMARI == 0 ){ $TUIKA2 = ''; }
if ( $AMARI == 1 ){ $TUIKA2 = "<div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div><div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div>"; }
if ( $AMARI == 2 ){ $TUIKA2 = "<div class=\"col-xl-4 col-md-6\"><img src=\"./img/cl.png\" width=\"100%\"></div>"; }
}

#タイトルを決める
#$TITLE = ('','食品関係のお店','日中のお食事のお店','暮らしのお店','装いのお店','癒しのお店','夜のお店','その他のお店')[$XYZ];
$TITLE = ('','食品関係のお店','お食事のお店','暮らしのお店','装いのお店','癒しのお店','夜のお店','その他のお店')[$XYZ];

#更新日をエポックから表示用にする
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($KOUSHIN[$XYZ]);
$years = $year +1900;
$month = ($mon + 1);
$wday = ('日曜日','月曜日','火曜日','水曜日','木曜日','金曜日','土曜日')[$wday];
$KOUSHIN[$XYZ] = 'この分類情報は '."$years".'年'."$month".'月'."$mday".'日 '."$wday".' に更新されました。';

if ( $XYZ == 1 ){
print "
<section id=\"shokuhin\">
<br />
";

if ( $BUNRUICOUNT[$XYZ] ne '' and $CNOTOFFCOUNT[$XYZ] ne '' ){#どっちもある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES1
@CNOTYES1
$TUIKA
</div>
<div class=\"row mb-4\">
@CNOTOFF1
$TUIKA2
</div>
";
}else{#両方はない

if ( $BUNRUICOUNT[$XYZ] ne '' ){#対策店舗はある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES1
@CNOTYES1
$TUIKA
</div>
";
}#対策店舗の表示
if ( $CNOTOFFCOUNT[$XYZ] ne '' ){#未対策店舗のみ
print "
<h3>$TITLE</h3>

<div class=\"row mb-4\">
@CNOTOFF1
$TUIKA2
</div>
";
}#未対策店舗の表示
}#両方はないときの終わり。どちらもなければ何も表示されない
print "</section>\n";
}#XYZ=

if ( $XYZ == 2 ){
print "
<section id=\"shokuji\">
<br />
<div style=\"text-align:right;\"><a href=\"#about\" class=\"btn btn-warning\">先頭へ</a></div>
<hr />
";

if ( $BUNRUICOUNT[$XYZ] ne '' and $CNOTOFFCOUNT[$XYZ] ne '' ){#どっちもある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES2
@CNOTYES2
$TUIKA
</div>
<div class=\"row mb-4\">
@CNOTOFF2
$TUIKA2
</div>
";
}else{#両方はない

if ( $BUNRUICOUNT[$XYZ] ne '' ){#対策店舗はある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES2
@CNOTYES2
$TUIKA
</div>
";
}#対策店舗の表示
if ( $CNOTOFFCOUNT[$XYZ] ne '' ){#未対策店舗のみ
print "
<h3>$TITLE</h3>

<div class=\"row mb-4\">
@CNOTOFF2
$TUIKA2
</div>
";
}#未対策店舗の表示
}#両方はないときの終わり。どちらもなければ何も表示されない
print "</section>\n";
}#XYZ=

if ( $XYZ == 3 ){
print "
<section id=\"kurashi\">
<br />
<div style=\"text-align:right;\"><a href=\"#about\" class=\"btn btn-warning\">先頭へ</a></div>
<hr />
";
if ( $BUNRUICOUNT[$XYZ] ne '' and $CNOTOFFCOUNT[$XYZ] ne '' ){#どっちもある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES3
@CNOTYES3
$TUIKA
</div>
<div class=\"row mb-4\">
@CNOTOFF3
$TUIKA2
</div>
";
}else{#両方はない

if ( $BUNRUICOUNT[$XYZ] ne '' ){#対策店舗はある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES3
@CNOTYES3
$TUIKA
</div>
";
}#対策店舗の表示
if ( $CNOTOFFCOUNT[$XYZ] ne '' ){#未対策店舗のみ
print "
<h3>$TITLE</h3>

<div class=\"row mb-4\">
@CNOTOFF3
$TUIKA2
</div>
";
}#未対策店舗の表示
}#両方はないときの終わり。どちらもなければ何も表示されない
print "</section>\n";
}#XYZ=

if ( $XYZ == 4 ){
print "
<section id=\"yosoi\">
<br />
<div style=\"text-align:right;\"><a href=\"#about\" class=\"btn btn-warning\">先頭へ</a></div>
<hr />
";
if ( $BUNRUICOUNT[$XYZ] ne '' and $CNOTOFFCOUNT[$XYZ] ne '' ){#どっちもある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES4
@CNOTYES4
$TUIKA
</div>
<div class=\"row mb-4\">
@CNOTOFF4
$TUIKA2
</div>
";
}else{#両方はない

if ( $BUNRUICOUNT[$XYZ] ne '' ){#対策店舗はある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES4
@CNOTYES4
$TUIKA
</div>
";
}#対策店舗の表示
if ( $CNOTOFFCOUNT[$XYZ] ne '' ){#未対策店舗のみ
print "
<h3>$TITLE</h3>

<div class=\"row mb-4\">
@CNOTOFF4
$TUIKA2
</div>
";
}#未対策店舗の表示
}#両方はないときの終わり。どちらもなければ何も表示されない
print "</section>\n";
}#XYZ=

if ( $XYZ == 5 ){
print "
<section id=\"iyashi\">
<br />
<div style=\"text-align:right;\"><a href=\"#about\" class=\"btn btn-warning\">先頭へ</a></div>
<hr />
";
if ( $BUNRUICOUNT[$XYZ] ne '' and $CNOTOFFCOUNT[$XYZ] ne '' ){#どっちもある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES5
@CNOTYES5
$TUIKA
</div>
<div class=\"row mb-4\">
@CNOTOFF5
$TUIKA2
</div>
";
}else{#両方はない

if ( $BUNRUICOUNT[$XYZ] ne '' ){#対策店舗はある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES5
@CNOTYES5
$TUIKA
</div>
";
}#対策店舗の表示
if ( $CNOTOFFCOUNT[$XYZ] ne '' ){#未対策店舗のみ
print "
<h3>$TITLE</h3>

<div class=\"row mb-4\">
@CNOTOFF5
$TUIKA2
</div>
";
}#未対策店舗の表示
}#両方はないときの終わり。どちらもなければ何も表示されない
print "</section>\n";
}#XYZ=

#if ( $XYZ == 6 ){
#print "
#<section id=\"yoru\">
#<br />
#<div style=\"text-align:right;\"><a href=\"#about\" class=\"btn btn-warning\">先頭へ</a></div>
#<hr />
#";
#if ( $BUNRUICOUNT[$XYZ] ne '' and $CNOTOFFCOUNT[$XYZ] ne '' ){#どっちもある
#print "
#<h3>$TITLE</h3>
#<p>$KOUSHIN[$XYZ]</p>

#<div class=\"row mb-4\">
##@CONTYES6
#@CNOTYES6
#$TUIKA
#</div>
#<div class=\"row mb-4\">
#@CNOTOFF6
#$TUIKA2
#</div>
#";
#}else{#両方はない

#if ( $BUNRUICOUNT[$XYZ] ne '' ){#対策店舗はある
#print "
#<h3>$TITLE</h3>
#<p>$KOUSHIN[$XYZ]</p>

#<div class=\"row mb-4\">
#@CONTYES6
#@CNOTYES6
#$TUIKA
#</div>
#";
#}#対策店舗の表示
#if ( $CNOTOFFCOUNT[$XYZ] ne '' ){#未対策店舗のみ
#print "
#<h3>$TITLE</h3>

#<div class=\"row mb-4\">
#@CNOTOFF6
#$TUIKA2
#</div>
#";
#}#未対策店舗の表示
#}#両方はないときの終わり。どちらもなければ何も表示されない
#print "</section>\n";
#}#XYZ=

if ( $XYZ == 7 ){
print "
<section id=\"sonota\">
<br />
<div style=\"text-align:right;\"><a href=\"#about\" class=\"btn btn-warning\">先頭へ</a></div>
<hr />
";
if ( $BUNRUICOUNT[$XYZ] ne '' and $CNOTOFFCOUNT[$XYZ] ne '' ){#どっちもある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES7
@CNOTYES7
$TUIKA
</div>
<div class=\"row mb-4\">
@CNOTOFF7
$TUIKA2
</div>
";
}else{#両方はない

if ( $BUNRUICOUNT[$XYZ] ne '' ){#対策店舗はある
print "
<h3>$TITLE</h3>
<p>$KOUSHIN[$XYZ]</p>

<div class=\"row mb-4\">
@CONTYES7
@CNOTYES7
$TUIKA
</div>
";
}#対策店舗の表示
if ( $CNOTOFFCOUNT[$XYZ] ne '' ){#未対策店舗のみ
print "
<h3>$TITLE</h3>

<div class=\"row mb-4\">
@CNOTOFF7
$TUIKA2
</div>
";
}#未対策店舗の表示
}#両方はないときの終わり。どちらもなければ何も表示されない
print "</section>\n";
}#XYZ=




$XYZ++;
}#while
print @MDR;
&footer;
exit;





sub jikankoushin {
	if ( $KOUSHIN[$BUNRUI] < $JIKAN ){ $KOUSHIN[$BUNRUI] = $JIKAN; }
}

sub modalmake {
$MCOUNT++;
	my ($SETSUMEIVIEW,$GOMI) = $SETSUMEI2 =~ /.{162}/g;
	$SETSUMEI = "$SETSUMEIVIEW"."<span><button type=\"button\" class=\"btn btn-primary\" data-toggle=\"modal\" data-target=\"#modal$MCOUNT\">つづきを読む</button></span>";

$MDARU = "
        <div class=\"modal fade\" id=\"modal$MCOUNT\" tabindex=\"-1\" role=\"dialog\" aria-labelledby=\"modal01-label\" aria-hidden=\"true\">
          <div class=\"modal-dialog modal-dialog-centered\" role=\"document\">
            <div class=\"modal-content\">
              <div class=\"modal-header\">
                <h5 class=\"modal-title\" id=\"modal$MCOUNT-label\">$TENMEI</h5>
                <button type=\"button\" class=\"close\" data-dismiss=\"modal\" aria-label=\"Close\"> <span aria-hidden=\"true\">&times;</span> </button>
              </div>
              <div class=\"modal-body\">
   	$TAISAKUDATA9
	$TAISAKUDATA1
	$TAISAKUDATA2
	$TAISAKUDATA3
	$TAISAKUDATA4
	$TAISAKUDATA5
	$TAISAKUDATA7
	$TAISAKUDATA6
	$TAISAKUDATA8
	<br />
	<div style=\"color:#008888;\">$SONOTA</div>
$HP
                <p>$SETSUMEI2</p>
              </div>
              <div class=\"modal-footer\">
                <button type=\"button\" class=\"btn btn-secondary\" data-dismiss=\"modal\">閉じる</button>
              </div>
            </div>
          </div>
        </div>
";

push (@MDR,$MDARU);
}

sub htmlatama {
#表示関連
print "Content-type: text/html\n\n";
print <<"EOF";
<!doctype html>
<html lang="ja">
<head>
<meta charset="utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no" />
<meta http-equiv="cache-control" content="no-cache" />
<link rel="canonical" href="https://yugawara.tv" />
<meta name="robots" content="noindex,nofollow,noarchive" />
<meta name="description" content="湯河原町の商店街,温泉場商店会,湯河原駅前通り 明店街,サンサン通り会,中央商店会の統括団体">

<link rel="stylesheet" href="css/bootstrap.min.css" />
<!-- 追加CSS -->
<link rel="stylesheet" href="css/custom.css" />
<title>新型コロナウイルス対策：湯河原町商店街連合会</title>
</head>
<body>
<!-- ナビゲーションバー -->
<nav class="navbar navbar-expand-md navbar-light sticky-top" style="background-color:#f29900;">
  <div class="container">
    <!-- サブコンポーネント -->
    <!-- ブランド -->
    <a class="navbar-brand" href="index.html">湯河原町商店街連合会</a>
    <!-- 切替ボタン -->
    <button class="navbar-toggler" type="button" data-toggle="collapse" data-target="#navbar-content" aria-controls="navbar-content" aria-expanded="false" aria-label="Toggle navigation"> <span class="navbar-toggler-icon"></span> </button>
    <!-- ナビゲーション -->
    <div class="collapse navbar-collapse" id="navbar-content">
      <!-- ナビゲーションメニュー -->
      <!-- 左側メニュー：トップページの各コンテンツへのリンク -->
      <ul class="navbar-nav mr-auto">
        <li class="nav-item active">
          <a class="nav-link" href="https://yugawara.tv/">トップ <span class="sr-only">(current)</span></a>
        </li>
        <!-- ドロップダウン -->
        <li class="nav-item dropdown">
          <a class="nav-link dropdown-toggle" href="#" id="navbarDropdown" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false"> コロナ対策店舗紹介 </a>
          <div class="dropdown-menu" aria-labelledby="navbarDropdown">
            <a class="dropdown-item" href="#covid">対策店舗一覧先頭</a>
            <a class="dropdown-item" href="#shokuhin">食料品関連のお店</a>
            <a class="dropdown-item" href="#shokuji">日中のお食事店</a>
            <a class="dropdown-item" href="#kurashi">暮らしのお店</a>
            <a class="dropdown-item" href="#yosoi">装いのお店</a>
            <a class="dropdown-item" href="#iyashi">癒しのお店</a>
            <a class="dropdown-item" href="#yoru">夜のお店</a>
            <a class="dropdown-item" href="#sonota">その他のお店</a>
          </div>
        <li class="nav-item dropdown">
          <a class="nav-link dropdown-toggle" href="#" id="navbarDropdown" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false"> 商店会ホームページ </a>
          <div class="dropdown-menu" aria-labelledby="navbarDropdown">
            <a class="dropdown-item" href="https://yugawara.tv/onsenba/">温泉場商店会</a>
            <a class="dropdown-item" href="https://yugawara.tv/meitengai/">湯河原駅前通り 明店街</a>
            <a class="dropdown-item" href="https://yugawara.tv/sansan/">サンサン通り会</a>
            <a class="dropdown-item" href="https://yugawara.tv/chuo/">中央商店会</a>
          </div>
		</li>
<!--
        </li>
        <li class="nav-item">
          <a class="nav-link" href="https://yugawara.tv/onsenba/">温泉場商店会</a>
        </li>
        <li class="nav-item">
          <a class="nav-link" href="https://yugawara.tv/meitengai/">湯河原駅前通り明店街</a>
        </li>
        <li class="nav-item">
          <a class="nav-link" href="https://yugawara.tv/sansan/">サンサン通り会</a>
        </li>
        <li class="nav-item">
          <a class="nav-link" href="https://yugawara.tv/chuo/">中央商店会</a>
        </li>
-->
      </ul>
      <!-- 右側メニュー：Contactページへのリンク -->
      <ul class="navbar-nav">
        <li class="nav-item">
          <a href="contact.html" class="nav-link btn btn-info">Contact</a>
        </li>
      </ul>
      <!-- /ナビゲーションメニュー -->
    </div>
    <!-- /サブコンポーネント -->
  </div>
</nav>
<!-- /ナビゲーションバー -->
<!-- メイン -->
<main>
<!--covid-->
<section id="covid">
<div class="waku">
  <div class="container">
  <h3>= 新型コロナウイルス対策店舗のご紹介 =</h3>

<div class="row mb-4">
<div class="col-lg-3 col-sm-6">
	<div class="card">
		<a href="stores.pl?BASHO=1" class="btn btn-success">温泉場商店会のみ表示</a>
	</div>
</div>
<div class="col-lg-3 col-sm-6">
	<div class="card">
<a href="stores.pl?BASHO=2" class="btn btn-success">湯河原駅前通り明店街のみ表示</a>
	</div>
</div>
<div class="col-lg-3 col-sm-6">
	<div class="card">
<a href="stores.pl?BASHO=3" class="btn btn-success">サンサン通り会のみ表示</a>
	</div>
</div>
<div class="col-lg-3 col-sm-6">
	<div class="card">
<a href="stores.pl?BASHO=4" class="btn btn-success">中央商店会のみ表示</a>
	</div>
</div>
</div>
<span style="color:red">※ 最新の情報は店舗までお問い合わせください。</span>
<br />

EOF
}

sub footer {

print <<"EOF";
<br />
<div style="text-align:right;"><a href="#covid" class="btn btn-warning">先頭へ</a></div>
<hr>
</div><!--container-->
</div><!--waku-->
</section>

@MDR

</main>
<!-- /メイン -->
<!-- フッター -->
<footer class="py-4 bg-dark text-light">
  <div class="container text-center">
    <!-- ナビゲーション -->
    <ul class="nav justify-content-center mb-3">
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv/">トップ</a>
      </li>
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv/onsenba/">温泉場商店会</a>
      </li>
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv//meitengai/">湯河原駅前通り 明店街</a>
      </li>
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv/sansan/">サンサン通り会</a>
      </li>
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv/chuo/">中央商店会</a>
      </li>
      <li class="nav-item">
        <a class="nav-link" href="https://yugawara.tv/contact.html">Contact</a>
      </li>
    </ul>
    <!-- /ナビゲーション -->
    <p>
      <small>Copyright &copy;2020 湯河原町商店街連合会, All Rights Reserved.</small>
    </p>
  </div>
</footer>
<!-- /フッター -->

<script src="js/jquery-3.3.1.slim.min.js"></script>
<script src="js/bootstrap.bundle.min.js"></script>
</body>
</html>
EOF
}

exit;

# エラー表示
sub error {

	local (@msg) = @_;
	local ($i);

	print "Content-type: text/html\n\n";
	print <<"EOF";
<meta charset="utf-8">
	<h2>$_[0]</h2>
EOF

	print "<ul>\n";
	foreach $i (1 .. $#msg) { print "<li>$msg[$i]\n"; }
	print "</ul>\n";

	exit;
}
