;
close (IN);
}
# //////////////////////////////////////////////////////////////////////////// #
# HTMLの出力処理
# //////////////////////////////////////////////////////////////////////////// #
# 先頭-入力フォーム部-表示操作ボタン部までを表示。
sub out_inputform
{
&load_file ;
print "Content-type: text/html\n\n";
print "$main_title\n";
print "$body\n";
print "\n";
print "$main_title\n";
print "
\n";
print "$mes_top1\n";
print "$mes_top2\n";
print "$mes_top3\n";
print "\n";
print "\n";
print "
\n";
# 表示用のボタンを表示
print "\n";
print "\n" ;
}
# データの一覧表示
sub out_index
{
# 項目名のみをすべて表示
foreach $line (@LINES)
{
($out_text,$out_yomi,$out_genre,@out_comment) = split(/,/, $line);
print "$out_text
\n" ;
}
print "\n" ;
}
# データの全表示
sub out_alldat
{
print "
\n" ;
foreach $line (@LINES)
{
# （文末の）改行を消去
$line =~ s/\n//g;
($out_text,$out_yomi,$out_genre,@out_comment) = split(/,/, $line);
print "\n" ;
print "
- $out_text （$out_yomi） $out_genre\n" ;
print "
- \n" ;
foreach $tmp_comment (@out_comment)
{
print "・$tmp_comment
\n" ;
}
}
# データが無い時
if (($#LINES + 1) == 0)
{
print "データは1件もありません。\n" ;
}
print "
\n" ;
}
# データの行表示
sub out_gyoudat
{
# 行などの区切りの定義、表示表題を出力
for ($i = 0 ; $i <= @list_index ; $i++)
{
if ($FORM{'submit'} eq @list_index[$i] )
{
print "○@list_index[$i]のデータ○\n" ;
$str_start = @list_start[$i] ;
$str_end = @list_end[$i] ;
last ;
}
}
# 書込みファイルのデータを出力
print "\n" ;
# 各「行」にある項目数をカウント
$out_count = 0 ;
foreach $line (@LINES)
{
# （文末の）改行を消去
$line =~ s/\n//g;
($out_text,$out_yomi,$out_genre,@out_comment) = split(/,/, $line);
if ($str_start le $out_yomi && $out_yomi lt $str_end)
{
# 項目名を表示
$out_count++ ;
print "\n" ;
print "
- $out_text （$out_yomi） $out_genre\n" ;
print "
- \n" ;
# コメントを表示
foreach $tmp_comment (@out_comment)
{
print "・$tmp_comment
\n" ;
}
}
}
# 指定「行」にひとつも項目が無かったとき
if ($out_count == 0)
{
print "このデータは1件もありませんでした。\n" ;
}
print "
\n" ;
}
# データの検索表示
sub out_searchdat
{
# 書込みファイルのデータを出力
print "○分類＝$FORM{'sel_genre'}のデータ○\n" ;
print "\n" ;
# 各「行」にある項目数をカウント
$out_count = 0 ;
foreach $line (@LINES)
{
# （文末の）改行を消去
$line =~ s/\n//g;
($out_text,$out_yomi,$out_genre,@out_comment) = split(/,/, $line);
if ($out_genre eq $FORM{'sel_genre'} )
{
# 項目名を表示
$out_count++ ;
print "\n" ;
print "
- $out_text （$out_yomi） $out_genre\n" ;
print "
- \n" ;
# コメントを表示
foreach $tmp_comment (@out_comment)
{
print "・$tmp_comment
\n" ;
}
}
}
# 指定「分類」にひとつも項目が無かったとき
if ($out_count == 0)
{
print "このデータは1件もありませんでした。\n" ;
}
print "
\n" ;
}
# フッターを表示。
sub out_fetter
{
print "\n
\n";
print "\n";
print "終了\n";
# このスクリプトの著作権表示（かならず表示してください）
print "\n";
print "\n";
}
# //////////////////////////////////////////////////////////////////////////// #
# エラーチェック
# //////////////////////////////////////////////////////////////////////////// #
sub error_ck
{
$title_check = 0 ;
foreach $line (@LINES)
{
($out_text,$out_yomi,@out_comment) = split(/,/, $line);
if ($FORM{'sel_title'} eq "新規登録" && $FORM{'new_title'} eq $out_text)
{
$title_check = 1 ;
}
}
if ($title_check == 1)
{
push(@ERROR,$FORM{'new_title'});
&error('already_title',@ERROR);
}
if ($FORM{'comment'} eq "")
{
push(@ERROR,"●コメント") ;
}
if ($FORM{'sel_title'} eq "新規登録" && $FORM{'new_title'} eq "")
{
push(@ERROR,"●新規登録する項目名");
}
if ($FORM{'sel_title'} eq "新規登録" && $FORM{'new_yomi'} eq "")
{
push(@ERROR,"●新規登録する項目の読みがな");
}
if (@ERROR)
{
&error('missing_fields',@ERROR);
}
}
# //////////////////////////////////////////////////////////////////////////// #
# 書込み確認処理
# //////////////////////////////////////////////////////////////////////////// #
sub confirm
{
print "Content-type: text/html\n\n";
print "$main_title\n";
print "$body\n";
print "$main_title\n";
print "
\n";
print "次のデータを書きこみます。よろしければ「確認」ボタンを押してください
\n";
print "変更するときは、ブラウザの「戻る」ボタンで戻ってください\n\n";
if ($FORM{'sel_title'} eq "新規登録")
{
print "新規に項目を登録
\n";
print "項目：$FORM{'new_title'}
\n";
print "読み(全角ひらがな)：$FORM{'new_yomi'}
\n";
print "分類：$FORM{'sel_genre'}
\n";
print "コメント：$FORM{'comment'}\n";
}
else
{
print "コメント登録
\n";
print "項目：$FORM{'sel_title'} に
\n";
print "コメント：$FORM{'comment'}
\n";
print "を追加\n";
}
print "
\n";
print "