#! /usr/local/bin/perl
#
#==========================================================================================
#
#        マルチボード掲示板システム 『MultiBBS』ver 1.3 ： 掲示板管理用スクリプト
#
#                                     Copyright Shinobu Suzuki 1998. All rights reserved.
#-----------------------------------------------------------------------------------------
#   HomePage : http://www.aikis.or.jp/~s-suzuki/cgilabo/
#   E-mail   : s-suzuki@aikis.or.jp
#   Version  : 1.32
#   Update   : 1999/01/30
#-----------------------------------------------------------------------------------------
# ■MultiBBSシステムの、種々の管理機能を行うスクリプトです
# ■暗号化ののためにcrypt()を利用していますので、サーバーによっては利用できません
# ■このスクリプトで設定されるデフォルト値を、システム全体の設定値に合わせてください
#              ****
# ■このスクリプトは config.cgi を参照しています
#==========================================================================================
# 初期設定
#------------------------------------------------------------------------------------------
# CERN HTTPDなどのサーバーの場合で、ファイル関係のエラーが
# 出る場合、設置するディレクトリのフルパスを指定してみて下
# さい。なお、最後は / で終わること。
#     例) $path = "/home/users/s-suzuki/public_html/bbs/";
#----------------------------------------------------------
$path = "";

#----------------------------------------------------------
# 共通設定ファイルの指定
#----------------------------------------------------------
require "$path"."config.cgi";


#----------------------------------------------------------
# 日本語コード変換ライブラリの指定
#----------------------------------------------------------
require "$path"."jcode.pl";


#----------------------------------------------------------
# このスクリプトで必要な設定
#----------------------------------------------------------
$indexname   = '戻る';          # admin.cgiからの戻り先
$index       = './';            # admin.cgiからの戻り先(URL)
$listing     = '1';             # メイン画面へのボード一覧表示(0:なし,1:あり)


#----------------------------------------------------------
# 書き込みの後のリロードに失敗する場合(File Not Foundので
# る場合)、CGIスクリプトを設置するディレクトリ名をURLで指
# 定すると成功する場合があるそうです。
#    ※この機能については未確認です
#    ※biglobeでは成功するそうです
#    ※v1.24より記述方法を変更しています
#    ※最後は / で終わること。
#     例：$rerload_url = 'http://www.aikis.or.jp/~s-suzuki/multibbs/';
#----------------------------------------------------------
$reload_url = '';


#=====================================================================
#  これより、処理の開始
#=====================================================================

#--------------------------------------
#  crypt()が使用できるかの判定
#--------------------------------------
$now = time;
($p1, $p2) = unpack("C2", "admin");
$wk = $now / (60*60*24*7) + $p1 + $p2 - 8;
@saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
$nsalt = $saltset[$wk % 64] . $saltset[$now % 64];

$pass1 = crypt( $user_pass, $nsalt);
$pass2 = crypt( $user_pass, substr($pass1, 0, 2) );

if ( $pass1 ne $pass2 ) {
    &error("crypt()関数が利用できないので、暗号化処理ができません。");
}


#--------------------------------------
# ログ管理スクリプトのチェック
#--------------------------------------
if( -e "makelog.cgi" ) {
    if( -e "viewlog.cgi" ) {
        $log_flag = 1;
    }
}
else {
    $log_flag = 0;
}


#--------------------------------------
# フォーム入力されたデータの解析と格納
#--------------------------------------
&form;

#--------------------------------------
# フォームから渡されてきた引数の解析
#--------------------------------------
if ( $FORM{'task'} eq 'check_password' ){ 
    &check_password;
}
else {
    if (!open(DB,"$path$passwd_file")) {
        &create_password;
    }
    $master_pass = <DB>;
    close(DB);
    if ( $master_pass eq "" ) {
        &create_password;
    }
    chop($master_pass) if $master_pass =~ /\n$/;

    if ( $FORM{'task'} eq 'list' ) {
        &list_bord;
    }
    if ( $FORM{'task'} eq 'create_bord' ) {
        &create_bord;
    }
    elsif ( $FORM{'task'} eq 'make_bord' ) {
        &make_bord;
    }
    elsif ( $FORM{'task'} eq 'delet_bord' ) {
        &delet_bord;
    }
    elsif ( $FORM{'task'} eq 'delet_bord2' ) {
        &delet_bord2;
    }
    elsif ( $FORM{'task'} eq 'cust_bord' ) {
        &cust_bord;
    }
    elsif ( $FORM{'task'} eq 'edit_bord' ) {
        &read_cfg;
        &edit_bord;
    }
    elsif ( $FORM{'task'} eq 'change_bord' ) {
        &change_bord;
    }
    elsif ( $FORM{'task'} eq 'change_bord2' ) {
        &change_bord;
    }
    elsif ( $FORM{'task'} eq 'change_master' ) {
        &change_password(0);
    }
    elsif ( $FORM{'task'} eq 'check_password2' ) {
        &check_password2;
    }
    elsif ( $FORM{'task'} eq 'check_password3' ) {
        &read_cfg;
        &check_user_pass;
    }
    elsif ( $FORM{'task'} eq 'change_user_pass' ) {
        &change_password(1);
    }
    elsif ( $FORM{'task'} eq 'set_security' ) {
        &set_security;
    }
    elsif ( $FORM{'task'} eq 'set_security2' ) {
        &set_security2;
    }
    elsif ( $FORM{'task'} eq 'log_mode' ) {
        &log_mode;
    }
    elsif ( $FORM{'task'} eq 'view_log' ) {
        &view_log;
    }
    elsif ( $FORM{'task'} eq 'view_log2' ) {
        &view_log2;
    }
    elsif ( $FORM{'task'} eq 'make_log' ) {
        print "Location:$reload_url"."makelog.cgi?\n\n";
    }
    elsif ( $FORM{'task'} eq 'list_log' ) {
        print "Location:$reload_url"."viewlog.cgi?\n\n";
    }
    elsif ( $FORM{'task'} eq 'domain' ) {
        &domain;
    }
    elsif ( $FORM{'task'} eq 'add_domain' ) {
        &add_domain;
    }
    elsif ( $FORM{'task'} eq 'add_domain2' ) {
        &add_domain2;
    }
    elsif ( $FORM{'task'} eq 'edt_domain' ) {
        &edt_domain;
    }
    elsif ( $FORM{'task'} eq 'edt_domain2' ) {
        &edt_domain2;
    }
    elsif ( $FORM{'task'} eq 'del_domain' ) {
        &del_domain;
    }
    elsif ( $FORM{'task'} eq 'del_domain2' ) {
        &del_domain2;
    }
    else {
        &main;
    }
    exit;
}
exit;

#=====================================================================
#  処理はここまで（以下は、サブルーチン）
#=====================================================================


#-----------------------------------------------------
# 通常の画面：総合管理メニュー
#-----------------------------------------------------
sub main {

    &html_header("MultiBBS：総合管理メニュー");

    print "<BLOCKQUOTE>\n";
    print "MulitiBBSシステムの管理を行います。ここから新しいボードの作成や、削除、カスタマイズなどができるようになっています。\n";

    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<SELECT NAME=\"task\">\n";
    print "    <OPTION VALUE=\"-\" SELECTED> 実行する機能\の選択　　　　</OPTION>\n";
    print "    <OPTION VALUE=\"-\"> ------------</OPTION>\n";
    print "    <OPTION VALUE=\"list\"> ボードの一覧</OPTION>\n";
    print "    <OPTION VALUE=\"make_bord\"> ボードの新規作成</OPTION>\n";
    print "    <OPTION VALUE=\"delet_bord\"> ボードの削除</OPTION>\n";
    print "    <OPTION VALUE=\"cust_bord\"> ボードのカスタマイズ</OPTION>\n";
    print "    <OPTION VALUE=\"set_security\"> セキュリティレベルの設定</OPTION>\n";
    if( $log_flag == 1 ) {
        print "    <OPTION VALUE=\"log_mode\"> ログの管理</OPTION>\n";
    }
    else {
        print "    <OPTION VALUE=\"view_log\"> ログ情報の一覧</OPTION>\n";
    }
    print "    <OPTION VALUE=\"domain\"> ドメインの管理</OPTION>\n";
    print "    <OPTION VALUE=\"-\"> ------------</OPTION>\n";
    print "    <OPTION VALUE=\"change_master\"> マスターキーの変更</OPTION>\n";
    print "</SELECT>\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　実行　\">\n";
    print "</FORM>\n";
    print "</BLOCKQUOTE>\n";
    print "<HR>";
    if ( $indexname ne "" ) {
        print "<DIV ALIGN=\"center\"><A HREF=\"$index\">$indexname</A></DIV>\n";
    }

    #-----------------------------------------------------
    # ボードの一覧表示
    #-----------------------------------------------------
    if ( $listing eq "1" ) {
        print "<HR>\n";
        &bord_list;
    }

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
}


#-----------------------------------------------------
# 掲示板の新規作成画面
#-----------------------------------------------------
sub make_bord {

    #-----------------------------------
    # 開設されているボード数のチェック
    #-----------------------------------
    if ( $max_bord ne "0" ) {
        if ( $path ne "" ) {
            opendir(DIR,"$path"."log/");
        }
        else {
            opendir(DIR,"./log/");
        }
        @readlist = grep(/.cfg/, readdir(DIR));
        closedir(DIR);
        $i = 0;
        foreach $bord (@readlist) {
            $i++;
        }
        if ( $i >= $max_bord ) {
            &error('これ以上ボードを作成できません。');
        }
    }

    &html_header("MultiBBS：ボードの新規作成");

    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"create_bord\">\n\n";
    print "<TABLE>\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">ボード名</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"bordname\" SIZE=\"30\" VALUE=\"$bordname\"> ※半角英数字のみ</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">掲示板のタイトル</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"title\" SIZE=\"30\" VALUE=\"$title\"></TD>\n";
    print "    </TR>\n\n";
    if ( $title_mode eq "1" ) {
        print "    <TR>\n";
        print "        <TD ALIGN=\"right\">タイトル画像</TD>\n";
        print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"title_image\" SIZE=\"30\" VALUE=\"$title_image\"></TD>\n";
        print "    </TR>\n\n";
    }
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">主催者名</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"user_name\" SIZE=\"30\" VALUE=\"$user_name\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">主催者EMAIL</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"user_email\" SIZE=\"30\" VALUE=\"$user_email\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">主催者パスワード</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"password\" NAME=\"pass1\" SIZE=\"10\"> ※半角英数字４〜８文字</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">パスワード再入力</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"password\" NAME=\"pass2\" SIZE=\"10\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">ログの保存数</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"max\" SIZE=\"30\" VALUE=\"$max\"> ※$log_min〜$log_max</TD>\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">１ページの表\示数</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"page\" SIZE=\"30\" VALUE=\"$page\"> ※0〜$page_max(0でページ制御なし)</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">掲示板の説明文</TD>\n";
    print "        <TD COLSPAN=2><TEXTAREA NAME=\"readme\" ROWS=4 cols=50 WRAP=\"Virtual\">$readme</TEXTAREA></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">書き込み時の説明文</TD>\n";
    print "        <TD COLSPAN=2><TEXTAREA NAME=\"readme2\" ROWS=4 cols=50 WRAP=\"Virtual\">$readme2</TEXTAREA></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">タイトルの色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"title_col\" SIZE=\"10\" VALUE=\"$title_col\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">題名の色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"subject_col\" SIZE=\"10\" VALUE=\"$subject_col\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">投稿者名の色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"name_col\" SIZE=\"10\" VALUE=\"$name_col\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">背景色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"bg_col\" SIZE=\"10\" VALUE=\"$bg_col\"></TD>\n";
    print "    </TR>\n\n";
    if( $bg_mode eq "1" ) {
        print "    <TR>\n";
        print "        <TD ALIGN=\"right\">背景画像</TD>\n";
        print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"bg_image\" SIZE=\"30\" VALUE=\"$bg_image\"></TD>\n";
        print "    </TR>\n\n";
    }
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">テキストの色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"text_col\" SIZE=\"10\" VALUE=\"$text_col\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">リンクの色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"link_col\" SIZE=\"10\" VALUE=\"$link_col\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">既リンクの色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"vlink_col\" SIZE=\"10\" VALUE=\"$vlink_col\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">リンク中の色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"alink_col\" SIZE=\"10\" VALUE=\"$alink_col\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD>　</TD>\n";
    print "        <TD>リンク名</TD>\n";
    print "        <TD>URL</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">リンク１</TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"linkname1\" SIZE=\"20\" VALUE=\"$linkname1\"></TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"link1\"     SIZE=\"50\" VALUE=\"$link1\">　※省略可</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">リンク２</TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"linkname2\" SIZE=\"20\" VALUE=\"$linkname2\"></TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"link2\"     SIZE=\"50\" VALUE=\"$link2\">　※省略可</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">リンク３</TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"linkname3\" SIZE=\"20\" VALUE=\"$linkname3\"></TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"link3\"     SIZE=\"50\" VALUE=\"$link3\">　※省略可</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD COLSPAN=3><HR></TD>\n";
    print "    </TR>\n\n";


    print "    <TR>\n";
    print "        <TD>　</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"password\" NAME=\"master\" SIZE=10> 管理者用マスターキー</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD>　</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"submit\" VALUE=\"　作　成　\"> <INPUT TYPE=\"reset\" VALUE=\"　リセット　\"></TD>\n";
    print "    </TR>\n\n";
    print "</TABLE>\n";
    print "</FORM>\n";
    print "</BODY>\n</HTML>\n";

    exit;
}


#-----------------------------------------------------
# ボードデータの新規作成
#-----------------------------------------------------
sub create_bord {

    if( $path ne "" ) {
        $cfg_file = "$path"."log/$FORM{'bordname'}".".cfg";
        $log_file = "$path"."log/$FORM{'bordname'}".".log";
    }
    else {
        $cfg_file = "./log/$FORM{'bordname'}".".cfg";
        $log_file = "./log/$FORM{'bordname'}".".log";
    }

    #-----------------------------------
    #  入力されたパスワードのチェック
    #-----------------------------------
    if ( $FORM{'master'} eq "" ) {
        &error('マスターキーが入力されていません。');
    }
    else {
        $temp = crypt( $FORM{'master'}, substr($master_pass,0,2) );
        if ( $temp ne $master_pass ) {
            &error('マスターキーが正しくありません。');
        }
    }

    $pwd_len  = length("$FORM{'pass1'}");

    if ( $FORM{'pass1'} ne $FORM{'pass2'} ) {
        &error("入力された２つのパスワードが一致しません。");
    }
    elsif ( $FORM{'pass1'} =~ /\s/ || $FORM{'pass1'} =~ /\W/ ) {
        &error("パスワードは半角英数字のみ利用できます。");
    }
    elsif ( $pwd_len > 8 || $pwd_len < 4 ) {
        &error("パスワードは4から8文字の範囲で指定してください。");
    }

    $now = time;
    ($p1, $p2) = unpack("C2", "admin");
    $wk = $now / (60*60*24*7) + $p1 + $p2 - 8;
    @saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
    $nsalt = $saltset[$wk % 64] . $saltset[$now % 64];
    $pwd = crypt( $FORM{'pass1'}, $nsalt);


    if ($FORM{'bordname'} eq "") {
        &error('ボード名が記入されていません。');
    }
    if ($FORM{'title'} eq "" ) {
        &error('タイトルが記入されていません。');
    }
    if ($FORM{'user_name'} eq "" ) {
        &error("主催者名が記入されていません。");
    }
    if ($FORM{'user_email'} eq "" ) {
        &error("主催者のE-MAILアドレスが記入されていません。");
    }
    if ( open(CFG,"$cfg_file") ) {
        close(CFG);
        &error('このボード名はすでに使用されています。');
    }
    if ( $FORM{'max'} > $log_max || $FORM{'max'} < $log_min ) {
        &error("保存するログ数が正しくありません。（$log_min〜$log_max）");
    }
    if ( $FORM{'page'} > $page_max || $FORM{'page'} < 0 ) {
        &error("１ページあたりの表示数が正しくありません。（0〜$page_max）");
    }
    if (!open(LOG,">$log_file")) {
        &error('ログファイルの作成に失敗しました。');
    }
    close(LOG);
    if (!open(CFG,">$cfg_file")) {
        &error('ボード定義ファイルの作成に失敗しました。');
    }

    print CFG "title,$FORM{'title'},\n";
    print CFG "user_pass,$pwd,\n";
    print CFG "user_name,$FORM{'user_name'},\n";
    print CFG "user_email,$FORM{'user_email'},\n";
    print CFG "security,$security,\n";
    print CFG "max,$FORM{'max'},\n";
    print CFG "page,$FORM{'page'},\n";
    if ( $bg_mode eq "1" ) {
        print CFG "bg_image,$FORM{'bg_image'},\n";
    }
    if ( $title_mode eq "1" ) {
        print CFG "title_image,$FORM{'title_image'},\n";
    }

    if ($FORM{'bg_col'} ne "" ) {
        print CFG "bg_col,$FORM{'bg_col'},\n";
    }
    else {
        print CFG "bg_col,$bg_col,\n";
    }
    if ($FORM{'title_col'} ne "" ) {
        print CFG "title_col,$FORM{'title_col'},\n";
    }
    else {
        print CFG "title_col,$title_col,\n";
    }

    if ($FORM{'subject_col'} ne "" ) {
        print CFG "subject_col,$FORM{'subject_col'},\n";
    }
    else {
        print CFG "subject_col,$subject_col,\n";
    }

    if ($FORM{'name_col'} ne "" ) {
        print CFG "name_col,$FORM{'name_col'},\n";
    }
    else {
        print CFG "name_col,$name_col,\n";
    }

    if ($FORM{'text_col'} ne "" ) {
        print CFG "text_col,$FORM{'text_col'},\n";
    }
    else {
        print CFG "text_col,$text_col,\n";
    }

    if ($FORM{'link_col'} ne "" ) {
        print CFG "link_col,$FORM{'link_col'},\n";
    }
    else {
        print CFG "link_col,$link_col,\n";
    }

    if ($FORM{'alink_col'} ne "" ) {
        print CFG "alink_col,$FORM{'alink_col'},\n";
    }
    else {
        print CFG "alink_col,$alink_col,\n";
    }

    if ($FORM{'vlink_col'} ne "" ) {
        print CFG "vlink_col,$FORM{'vlink_col'},\n";
    }
    else {
        print CFG "vlink_col,$vlink_col,\n";
    }

    print CFG "linkname1,$FORM{'linkname1'},\n";
    print CFG "link1,$FORM{'link1'},\n";
    print CFG "linkname2,$FORM{'linkname2'},\n";
    print CFG "link2,$FORM{'link2'},\n";
    print CFG "linkname3,$FORM{'linkname3'},\n";
    print CFG "link3,$FORM{'link3'},\n";
    print CFG "readme,$FORM{'readme'},\n";
    print CFG "readme2,$FORM{'readme2'},\n";

    close(CFG);
    chmod 0666, $cfg_file;
    chmod 0666, $log_file;

    &html_header("MultiBBS：ボードの新規作成");

    print "<BLOCKQUOTE>\n";

    print "新しいボードの作成が終了しました。<BR>";
    print "掲示板の呼び出しは次のようになります<BR><BR>\n";
    print "　　　　<A HREF=\"multibbs.cgi?bordname=$FORM{'bordname'}\">multibbs.cgi?bordname=$FORM{'bordname'}</A>\n\n";
    print "</BLOCKQUOTE>\n\n";
    print "<DIV ALIGN=\"center\">\n<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　管理メニューに戻る　\">\n";
    print "</DIV>\n<HR>\n</HTML>\n</BODY>\n";

    exit;

}


#-----------------------------------------------------
# 掲示板データ変更画面
#-----------------------------------------------------
#
sub edit_bord {

    print "Content-type: text/html\n\n";
    print "<HTML>\n";
    print "<HEAD>\n";
    print "<TITLE>MultiBBS：ボードデータの変更</TITLE>\n";
    print "</HEAD>\n\n";
    print "<BODY BGCOLOR=\"$CFG_DATA{'bg_col'}\" TEXT=\"$CFG_DATA{'text_col'}\" LINK=\"$CFG_DATA{'link_col'}\" VLINK=\"$CFG_DATA{'vlink_col'}\" ALINK=\"$CFG_DATA{'alink_col'}\">\n\n";
    print "<FONT COLOR=$CFG_DATA{'title_col'} SIZE=5>MultiBBS：ボードデータの変更</FONT><BR>\n";
    print "<HR>\n\n";


    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"bordname\" VALUE=\"$FORM{'bordname'}\">\n";
    if ( $FORM{'mode'} eq "backbbs" ) {
        print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"change_bord2\">\n";
    }
    else {
        print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"change_bord\">\n";
    }
    print "<TABLE>\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">ボード名</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"hidden\" NAME=\"bordname\" VALUE=\"$FORM{'bordname'}\">$FORM{'bordname'}</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">掲示板のタイトル</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"title\" SIZE=\"30\" VALUE=\"$CFG_DATA{'title'}\"></TD>\n";
    print "    </TR>\n\n";
    if ( $title_mode eq "1" ) {
        print "    <TR>\n";
        print "        <TD ALIGN=\"right\">タイトル画像</TD>\n";
        print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"title_image\" SIZE=\"30\" VALUE=\"$CFG_DATA{'title_image'}\"></TD>\n";
        print "    </TR>\n\n";
    }
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">主催者名</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"user_name\" SIZE=\"30\" VALUE=\"$CFG_DATA{'user_name'}\"></TD>\n";
    print "    </TR>\n\n";

    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">主催者EMAIL</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"user_email\" SIZE=\"30\" VALUE=\"$CFG_DATA{'user_email'}\"> ※システム管理者のみ変更可</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">ログの保存数</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"max\" SIZE=\"30\" VALUE=\"$CFG_DATA{'max'}\"> ※$log_min〜$log_max</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">１ページの表\示数</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"page\" SIZE=\"30\" VALUE=\"$CFG_DATA{'page'}\"> ※0〜$page_max(0でページ制御なし)</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">掲示板の説明文</TD>\n";
    print "        <TD COLSPAN=2><TEXTAREA NAME=\"readme\" ROWS=4 cols=50 WRAP=\"Virtual\">$CFG_DATA{'readme'}</TEXTAREA></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">書き込み時の説明文</TD>\n";
    print "        <TD COLSPAN=2><TEXTAREA NAME=\"readme2\" ROWS=4 cols=50 WRAP=\"Virtual\">$CFG_DATA{'readme2'}</TEXTAREA></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">タイトルの色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"title_col\" SIZE=\"10\" VALUE=\"$CFG_DATA{'title_col'}\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">題名の色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"subject_col\" SIZE=\"10\" VALUE=\"$CFG_DATA{'subject_col'}\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">投稿者名の色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"name_col\" SIZE=\"10\" VALUE=\"$CFG_DATA{'name_col'}\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">背景色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"bg_col\" SIZE=\"10\" VALUE=\"$CFG_DATA{'bg_col'}\"></TD>\n";
    print "    </TR>\n\n";
    if( $bg_mode eq "1" ) {
        print "    <TR>\n";
        print "        <TD ALIGN=\"right\">背景画像</TD>\n";
        print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"bg_image\" SIZE=\"30\" VALUE=\"$CFG_DATA{'bg_image'}\"></TD>\n";
        print "    </TR>\n\n";
    }
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">テキストの色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"text_col\" SIZE=\"10\" VALUE=\"$CFG_DATA{'text_col'}\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">リンクの色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"link_col\" SIZE=\"10\" VALUE=\"$CFG_DATA{'link_col'}\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">既リンクの色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"vlink_col\" SIZE=\"10\" VALUE=\"$CFG_DATA{'vlink_col'}\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">リンク中の色</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"text\" NAME=\"alink_col\" SIZE=\"10\" VALUE=\"$CFG_DATA{'alink_col'}\"></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD>　</TD>\n";
    print "        <TD>リンク名</TD>\n";
    print "        <TD>URL</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">リンク１</TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"linkname1\" SIZE=\"20\" VALUE=\"$CFG_DATA{'linkname1'}\"></TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"link1\"     SIZE=\"50\" VALUE=\"$CFG_DATA{'link1'}\">　※省略可</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">リンク２</TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"linkname2\" SIZE=\"20\" VALUE=\"$CFG_DATA{'linkname2'}\"></TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"link2\"     SIZE=\"50\" VALUE=\"$CFG_DATA{'link2'}\">　※省略可</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">リンク３</TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"linkname3\" SIZE=\"20\" VALUE=\"$CFG_DATA{'linkname3'}\"></TD>\n";
    print "        <TD><INPUT TYPE=\"text\" NAME=\"link3\"     SIZE=\"50\" VALUE=\"$CFG_DATA{'link3'}\">　※省略可</TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD COLSPAN=3><HR></TD>\n";
    print "    </TR>\n\n";

    # -------------------------------------------------------------------------------------

    print "    <TR>\n";
    print "        <TD ALIGN=\"right\">管理用パスワード</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"password\" NAME=\"pwd\" SIZE=10></TD>\n";
    print "    </TR>\n\n";
    print "    <TR>\n";
    print "        <TD>　</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"submit\" VALUE=\"　変　更　\"> <INPUT TYPE=\"reset\" VALUE=\"　リセット　\"></TD>\n";
    print "    </TR>\n\n";
    print "</TABLE>\n";
    print "</FORM>\n";
    print "</BODY>\n";
    print "</HTML>\n";

    exit;
}


#-----------------------------------------------------
# 掲示板データの変更・書き込み
#-----------------------------------------------------
#
sub change_bord {

    #-----------------------------------
    #  パスワードのチェック
    #-----------------------------------
    if ( $FORM{'pwd'} eq "" ) {
        &error('パスワードが入力されていません。')
    }

    &read_cfg;
    $temp  = crypt( $FORM{'pwd'}, substr($master_pass,0,2) );
    $temp2 = crypt( $FORM{'pwd'}, substr($CFG_DATA{'user_pass'},0,2) );
    if( $temp2 eq $CFG_DATA{'user_pass'} ) {
        $mode = "owner";
    }
    elsif( $temp eq $master_pass ) {
        $mode = "admin";
    }
    else {
        &error("パスワードが間違っています。");
    }

    if ( $path ne "" ) {
        $cfg_file = "$path"."log/$FORM{'bordname'}".".cfg";
        $log_file = "$path"."log/$FORM{'bordname'}".".log";
    }
    else {
        $cfg_file = "./log/$FORM{'bordname'}".".cfg";
        $log_file = "./log/$FORM{'bordname'}".".log";
    }

    if ($FORM{'bordname'} eq "") {
        &error('ボード名が記入されていません。');
    }
    if ($FORM{'title'} eq "" ) {
        &error('タイトルが記入されていません。');
    }
    if ($FORM{'user_name'} eq "" ) {
        &error("主催者名が記入されていません。");
    }
    if ($mode ne "admin") {
        if ($FORM{'user_email'} eq "" ) {
            &error("主催者のE-MAILアドレスが記入されていません。");
        }
    }
    if ( $FORM{'max'} > $log_max || $FORM{'max'} < $log_min ) {
        &error("保存するログ数が正しくありません。（$log_min〜$log_max）");
    }
    if ( $FORM{'page'} > $page_max || $FORM{'page'} < 0 ) {
        &error("１ページあたりの表示数が正しくありません。（0〜$page_max）");
    }
    if (!open(CFG,">$cfg_file")) {
        &error('ボードファイルの作成に失敗しました。');
    }

    print CFG "title,$FORM{'title'},\n";
    print CFG "user_pass,$CFG_DATA{'user_pass'},\n";
    print CFG "user_name,$FORM{'user_name'},\n";

    if ($mode eq "admin") {
        print CFG "user_email,$FORM{'user_email'},\n";
    }
    else {
        print CFG "user_email,$CFG_DATA{'user_email'},\n";
    }

    print CFG "security,$CFG_DATA{'security'},\n";
    print CFG "max,$FORM{'max'},\n";
    print CFG "page,$FORM{'page'},\n";

    if ( $bg_mode eq "1" ) {
        print CFG "bg_image,$FORM{'bg_image'},\n";
    }
    if ( $title_mode eq "1" ) {
        print CFG "title_image,$FORM{'title_image'},\n";
    }

    if ($FORM{'bg_col'} ne "" ) {
        print CFG "bg_col,$FORM{'bg_col'},\n";
    }
    else {
        print CFG "bg_col,$bg_col,\n";
    }

    if ($FORM{'title_col'} ne "" ) {
        print CFG "title_col,$FORM{'title_col'},\n";
    }
    else {
        print CFG "title_col,$title_col,\n";
    }

    if ($FORM{'subject_col'} ne "" ) {
        print CFG "subject_col,$FORM{'subject_col'},\n";
    }
    else {
        print CFG "subject_col,$subject_col,\n";
    }

    if ($FORM{'name_col'} ne "" ) {
        print CFG "name_col,$FORM{'name_col'},\n";
    }
    else {
        print CFG "name_col,$name_col,\n";
    }

    if ($FORM{'text_col'} ne "" ) {
        print CFG "text_col,$FORM{'text_col'},\n";
    }
    else {
        print CFG "text_col,$text_col,\n";
    }

    if ($FORM{'link_col'} ne "" ) {
        print CFG "link_col,$FORM{'link_col'},\n";
    }
    else {
        print CFG "link_col,$link_col,\n";
    }

    if ($FORM{'alink_col'} ne "" ) {
        print CFG "alink_col,$FORM{'alink_col'},\n";
    }
    else {
        print CFG "alink_col,$alink_col,\n";
    }

    if ($FORM{'vlink_col'} ne "" ) {
        print CFG "vlink_col,$FORM{'vlink_col'},\n";
    }
    else {
        print CFG "vlink_col,$vlink_col,\n";
    }

    print CFG "linkname1,$FORM{'linkname1'},\n";
    print CFG "link1,$FORM{'link1'},\n";
    print CFG "linkname2,$FORM{'linkname2'},\n";
    print CFG "link2,$FORM{'link2'},\n";
    print CFG "linkname3,$FORM{'linkname3'},\n";
    print CFG "link3,$FORM{'link3'},\n";
    print CFG "readme,$FORM{'readme'},\n";
    print CFG "readme2,$FORM{'readme2'},\n";

    close(CFG);

    &html_header("MultiBBS：ボードのカスタマイズ");

    print "<BLOCKQUOTE>\n";
    print "ボードデータの変更が終了しました。<BR>";
    print "</BLOCKQUOTE>\n\n";
    print "<DIV ALIGN=\"center\">\n";

    if ( $FORM{'task'} eq 'change_bord' ) {
        print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    }
    else {
        print "<FORM METHOD=\"post\" ACTION=\"$script\">\n";
        print "<INPUT TYPE=\"hidden\" NAME=\"bordname\" VALUE=\"$FORM{'bordname'}\">\n";
    }
    print "<INPUT TYPE=\"submit\" VALUE=\"　戻る　\">\n</DIV>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</HTML>\n</BODY>\n";

    exit;

}


#-----------------------------------------------------
# 管理者モードからの掲示板データの変更
#-----------------------------------------------------
sub cust_bord {

    if ( $path ne "" ) {
        opendir(DIR,"$path"."log/");
    }
    else {
        opendir(DIR,"./log/");
    }
    @readlist = grep(/cfg/, readdir(DIR));
    closedir(DIR);

    &html_header("MultiBBS：ボードのカスタマイズ");

    print "<BLOCKQUOTE>\n";
    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"edit_bord\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"mode\" VALUE=\"admin\">\n";
    print "<TABLE BORDER=1>\n";
    print "    <TR>\n";
    print "        <TD>　</TD>\n";
    print "        <TH>ボード名</TH>\n";
    print "        <TH>タイトル</TH>\n";
    print "    </TR>\n";

    foreach $bord (@readlist) {
        if( $path ne "" ) {
            $temp = "$path"."log/$bord";
        }
        else {
            $temp = "./log/$bord";
        }
        if( open( DB, "$temp" )) {
            @lines = <DB>;
            close(DB);
            foreach $line (@lines) {
                ($name,$value) = split(/\,/,$line);
                if( $name eq 'title' ) {
                    $bordtitle = $value;
                    $bordtitle =~ s/<(.*?)>//ig;
                    last;
                }
            }
            ($fname,$ext) = split(/\./,$bord);
            print "    <TR>\n";
            print "        <TD><INPUT TYPE=\"radio\" NAME=\"bordname\" VALUE=\"$fname\"></TD>\n";
            print "        <TD>[$fname]</TD>\n";
            print "        <TD>$bordtitle</TD>\n";
            print "    </TR>\n";
            $i++;
        }
    }
    if ( $i eq 0 ) {
        print "<TD COLSPAN=3>ボードは開設されていません。</TD>\n";
        print "</TABLE>\n";
    }
    else {
        print "</TABLE>\n";
        print "<BR><INPUT TYPE=\"submit\" VALUE=\"　変更　\">\n";
    }
    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";

    exit;
}


#-----------------------------------------------------------------
# フォーム投稿されたデータを解析し、配列にリストする
#-----------------------------------------------------------------
sub form {

    #--------------------------------------------------
    #  フォーム入力されたデータを$bufferに格納
    #--------------------------------------------------
    if ($ENV{'REQUEST_METHOD'} eq "POST") {
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    }
    else {
        $buffer = $ENV{'QUERY_STRING'};
    }

    #--------------------------------------------------
    #  $bufferに格納されたFORM形式のデータを取り出す
    #--------------------------------------------------
    @pairs = split(/&/,$buffer);
    foreach $pair (@pairs) {

        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

        #--------------------------------------------------
        # 処理の都合上、改行コード等を文字列から排除する
        # 改行コードを<BR>に変換する(97.01.29)
        #--------------------------------------------------
        $value =~ s/\r\n/<BR>/g;
        $value =~ s/\n/<BR>/g;
        $value =~ s/\,//g;

        #----------------------------------------------------------
        # 掲示板に書き込まれたくないタグが含まれる内容を消去する
        #----------------------------------------------------------
        if ( $mode ne "admin" ) {
            $value =~ s/<img(.|\n)*//ig;
            $value =~ s/<!--#(.|\n)*//ig;
            $value =~ s/<form(.|\n)*//ig;
#        $value =~ s/<table(.|\n)*//ig;
            $value =~ s/<xmp(.|\n)*//ig;
            $value =~ s/<code(.|\n)*//ig;
            $value =~ s/<script(.|\n)*//ig;
            $value =~ s/<plaintext(.|\n)*//ig;
            $value =~ s/<listing(.|\n)*//ig;
            $value =~ s/<isindex(.|\n)*//ig;
            $value =~ s/<body(.|\n)*//ig;
            $value =~ s/<title(.|\n)*//ig;
            $value =~ s/<frame(.|\n)*//ig;
            $value =~ s/<span(.|\n)*//ig;
            $value =~ s/font-size(.|\n)*//ig;
            $value =~ s/point-size(.|\n)*//ig;
            $value =~ s/<basefont(.|\n)*//ig;
            $value =~ s/<style(.|\n)*//ig;
        }


        #--------------------------------------------------
        # 記録するデータの半角カナを全角カナに変換する
        # これを利用するには、jcode.plのv2.0以降を使うこと
        #--------------------------------------------------
        &jcode'h2z_sjis(*value);

        #--------------------------------------------------
        # 記録するデータはsjisに統一する
        #--------------------------------------------------
        &jcode'convert(*value,'sjis');

        #--------------------------------------------------
        # セキュリティレベル変更のための処理
        #--------------------------------------------------
        if ( substr( $name, 0, 4 ) eq "SEC:" ) {
            ($temp,$boardname) = split(/:/,$name);
            push(@SEC_LEVEL, "$boardname:$value");
        }

        #--------------------------------------------------
        # ドメイン制限のための処理
        #--------------------------------------------------
        if ( substr( $name, 0, 6 ) eq "DOMAIN" ) {
            ($temp,$domain) = split(/:/,$name);
            $DOMAIN_LEVEL{$domain} = $value;
        }

        #--------------------------------------------------
        # 削除するメッセージ番号のリストアップ
        #--------------------------------------------------
        if ($name eq "target") {
            push(@RM,$value);
        }

        $FORM{$name} = $value;
    }
}


#-----------------------------------------------------------------
# ボード定義ファイルの読み込み
#-----------------------------------------------------------------
sub read_cfg {

    if ($path ne "") {
        $temp = "$path"."log/$FORM{'bordname'}".".cfg";
    }
    else {
        $temp = "./log/$FORM{'bordname'}".".cfg";
    }

    if (!open(DB,"$temp")) {
        &error("ボード情報の定義ファイルをオープンできません。");
    }
    @lines = <DB>;
    close(DB);

    foreach $line (@lines) {
        ($name,$value) = split(/\,/,$line);
        $CFG_DATA{$name} = $value;
    }
    if ( $CFG_DATA{'max'} > $log_max ) {
        $CFG_DATA{'max'} = $log_max;
    }
    if ( $CFG_DATA{'page'} > $page_max ) {
        $CFG_DATA{'page'} = $page_max;
    }
    if ( $CFG_DATA{'security'} eq "" ) {
        $CFG_DATA{'security'} = $security;
    }
}


#-----------------------------------------------------------------
# マスターキーの設定（初回起動時のみ）
#-----------------------------------------------------------------
sub create_password {

    &html_header("MultiBBS：マスターキーの設定");

    print "<BLOCKQUOTE>\n";
    print "マスターキーが設定されていません。このマスターキーを使って、今後作成するすべてのボードを管理（カスタマイズ・削除・記事の編集など）できます。<BR>半角の英数字（４〜８文字）でマスターキーを設定してください。<BR><BR>\n";
    print "<HR WIDTH=90%>\n";

    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"check_password\">\n";
    print "<TABLE>\n";
    print "    <TR>\n";
    print "        <TD>マスターキー</TD>\n";
    print "        <TD><INPUT TYPE=\"password\" NAME=\"new1\" SIZE=10></TD>\n";
    print "        <TD>　</TD>\n";
    print "    </TR>\n";
    print "    <TR>\n";
    print "        <TD>マスターキー</TD>\n";
    print "        <TD><INPUT TYPE=\"password\" NAME=\"new2\" SIZE=10></TD>\n";
    print "        <TD>（確認のためもう一度）</TD>\n";
    print "    </TR>\n";
    print "    <TR>\n";
    print "        <TD>　</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"submit\" VALUE=\"　実行　\"> <INPUT TYPE=\"reset\" VALUE=\"リセット\"></TD>\n";
    print "    </TR>\n";
    print "</TABLE>\n";
    print "</FORM>\n\n";
    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";

    exit;
}


#-----------------------------------------------------------------
# 入力されたマスターキーのチェックと書き込み
#-----------------------------------------------------------------
sub check_password {

    $pwd_len  = length("$FORM{'new1'}");
    $pwd_file = "$path$passwd_file";

    if (!open(DB,">$pwd_file")) {
        &error("記録ファイルの出力エラーです。");
    }
    elsif ( $FORM{'new1'} ne $FORM{'new2'} ) {
        &error("入力された２つのパスワードが一致しません。");
    }
    elsif ( $FORM{'new1'} =~ /\s/ || $FORM{'new1'} =~ /\W/ ) {
        &error("パスワードは半角英数字のみ利用できます。");
    }
    elsif ( $pwd_len > 8 || $pwd_len < 4 ) {
        &error("パスワードは4から8文字の範囲で指定してください。");
    }

    $now = time;
    ($p1, $p2) = unpack("C2", "admin");
    $wk = $now / (60*60*24*7) + $p1 + $p2 - 8;
    @saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
    $nsalt = $saltset[$wk % 64] . $saltset[$now % 64];
    $pwd = crypt( $FORM{'new1'}, $nsalt);

    print DB "$pwd";
    close(DB);

    print "Content-type: text/html\n\n";
    print "<HTML>\n<HEAD>\n<TITLE>MultiBBS：マスターキーの設定</TITLE>\n</HEAD>\n\n";
    print "<BODY BGCOLOR=\"$bg_col\" TEXT=\"$text_col\" LINK=\"$link_col\" VLINK=\"$vlink_col\" ALINK=\"$alink_col\">\n\n";
    print "<FONT COLOR=\"$title_col\" size=5>MultiBBS：マスターキーの設定</FONT>\n<HR>\n\n";
    print "<BLOCKQUOTE>\n";
    print "マスターキーの設定が完了しました。<BR><BR>";
    print "マスターキーは、ボードの作成や削除に必要となります";
    print "またすべてのボードの管理もできますので、忘れないようにメモをするなりして各自管理してください。\n";
    print "</BLOCKQUOTE>\n\n";
    print "<DIV ALIGN=\"center\">\n<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　ＯＫ　\">\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;
}


#-----------------------------------------------------------------
# マスターキー・主催者(オーナー)パスワードの変更
#-----------------------------------------------------------------
sub change_password {

    $arg = $_[0];

    if ( $arg eq "0" ) {
        $mode = "admin";
        $temp = "マスターキー";
    }
    else {
        $mode = "user";
        $temp = "主催者パスワード";
    }

    &html_header("MultiBBS：$tempの変更");

    print "<BLOCKQUOTE>\n";
    print "$tempの変更を行います<BR>半角の英数字（４〜８文字）で$tempを設定してください。<BR><BR>\n";
    print "<HR WIDTH=90%>\n";

    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    if ( $mode eq "admin" ) {
        print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"check_password2\">\n";
    }
    else {
        print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"check_password3\">\n";
        print "<INPUT TYPE=\"hidden\" NAME=\"bordname\" VALUE=\"$FORM{'bordname'}\">\n";
    }
    print "<TABLE>\n";
    print "    <TR>\n";
    print "        <TD>旧パスワード</TD>\n";
    print "        <TD><INPUT TYPE=\"password\" NAME=\"oldpass\" SIZE=10></TD>\n";
    print "        <TD> ※システム管理者パスワード可</TD>\n";
    print "    </TR>\n";
    print "    <TR>\n";
    print "        <TD>新パスワード</TD>\n";
    print "        <TD><INPUT TYPE=\"password\" NAME=\"new1\" SIZE=10></TD>\n";
    print "        <TD>　</TD>\n";
    print "    </TR>\n";
    print "    <TR>\n";
    print "        <TD>新パスワード</TD>\n";
    print "        <TD><INPUT TYPE=\"password\" NAME=\"new2\" SIZE=10></TD>\n";
    print "        <TD>※確認のためもう一度</TD>\n";
    print "    </TR>\n";
    print "    <TR>\n";
    print "        <TD>　</TD>\n";
    print "        <TD COLSPAN=2><INPUT TYPE=\"submit\" VALUE=\"　実行　\"> <INPUT TYPE=\"reset\" VALUE=\"リセット\"></TD>\n";
    print "    </TR>\n";
    print "</TABLE>\n";
    print "</FORM>\n\n";
    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";

    exit;
}


#-----------------------------------------------------------------
# 変更されたマスターキーのチェック・書き込み
#-----------------------------------------------------------------
sub check_password2 {

    $temp = crypt( $FORM{'oldpass'}, substr($master_pass,0,2) );
    if ( $temp ne $master_pass ) {
        &error("旧パスワードが間違っています。");
    }

    $pwd_len  = length("$FORM{'new1'}");
    $pwd_file = "$path$passwd_file";

    if ( $FORM{'new1'} ne $FORM{'new2'} ) {
        &error("入力された２つのパスワードが一致しません。");
    }
    elsif ( $FORM{'new1'} =~ /\s/ || $FORM{'new1'} =~ /\W/ ) {
        &error("パスワードは半角英数字のみ利用できます。");
    }
    elsif ( $pwd_len > 8 || $pwd_len < 4 ) {
        &error("パスワードは4から8文字の範囲で指定してください。");
    }

    $now = time;
    ($p1, $p2) = unpack("C2", "admin");
    $wk = $now / (60*60*24*7) + $p1 + $p2 - 8;
    @saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
    $nsalt = $saltset[$wk % 64] . $saltset[$now % 64];
    $pwd = crypt( $FORM{'new1'}, $nsalt);

    if (!open(DB,">$pwd_file")) {
        &error("記録ファイルの出力エラーです。");
    }
    print DB "$pwd";
    close(DB);

    print "Content-type: text/html\n\n";
    print "<HTML>\n<HEAD>\n<TITLE>MultiBBS：マスターキーの変更</TITLE>\n</HEAD>\n\n";
    print "<BODY BGCOLOR=\"$bg_col\" TEXT=\"$text_col\" LINK=\"$link_col\" VLINK=\"$vlink_col\" ALINK=\"$alink_col\">\n\n";
    print "<FONT COLOR=\"$title_col\" size=5>MultiBBS：マスターキーの設定</FONT>\n<HR>\n\n";
    print "<BLOCKQUOTE>\n";
    print "マスターキーの変更が完了しました。<BR><BR>";
    print "マスターキーは、ボードの作成や削除に必要となりますので、忘れないようにメモをするなりして各自管理してください。\n";
    print "</BLOCKQUOTE>\n\n";
    print "<DIV ALIGN=\"center\">\n<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　ＯＫ　\">\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;
}


#-----------------------------------------------------------------
# 主催者パスワードのチェックと書き込み
#-----------------------------------------------------------------
sub check_user_pass {

    $temp = crypt( $FORM{'oldpass'}, substr($CFG_DATA{'user_pass'},0,2) );
    if ( $temp ne $CFG_DATA{'user_pass'} ) {
        $temp = crypt( $FORM{'oldpass'}, substr($master_pass,0,2) );
        if ( $temp ne $master_pass ) {
            &error("旧パスワードが間違っています。");
        }
    }

    $pwd_len = length("$FORM{'new1'}");

    if ( $FORM{'new1'} ne $FORM{'new2'} ) {
        &error("入力された２つのパスワードが一致しません。");
    }
    elsif ( $FORM{'new1'} =~ /\s/ || $FORM{'new1'} =~ /\W/ ) {
        &error("パスワードは半角英数字のみ利用できます。");
    }
    elsif ( $pwd_len > 8 || $pwd_len < 4 ) {
        &error("パスワードは4から8文字の範囲で指定してください。");
    }

    $now = time;
    ($p1, $p2) = unpack("C2", "admin");
    $wk = $now / (60*60*24*7) + $p1 + $p2 - 8;
    @saltset = ('a'..'z','A'..'Z','0'..'9','.','/');
    $nsalt = $saltset[$wk % 64] . $saltset[$now % 64];
    $pwd = crypt( $FORM{'new1'}, $nsalt);

    if ($path ne "") {
        $cfg_file = "$path"."log/$FORM{'bordname'}".".cfg";
    }
    else {
        $cfg_file = "./log/$FORM{'bordname'}".".cfg";
    }

    if (!open(CFG,">$cfg_file")) {
        &error("ボード情報の定義ファイルをオープンできません。");
    }
    print CFG "title,$CFG_DATA{'title'},\n";
    print CFG "user_pass,$pwd,\n";
    print CFG "user_name,$CFG_DATA{'user_name'},\n";
    print CFG "user_email,$CFG_DATA{'user_email'},\n";
    print CFG "security,$CFG_DATA{'security'},\n";
    print CFG "max,$CFG_DATA{'max'},\n";
    print CFG "page,$CFG_DATA{'page'},\n";
    if ( $bg_mode eq "1" ) {
        print CFG "bg_image,$CFG_DATA{'bg_image'},\n";
    }
    if ( $title_mode eq "1" ) {
        print CFG "title_image,$CFG_DATA{'title_image'},\n";
    }
    print CFG "bg_col,$CFG_DATA{'bg_col'},\n";
    print CFG "title_col,$CFG_DATA{'title_col'},\n";
    print CFG "subject_col,$CFG_DATA{'subject_col'},\n";
    print CFG "name_col,$CFG_DATA{'name_col'},\n";
    print CFG "text_col,$CFG_DATA{'text_col'},\n";
    print CFG "link_col,$CFG_DATA{'link_col'},\n";
    print CFG "alink_col,$CFG_DATA{'alink_col'},\n";
    print CFG "vlink_col,$CFG_DATA{'vlink_col'},\n";
    print CFG "linkname1,$CFG_DATA{'linkname1'},\n";
    print CFG "link1,$CFG_DATA{'link1'},\n";
    print CFG "linkname2,$CFG_DATA{'linkname2'},\n";
    print CFG "link2,$CFG_DATA{'link2'},\n";
    print CFG "linkname3,$CFG_DATA{'linkname3'},\n";
    print CFG "link3,$CFG_DATA{'link3'},\n";
    print CFG "readme,$CFG_DATA{'readme'},\n";
    print CFG "readme2,$CFG_DATA{'readme2'},\n";
    close(CFG);

    print "Content-type: text/html\n\n";
    print "<HTML>\n<HEAD>\n<TITLE>MultiBBS：パスワードの変更</TITLE>\n</HEAD>\n\n";
    print "<BODY BGCOLOR=\"$bg_col\" TEXT=\"$text_col\" LINK=\"$link_col\" VLINK=\"$vlink_col\" ALINK=\"$alink_col\">\n\n";
    print "<FONT COLOR=\"$title_col\" size=5>MultiBBS v$version</FONT>\n<HR>\n\n";
    print "<BLOCKQUOTE>\n";
    print "パスワードの変更が完了しました。<BR><BR>";
    print "パスワードは、ボード管理に必要となりますので、忘れないようにメモをするなりして各自管理してください。\n";
    print "</BLOCKQUOTE>\n\n";

    print "<DIV ALIGN=\"center\">\n";
    print "<FORM METHOD=\"post\" ACTION=\"$script\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"bordname\" VALUE=\"$FORM{'bordname'}\">\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　ＯＫ　\"></DIV>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";

    exit;
}


#-----------------------------------------------------------------
# ボード一覧の作成(メイン画面用)
#-----------------------------------------------------------------
sub bord_list {

    $i = 0;

    if ( $path ne "" ) {
        opendir(DIR,"$path"."log/");
    }
    else {
        opendir(DIR,"./log/");
    }
    @readlist = grep(/cfg/, readdir(DIR));
    closedir(DIR);

    print "<BLOCKQUOTE>\n";
    print "<OL>\n";
    foreach $bord (@readlist) {
        if( $path ne "" ) {
            $temp = "$path"."log/$bord";
        }
        else {
            $temp = "./log/$bord";
        }
        if( open( DB, "$temp" )) {
            @lines = <DB>;
            close(DB);
            foreach $line (@lines) {
                ($name,$value) = split(/\,/,$line);
                if( $name eq 'title' ) {
                    $bordtitle = $value;
                    $bordtitle =~ s/<(.*?)>//ig;
                    last;
                }
            }
            ($fname,$ext) = split(/\./,$bord);
            print "    <LI><A HREF=\"$script?bordname=$fname\">$bordtitle</A></LI>\n";
            $i++;
        }
    }
    print "</OL>\n";
    if ( $i eq 0 ) {
        print "ボードは開設されていません。\n";
    }
    print "</BLOCKQUOTE>\n";
}


#-----------------------------------------------------------------
# 削除ボードの一覧表示と削除するボードの選択
#-----------------------------------------------------------------
sub delet_bord {

    $i = 0;

    &html_header("MultiBBS：ボードの削除");

    if ( $path ne "" ) {
        opendir(DIR,"$path"."log/");
    }
    else {
        opendir(DIR,"./log/");
    }
    @readlist = grep(/cfg/, readdir(DIR));
    closedir(DIR);

    print "<BLOCKQUOTE>\n";
    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"delet_bord2\">\n";
    print "<TABLE BORDER=1>\n";
    print "    <TR>\n";
    print "        <TD>　</TD>\n";
    print "        <TH>ボード名</TH>\n";
    print "        <TH>タイトル</TH>\n";
    print "    </TR>\n";
    foreach $bord (@readlist) {
        if( $path ne "" ) {
            $temp = "$path"."log/$bord";
        }
        else {
            $temp = "./log/$bord";
        }
        if( open( DB, "$temp" )) {
            @lines = <DB>;
            close(DB);
            foreach $line (@lines) {
                ($name,$value) = split(/\,/,$line);
                if( $name eq 'title' ) {
                    $bordtitle = $value;
                    $bordtitle =~ s/<(.*?)>//ig;
                    last;
                }
            }
            ($fname,$ext) = split(/\./,$bord);
            print "    <TR>\n";
            print "        <TD><INPUT TYPE=\"checkbox\" NAME=\"target\" VALUE=\"$fname\"></TD>\n";
            print "        <TD>[$fname]</TD>\n";
            print "        <TD>$bordtitle</TD>\n";
            print "    </TR>\n";
            $i++;
        }
    }
    if ( $i eq 0 ) {
        print "<TR ALIGN=\"cenetr\">\n<TD COLSPAN=3>ボードは開設されていません。</TD>\n</TR>\n";
        print "</TABLE>\n";
    }
    else {
        print "</TABLE>\n";
        print "<INPUT TYPE=\"password\" NAME=\"pwd\" SIZE=10> 管理者用マスターキー<BR>\n";
        print "<INPUT TYPE=\"submit\" VALUE=\"　削除　\"> <INPUT TYPE=\"reset\" VALUE=\"リセット\">\n";
    }

    print "</BLOCKQUOTE>\n";
    print "</FORM>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";

    exit;
}


#-----------------------------------------------------------------
# ボード定義ファイルとログファイルの削除
#-----------------------------------------------------------------
sub delet_bord2 {

    $temp = crypt( $FORM{'pwd'}, substr($master_pass,0,2) );
    if ( $temp ne $master_pass ) {
        &error("パスワードが間違っています。");
    }

    foreach $bord (@RM) {
        if ($path ne "") {
            $fname = "$path"."log/$bord".".cfg";
        }
        else {
            $fname = "./log/$bord".".cfg";
        }
        push(@filelist,$fname);
        if ($path ne "") {
            $fname = "$path"."log/$bord".".log";
        }
        else {
            $fname = "./log/$bord".".log";
        }
        push(@filelist,$fname);
    }
    unlink @filelist;

    &html_header("MultiBBS：ボードの削除");

    print "<BLOCKQUOTE>\n";
    print "指定されたボードの削除が完了しました。\n";
    print "</BLOCKQUOTE>\n\n";
    print "<DIV ALIGN=\"center\">\n<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　ＯＫ　\">\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;

}


#-----------------------------------------------------------------
# ボード一覧機能
#-----------------------------------------------------------------
sub list_bord {

    $i = 0;

    if ( $path ne "" ) {
        opendir(DIR,"$path"."log/");
    }
    else {
        opendir(DIR,"./log/");
    }
    @readlist = grep(/cfg/, readdir(DIR));
    closedir(DIR);

    foreach $bord (@readlist) {

        if( $path ne "" ) {
            $temp = "$path"."log/$bord";
        }
        else {
            $temp = "./log/$bord";
        }
        if( open( DB, "$temp" )) {
            @lines = <DB>;
            close(DB);
            foreach $line (@lines) {
                ($name,$value) = split(/\,/,$line);
                if( $name eq 'title' ) {
                    $bordtitle = $value;
                    $bordtitle =~ s/<(.*?)>//ig;
                    last;
                }
            }
            ($fname,$ext) = split(/\./,$bord);
            push (@bordlist,"<A HREF=\"$script?bordname=$fname\">$bordtitle</A> [$fname]");
            $i++;
        }
    }

    &html_header("MultiBBS：ボード一覧");

    print "<BLOCKQUOTE>\n";

    if ( $i eq 0 ) {
        print "ボードは開設されていません。\n";
    }
    else {
        print "<OL>\n";
        foreach $bord (@bordlist) {
            print "<LI>$bord</LI>\n";
        }
        print "</OL>\n";
    }

    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</HTML>\n</BODY>\n";
    exit;
}


#-----------------------------------------------------
# セキュリティーレベルの変更
#-----------------------------------------------------
#
sub set_security {

    if ( $path ne "" ) {
        opendir(DIR,"$path"."log/");
    }
    else {
        opendir(DIR,"./log/");
    }
    @readlist = grep(/cfg/, readdir(DIR));
    closedir(DIR);

    &html_header("MultiBBS：セキュリティレベルの変更");

    $i = 0;
    print "<BLOCKQUOTE>\n";
    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"set_security2\">\n";
    print "0:制限なし　　\n";
    print "1:JPドメインのみ　　\n";
    print "2:プロキシの制限　　\n";
    print "3:JPおよびプロキシ\n";
    print "<TABLE BORDER=1>\n";
    print "    <TR>\n";
    print "        <TH COLSPAN=4>レベル</TH>\n";
    print "        <TH ROWSPAN=2>ボード名</TH>\n";
    print "        <TH ROWSPAN=2>タイトル</TH>\n";
    print "    </TR>\n";
    print "    <TR>\n";
    print "        <TH>0</TH>\n";
    print "        <TH>1</TH>\n";
    print "        <TH>2</TH>\n";
    print "        <TH>3</TH>\n";
    print "    </TR>\n";

    foreach $bord (@readlist) {

        if( $path ne "" ) {
            $temp = "$path"."log/$bord";
        }
        else {
            $temp = "./log/$bord";
        }
        if( open( DB, "$temp" )) {
            @lines = <DB>;
            close(DB);
            foreach $line (@lines) {
                $bordsecurity = "0";
                ($name,$value) = split(/\,/,$line);
                if( $name eq 'title' ) {
                    $bordtitle = $value;
                    $bordtitle =~ s/<(.*?)>//ig;
                }
                if( $name eq 'security' ) {
                    $bordsecurity = $value;
                    last;
                }
            }
            ($fname,$ext) = split(/\./,$bord);
            print "    <TR>\n";
            print "        <TD><INPUT TYPE=\"radio\" NAME=\"SEC:$fname\" VALUE=\"0\"";
            if ( $bordsecurity eq "0" ) {
                print " CHECKED";
            }
            print "></TD>\n";
            print "        <TD><INPUT TYPE=\"radio\" NAME=\"SEC:$fname\" VALUE=\"1\"";
            if ( $bordsecurity eq "1" ) {
                print " CHECKED";
            }
            print "></TD>\n";
            print "        <TD><INPUT TYPE=\"radio\" NAME=\"SEC:$fname\" VALUE=\"2\"";
            if ( $bordsecurity eq "2" ) {
                print " CHECKED";
            }
            print "></TD>\n";
            print "        <TD><INPUT TYPE=\"radio\" NAME=\"SEC:$fname\" VALUE=\"3\"";
            if ( $bordsecurity eq "3" ) {
                print " CHECKED";
            }
            print "></TD>\n";
            print "        <TD>[$fname]</TD>\n";
            print "        <TD>$bordtitle</TD>\n";
            print "    </TR>\n";
            $i++;
        }
    }
    if ( $i eq 0 ) {
        print "<TD COLSPAN=3>ボードは開設されていません。</TD>\n";
        print "</TABLE>\n";
    }
    else {
        print "</TABLE>\n";
        print "<BR><INPUT TYPE=\"submit\" VALUE=\"　変更　\"> <INPUT TYPE=\"password\" NAME=\"pwd\" SIZE=10> 管理用マスターキー\n";
    }
    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";

    exit;
}


#-----------------------------------------------------------------
# 各ボードのセキュリティレベルの定義ファイルへの書き込み
#-----------------------------------------------------------------
sub set_security2 {

    $temp = crypt( $FORM{'pwd'}, substr($master_pass,0,2) );
    if ( $temp ne $master_pass ) {
        &error("パスワードが間違っています。");
    }

    foreach $board (@SEC_LEVEL) {
        ($fname,$level) = split(/:/,$board);


        if( $path ne "" ) {
            $cfg_file = "$path"."log/$fname".".cfg";
        }
        else {
            $cfg_file = "./log/$fname".".cfg";
        }
        if (!open(DB,"$cfg_file")) {
            &error("ボード情報の定義ファイルをオープンできません。");
        }
        @lines = <DB>;
        close(DB);

        foreach $line (@lines) {
            ($name,$value) = split(/\,/,$line);
            $CFG_DATA{$name} = $value;
        }
        $CFG_DATA{'security'} = $level;

        if (!open(CFG,">$cfg_file")) {
            &error('ボードファイルの作成に失敗しました。');
        }

        print CFG "title,$CFG_DATA{'title'},\n";
        print CFG "user_pass,$CFG_DATA{'user_pass'},\n";
        print CFG "user_name,$CFG_DATA{'user_name'},\n";
        print CFG "user_email,$CFG_DATA{'user_email'},\n";
        print CFG "security,$CFG_DATA{'security'},\n";
        print CFG "max,$CFG_DATA{'max'},\n";
        print CFG "page,$CFG_DATA{'page'},\n";

        if ( $bg_mode eq "1" ) {
            print CFG "bg_image,$CFG_DATA{'bg_image'},\n";
        }
        if ( $title_mode eq "1" ) {
            print CFG "title_image,$CFG_DATA{'title_image'},\n";
        }
        print CFG "bg_col,$CFG_DATA{'bg_col'},\n";
        print CFG "title_col,$CFG_DATA{'title_col'},\n";
        print CFG "subject_col,$CFG_DATA{'subject_col'},\n";
        print CFG "name_col,$CFG_DATA{'name_col'},\n";
        print CFG "text_col,$CFG_DATA{'text_col'},\n";
        print CFG "link_col,$CFG_DATA{'link_col'},\n";
        print CFG "alink_col,$CFG_DATA{'alink_col'},\n";
        print CFG "vlink_col,$CFG_DATA{'vlink_col'},\n";

        print CFG "linkname1,$CFG_DATA{'linkname1'},\n";
        print CFG "link1,$CFG_DATA{'link1'},\n";
        print CFG "linkname2,$CFG_DATA{'linkname2'},\n";
        print CFG "link2,$CFG_DATA{'link2'},\n";
        print CFG "linkname3,$CFG_DATA{'linkname3'},\n";
        print CFG "link3,$CFG_DATA{'link3'},\n";
        print CFG "readme,$CFG_DATA{'readme'},\n";
        print CFG "readme2,$CFG_DATA{'readme2'},\n";

        close(CFG);

    }

    &html_header("MultiBBS：セキュリティレベルの設定");

    print "<BLOCKQUOTE>\n";
    print "全ボードのセキュリティレベルの設定が完了しました。\n";
    print "</BLOCKQUOTE>\n\n";
    print "<DIV ALIGN=\"center\">\n<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　ＯＫ　\">\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;

}



#-----------------------------------------------------
# ログ管理機能（メイン画面）
#-----------------------------------------------------
sub log_mode {

    &html_header("MultiBBS：ログの管理");

    print "<BLOCKQUOTE>\n";
    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<SELECT NAME=\"task\">\n";
    print "    <OPTION VALUE=\"-\"> 実行する機能\の選択　　　　</OPTION>\n";
    print "    <OPTION VALUE=\"-\"> ------------</OPTION>\n";
    print "    <OPTION VALUE=\"view_log\"> ログ情報の一覧</OPTION>\n";
    print "    <OPTION VALUE=\"make_log\"> 過去ログの作成</OPTION>\n";
    print "    <OPTION VALUE=\"list_log\"> 過去ログの一覧</OPTION>\n";
    print "</SELECT>\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　実行　\">\n";
    print "</FORM>\n";

    print "\n";
    print "\n";
    print "\n";

    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";

    exit;
}


#-----------------------------------------------------
# ログ情報一覧画面
#-----------------------------------------------------
#
sub view_log {

    if ( $path ne "" ) {
        opendir(DIR,"$path"."log/");
    }
    else {
        opendir(DIR,"./log/");
    }
    @readlist = grep(/cfg/, readdir(DIR));
    closedir(DIR);

    &html_header("MultiBBS：ログ情報の一覧");

    $i = 0;

    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"view_log2\">\n";

    print "<BLOCKQUOTE>\n";
    print "<TABLE BORDER=1>\n";
    foreach $bord (@readlist) {

        if( $path ne "" ) {
            $temp = "$path"."log/$bord";
        }
        else {
            $temp = "./log/$bord";
        }
        if( open( DB, "$temp" )) {
            @lines = <DB>;
            close(DB);
            foreach $line (@lines) {
                ($name,$value) = split(/\,/,$line);
                if( $name eq 'title' ) {
                    $bordtitle = $value;
                    $bordtitle =~ s/<(.*?)>//ig;
                    last;
                }
            }
            ($fname,$ext) = split(/\./,$bord);
            print "    <TR>\n";
            print "        <TD><INPUT TYPE=\"radio\" NAME=\"bord\"VALUE=\"$fname\"></TD>\n";
            print "        <TD>[$fname]</TD>\n";
            print "        <TD>$bordtitle</TD>\n";
            print "    </TR>\n";
            $i++;
        }
    }
    if ( $i == 0 ) {
        print "<TR><TD>ボードは開設されていません。</TD></TR>\n";
        print "</TABLE>\n";
    }
    else {
        print "</TABLE>\n";
        print "<BR><INPUT TYPE=\"submit\" VALUE=\"　表\示　\"> <INPUT TYPE=\"password\" NAME=\"pwd\" SIZE=10> 管理用マスターキー\n";
    }
    print "</FORM>\n";
    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;
}


#-----------------------------------------------------
# ログ情報一覧画面
#-----------------------------------------------------
sub view_log2 {

    $temp = crypt( $FORM{'pwd'}, substr($master_pass,0,2) );
    if ( $temp ne $master_pass ) {
        &error("パスワードが間違っています。");
    }


    #---------------------------------------
    # ログファイルの読み込み(@linesに格納)
    #---------------------------------------
    if( $path ne "" ) {
        $log_file = "$path"."log/$FORM{'bord'}".".log";
    }
    else {
        $log_file = "./log/$FORM{'bord'}".".log";
    }
    if (!open(DB,"$log_file")) {
        &error('記録ファイルの入出力にエラーが発生しました。');
    }
    eval { flock( DB, 1 );};    # ファイルをロック
    @lines = <DB>;
    close(DB);
    eval { flock( DB, 8 );};    # ロック解除

    &html_header("MultiBBS：ログ情報の表\示");

    print "<TABLE BORDER=1>\n";
    print "<TR>\n";
    print "    <TH>番号</TH>\n";
    print "    <TH>投稿者</TH>\n";
    print "    <TH>題名</TH>\n";
    print "    <TH>内容</TH>\n";
    print "    <TH>ホスト情報</TH>\n";
    print "</TR>\n";


    #----------------------------------------------------------
    # 記事一覧処理
    #   配列<@lines>から1件ずつデータを取り出して処理する
    #----------------------------------------------------------
    $i = 0;
    foreach $line (@lines) {

        ($count,$date,$editpwd,$name,$email,$url,$value,$subject,$rhost) = split(/\,/,$line);

        #---------------------------------------
        # nullコード(\0)を半角カンマに変換
        #---------------------------------------
        $name    =~ s/\0/\,/g;
        $value   =~ s/\0/\,/g;
        $subject =~ s/\0/\,/g;
        $email   =~ s/\0/\,/g;
        $url     =~ s/\0/\,/g;

        $value = substr($value,0,30);

        print "<TR>\n";
        print "    <TD>$count</TD>\n";
        print "    <TD>$name</TD>\n";
        print "    <TD>$subject</TD>\n";
        print "    <TD>$value</TD>\n";
        print "    <TD>$rhost</TD>\n";
        print "</TR>\n";

        $i++;
    }
    print "<TR><TD COLSPAN=5>　　　メッセージはありません　　　</TD></TR>\n"  if( $i == 0 );
    print "</TABLE>\n";

    print "<HR>\n</HTML>\n</BODY>\n";
    exit;
}


#-----------------------------------------------------
# ドメイン管理機能（メイン画面）
#-----------------------------------------------------
sub domain {

    &html_header("MultiBBS：ドメインの管理");

    print "<BLOCKQUOTE>\n";
    print "MultiBBSの利用制限を行うドメイン名の管理を行います<BR>\n";
    print "これにより、特定のドメイン名のユーザーの書き込みを禁止したり、あるいは表\示も禁止したりする事が出来ます。\n";

    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<SELECT NAME=\"task\">\n";
    print "    <OPTION VALUE=\"-\"> 実行する機能\の選択　　　　</OPTION>\n";
    print "    <OPTION VALUE=\"-\"> ------------</OPTION>\n";
    print "    <OPTION VALUE=\"add_domain\"> ドメインの追加</OPTION>\n";
    print "    <OPTION VALUE=\"edt_domain\"> ドメインの編集</OPTION>\n";
    print "    <OPTION VALUE=\"del_domain\"> ドメインの削除</OPTION>\n";
    print "</SELECT>\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　実行　\">\n";
    print "</FORM>\n";
    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;
}


#-----------------------------------------------------
# ドメイン管理（ドメインの追加）
#-----------------------------------------------------
sub add_domain {

    &html_header("MultiBBS：ドメインの追加");

    print "<BLOCKQUOTE>\n";
    print "MultiBBSの利用制限を行うドメイン名の追加を行います<BR><BR>\n";

    print "<TABLE BORDER=0>";
    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"add_domain2\">\n";
    print "<TR>\n";
    print "    <TD>ドメイン名</TD>\n";
    print "    <TD><INPUT TYPE=\"text\" NAME=\"domain\" SIZE=\"30\"></TD>\n";
    print "</TR>\n";
    print "<TR>\n";
    print "    <TD>制限内容</TD>\n";
    print "    <TD><INPUT TYPE=\"radio\" NAME=\"level\" VALUE=\"0\" CHECKED>書込禁止　　　　";
    print "<INPUT TYPE=\"radio\" NAME=\"level\" VALUE=\"1\">表\示・書込禁止</TD>\n";
    print "</TR>\n";
    print "<TR>\n";
    print "    <TD>パスワード</TD>\n";
    print "    <TD><INPUT TYPE=\"password\" NAME=\"pwd\" SIZE=\"10\"> <INPUT TYPE=\"submit\" VALUE=\"　実行　\">\n</TD>\n";
    print "</TR>\n</FORM>\n</TABLE>\n";
    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;
}


#-----------------------------------------------------
# ドメイン管理（ドメインの追加）
#-----------------------------------------------------
sub add_domain2 {

    $temp = crypt( $FORM{'pwd'}, substr($master_pass,0,2) );
    if ( $temp ne $master_pass ) {
        &error("パスワードが間違っています。");
    }

    if ( $FORM{'domain'} eq "" ) {
        &error("ドメイン名が記入されていません。")
    }
    if ( $FORM{'level'} eq "" ) {
        &error("制限内容が選択されていません。")
    }

    #---------------------------------------
    # ドメインリストファイルの読み込み
    #---------------------------------------
    &read_domainlist;

    foreach $line (@lines) {
        push ( @new, $line );
    }
    push ( @new, "$FORM{domain},$FORM{'level'},\n" );

    #---------------------------------------
    # ドメインリストファイルへ書き込み
    #---------------------------------------
    &write_domainlist;

    &html_header("MultiBBS：ドメインの追加");

    print "<BLOCKQUOTE>\n";
    print "ドメインの追加が完了しました。\n";
    print "</BLOCKQUOTE>\n\n";
    print "<DIV ALIGN=\"center\">\n<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　ＯＫ　\">\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;
}


#-----------------------------------------------------
# ドメイン制限の設定変更
#-----------------------------------------------------
sub edt_domain {

    #---------------------------------------
    # ドメインリストファイルの読み込み
    #---------------------------------------
    &read_domainlist;

    &html_header("MultiBBS：ドメイン制限の編集");

    $i = 0;
    print "<BLOCKQUOTE>\n";

    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"edt_domain2\">\n";
    print "0:書込のみ禁止　　　";
    print "1:表\示・書込を禁止\n";
    print "<TABLE BORDER=1>\n";
    print "    <TR>\n";
    print "        <TH COLSPAN=2>設定</TH>\n";
    print "        <TH ROWSPAN=2>ドメイン名</TH>\n";
    print "    </TR>\n";
    print "    <TR>\n";
    print "        <TH>0</TH>\n";
    print "        <TH>1</TH>\n";
    print "    </TR>\n";

    foreach $line (@lines) {
        ($domain,$level) = split(/\,/,$line);
        print "    <TR>\n";
        print "        <TD><INPUT TYPE=\"radio\" NAME=\"DOMAIN:$domain\" VALUE=\"0\"";
        if ( $level eq "0" ) {
            print " CHECKED";
        }
        print "></TD>\n";
        print "        <TD><INPUT TYPE=\"radio\" NAME=\"DOMAIN:$domain\" VALUE=\"1\"";
        if ( $level eq "1" ) {
            print " CHECKED";
        }
        print "></TD>\n";
        print "        <TD>&nbsp;$domain&nbsp;</TD>\n";
        print "    </TR>\n";
        $i++;
    }
    if ( $i eq 0 ) {
        print "<TR><TD COLSPAN=3>ドメインは登録されていません。</TD></TR>\n";
        print "</TABLE>\n";
    }
    else {
        print "</TABLE>\n";
        print "<BR><INPUT TYPE=\"submit\" VALUE=\"　変更　\"> <INPUT TYPE=\"password\" NAME=\"pwd\" SIZE=10> 管理用マスターキー\n";
    }
    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;
}


#-----------------------------------------------------
# ドメイン制限の設定変更
#-----------------------------------------------------
sub edt_domain2 {

    $temp = crypt( $FORM{'pwd'}, substr($master_pass,0,2) );
    if ( $temp ne $master_pass ) {
        &error("パスワードが間違っています。");
    }

    #---------------------------------------
    # ドメインリストファイルの読み込み
    #---------------------------------------
    &read_domainlist;

    foreach $line (@lines) {
        ($domain,$level) = split(/\,/,$line);
        push( @new, "$domain,$DOMAIN_LEVEL{$domain},\n" );
    }

    #---------------------------------------
    # ドメインリストファイルへ書き込み
    #---------------------------------------
    &write_domainlist;

    &html_header("MultiBBS：ドメイン制限の編集");

    print "<BLOCKQUOTE>\n";
    print "ドメイン制限の設定変更が完了しました。\n";
    print "</BLOCKQUOTE>\n\n";
    print "<DIV ALIGN=\"center\">\n<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　ＯＫ　\">\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;
}


#-----------------------------------------------------
# 制限するドメインの削除（選択画面）
#-----------------------------------------------------
sub del_domain {

    #---------------------------------------
    # ドメインリストファイルの読み込み
    #---------------------------------------
    &read_domainlist;

    &html_header("MultiBBS：制限するドメインの削除");

    $i = 0;
    print "<BLOCKQUOTE>\n";

    print "<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"hidden\" NAME=\"task\" VALUE=\"del_domain2\">\n";

    foreach $line (@lines) {
        ($domain,$level) = split(/\,/,$line);
        print "<INPUT TYPE=\"checkbox\" NAME=\"target\" VALUE=\"$domain\">　";
        print "$domain<BR>\n";
        $i++;
    }
    if ( $i eq 0 ) {
        print "ドメインは登録されていません。<BR>\n";
    }
    else {
        print "<BR><INPUT TYPE=\"submit\" VALUE=\"　削除　\"> <INPUT TYPE=\"password\" NAME=\"pwd\" SIZE=10> 管理用マスターキー\n";
    }
    print "</BLOCKQUOTE>\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;
}


#-----------------------------------------------------
# 制限するドメインの削除
#-----------------------------------------------------
sub del_domain2 {

    $temp = crypt( $FORM{'pwd'}, substr($master_pass,0,2) );
    if ( $temp ne $master_pass ) {
        &error("パスワードが間違っています。");
    }

    #---------------------------------------
    # ドメインリストファイルの読み込み
    #---------------------------------------
    &read_domainlist;

    $flag = 0;
    foreach $line (@lines) {
        ($domain,$level) = split(/\,/,$line);
        foreach $target (@RM) {
            if ( $domain eq $target ) {
                $flag = 1;
                last;
            }
        }
        push ( @new, $line ) if ( $flag == 0 );
    }

    #---------------------------------------
    # ドメインリストファイルへ書き込み
    #---------------------------------------
    &write_domainlist;

    &html_header("MultiBBS：制限するドメインの削除");

    print "<BLOCKQUOTE>\n";
    print "指定されたドメインの削除が完了しました。\n";
    print "</BLOCKQUOTE>\n\n";
    print "<DIV ALIGN=\"center\">\n<FORM METHOD=\"post\" ACTION=\"admin.cgi\">\n";
    print "<INPUT TYPE=\"submit\" VALUE=\"　ＯＫ　\">\n";

    #--------------------------
    #  スクリプトの著作権表示
    #--------------------------
    print "<HR>\n<DIV ALIGN=\"right\">";
    print "<FONT FACE=\"Times New Roman\"><B><A HREF=\"http://www.aikis.or.jp/~s-suzuki/cgilabo/\" TARGET=\"_top\">MultiBBS v$version</A></B></FONT></DIV>\n";

    print "</BODY>\n</HTML>\n";
    exit;
}


#-----------------------------------------------------------------
# ドメインリストファイルの読み込み
#     ドメインリストファイルの内容を、配列 @lines に格納する
#-----------------------------------------------------------------
sub read_domainlist {

    $filename = "$path"."$domainlist";  # ドメインファイル名

    if (!open(DB,"$filename")) {
        &error('記録ファイルの入出力にエラーが発生しました。');
    }
    eval { flock( DB, 1 );};    # ファイルをロック
    @lines = <DB>;
    close(DB);
    eval { flock( DB, 8 );};    # ロック解除
}



#-----------------------------------------------------------------
# ドメインリストファイルへの書き込み
#     ドメインリストファイルに、配列 @new を書き込む
#-----------------------------------------------------------------
sub write_domainlist {

    $filename = "$path"."$domainlist";  # ドメインファイル名

    #---------------------------------------
    # ドメインリストファイルへ書き込み
    #---------------------------------------
    if (!open(DB,">$filename")) {
        &error('記録ファイルの入出力にエラーが発生しました。');
    }

    eval { flock( DB, 2 );};    # ファイルをロック
    print DB @new;
    close(DB);
    eval { flock( DB, 8 );};    # ロック解除
}