#----------------------------------------------------------------------
# 通常のメッセージ投稿時のデータ書き込み
#----------------------------------------------------------------------
sub regist {

    #------------------------------------------
    # 書き込み内容のチェック
    #------------------------------------------
    &error("名前が記入されていません。") if( $FORM{'name'}    eq "" );
    &error("題名が記入されていません。") if( $FORM{'subject'} eq "" );
    &error("内容が記入されていません。") if( $FORM{'value'}   eq "" );


    #------------------------------------------
    # サイズオーバーする部分をカット
    #------------------------------------------
    $FORM{'value'}   = substr( $FORM{'value'},   0, $max_value   );
    $FORM{'name'}    = substr( $FORM{'name'},    0, $max_name    );
    $FORM{'email'}   = substr( $FORM{'email'},   0, $max_email   );
    $FORM{'subject'} = substr( $FORM{'subject'}, 0, $max_subject );


    #------------------------------------------
    # ログファイルを配列<@lines>に格納
    #------------------------------------------
    &read_log;

    #------------------------------------------
    # 記録件数処理
    #------------------------------------------
    $i = 0;
    foreach $line (@lines) {
        $i++;
        if( $i == $max ) {      # 最大件数ならループ終了
            last;
        }
        push( @new,$line );
    }

    $value = "$date_now\,$FORM{'name'}\,$FORM{'email'}\,$FORM{'value'}\,$FORM{'subject'}\,\n";

    unshift(@new,$value);       # 一番最初に、新しいデータを追加

    #------------------------------------------
    # データ(@new)をログファイルに書き出す
    #------------------------------------------
    &write_log;

    #------------------------------------------
    # 記録処理後、再読み込みする
    #------------------------------------------
    print "Location:"."$cgi_name?\n\n";
    exit;
}