#!/usr/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser);

$query = new CGI;
# HTMLヘッダー出力
print "Content-type: text/html; charset=x-sjis\n\n";

open(FILE, "< ./request.txt");
while(<FILE>) {
	($order{$i},$type{$i},$submitmonth{$i},$submitday{$i},$bookmonth{$i},$bookday{$i},$frame{$i} = split(/\t/, $_);
	if($mode) {
		$vm = "当月";
	} else {
		$vm = "翌月";
	}
	print "$vm $ym月$yd日 $sm月$sd日 枠$sw<br>\n";
}

exit;



	($week,$mon,$day,$hour,$year) = split(/\s+/,localtime($time));
		$day = sprintf("%02d",$day);
	if($mon eq "Jan") {
		$nmon = sprintf("%02d", "01");
	} elsif($mon eq "Feb") {
		$nmon = sprintf("%02d", "02");
	} elsif($mon eq "Mar") {
		$nmon = sprintf("%02d", "03");
	} elsif($mon eq "Apr") {
		$nmon = sprintf("%02d", "04");
	} elsif($mon eq "May") {
		$nmon = sprintf("%02d", "05");
	} elsif($mon eq "Jun") {
		$nmon = sprintf("%02d", "06");
	} elsif($mon eq "Jul") {
		$nmon = sprintf("%02d", "07");
	} elsif($mon eq "Aug") {
		$nmon = sprintf("%02d", "08");
	} elsif($mon eq "Sep") {
		$nmon = sprintf("%02d", "09");
	} elsif($mon eq "Oct") {
		$nmon = sprintf("%02d", "10");
	} elsif($mon eq "Nov") {
		$nmon = sprintf("%02d", "11");
	} elsif($mon eq "Dec") {
		$nmon = sprintf("%02d", "12");
	}