テーブルの練習３

#! /usr/local/bin/perl # # テーブルの練習３（部屋予約への応用） #　このＣＧＩは、ファイル登録はなく、表示だけです # id=table3.cgi # # update=2000.5.10 $reload = 'http://www0.kumagaya.or.jp/cgi-bin/users/chichibu/table3.cgi'; #　日本語コード変換ライブラリ(v2.0)の指定 # &ReadParse命令で、$in{ }の変数にフォーム入力データが格納される require 'cgi-lib.pl'; require 'jcode.pl'; &ReadParse; # 列数 $x=4; # 行数 $y=5; # テーブル全体の位置（中央＝Ｃ） $tb='C'; # テーブルの幅 $tbw=90; # 罫線の太さ $bor=1; # 枠の中の表示名 $na[1]="１０１号室"; $na[2]="１０２号室"; $na[3]="１０３号室"; $na[4]="１０４号室"; $na[5]="２０１号室"; $na[6]="２０２号室"; # 使用中なら１、空部屋なら０、予約済みなら２ $aki[1]=0; $aki[2]=1; $aki[3]=2; $aki[4]=0; $aki[5]=1; $aki[6]=2; # 状態名と表示色と背景色 $jo[0]="使用中"; $iro[0]="red"; $bc[0]="#CCFFFF"; $jo[1]="空　き"; $iro[1]="blue"; $bc[1]="#FFCCCC"; $jo[2]="予約済"; $iro[2]="yellow"; $bc[2]="#FFFFCC"; #################################### # # # メインルーチン（処理の分岐） # # # #################################### # 全体の流れを決定する if ($in{'action'} eq 'syosai') { &syosai; } elsif ($in{'action'} eq 'back') { &display; } else { &display; } # なくても良いが最終出口を示す exit; ########################## # 部屋の使用状況表示 # ########################## sub display { print "Content-type: text/html\n\n"; print < テーブルの練習３

部屋の使用状況

EOM if ($tb eq 'C') { print "\n"; } print "\n"; # １行目のセルの結合 print "\n"; # 指定された数まで繰り返す # 行 # 部屋名番号 $no=0; for ($yy=1; $yy<=$y; $yy++) { print ""; # 列 for ($xx=1; $xx<=$x; $xx++) { $no++; print ''. "\n"; } # for　列 print ''. "\n"; } # for　行 print '

\n"; print "利用状況照会及び予約は、部屋番号をクリック\n"; print "
'; $name='syosai'; print ''.$na[$no].''; print ' '; # 部屋の使用状況を色を変えて表示する print ''."\n"; print "$jo[$no]\n"; print '

'. "\n"; if ($tb eq 'C') { print "\n"; } print ''. "\n"; } # display ############################################# # # # 部屋の使用状況詳細　　　　　　　　　# # # ############################################# sub syosai { print "Content-type: text/html\n\n"; print < 使用状況詳細

部屋の使用状況詳細

EOM print "●使用及び予約状況\n"; print "\n"; print "\n"; # 行数分だけ繰り返す # 行数はデモ $gyosu=5; $page=1; for($i=1; $i<=$gyosu; $i++) { $lno=$gyosu * ($page - 1) + $i; print ''; print ''."\n"; # 期間もデモ $hizuke1='20000101'; $hizuke2='20000912'; print ''; $name='矢尾百貨店・電算室のおやじ'; print ''; # 申込日もデモ $mymd='20000430'; $yy=substr($mymd,0,4); $mm=substr($mymd,4,2); $dd=substr($mymd,6,2); $ymd="$yy年$mm月$dd日"; print ''; } # for print '

№	使用期間	申込者	申込日
'.$lno.''."\n"; print '	'.$hizuke1.' '.$hizuke2.'	'.$name.'	'.$ymd.'

'. "\n"; # 予約申し込み print '

'; print "●予約申し込み\n"; print ''. "\n"; print ''. "\n"; } # end of syosai ##################### end of script ##############################

'."\n"; print "開始日\n"; print '		'; print '' . "\n"; print '
'."\n"; print "終了日\n"; print '		'; print '' . "\n"; print '
'."\n"; print "申込者名\n"; print '		'; print '' . "\n"; print '