予約状況登録

#!/usr/local/bin/perl # Copyright (C) 2001-2004 All right reserved by Shinya Kondo ( CGI KON ) require "cgi-lib.pl"; &ReadParse; while(($key,$val) = each(%in)) { $$key = $val; } @LIST_ITEM = ("選択してください"); @LIST_CELL = (""); @LIST_MARK = ("□"); @LIST_NOTE = ("空欄にする"); my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year += 1900; $mon += 1; if(!$yyyy || !$mm) { $yyyy = $year; $mm = $mon; } $date = sprintf("%04d/%02d",$yyyy,$mm); if(open(IFILE,"yoyaku_3_a.txt")) { while() { push(@LIST_ITEM,$_); } close(IFILE); } if(open(IFILE,"yoyaku_3_b.txt")) { while($line = ) { chomp($line); ($key,$val) = split(":",$line); next if($key eq ''); next if($val eq ''); push(@LIST_CELL,$key); push(@LIST_MARK,'■'); push(@LIST_NOTE,$val); } close(IFILE); } if($edit) { if(!$item) { $error = "媒体を選択してください。"; } elsif($d1 > $d2) { $error = "開始日と終了日が矛盾しています。"; } elsif(open(OFILE,">>yoyaku_3.tsv")) { push(@result,$date); push(@result,$item); push(@result,$d1); push(@result,$d2); push(@result,$mark); print OFILE join("\t",@result)."\n"; close(OFILE); $info = "登録処理が完了しました。"; } else { $error = "書込みに失敗しました。"; } } if(open(IFILE,"yoyaku_3.tsv")) { while($line = ) { chomp($line); ($key1,$key2,$key3,$key4,$key5) = split("\t",$line); next if($key1 ne $date); for($loop = $key3;$loop <= $key4;$loop++) { $LIST_STATUS[$key2][$loop] = $key5; } } close(IFILE); } # 予約状況登録の表示 print "Content-type: text/html\n\n"; print qq! 予約状況登録 !; require "yoyaku_3_e.inc"; for($loop = 0;$loop <= $#LIST_MARK;$loop++) { $key = $LIST_MARK[$loop]; $val = $LIST_NOTE[$loop]; print qq! $key $val !; } print qq!

$yyyy 年 $mm 月日〜日
!; for($loop = 0;$loop <= $#LIST_CELL;$loop++) { $key = $LIST_CELL[$loop]; $val = $LIST_MARK[$loop]; if($key eq $mark) { print qq! $val !; } else { print qq! $val !; } } print qq!
$error $info