$page_title

#!/usr/local/bin/perl # #■■誕生日データベースシステム birth.cgi■■ #■■ver0.1 15.Nov.1999■■ #----------------------------------------------- #■日本語コード変換モジュールのパス指定 # この例は同一ディレクトリにjcode.plを配置している # ひとつ上のディレクトリに置く場合は../jcode.plと書く require 'jcode.pl'; #----------------------------------------------- #■初期設定部 #ブラウザに表示されるページタイトル $page_title = "身近な植物の掲示板"; #データファイルのパス $datafile = "keiji.dat"; #CGIからの戻りページ #登録 $backtoReg ="put.cgi"; #検索 $backtoList ="list.cgi"; #削除 $backtoDel ="del.cgi"; #修正 $backtoUp ="edit.cgi"; #ひとつ戻る $backto ="JavaScript:history.go(-1)"; #表紙 $backtoTop ="../top.htm"; #内容背景色 $color1="lightyellow"; $color2="white"; $color3="FFE4B5"; $color4="F0FFFF"; $color5="FFE4E1"; $color6="lightgreen"; #文字色 $fcolor1="black"; $fcolor2="orange"; $fcolor3="blue"; $fcolor4="red"; $fcolor5="green"; $fcolor6="yellow"; #----------------------------------------------- #共通ルーチン処理 #■データファイル読み出しルーチン sub ReadDat{ open(FILE,"$datafile") or die "データファイルがありません"; @DATA = ; close(FILE); $datarowcnt = @DATA; } #----------------------------------------------- #■HTML記述 # print (<$page_title

身近な植物の掲示板

＊投稿者、題名、内容、パスワードが投入されていないと、書き込む事はできません。

＊この掲示板ではタグを利用する事ができます。

＊最新の情報にするには、ブラウザの再読込みボタンをクリックして下さい。

■投稿者

■メール

■題　名

■内　容

●内容背景色

●文字色

■リンク

■削除用パスワード

EOF #----------------------------------------------- #データファイル読み込みルーチン &ReadDat; #ソート条件が生年順の場合先頭データでソート @DATA = reverse(@DATA); #----------------------------------------------- print "

"; #データファイルから1行ずつ読み込み $chk_flg=0; $f_num=0; foreach $line (@DATA) { ($Sgyy,$Sgmm,$Sgdd,$Sghh,$Sgtt,$Sgss,$Sgww,$Smentkey,$Stname,$Smail,$Stitle,$Spre,$Sb_color,$Sf_color,$Surl,$Spas,$St) = split(/\,/,$line); #■ページの書き出し print (< $Stitle 投稿日$Sgyy年$Sgmm月$Sgdd日($Sgww)$Sghh時$Sgtt分投稿者 EOF if ($Smail eq "") {print "$Stname";} else {print "$Stname
（$Smail)";} print ""; if ($Surl eq "") {print "

";} else {print "
$Surl";} print "

"; if ($St eq "0") {print "
$Spre
";} else {print $Spre;} print (<

削　除
EOF $f_num++; $chk_flg++; } #----------------------------------------------- #■HTMLの末尾 print ""; if($chk_flg eq 0){print "登録されている掲示はありません

";} print(< EOF #--End od Script