#!/usr/local/bin/perl #日本語コード変換ライブラリを読み込む require './jcode.pl'; #時刻取得 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time+9*60*60); #初期設定 @wday_array = ('日','月','火','水','木','金','土'); $days[4] = $days[6] = $days[9] = $days[11] = 30; $days[1] = $days[3] = $days[5] = $days[7] = $days[8] = $days[10] = $days[12] = 31; $now_year = $year + 1900; $next_year = $now_year + 1; $next_day = $mday + 1; print "Content-type: text/html\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "白馬のお宿　旅館山崎屋へようこそ\n"; print "\n"; print "\n"; print "
\n"; print "
〒399-9301　長野県北安曇郡白馬村北城5165
　旅館山崎屋　電話　０２６１−７２−２４５４
\n"; print "
\n"; print "
このページはInternet Explorer（文字サイズ＝中）でご覧下さい。
Copyright (C) messa-kun since 2003
\n"; print "
\n"; print "
\n"; print "
●種類　１つお選びください
　空室確認　　 ご質問やその他

●空室確認の場合は次にもご記入ください
\n"; print <<"EOF"; 　年 月 日から EOF #年 #月 #日から print "泊
　室必要　 （大人名　 子供名）

●おなまえ（全角ひらがなで）
　
●お電話番号（回答はお電話になりますのでお間違いのないようお願いします）
　
●山崎屋へのご質問やメッセージがあればお書きください
　
●記入もれがないか確認したら下の「送信する」ボタンをクリック！
　
\n"; print "
急ぎのご用件は
お電話
０２６１−７２−２４５４へ
お願いします。
\n"; print "\n"; print "\n";