#! c:/perl/bin/perl
#
# nerimb4.cgi
#
# Revision history
# 4.011 : 4/24/06 : メールアドレスチェックを追加
# 4.010 : 2/18/06 : Message#の自動リンクを修正
# 4.009 : 1/23/06 : SSIモードでの添付アイコンのパスを修正
# 4.008 : 1/22/06 : サポート外のファイルがアップされた場合に添付ファイルと
#                   して表示するよう修正
# 4.007 : 1/20/06 : 変更画面での名前とメールを修正
# 4.006 : 1/11/06 : 変更時に記事が消えてしまうバグを修正
# 4.005 : 12/11/05 : rejectlink.datにあるMessage#のリンクは自動リンクしない
#                    ように修正
# 4.004 : 11/26/05 : 時間計算のバグを修正
# 4.003 : 11/26/05 : 古いアーカイブファイルの自動削除機能追加
#                    アーカイブファイルのファイル名を選択不可に修正
# 4.002 : 11/19/05 : サポートしていない画像も表示するように修正
# 4.001 : 11/13/05 : アーカイブで画像もzipに含むように修正
# 4.0 : 11/6/05 : Modified from nerimb3.cgi
#                 Clean up all code to be efficient
#                 Added English mode(incompleted)
#                 Incorportated mbutil.pl
#                 Deleted 1.0 compatible mode
#                 Choise of Local time and time offset (incompleted)
#
# 直接実行可能なMode Options:
# mode=read
# mode=title
# mode=wrform
# mode=res
# mode=delete
# mode=edit
# mode=link
# mode=sumform
# mode=sumpsnl
# mode=schform
# mode=archform
# mode=past
# mode=iread
# mode=iwrform
# mode=iresform
# mode=unlock
# mode=setup
# mode=namedef
# mode=print
# mode=ssi（ＳＳＩで呼び出すときのみ有効）
#
# セットアップを非表示にした場合、mode=delete（削除）、mode=setup（セットアップ）のみ
# ＵＲＬ直接指定で実行できます。その他の機能は直接指定しても動きません。
#
# パスワードファイルを削除することにより新パスワードを設定し直す事ができます。
#
# - mode=ssi
#   次のようにＳＳＩとして埋め込むのことによって最新メッセージの最初のline行を
#   を表示することができます。
#   <!--#include virtual="nerimb4.cgi?mode=ssi&line=5 -->
#
# 次のように<a href>などで直接リンクすることで特定のメッセージを表示させることが
# できます。
# - nerimb4.cgi?mode=print&message=<number>
#   でMessage# <number>を表示します。
#   <number>は、ハイフン、カンマで複数指定することが出来ます。
#   ハイフンは範囲、カンマは区切りを表します。
#   例：nerimb4.cgi?mode=print&message=12,15,24,20-22,8-5
#       Message#5,6,7,8,12,15,20,21,22,24を表示します。
# - nerimb4.cgi?mode=print&message=<number>&title=on
#   でMessage# <number>のタイトルを表示します。
#   <number>は、ハイフン、カンマで複数指定することが出来ます。
#   ハイフンは範囲、カンマは区切りを表します。
#   例：nerimb4.cgi?mode=print&message=12,15,24,20-22,8-5
#       Message#5,6,7,8,12,15,20,21,22,24のタイトルを表示します。
#
# - nerimb4.cgi?mode=past&number=<number>
#   でMessage# <number>を表示します。
# - nerimb4.cgi?mode=past&number=<number1>&lin=<number2>
#   で<number1>から<number2>分前までを表示します。
#   例：nerimb4.cgi?mode=past&number=1232&lin=6
#       Message#1226から#1232まで計７件表示します。
# - nerimb4.cgi?mode=read&number=d<number>
#   で今日から過去<number>日分のメッセージを表示します。
#   例：nerimb4.cgi?mode=read&number=d16
#       今日から過去１６日分表示（最新２００件分以内のみ有効）
# - nerimb4.cgi?mode=read&number=<number>
#   で最新メッセージから過去<number>分のメッセージを表示します。
#   例：nerimb4.cgi?mode=read&number=120
#       最新メッセージから過去１２０件分表示（最新２００件分以内のみ有効）
# 
# 自動リンク：
# - 書き込み記事内のhttp://から半角文字の最後まで自動リンクされます。
# - 書き込み記事内の(#1234)などの表記でそのメッセージナンバーへリンクされます。
# - 書き込み記事内のMessage#1234の表記でもそのメッセージナンバーへリンクされます。
#
# rejectlink.datとnamedef.datはファイル名が決まっています。
# rejectlink.datは、link modeで、namedef.datは、summary modeで
# 使用されますが、無くても問題ありません。
# どちらもnerimb4.cgiと同じディレクトリに置いてください。
# 通常どちらもcgi-binに置いてください。
# 
# rejectlink.dat :
# メッセージ中のリンクの中でデッドリンク等でリンク表示のリストから
# 除外したいメッセージナンバーをrejectlink.datに１行つづ記述してください。
#　例：以下はrejectlink.datの内容の例です。
#　　　----------------------------------------
#　　  1
#　　  120
#　　  123
#　　  523
#　　　----------------------------------------
#
# namedef.dat :
#　統計の個人名方式で「人物」を選んだ場合に違う名前を同一人物と
#　判断させることができます。
#　namedef.datにそれらの名前を人物ごとに１行に登録されていると
#　一番左の名前が代表として表示されます。
#　例：以下はnamedef.datの内容の例です。
#　　　----------------------------------------
#　　　管理人,作成者,かんりにん
#　　　ホークス,hawks
#　　　----------------------------------------
#　この例では、「作成者」「かんりにん」共に「管理人」と同一人物として
#　まとめて集計されます。
#　「ホークス」は改行されているので管理人と別人として判断されますが、
#　「hawks」とは同一人物となります。
#　namedef.datがない場合は、書き込みの名前そのままで集計されます。
#
# $Id: nerimb4.cgi,v 1.24 2006/04/23 20:47:42 Hideki Kanayama Exp $

use CGI::Carp qw(fatalsToBrowser);
use Time::Local;
use CGI qw(:cgi-lib);
use strict;
use LWP::UserAgent;
use Archive::Zip;
use GD;
use File::Basename;
use File::Copy;

my $mbsetupfile = "mb4setup.pl";
my $admindat = "adminpwd.dat";
my $namedef = "namedef.dat";
my $rejectlink = "rejectlink.dat";

my $version = "4.011";

my $reservedyear = "1997-2006";

my $script = basename($0);

my $lang = 1;
my $charset = ('Shift_JIS','ISO-8859-1')[$lang];

#### File definitions ######################

our $mbdir = ".";
our $mbdata = "$mbdir/logdata.dat";

our $mbdellog="$mbdir/mbdel.log";

our $cookiename = "mb_cookie";
our $cookiename2 = "read_cookie";

our $lockfile = "$mbdir/lockfile.lock";

our $mbtitle = ("メッセージボード","Message Board")[$lang];
our $mblogo = "$mbdir/mboard.gif";
our $logo_style = '';
our $logo_color = 'black';
our $logo_size = '+1';
our $logo_face = '';
our $logo_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $logo_loc=1;  # 0:左、1:中、2:右

our $mbwrtitle = ("メッセージボード書き込み","Post Message")[$lang];
our $mbwr_logo = "";
our $mbwr_style = '';
our $mbwr_color = 'black';
our $mbwr_size = '+1';
our $mbwr_face = '';
our $mbwr_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $mbwr_loc=0;  # 0:左、1:中、2:右

our $mbrestitle = ("メッセージボード返事","Reply Message")[$lang];
our $mbres_logo = "";
our $mbres_style = '';
our $mbres_color = 'black';
our $mbres_size = '+1';
our $mbres_face = '';
our $mbres_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $mbres_loc=0;  # 0:左、1:中、2:右

our $mbsumtitle = ("メッセージボード　書き込み統計","Statistics")[$lang];
our $mbsum_logo = "";
our $mbsum_style = '';
our $mbsum_color = 'black';
our $mbsum_size = '+1';
our $mbsum_face = '';
our $mbsum_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $mbsum_loc=1;  # 0:左、1:中、2:右

our $mbarctitle = ("メッセージボード　アーカイブ作成","Archive")[$lang];
our $mbarc_logo = "";
our $mbarc_style = '';
our $mbarc_color = 'black';
our $mbarc_size = '+1';
our $mbarc_face = '';
our $mbarc_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $mbarc_loc=1;  # 0:左、1:中、2:右

our $mblinktitle = ("リンク抜粋","Link")[$lang];
our $mblink_logo = "";
our $mblink_style = '';
our $mblink_color = 'black';
our $mblink_size = '+1';
our $mblink_face = '';
our $mblink_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $mblink_loc=1;  # 0:左、1:中、2:右

our $mbsrctitle = ("メッセージボード　サーチ","Search")[$lang];
our $mbsrc_logo = "";
our $mbsrc_style = '';
our $mbsrc_color = 'black';
our $mbsrc_size = '+1';
our $mbsrc_face = '';
our $mbsrc_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $mbsrc_loc=1;  # 0:左、1:中、2:右

our $mbdeltitle = ("メッセージボード削除","Delete Message")[$lang];
our $mbdel_logo = "";
our $mbdel_style = '';
our $mbdel_color = 'black';
our $mbdel_size = '+1';
our $mbdel_face = '';
our $mbdel_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $mbdel_loc=1;  # 0:左、1:中、2:右
 
our $mbedititle = ("メッセージボード変更","Delete Message")[$lang];
our $mbedit_logo = "";
our $mbedit_style = '';
our $mbedit_color = 'black';
our $mbedit_size = '+1';
our $mbedit_face = '';
our $mbedit_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $mbedit_loc=1;  # 0:左、1:中、2:右

# Background設定
# 1:画像を使う 0:カラー番号を使う
our $bgimage_en = 0;
our $bgimagefile = "$mbdir/sample.jpg";
our $bgcolor="#ffffff";

# 統計の「ピッタリ賞」でキリ番として扱われるメッセージナンバーの設定。
our @period=(1,100,111,200,222,300,333,400,444,500,555,600,666,700,777,800,888,900,999,1000,1111,1234,2000,2222,2345,3000,3333,3456,4000,4321,4444,4567,5000,5555,5678,6000,6666,6789,7000,7777,8000,8888,9000,9999,10000,11111,20000,22222,30000,33333);


# 統計 1:有効 0:無効
our $summary_en = 1;

# アーカイブ 1:有効 0:無効
our $archive_en = 1;

# リンク 1:有効 0:無効
our $link_en = 1;

# タイトル 1:有効 0:無効
our $title_en = 1;

# 画像リスト 1:有効 0:無効
our $imlist_en = 1;

# サーチ 1:有効 0:無効
our $search_en = 1;

# 携帯モード 1:有効 0:無効
our $imode_en = 1;

# 削除機能 1:有効 0:無効
our $delete_en = 1;

# 変更機能 1:有効 0:無効
our $modify_en = 1;

#タグ使用 1:可 0:不可
our $tag_use = 0;

#削除変更元記事保存 1:有効 0:無効
our $dellog_save = 1;

#２００件以前の過去記事保存 1:有効 0:無効
our $pastlog_save = 1;

#携帯モードでの画像表示 1:有効 0:無効
our $imode_image = 0;

#携帯モーででの画像表示サイズ
our $imode_image_x = 100;
our $imode_image_y = 100;

#タグ使用可の時にhttp://からのオートリンク 1:on 0:off
our $autolink_when_tag_is_on = 0;

#http://の適用  1:行頭のみ 0:どこでも
our $autolink_head_only = 0;

# セットアップ表示 1:表示 0:非表示
our $setup_en = 1;

# 自動リンククリック時 1:同じウィンドウ 0:別ウィンドウ
our $link_samewin_en = 1;

# トップへのリンク 1:表示 0:非表示
our $top_link_en = 1;
our $top_link_title = ('トップへ','Top')[$lang];
our $top_link = '../index.html';

# 書き込みタイトルのサイズ、色、フォント
our $post_title_color = '#00aa00';
our $post_title_size = '+2';
our $post_title_face = '';

# 名前の色
our $post_name_color = '#0000ee';

# 返信引用記事の色
our $quate_color = '#804040';

# 記事本文の色
our $text_color = 'black';

# 投稿者個人色設定 1:on 0:off
our $user_name_color_en = 0;
our $user_title_color_en = 0;
our $user_text_color_en = 0;

# 記事本文の表示幅 ブラウザ全体の％
our $body_width = 100;

# 名前欄のメールアドレス表示 1:on 0:off
our $maildisp_en = 1;

# 名前欄の敬称 1:on 0:off
our $namesan_en = 0;
our $namesan = ('さん','-san')[$lang];

# 返信コメントでの敬称 1:on 0:off
our $ressan_en = 0;
our $ressan = ('さん','-san')[$lang];

# SSIモード設定
# SSIモードを使用するHTMLファイルから見たこのスクリプトへの相対パス、
# 又はhttp://からのフルパス
our $httpcgibin = "http://localhost/cgi-bin";
# 続き表示リンクの文字列
our $gotomb = ('続きはこちら.....','See more')[$lang];

# SSIモードの表示ライン数のデフォルト
our $ssiline = 7;

# SSIモードの表示件数
# $ssikenが2以上の場合は$ssilineは無効
our $ssiken = 1;

# SSIモードで画像表示 0:off 1:on
our $ssiimage_en = 0;
#画像サイズ
our $ssiimage_w = 100;
our $ssiimage_h = 100;

# サポートされていない画像やファイルの場合のアイコン使用 1:有効 0:無効
our $attach_icon_en = 0;
our $attach_icon = '';

# Use localtime?
our $localtime_en = 0;

# If not using localtime, 時間設定 GMTからのオフセット　日本:+9
our $offset = 9;

# Summary で使われる棒グラフの棒
our $gif="$mbdir/bar.gif";

# 画像機能 0:無し 1:有り
our $image_en = 1;

# 画像格納ディレクトリ
our $imagedir = "$mbdir";

# 画像クリック時のウィンドウ 0:別ウィンドウ 1:同じウィンドウ
our $image_samewin_en = 1;

# 縮小表示時のサイズ
our $max_width = 150;
our $max_height = 150;

#最大画像アップサイズ(kB)
our $maxmb = 100;

#会員専用書き込み 1:on 0:off
our $member_only = 0;
our $member_pwd = '12345';

#スタイルシート 1:on 0:off
our $style_sheet_en = 0;
our $style_sheet = '
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active {text-decoration: none}
';

#<head>〜</head>内に挿入できる構文 1:on, 0:off
our $head_insert_en = 0;
our $head_insert = '<META NAME="description" CONTENT="nerimb4">';

#メッセージボード上部に表示させる文 1:on, 0:off
our $body_insert1_en = 0;
our $body_insert1 = '';
our $body_insert2_en = 0;
our $body_insert2 = '';
our $body_insert3_en = 0;
our $body_insert3 = '';
our $body_insert4_en = 0;
our $body_insert4 = '';
our $body_insert5_en = 0;
our $body_insert5 = '';

#トップからのＳＳＩ表示による更新時間のための予備のアップデートファイル
# 1: on, 0: off
our $update1_file_en = 0;
our $update2_file_en = 0;
our $update1_file = "$mbdir/update1.log";
our $update2_file = "$mbdir/update2.log";

#########################################################################

if (-e "$mbsetupfile"){
	require "$mbsetupfile";
}

my $url_pattern = 'https?:\/\/[\w\.\~\/\?\&\+\=\:\@\%\;\#\$\%\-]*';
my $tag_pattern = '[\w\s\"\'\\\+\=\/\;\:\%\(\)#\?\.\~\-]*';
my $mail_pattern = '\w\@\.\-';
my $color_pattern = '\w\#';

if ($maxmb < 100) {$maxmb = 100;}
my $maxmb2 = $maxmb + 20; # Margin for text up size
$CGI::POST_MAX = $maxmb2 * 1024;

my $q = new CGI;
my $cgierror = $q->cgi_error;
&error($cgierror) if ($cgierror);
my %in = $q->Vars;

%in = &postprocess(%in);

if ($script eq 'mbssi.cgi'){
	$script = 'nerimb4.cgi';
	$in{mode} = 'ssi';
} elsif ($script eq 'mbiread.cgi'){
	$script = 'nerimb4.cgi';
	$in{mode} = 'iread';
}

if (defined $in{mode} and $in{mode} eq 'ssi' && $in{line} eq ''){
	$in{line} = $ssiline;
}

my $mbread = "$script?mode=read";
my $mbreadt = "$script?mode=title";
my $mbwrite = "$script?mode=write";
my $mbres = "$script?mode=res";
my $mbpast = "$script?mode=past";
my $mbwrform = "$script?mode=wrform";
my $mblink = "$script?mode=link";
my $mbdel1 = "$script?mode=delete";
my $mbdel2 = "$script?mode=del2";
my $mbdel3 = "$script?mode=del3";
my $mbsum = "$script?mode=summary";
my $mbsearch = "$script?mode=search";
my $mbschform = "$script?mode=schform";
my $mbarchform = "$script?mode=archform";
my $mbarch = "$script?mode=archive";
my $mbsumfm = "$script?mode=sumform";
my $mbsumpsfm = "$script?mode=sumpsnl";
my $mbiread = "$script?mode=iread";
my $mbiwrite = "$script?mode=iwrite";
my $mbiwrform = "$script?mode=iwrform";
my $mbires = "$script?mode=iresform";
my $mbsetup = "$script?mode=setup";
my $mbedit = "$script?mode=edit";
my $mbnamedef = "$script?mode=namedef";
my $mbnamedefwr = "$script?mode=namedefwr";
my $mbprint = "$script?mode=print";
my $mbssi = "$script?mode=ssi";

if (! -e "$admindat"){
    if ($in{mode} eq 'adminpwd'){
	&wradminpwd;
    } else {
	&setadminpwd;
    }
}

my $link_target = $link_samewin_en ? '_top' : '_blank';
my @reject = &reject_list;

if (! defined $in{mode}) {
	&mbread;
} elsif ($in{mode} eq 'read' || ($in{mode} eq 'title' && $title_en == 1) || $in{mode} eq ''){
	&mbread;
} elsif ($in{mode} eq 'wrform'){
	&mbwrform;
} elsif ($in{mode} eq 'write'){
	&mbwrite;
} elsif ($in{mode} eq 'res'){
	&mbres;
} elsif ($in{mode} eq 'delete'){
	&mbdel1;
} elsif ($in{mode} eq 'del2'){
	&mbdel2;
} elsif ($in{mode} eq 'del3'){
	&mbwrite;
} elsif ($in{mode} eq 'edit'){
	&mbedit;
} elsif ($in{mode} eq 'edit2'){
	&mbwrite;
} elsif ($in{mode} eq 'link' && $link_en == 1){
	&mblink;
} elsif ($in{mode} eq 'sumform' && $summary_en == 1){
	&mbsumform;
} elsif ($in{mode} eq 'sumpsnl' && $summary_en == 1){
	&mbsumpsnl;
} elsif ($in{mode} eq 'summary' && $summary_en == 1){
	&mbsum;
} elsif ($in{mode} eq 'namedef' && $summary_en == 1){
	&mbnamedef;
} elsif ($in{mode} eq 'namedefwr' && $summary_en == 1){
	&mbnamedefwr;
} elsif ($in{mode} eq 'schform' && $search_en == 1){
	&mbschform;
} elsif ($in{mode} eq 'search' && $search_en == 1){
	&mbsearch;
} elsif ($in{mode} eq 'archform' && $archive_en == 1){
	&mbarchform;
} elsif ($in{mode} eq 'archive' && $archive_en == 1){
	&mbarch;
} elsif ($in{mode} eq 'past' || $in{mode} eq 'print'){
	&mbpast;
} elsif ($in{mode} eq 'iread' && $imode_en == 1){
	&mbiread;
} elsif ($in{mode} eq 'iwrite' && $imode_en == 1){
	&mbiwrite;
} elsif ($in{mode} eq 'iwrform' && $imode_en == 1){
	&mbiwrform;
} elsif ($in{mode} eq 'iresform' && $imode_en == 1){
	&mbiresform;
} elsif ($in{mode} eq 'setup'){
    &setup;
} elsif ($in{mode} eq 'setup2'){
	&makesetup;
} elsif ($in{mode} eq 'ssi'){
	&mbssi;
} elsif ($in{mode} eq 'cleanlink'){
	&mbcleanlink;
} elsif ($in{mode} eq 'cleanlink2'){
	&cleanlink;
} elsif ($in{mode} eq 'makebar'){
	&mbmakebargif;
} elsif ($in{mode} eq 'makebar2'){
	&makebar;
} elsif ($in{mode} eq 'dispbar'){
	&dispbar;
} else {
	&mbread;
}

exit;

#############################################################################
# Read mode #################################################################
#############################################################################
sub mbread {

    my @alldata = reverse &getmbdata;
    my @findata = split(/,/,$alldata[0]);

    my ($name, $done) = split /:/, $q->cookie($cookiename2);
    my $cook="done:$findata[0]";
    my $cookie = $q->cookie(-name    => "$cookiename2",
			    -value   => "$cook",
			    -expires => "+1y");
    $cookie = &cookie_decode($cookie);
    print "Set-Cookie: $cookie\n";
    
    my $fdone=$findata[0] - $done;
    my $fnext=$findata[0] - 20;
    my $startpoint = 0;
    
    my @day_before = &get_before_data(@alldata);

    my $line;
    my $t = $in{mode};
    my $ago = $in{number};
    if($ago eq 'done'){
	$line=$fdone;
    } elsif ($ago =~ /&/) {
	($ago,$t)=split(/&/,$ago);
	$line = $ago;
    } elsif ($ago =~ /^d/) {
	$ago =~ s/d(\d+)/$1/;
	my $i;
	foreach $i (0 .. $ago){
	    $line = $line + $day_before[$i];
	}
	
    } elsif ($ago =~ /^n/) {
	$ago =~ s/n(\d+)/$1/;
	$startpoint=$findata[0] - $ago;
	$fnext=$ago - 20;
	$line=$startpoint+20;
    } elsif ($ago =~ /^\d/) {
	$line=$ago;
    } else {
	$line=20;
    }
    
    my $finline;
    if ($#alldata < $line){
	$finline=$#alldata;
    } else {
	$finline=$line-1;
    }

    &htmlhead($mbtitle);
    &disphead($fdone,@day_before);
    
    if (($fnext > $findata[0] - 200) && (($ago eq '')||($startpoint != 0))) {
	if ($fnext > 0) {
	    print "<a href=\"$mbread&number=n$fnext\">";
	    print (('更に前の２０件を見る','Older massage')[$lang]);
	    print "</a>";
	}
    }
    
    print "<hr>\n";
    
    if ($t eq 'title' or $t eq 'imlist') {print "<ul>";};
    foreach my $count ($startpoint .. $finline){
	if ($t eq 'title' or $t eq 'imlist') {
	    &display_one_title($alldata[$count]);
	} else {
	    &display_one_message($alldata[$count]);
	}
    }
    
    if ($t eq 'title' or $t eq 'imlist') {print "</ul><hr>\n";};
    
    if (($fnext > $findata[0] - 200) && (($ago eq '')||($startpoint != 0))) {
	if ($fnext > 0) {
	    print "<a href=\"$mbread&number=n$fnext\">";
	    print (('更に前の２０件を見る','Older messages')[$lang]);
	    print "</a> \n";
	}
    }
    
    &disptail;
    print "<p><center><a href=\"$mbwrform\">";
    print (('新規書き込み','New post')[$lang]);
    print "</a></center><p>\n";
    &htmltail;
}

sub cookie_decode {
    my $a = shift;
    $a =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg;
    $a =~ s/path\s*=\s*[^;]*;//i;
    return $a;
}

sub display_one_title {
    my $line = shift;
    my ($number,$datecode,$name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile,$user_name_color,$user_title_color,$user_text_color)=split(/,/,$line);
    my ($each_name_color,$each_title_color,$each_text_color) = 
	&replace_color($user_name_color,$user_title_color,$user_text_color);
    if ($in{mode} ne 'imlist' or ($in{mode} eq 'imlist' and $imagefile ne '' and -e "$imagedir/$imagefile")) {
	print "<li><a href=\"$mbprint&message=${number}\">#${number}</a>、";
	my $disp_subject = &subject_text($subject);
	print "<font color=\"$each_title_color\">$disp_subject</font>";
	if ($lang == 0){
	    my @darray = split(/[^\d]/,$date);
	    if ($darray[0] < 1900){
		my $dy = $darray[0]+1900;
		$date =~ s/^\d?\d\d([^\d]..*)$/$dy$1/;
	    }
	}
	print "<font color=\"gray\"> ........ $date</font>";
    }
    if ($in{mode} eq 'imlist' and $imagefile ne '' and -e "$imagedir/$imagefile") {
	my ($imagefile,$w,$h)=&get_image_size($imagefile,$ssiimage_w,$ssiimage_h);
	print "<br><a href=\"$mbprint&message=${number}\">";
	print &image_tag($imagefile,$w,$h);
	print "</a>";
    }
    print "</li>\n";
}

sub image_tag {
    my ($image,$w,$h) = @_;
    if ($w == 0 or $h == 0) {
	if ($attach_icon_en) {
	    if ($in{mode} eq 'ssi'){
		return "<img src=\"$httpcgibin/$attach_icon\" border=0>";
	    } else {
		return "<img src=\"$attach_icon\" border=0>";
	    }
	} else {
	    return "&lt;Attachment&gt;";
	}
    } else {
	return "<img src=\"$image\" width=$w height=$h border=0>";
    }
}

sub subject_text {
    my $subject = shift;
    my @sub2=split(/Re:/,$subject);
    my $disp_subject;
    if ($#sub2 > 1){
	$disp_subject = "Re" . $#sub2 . ":" . $sub2[$#sub2];
    } else {
	$disp_subject = "$subject";
    }
}

sub display_one_message {
    my $one_line = shift;
    my ($number,$datecode,$name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile,$user_name_color,$user_title_color,$user_text_color)=split(/,/,$one_line);
    my ($each_name_color,$each_title_color,$each_text_color) = 
	&replace_color($user_name_color,$user_title_color,$user_text_color);
    
    my $one_message;
    
    $one_message = "<table cols=2 border=0 width=\"100%\"><tr>";
    my @darray = split(/[^\d]/,$date);
    $one_message .= "<td nowrap style=\"border:0px\">Message#${number} ";
    if ($lang == 0){
	if ($darray[0] < 1900){
	    my $dy;
	    $dy = $darray[0]+1900;
	    $date =~ s/^\d?\d\d([^\d]..*)$/$dy$1/;
	}
    }
    $one_message .= "$date<br>";
    $one_message .= "From: ";
    if ($mail){
	$one_message .= "<a href=\"mailto:${mail}\">$name</a>"
	} else {
	    $one_message .= "<font color=\"$each_name_color\">$name</font>";
	}
    if ($namesan_en){
	$one_message .= "$namesan";
    }
    if ($mail && $maildisp_en){
	$one_message .= " ($mail)"
	}
    $one_message .= "</td>";
    $one_message .= "<td style=\"border:0px\" align=right>";
    if ($in{mode} ne 'past' and $in{mode} ne 'del2'){
	if ($in{mode} ne 'delete'){
	    $one_message .= "<a href=\"$mbres&resnum=${number}\">";
	    $one_message .= (('返事','reply')[$lang]);
	    $one_message .= "</a> \n";
	}
	if ($delete_en or $in{mode} eq 'delete') {
	    $one_message .= " <a href=\"$mbdel2&resnum=${number}\">";
	    $one_message .= (('削除','delete')[$lang]);
	    $one_message .= "</a> \n";
	}
	if ($modify_en or $in{mode} ne 'delete') {
	    $one_message .= "<a href=\"$mbedit&resnum=${number}\">";
	    $one_message .= (('変更','edit')[$lang]);
	    $one_message .= "</a> \n";
	}
    }
    $one_message .= "</td></tr></table>";
    
    $one_message .= "<table cols=1 border=0 cellpadding=10 width=\"100%\"><tr><td style=\"border:0px\">";
    my $disp_subject = &subject_text($subject);
    $one_message .= "<font color=\"$each_title_color\" size=\'$post_title_size\' face=\'$post_title_face\'>$disp_subject</font>";
    $one_message .= "</td></tr></table>";
    
    my $link_target;
    if ($link_samewin_en){
	$link_target = '_top';
    } else {
	$link_target = '_blank';
    }
    $main =~ s/\(\#(\d+)\)/\(<a href=\"$mbprint&message=$1\">\#$1<\/a>\)/g;
    $main =~ s/(message)\#(\d+)/<a href=\"$mbprint&message=$2\">$1\#$2<\/a>/gi;
    my @mainarry=split /<br>/i, $main;

    $one_message .= "<table cols=2 border=0 width=100% cellspacing=10>";
    $one_message .= "<tr><td width=10 valign=top style=\"border:0px\">";

    chomp($imagefile);

    if ($image_en && $imagefile ne '' && -e "$imagedir/$imagefile"){
	my ($actual_width, $actual_height);
	($imagefile,$actual_width,$actual_height) = 
	    &get_image_size("$imagefile",$max_width,$max_height);
	
	my $newwin;
	if ($image_samewin_en){
	    $newwin = '';
	} else {
	    $newwin = 'target="_blank"';
	}
	
	$imagefile = basename($imagefile) if ($in{mode} eq 'archive');
	$one_message .= "<a href=\"$imagefile\" $newwin style=\"border:0px\">";
	$one_message .= &image_tag($imagefile,$actual_width,$actual_height);
	$one_message .= "</a>";
    }

    $one_message .= "</td>";
    $one_message .= "<td valign=top style=\"border:0px\">";

    $one_message .= "<font color=\"$each_text_color\">";
    foreach (@mainarry){
	$_ = &replace_link($_,$number);
	$_ = &replace_tag($_);
	if(/^\&gt;.*$/){
	    $one_message .= "<font color=\"$quate_color\">$_</font>";
	} else {
	    $one_message .= "$_";
	}
	$one_message .= "<br>";
    }
    $one_message .= "</font>";
    $one_message .= "</td></tr>";
    $one_message .= "</table><hr>\n";

    if ($in{mode} eq 'archive'){
	return($one_message);
    } else {
	print $one_message;
    }
}

sub get_before_data {
    my @alldata = @_;
    my $today;
    if ($localtime_en) {
	$today = time;
    } else {
	$today = time + $offset*3600;
    }

    my $ago = $in{number};

    my @day_before;
    my $i;
    my $yesterday;
    my ($ysec,$ymin,$yhour,$ymday,$ymon,$yyear,$ywday,$yyday,$yisdst);
    my $yrmon;
    my @yesterdata;
    foreach $i (0 .. 5){
	$yesterday=$today-86400*$i;
	
	if ($localtime_en){
	    ($ysec,$ymin,$yhour,$ymday,$ymon,$yyear,$ywday,$yyday,$yisdst)=localtime($yesterday);
	} else {
	    ($ysec,$ymin,$yhour,$ymday,$ymon,$yyear,$ywday,$yyday,$yisdst)=gmtime($yesterday);
	}
	
	$yrmon=$ymon+1;
	@yesterdata=grep(/^\d\d*,${yyear}_${yrmon}_${ymday},/,@alldata);
	$day_before[$i] = $#yesterdata + 1;
    }
    return @day_before;
}

sub htmlhead {
    my $mbtitle = shift;
    my $firstyear = shift;
    my $head_message;
    $head_message = $q->header(-charset=>"$charset") if ($in{mode} ne 'archive');
    $head_message .= "<html>\n";
    $head_message .= "<HEAD>\n";
    $head_message .= "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=$charset\">\n";
    $head_message .= "<META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">\n";
    $head_message .= "<TITLE>$mbtitle</TITLE>\n";

    if ($in{mode} eq 'sumform' or $in{mode} eq 'sumpsnl'){
	$head_message .= '
<script language="JavaScript">
now = new Date();
day1=now.getDate()-1;
mon1=now.getMonth();

function setopt(){
	document.summary.stmon.selectedIndex=mon1;
	document.summary.stday.selectedIndex=day1;
	document.summary.endmon.selectedIndex=mon1;
	document.summary.endday.selectedIndex=day1;
	document.summary.m1.selectedIndex=mon1;
	document.summary.m2.selectedIndex=mon1;
}

function setall(){
	document.summary.elements[0].checked=true;
	document.summary.elements[1].checked=true;
	document.summary.choise[0].checked=true;
	document.summary.perso[0].checked=true;
}

var i;
var opty;
var dispy;

</script>
';
    }

    if ($in{mode} eq 'schform'){
	$head_message .= "
<script language=\"JavaScript\">
now = new Date();
day1=now.getDate()-1;
mon1=now.getMonth();
year1=now.getYear();
var nnn = navigator.appName;
if (nnn == \"Netscape\"){
	year1 = year1 - $firstyear;
} else {
	year1 = year1 - $firstyear - 1900;
}

function setopt(){
	document.search.styear.selectedIndex=year1;
	document.search.stmon.selectedIndex=mon1;
	document.search.stday.selectedIndex=day1;
	document.search.endyear.selectedIndex=year1;
	document.search.endmon.selectedIndex=mon1;
	document.search.endday.selectedIndex=day1;
}

</script>
";
    }

    if ($head_insert_en == 1){
	$head_message .= "$head_insert\n";
    }
    
    if ($style_sheet_en == 1){
	$head_message .= "<STYLE type=\"text/css\">\n";
	$head_message .= "$style_sheet";
	$head_message .= "\n</style>\n";
    }
    
    $head_message .= "</HEAD>\n";
    
    my $onload;
    if ($in{mode} eq 'sumform' or $in{mode} eq 'sumpsnl' or $in{mode} eq 'schform') {
	$onload = 'onLoad="setopt();"';
    } else {
	$onload = '';
    }
    
    my $bgimage;
    if ($bgimage_en == 1){
	$bgimage = "background=\"$bgimagefile\"";
    } else {
	$bgimage = "bgcolor=\"$bgcolor\"";
    }
    
    $head_message .= "<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\" $onload>\n";
    $head_message .= "<table cols=1 border=0 width=\"${body_width}%\" align=\"center\"><tr><td style=\"border:0px;table-layout:fixed\">\n";

    if ($in{mode} eq 'archive'){
	return($head_message);
    } else {
	print $head_message;
    }
}

sub lockfile {
    open(LOCKFILE,"> $lockfile");
    flock LOCKFILE, 2;
}
sub unlockfile {
    no strict;
    close (LOCKFILE) if (defined LOCKFILE);
    close (TMPFILE) if (defined TMPFILE);
    unlink $lockfile if (-e $lockfile);
    unlink "tmp.$$" if (-e "tmp.$$");
}

sub htmltail {
    print &copyright;
    print "</td></tr></table>\n";
    print "</body>\n";
    print "</html>\n";
    exit;
}

sub copyright {

    my $mysite = ('http://www.hidekik.com/','http://www.hidekik.com/en/')[$lang];
    my $copyright;
    $copyright = "<div align=\"right\"><i>$script Ver. $version</i></div>\n";
    $copyright .= "<div align=\"right\"><i>Copyright(C) $reservedyear, <a href=\"$mysite\" target=\"_blank\">hidekik.com</a></i></div>\n";
    return $copyright;
}


sub get_image_size {

	my ($image,$max_width,$max_height) = @_;
	my $imagefile = "$imagedir/$image";
	my $im;
	$image =~ /\.jpe?g$/i and $im = GD::Image->newFromJpeg($imagefile);
	$image =~ /\.gif$/i   and $im = GD::Image->newFromGif($imagefile);
	$image =~ /\.png$/i   and $im = GD::Image->newFromPng($imagefile);
	$image =~ /\.xbm$/i   and $im = GD::Image->newFromxbm($imagefile);
	$image =~ /\.gd$/i    and $im = GD::Image->newFromgd($imagefile);
	$image =~ /\.gd2$/i   and $im = GD::Image->newFromgd2($imagefile);
	$image =~ /\.xpm$/i   and $im = GD::Image->newFromxpm($imagefile);
	
	my ($width, $height) = $im->getBounds() if ($im);
	
	my $actual_width;
	my $actual_height;
	if ($width > $max_width or $height > $max_height){
	    my $width_shrink  = $max_width  / $width;
	    my $height_shrink = $max_height / $height;
	    my $shrink_ratio;
	    if ($width_shrink < $height_shrink){
		$shrink_ratio = $width_shrink;
	    } else {
		$shrink_ratio = $height_shrink;
	    }
	    $actual_width  = int($width  * $shrink_ratio);
	    $actual_height = int($height * $shrink_ratio);
	} else {
	    $actual_width  = $width;
	    $actual_height = $height;
	}

	return($imagefile,$actual_width,$actual_height);
}

sub disphead {

    my ($fdone,@line) = @_;
    my $i;
    
    my $mb0=$line[0];
    my $mb1=$mb0+$line[1];
    my $mb2=$mb1+$line[2];
    my $mb3=$mb2+$line[3];
    my $mb4=$mb3+$line[4];
    my $mb5=$mb4+$line[5];
    
    my $titleprint=&titleprint("$mbtitle","$mblogo","$logo_style","$logo_color","$logo_size","$logo_face","$logo_sel","$logo_loc");
    
    print "$body_insert1" if ($body_insert1_en == 1 and $in{mode} ne 'past' and $in{mode} ne 'link');
    
    if ($in{mode} ne 'past' and $in{mode} ne 'link' and $in{mode} ne 'print'){
	if ($logo_sel != 4){
	    print "$titleprint\n";
	}
	
	print "$body_insert2" if ($body_insert2_en == 1);
	
	if ($lang) {
	    print "<center>Recent post: Today :$mb0, Yesterday:$line[1]<br>\n";
	} else {
	    print "<center>最近の書き込み件数： 今日 $mb0件、昨日 $line[1]件<br>\n";
	}
	if ($fdone > 0) {print "<a href=\"$mbread&number=$fdone\">";}
	if ($lang){
	    print "Unread : $fdone";
	} else {
	    print "未読分：$fdone件";
	}
	if ($fdone > 0) {print "</a>\n";}
	print "</center>\n";
	
	print "<br>" if ($body_insert3_en == 0);
	print "$body_insert3" if ($body_insert3_en == 1);
	
	print "<center>";
	if ($top_link_en == 1){
	    print "<a href=\"$top_link\">$top_link_title</a> ";
	}
	print "<a href=\"$mbwrform\">";
	print (('新規書き込み','New post')[$lang]);
	print "</a></center>\n";
	
	print "<p>" if ($body_insert4_en == 0);
	print "$body_insert4" if ($body_insert4_en == 1);
    }
    
    print "<center><font size=\"-1\"><A HREF=\"$mbread\">";
    print (('最新２０件','latest 20')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbread&number=50\">";
    print (('最新５０件','latest 50')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbread&number=100\">";
    print (('最新１００件','latest 100')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbread&number=200\">";
    print (('最新２００件','latest 200')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbpast\">", ('２００件以前','Before 200')[$lang], "</A>" if ($pastlog_save);
    print "</font><br>\n";
    print "<font size=\"-1\"><A HREF=\"$mbread&number=d1\">";
    print (('昨日以降','since yesterday')[$lang]);
    print "</A>($mb1) \n";
    print "<A HREF=\"$mbread&number=d2\">";
    print (('２日前以降','since two days ago')[$lang]);
    print "</A>($mb2) \n";
    print "<A HREF=\"$mbread&number=d3\">";
    print (('３日前以降','since three days ago')[$lang]);
    print "</A>($mb3) \n";
    print "<A HREF=\"$mbread&number=d4\">";
    print (('４日前以降','since four days ago')[$lang]);
    print "</A>($mb4) \n";
    print "<A HREF=\"$mbread&number=d5\">";
    print (('５日前以降','since five days ago')[$lang]);
    print "</A>($mb5)<br>\n";
    if ($summary_en){
	print "<a href=\"$mbsumfm\">";
	print (('統計','stat')[$lang]);
	print "</a> \n";
    }
    if ($archive_en){
	print "<a href=\"$mbarchform\">";
	print (('アーカイブ','archive')[$lang]);
	print "</a> \n";
    }
    if ($link_en){
	print "<a href=\"$mblink\">";
	print (('リンク','link')[$lang]);
	print "</a> \n";
    }
    if ($title_en){
	print "<a href=\"$mbreadt&number=200\">";
	print (('タイトル','title')[$lang]);
	print "</a> \n";
    }
    if ($imlist_en == 1 and $image_en == 1){
	print "<a href=\"$script?mode=imlist&number=200\">";
	print (('画像','image')[$lang]);
	print "</a> \n";
    }
    if ($search_en){
	print "<a href=\"$mbschform\">";
	print (('サーチ','search')[$lang]);
	print "</a> \n";
    }
    if ($imode_en){
	print "<a href=\"$mbiread\" target=\"_top\">";
	print (('携帯モード','mobile')[$lang]);
	print "</a> \n";
    }
    if ($setup_en){
	print "<a href=\"$mbsetup\">";
	print (('セットアップ','setup')[$lang]);
	print "</a> \n";
    }
    print "</center>";
    print "</font>\n";
    
    print "<p>" if ($body_insert5_en == 0);
    print "$body_insert5" if ($body_insert5_en == 1);
}

sub disptail {

    print "<center><font size=\"-1\"><A HREF=\"$mbread\">";
    print (('最新２０件','latest 20')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbread&number=50\">";
    print (('最新５０件','latest 50')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbread&number=100\">";
    print (('最新１００件','latest 100')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbread&number=200\">";
    print (('最新２００件','latest 200')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbpast\">", ('２００件以前','Before 200')[$lang], "</A>" if ($pastlog_save);
    print "</font><br>\n";
    print "<font size=\"-1\"><A HREF=\"$mbread&number=d1\">";
    print (('昨日以降','since yesterday')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbread&number=d2\">";
    print (('２日前以降','since two days ago')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbread&number=d3\">";
    print (('３日前以降','since three days ago')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbread&number=d4\">";
    print (('４日前以降','since four days ago')[$lang]);
    print "</A> \n";
    print "<A HREF=\"$mbread&number=d5\">";
    print (('５日前以降','since five days ago')[$lang]);
    print "</A></font><br>\n";
}

sub getmbdata {
    my @alldata;
    open(GETFILE,"< $mbdata");
    while(<GETFILE>){
	chomp;
	push(@alldata,$_);
	if ($#alldata >= 200){
	    shift(@alldata);
	}
    };
    close(GETFILE);
    return (@alldata);
}

#############################################################################
# Write Form mode ###########################################################
#############################################################################
sub mbwrform {

    my $titleprint = &titleprint("$mbwrtitle","$mbwr_logo","$mbwr_style","$mbwr_color","$mbwr_size","$mbwr_face","$mbwr_sel","$mbwr_loc");

    &htmlhead($mbwrtitle);

    my %cookie = &input_forms($titleprint);

    print "</TEXTAREA>\n";
    print "<p>\n";

    &input_forms2(%cookie);

    &display_after_write;

    &write_comment;

    print "<INPUT type=\"hidden\" name=\"mode\" value=\"write\">\n";
    print "</form>\n";
    &htmltail;
}

sub input_forms {

    my %COOKIE;
    my @pairs = split /,/, $q->cookie($cookiename);
    foreach my $pair (@pairs) {
	my ($name, $value) = split(/:/, $pair);
	$COOKIE{$name} = $value;
    }

    my ($titleprint,$name_color_input,$title_color_input,$contents_color_input,$name, $mail,$subject) = @_;
    if ($in{mode} eq 'wrform' or $in{mode} eq 'res'){
	($name, $mail) = ($COOKIE{name},$COOKIE{email});
	($name_color_input,$title_color_input,$contents_color_input) = 
	    &user_color_input("$COOKIE{user_name_color}","$COOKIE{user_title_color}","$COOKIE{user_text_color}");
    }
    if ($in{mode} eq 'res'){
	$subject = "Re:" . $subject;
    }

    print "<FORM action=\"$script\" method=\"post\" enctype=\"multipart/form-data\">\n";
    print "$titleprint";
    print (('お名前(必須)','Name')[$lang]);
    print "\n<BR><INPUT type=\"text\" size=\"30\" name=\"name\" value=\"$name\"> $name_color_input\n";
    print "<BR>";
    print (('メールアドレス','Mailaddress')[$lang]);
    print "\n<BR><INPUT type=\"text\" size=\"40\" name=\"addr\" value=\"$mail\">\n";
    print "<BR>";
    print (('タイトル(必須)','Subject')[$lang]);
    print "\n<BR><INPUT type=\"text\" size=\"60\" name=\"subject\" value=\"$subject\"> $title_color_input\n";
    print "<BR>\n";
    print "<P>";
    print (('内容','Contents')[$lang]);
    print "$contents_color_input\n";
    print "<BR><TEXTAREA rows=\"15\" cols=\"80\" name=\"main\" wrap=soft>";

    return (%COOKIE);
}

sub input_forms2 {
    my %COOKIE = @_;
    
    if ($image_en == 1){
	print (('アップ画像ファイル（ファイル名は半角英数、アンダースコア、ドットのみ）','Uploading file')[$lang]);
	print "<BR><INPUT type=\"file\" size=\"50\" name=\"imagefile\">\n";
	print "<p>\n";
    }

    if ($member_only == 1){
	print (('管理人から与えられたメンバー専用パスワード（半角英数で）','Member password')[$lang]);
	print "<BR><INPUT type=\"password\" size=\"20\" name=\"member_pwd\" value=$COOKIE{member_pwd}>\n";
	print "<p>\n";
    }

    if ($delete_en == 1 || $modify_en == 1){
	print (('削除修正用個人パスワード（半角英数で）','Your password')[$lang]);
	print "<BR><INPUT type=\"password\" size=\"20\" name=\"pwd\" value=$COOKIE{mypwd}>\n";
	print "<p>\n";
    }

}

sub display_after_write {
    print (("書き込み後の表\示：",'Display after write')[$lang]);

    print "<select name=\"number\">\n";
    print "<option value=\"done\">";
    print (('未読分','Unread')[$lang]);
    print "\n";
    print "<option value=\"5\">";
    print (('５日前以降','Since five days ago')[$lang]);
    print "\n";
    print "<option value=\"4\">";
    print (('４日前以降','Since four days ago')[$lang]);
    print "\n";
    print "<option value=\"3\">";
    print (('３日前以降','Since three days ago')[$lang]);
    print "\n";
    print "<option value=\"2\">";
    print (('２日前以降','Since two days ago')[$lang]);
    print "\n";
    print "<option value=\"1\">";
    print (('昨日以降','Since yesterday')[$lang]);
    print "\n";
    print "<option value=\"20\" selected>";
    print (('最新２０件','Latest 20')[$lang]);
    print "\n";
    print "<option value=\"50\">";
    print (('最新５０件','Latest 50')[$lang]);
    print "\n";
    print "<option value=\"100\">";
    print (('最新１００件','Latest 100')[$lang]);
    print "\n";
    print "<option value=\"200\">";
    print (('最新２００件','Latest 200')[$lang]);
    print "\n";
    print "</select>\n";

    my $write_button;
    if ($in{mode} eq 'wrform' or $in{mode} eq 'res'){
	$write_button = ('書き込む','Post Message')[$lang];
    } elsif ($in{mode} eq 'edit'){
	$write_button = ('変更する','Modify Message')[$lang];
    }
    print "<P><INPUT type=\"submit\" value=\"$write_button\">";
    print (('　書き込む前にもう一度チェック',' Check message before click')[$lang]);
    print "<p>\n";

}

#############################################################################
# Write mode ################################################################
#############################################################################
sub mbwrite {

    my $now = time;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
    if ($localtime_en){
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now);
    } else {
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($now+$offset*3600);
    }

    my $max;
    if ($pastlog_save) {$max = 200;}

    my @wday_array;
    my $date_now;
    if ($lang){
	@wday_array = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	my @mon_array = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
	$date_now = sprintf("%s %s %02d %02d:%02d %4d",$wday_array[$wday],$mon_array[$mon],$mday,$hour,$min,$year+1900);
    } else {
	@wday_array = ('日','月','火','水','木','金','土');
	$date_now = sprintf("%4d年%01d月%01d日(%s)%02d時%02d分",$year+1900,$mon +1,$mday,$wday_array[$wday],$hour,$min);
    }
    
    my $rmon=$mon+1;
    my $datecode="${year}_${rmon}_${mday}";

    my $host = $ENV{'REMOTE_HOST'};
    my $ip = $ENV{'REMOTE_ADDR'};
    
    if (($in{name} eq "" || $in{subject} eq "") && ($in{mode} ne 'del3')) {
	my $message = ('名前とタイトルは必ず書いてください','Name and Subject must be filled in')[$lang];
	&error($message);
    }

    if ($in{addr} =~ /[^$mail_pattern]/){
	my $message = ('無効なメールアドレスです','Invalid mail address')[$lang];
	&error("$in{addr}:$message");
    }

    if ($in{user_name_color} =~ /[^$color_pattern]/) {
	my $message = ('無効な色指定です','Invalid color name')[$lang];
	&error("$in{user_name_color}:$message");
    }
    if ($in{user_title_color} =~ /[^$color_pattern]/){
	my $message = ('無効な色指定です','Invalid color name')[$lang];
	&error("$in{user_title_color}:$message");
    }
    if ($in{user_text_color} =~ /[^$color_pattern]/){
	my $message = ('無効な色指定です','Invalid color name')[$lang];
	&error("$in{user_text_color}:$message");
    }

    &lockfile;
    my $imagefile;
    my $imagefile2;
    if ($in{mode} eq 'write'){

	if ($member_only == 1 && ($in{member_pwd} ne "$member_pwd")) {
	    my $message = ('メンバー専用パスワードが違います。','Wrong member password')[$lang];
	    &error($message);
	}
	
	my $number;
	if (! -e "$mbdata"){
	    $number = 1;
	} else {
	    my @alldata;
	    @alldata = &getmbdata;
	    my @dummy;
	    ($number,@dummy)=split(/,/,$alldata[$#alldata]);
	    $number = $number + 1;
	}
	
	my $encpwd;
	if ($in{pwd} ne '') {
	    $encpwd = &makecrypt($in{pwd});
	} else {
	    $encpwd = '';
	}
	
	my $main=$in{main};
	
	$imagefile2 = &upload_file($number) if ($image_en == 1 && $in{imagefile} ne '');
	
	my $newline = "$number,$datecode,$in{name},$in{addr},${ip}_${host},$date_now,$in{subject},$main,$encpwd,$imagefile2,$in{user_name_color},$in{user_title_color},$in{user_text_color}\n";
	my $message = ("$mbdataを開けません。","Cannot open $mbdata.")[$lang];
	if ($pastlog_save) {
	    open(FILE,">>$mbdata") || &error($message);
	    print FILE $newline;
	    close(FILE);
	} else {
	    my @alldata = &getmbdata;
	    push(@alldata,$newline);
	    if ($#alldata >= $max) {
		my ($number,$datecode,$name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile,$user_name_color,$user_title_color,$user_text_color)=split(/,/,shift(@alldata));
		chomp($imagefile);
		unlink("$imagedir/$imagefile") if ($imagefile ne '');
	    }
	    my $allline = join "\n", @alldata;
	    open(FILE,">$mbdata") || &error("$mbdataを開けません。");
	    print FILE $allline;
	    close(FILE);
	}
    } elsif ($in{mode} eq 'edit2' or $in{mode} eq 'del3') {

	open(RDFILE,"< $mbdata");
	open(TMPFILE,"> $mbdir/tmp.$$");
    
	while(<RDFILE>){
	    chomp;
	    my ($number,$datecode,$name,$mail,$host,$date,$subject,$main,$oldencpwd,$old_imagefile)=split(/,/);
	    if ($number == $in{resnum}){
		if (!&checkcrypt($in{pwd},$oldencpwd)){
		    if ("$oldencpwd" eq '') {
			my $message = ("パスワードが設定されていないので管理人のみ変更できます。","Only can the administrator modify the message since password is not specified.")[$lang];
			&error($message);
		    } else {
			my $message = ("パスワードが違います。", "Wrong password.")[$lang];
			&error($message);
		    }
		}
		if ($image_en == 1){
		    if ($in{imageedit} eq 'delete' or $in{mode} eq 'del3'){
			unlink("$imagedir/$old_imagefile");
			$imagefile = '';
		    } elsif ($in{imageedit} eq 'asis'){
			$imagefile = "$old_imagefile";
		    } elsif ($in{imageedit} eq 'replace'){
			if ($in{imagefile} ne ''){
			    unlink("$imagedir/$old_imagefile");
			    $imagefile2 = &upload_file($number);
			}
			$imagefile = "$imagefile2";
		    } else {
			$imagefile = "$old_imagefile";
		    }
		} else {
		    $imagefile = "$old_imagefile";
		}
		
		if ($dellog_save == 1){
		    open(LOG,">>$mbdellog");
		    print LOG "$_\n";
		    close(LOG);
		    chmod(0666,"$mbdellog");
		}
		print TMPFILE "$number,$datecode,$in{name},$in{addr},${ip}_${host},$date,$in{subject},$in{main},$oldencpwd,$imagefile,$in{user_name_color},$in{user_title_color},$in{user_text_color}\n" if ($in{mode} ne 'del3');
	    } else {
		print TMPFILE "$_\n";
	    }
	}
	close(RDFILE);
	close(TMPFILE);
	rename("$mbdir/tmp.$$","$mbdata");
    }
    
    chmod(0666,"$mbdata");
    
    &extraupdate;
    
    &unlockfile;
    
    if ($in{mode} eq 'write'){
	my $cook="name:$in{name},email:$in{addr},mypwd:$in{pwd},member_pwd:$in{member_pwd},user_name_color:$in{user_name_color},user_title_color:$in{user_title_color},user_text_color:$in{user_text_color}";
	my $cookie = $q->cookie(-name    => "$cookiename",
				-value   => "$cook",
				-expires => "+1y");
	$cookie = &cookie_decode($cookie);
	print $q->redirect(-url=>"$mbread",-cookie=>"$cookie");
    } else {
	print $q->redirect(-url=>"$mbread");
    }
}

sub upload_file {
    my $number = shift;
    my $origfile = basename($in{imagefile});
    if ("$origfile" !~ /^[\w\._\-]+$/) {
	my $message = ("$origfile:アップ後のファイル名は半角英数で。","file name only allows alphabetical characters and _, ., -.")[$lang];
	&error($message);
    }
    my $imagefile="$number-$origfile";
    my $outfile="$imagedir/$imagefile";
    
    my $fh = $q->upload('imagefile');
    my $cgierror = $q->cgi_error;
    &error($cgierror) if (!$fh && $cgierror);
    my $message = ('アップロードに失敗しました','Failed to upload')[$lang];
    copy ($fh, $outfile) or &error($message);
    close $fh;
    chmod (0666,"$outfile");
    return $imagefile;
}

#############################################################################
# Res Form mode #############################################################
#############################################################################
sub mbres {

    my @alldata = &getmbdata;

    my @resdata = grep(/^$in{resnum},/,@alldata);

    my ($resnumber,$rescode,$resname,$resmail,$reshost,$resdate,$ressubject,$resmain,$resencpwd,$resimagefile,$user_name_color,$user_title_color,$user_text_color)=split(/,/,$resdata[0]);

    &htmlhead($mbrestitle);

    my $titleprint=&titleprint("$mbrestitle","$mbres_logo","$mbres_style","$mbres_color","$mbres_size","$mbres_face","$mbres_sel","$mbres_loc");

    my %cookie = &input_forms($titleprint,$user_name_color,$user_title_color,$user_text_color,$resname,$resmail,$ressubject);

    @resdata=split(/<[bB][rR]>/,$resmain);

    if ($lang){
	print "Reply to the message(#$resnumber) of $resname\n\n";
    } else {
	print "$resname";
	print "$ressan" if ($ressan_en == 1);
	print "のメッセージ(#$resnumber)への返事\n\n";
    }

    foreach (@resdata){
	print "&gt; $_\n";
    }

    print "</TEXTAREA><p>";

    &input_forms2(%cookie);
    &display_after_write;


    &write_comment;

    print "<INPUT type=\"hidden\" name=\"mode\" value=\"write\">\n";
    print "</form>\n";
    &htmltail;

}

#############################################################################
# Message edit Form mode ####################################################
#############################################################################
sub mbedit {

    my @alldata = &getmbdata;

    my @resdata = grep(/^$in{resnum},/,@alldata);

    my ($resnumber,$rescode,$resname,$resmail,$reshost,$resdate,$ressubject,$resmain,$resencpwd,$resimagefile,$user_name_color,$user_title_color,$user_text_color)=split(/,/,$resdata[0]);

    &htmlhead($mbedititle);

    my $titleprint=&titleprint("$mbedititle","$mbedit_logo","$mbedit_style","$mbedit_color","$mbedit_size","$mbedit_face","$mbedit_sel","$mbedit_loc");

    my ($name_color_input, $title_color_input, $contents_color_input) = 
	&user_color_input("$user_name_color","$user_title_color","$user_text_color");

    my %cookie = &input_forms($titleprint, $name_color_input, $title_color_input, $contents_color_input,$resname,$resmail,$ressubject);

    @resdata=split(/<[bB][rR]>/,$resmain);

    foreach (@resdata){
	print "$_\n";
    }

    print "</TEXTAREA><p>";

    if ($image_en == 1){
	if ($resimagefile ne ''){
	    print qq/<input type="radio" name="imageedit" value="asis" checked>/;
	    print (('画像はそのまま','No image change')[$lang]);
	    print "<br>\n";
	    print qq/<input type="radio" name="imageedit" value="delete">/;
	    print (('画像を削除','Delete image')[$lang]);
	    print "<br>\n";
	    print qq/<input type="radio" name="imageedit" value="replace">/;
	    print (('画像を差し替え','Replace image')[$lang]);
	    print "<br>\n";
	    print (('差し替え画像ファイル（ファイル名は半角英数、アンダースコア、ドット、ハイフンのみ）','New image file')[$lang]);
	    print "\n";
	} else {
	    print qq/<input type="hidden" name="imageedit" value="replace">/;
	    print (('アップ画像ファイル（ファイル名は半角英数、アンダースコア、ドット、ハイフンのみ）','Uploading file')[$lang]);
	    print "\n";
	}
	print "<BR><INPUT type=\"file\" size=\"50\" name=\"imagefile\"><p>\n";
    }

    if ($delete_en == 1 || $modify_en == 1){
	print (('削除修正用個人パスワード（半角英数で）','Your password')[$lang]);
	print "<BR><INPUT type=\"password\" size=\"20\" name=\"pwd\" value=$cookie{mypwd}>\n";
	print "<p>\n";
    }

    &display_after_write;

    &write_comment;

    print "<INPUT type=\"hidden\" name=\"mode\" value=\"edit2\">\n";
    print "<INPUT type=\"hidden\" name=\"resnum\" value=\"$in{resnum}\">\n";
    print "</form>\n";
    &htmltail;
}

#############################################################################
# Delete display mode #######################################################
# $delete_en = 0 の場合は直接$mbdel1をタイプして実行してください。
# 管理人のみ削除できることになります。
#############################################################################
sub mbdel1 {

    my @alldata = &getmbdata;
    @alldata = reverse(@alldata);
    my @findata = split(/,/,$alldata[0]);

    my $line = 200;
    my $finline;
    if ($#alldata < $line){
	$finline=$#alldata;
    } else {
	$finline=$line-1;
    }

    my $titleprint=&titleprint("$mbdeltitle","$mbdel_logo","$mbdel_style","$mbdel_color","$mbdel_size","$mbdel_face","$mbdel_sel","$mbdel_loc");

    &htmlhead($mbdeltitle);

    print "$titleprint\n";

    my @day_before = &get_before_data(@alldata);
    &disphead(0,@day_before);

    print "<hr>\n";

    foreach my $count (0 .. $finline){
	&display_one_message($alldata[$count]);
    }

    &disptail;
}

#############################################################################
# Delete confirm mode #######################################################
#############################################################################
sub mbdel2 {

    my @alldata = &getmbdata;
    my @resdata = grep(/^$in{resnum},/,@alldata);
    my ($resnumber,$rescode,$resname,$resmail,$reshost,$resdate,$ressubject,$resmain,$resencpwd,$imagefile,$name_text_color,$title_text_color,$contents_text_color)=split(/,/,$resdata[0]);

    my ($each_name_color,$each_title_color,$each_text_color) = 
	&replace_color($name_text_color,$title_text_color,$contents_text_color);
    my $titleprint=&titleprint("$mbdeltitle","$mbdel_logo","$mbdel_style","$mbdel_color","$mbdel_size","$mbdel_face","$mbdel_sel","$mbdel_loc");

    &htmlhead($mbdeltitle);
    print $titleprint;

    print "<hr>\n";
    &display_one_message($resdata[0]);

    my $withimage;
    if ($image_en == 1 && $imagefile ne ''){
	$withimage = ('と画像','and the image')[$lang];
    } else {
	$withimage = '';
    }

    print (("上のメッセージ$withimageを削除します。<br>よければパスワードを入力し、削除ボタンをクリックしてください。<p>","Delete the above message $withimage.<br>If OK, click the Delete button")[$lang]);
    print "<FORM action=\"$script\" method=\"post\">\n";
    print (("パスワード：","Password")[$lang]);
    print "<INPUT type=\"password\" name=\"pwd\" size=\"20\">\n";
    print "<INPUT type=\"hidden\" name=\"resnum\" value=\"$resnumber\">\n";
    print "<INPUT type=\"hidden\" name=\"mode\" value=\"del3\">\n";
    
    my $delbutton = ("削除","Delete")[$lang];
    print "<P><INPUT type=\"submit\" value=\"$delbutton\">\n";
    print "</form>\n";

    &htmltail;
}

#############################################################################
# Link display mode #########################################################
# メッセージ中のリンクの中でデッドリンク等でリンク表示のリストから
# 除外したいメッセージナンバーをrejectlink.datに１行つづ記述してください。
#############################################################################
sub mblink {

    my @alldata = &getmbdata;

    &htmlhead($mblinktitle);
    my $titleprint=&titleprint("$mblinktitle","$mblink_logo","$mblink_style","$mblink_color","$mblink_size","$mblink_face","$mblink_sel","$mblink_loc");

    my @numarray;
    my @datearray;
    my @titlearray;
    my @linkarray;
    my @user_title_color;
    open(FILE,"< $mbdata");
    while (<FILE>){
	chomp;
	my ($number,$b,$c,$d,$e,$date,$title,$main,$encpwd,$imagefile,$user_name_color,$user_title_color,$user_text_color)=split(/,/);

	my $linkarray2;
	if (/$url_pattern/){
	    foreach (split(/<br>/i,$main)){
		if (/($url_pattern)/ && !/^\&gt;/){
		    $linkarray2 .= "$1<br>";
		}
	    }
	    if($linkarray2 ne ""){
		if (! grep(/^$number$/,@reject)){
		    push(@numarray,$number);
		    push(@datearray,$date);
		    push(@titlearray,$title);
		    push(@linkarray,$linkarray2);
		    push(@user_title_color,$user_title_color);
		}
	    }
	    $linkarray2="";
	}
    }
    close(FILE);

    print "$body_insert1" if ($body_insert1_en == 1);

    print $titleprint;

    print "$body_insert4" if ($body_insert4_en == 1);

    my @day_before = &get_before_data(@alldata);
    &disphead(0,@day_before);

    print "<hr>\n";
    print "<ul>\n";
    my $i;
    for($i=$#linkarray;$i>=0;$i=$i-1){
	my ($each_name_color,$each_title_color,$each_text_color) = 
	    &replace_color('',$user_title_color[$i],'');
	print "<li><a href=\"$mbpast&number=$numarray[$i]&lin=0\">#$numarray[$i]</a>,";
	my $subject = &subject_text($titlearray[$i]);
	print "<font color=\"$each_title_color\">$subject</font><br>\n";
	foreach my $url (split(/<br>/i,$linkarray[$i])){
	    print "<a href=\"$url\" target=\"$link_target\">$url</a><br>";
	}
	print "</li><br>\n";
    }
    print "</ul>\n";
    print "<center><a href=\"$script?mode=cleanlink\">", ("$rejectlinkを更新する","Update $rejectlink")[$lang], "</a></center>\n";
    print "<hr>\n";
    
    &disptail;
    &htmltail;
}

sub reject_list {
    my @reject;
    if (open(REJECT,"< $rejectlink")){
	@reject = <REJECT>;
	close(REJECT);
    } else {
	@reject = ();
    }
    map {chomp} @reject;
    return (@reject);
}

#############################################################################
# Summary Form mode #########################################################
#############################################################################
sub mbsumform {

    my ($firstyear,$finyear) = &get_firstyear;

    my $titleprint=&titleprint("$mbsumtitle","$mbsum_logo","$mbsum_style","$mbsum_color","$mbsum_size","$mbsum_face","$mbsum_sel","$mbsum_loc");

    &htmlhead($mbsumtitle,$firstyear);

    print qq!<FORM action="$script" name="summary" method="post">\n!;
    print qq!<input type=hidden name="mode" value="summary">\n!;
    print qq!$titleprint\n!;

    print qq!<table cols=3 border=1 width="90%">\n!;
    print qq!<tr>\n!;
    print qq!<td width="30%">!;
    print (('参照対象','Range')[$lang]);
    print qq!</td>\n!;
    print qq!<td width="1%">&nbsp;</td>\n!;
    print qq!<td width="69%">\n!;
    print qq!<table cols=2 border=0>\n!;
    print qq!<tr><td colspan=2 style="border:0px">\n!;
    print qq!<input type=radio name="ref" value="whole" checked>!;
    print (('全部','all')[$lang]);
    print "\n";
    print qq!<input type=radio name="ref" value="part">Message#\n!;
    print "from" if ($lang == 1);
    print qq!<input type=text name="startnum" size=8 onFocus="document.summary.ref[1].checked=true">!;
    print "から" if ($lang == 0);
    print "to" if ($lang == 0);
    print qq!<input type=text name="endnum" size=8 onFocus="document.summary.ref[1].checked=true">!;
    print "まで\n" if ($lang == 0);
    print qq!</td></tr>\n!;
    print qq!<tr><td width="10%" nowrap valign="top" style="border:0px">\n!;
    print qq!<input type=radio name="ref" value="timeframe">!;
    print (('日付が','date')[$lang]);
    print qq!</td><td style="border:0px">\n!;

    print "Year" if ($lang == 1);
    print qq!<select name="styear" onFocus="document.summary.ref[2].checked=true">\n!;

    &optyear($firstyear, $finyear);

    print "</select>";
    print '年' if ($lang == 0);

    print "Month" if ($lang == 1);
    print <<END1;
<select name="stmon" onFocus="document.summary.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
</select>
<select name="stday" onFocus="document.summary.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
	<option value="13">13
	<option value="14">14
	<option value="15">15
	<option value="16">16
	<option value="17">17
	<option value="18">18
	<option value="19">19
	<option value="20">20
	<option value="21">21
	<option value="22">22
	<option value="23">23
	<option value="24">24
	<option value="25">25
	<option value="26">26
	<option value="27">27
	<option value="28">28
	<option value="29">29
	<option value="30">30
	<option value="31">31
</select>
END1
    print "日から" if ($lang);
    print "<br>\n";
    print qq!<select name="endyear" onFocus="document.summary.ref[2].checked=true">\n!;

    &optyear($firstyear, $finyear);

print <<END2;
</select>年
<select name="endmon" onFocus="document.summary.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
</select>
<select name="endday" onFocus="document.summary.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
	<option value="13">13
	<option value="14">14
	<option value="15">15
	<option value="16">16
	<option value="17">17
	<option value="18">18
	<option value="19">19
	<option value="20">20
	<option value="21">21
	<option value="22">22
	<option value="23">23
	<option value="24">24
	<option value="25">25
	<option value="26">26
	<option value="27">27
	<option value="28">28
	<option value="29">29
	<option value="30">30
	<option value="31">31
</select>日まで
</td></tr>
</table>
<!-- input type=checkbox name="past" checked>２００件以前　
<input type=checkbox name="new" checked>最新２００件 -->
</td>
</tr>
<tr>
<td width="30%">個人名方式</td>
<td width="1%">　</td>
<td width="69%">
<input type=radio name="perso" value="keep">名前　
<input type=radio name="perso" value="nokeep" checked>人物
（<font color="#ff0000">※</font>印のみ有効）
<a href="$mbnamedef">同一人物設定</a>
</td>
</tr>

<tr>
<td>日毎の集計</td>
<td><input type=radio name="choise" value="data1" checked></td>
<td>
<select name="y1" onFocus="document.summary.choise[0].checked=true">
END2

    &optyear($firstyear,$finyear);

print <<END3;
</select>年
<select name="m1" onFocus="document.summary.choise[0].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
</select>月の毎日の書き込み量
</td>
</tr>
<tr>
<td>トップ１００</td>
<td><input type=radio name="choise" value="data1a"></td>
<td>書き込み量の上位１００</td>
</tr>
<tr>
<td>件数対日数</td>
<td><input type=radio name="choise" value="data1b"></td>
<td>日数を件数でソ\ート</td>
</tr>
<tr>
<td>時間帯集計</td>
<td><input type=radio name="choise" value="data2"></td>
<td>時間帯毎の書き込みの量</td>
</tr>
<tr>
<td>曜日毎集計</td>
<td><input type=radio name="choise" value="data3"></td>
<td>曜日毎の書き込みの量</td>
</tr>
<tr>
<td>月毎の集計</td>
<td><input type=radio name="choise" value="data4"></td>
<td>毎月の書き込みの量</td>
</tr>
<tr>
<td>年毎の集計</td>
<td><input type=radio name="choise" value="data4a"></td>
<td>毎年の書き込みの量</td>
</tr>
<tr>
<td>ぴったり賞<font color="#ff0000">※</font></td>
<td><input type=radio name="choise" value="data5"></td>
<td>Message#100, 777, 等に当たった人</td>
</tr>
<tr>
<td>個人別集計<font color="#ff0000">※</font></td>
<td><input type=radio name="choise" value="data6"></td>
<td>名前別書き込みの量</td>
</tr>
<tr>
<td nowrap>月間個人別集計<font color="#ff0000">※</font></td>
<td><input type=radio name="choise" value="data6a"></td>
<td><select name="y2" onFocus="document.summary.choise[9].checked=true">
END3

    &optyear($firstyear,$finyear);

print <<END4;
</select>年
<select name="m2" onFocus="document.summary.choise[9].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
</select>月の名前別書き込みの量</td>
</tr>
<tr>
<td nowrap>年間個人別集計<font color="#ff0000">※</font></td>
<td><input type=radio name="choise" value="data6b"></td>
<td><select name="y3" onFocus="document.summary.choise[10].checked=true">
END4

    &optyear($firstyear,$finyear);

print <<END5;
</select>年の名前別書き込みの量</td>
</tr>
<tr>
<td>月間トップ３<font color="#ff0000">※</font></td>
<td><input type=radio name="choise" value="data6c"></td>
<td>歴代の月間トップ３</td>
</tr>
<tr>
<td>個人最終書き込み<font color="#ff0000">※</font></td>
<td><input type=radio name="choise" value="data7"></td>
<td>特定の名前で最後に書き込んだ日</td>
</tr>
<tr>
<td>　</a></td>
<td>　</td>
<td><input type="submit" value="　見　る　">　<input type="button" value="デフォルト" onClick="setopt();setall();"></td>
</tr>
</table><p>
<a href="$mbread">メッセージボードへ</a>　
<a href="$mbsumpsfm">個人データ詳細</a>
</form>

END5

print "<a href=\"$script?mode=makebar\">bar.gif作成</a>\n";

    &htmltail;

}

sub optyear {
    my ($firstyear,$finyear) = @_;
    foreach ($firstyear .. $finyear){
	my $dispy = $_+1900;
	my $selected = '';
	$selected = 'selected' if ($_ == $finyear);
	print "<option value=\"$_\" $selected>$dispy\n";
    }
}

#############################################################################
# Summary personal Form mode ################################################
#############################################################################
sub mbsumpsnl {

    my ($firstyear,$finyear) = &get_firstyear;

    my $title;
    if ($lang) {
	$title = 'Personal data';
    } else {
	$title = '個人データ詳細';
    }
    my $titleprint=&titleprint("$title","$mbsum_logo","$mbsum_style","$mbsum_color","$mbsum_size","$mbsum_face","$mbsum_sel","$mbsum_loc");

    &htmlhead($title,$firstyear);

print <<HEADBOTTOM;
<FORM action="$script" name="summary" method="post">
<input type=hidden name="mode" value="summary">
$titleprint

<table cols=1 border=0 width="${body_width}%" align="center"><tr><td style="border:0px">

<table cols=3 border=1 width="80%">
<tr>
<td width="30%">参照対象</td>
<td width="1%">　</td>
<td width="69%">
<table cols=2 border=0>
<tr><td colspan=2 style="border:0px">
<input type=radio name="ref" value="whole" checked>全部　
<input type=radio name="ref" value="part">Message#
<input type=text name="startnum" size=8 onFocus="document.summary.ref[1].checked=true">から
<input type=text name="endnum" size=8 onFocus="document.summary.ref[1].checked=true">まで
</td></tr>
<tr><td width="10%" nowrap valign="top" style="border:0px">
<input type=radio name="ref" value="timeframe">日付が
</td><td style="border:0px">
<select name="styear" onFocus="document.summary.ref[2].checked=true">
HEADBOTTOM

    &optyear($firstyear,$finyear);
  
print <<END1;
</select>年
<select name="stmon" onFocus="document.summary.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
</select>
<select name="stday" onFocus="document.summary.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
	<option value="13">13
	<option value="14">14
	<option value="15">15
	<option value="16">16
	<option value="17">17
	<option value="18">18
	<option value="19">19
	<option value="20">20
	<option value="21">21
	<option value="22">22
	<option value="23">23
	<option value="24">24
	<option value="25">25
	<option value="26">26
	<option value="27">27
	<option value="28">28
	<option value="29">29
	<option value="30">30
	<option value="31">31
</select>日から<br>
<select name="endyear" onFocus="document.summary.ref[2].checked=true">
END1

    &optyear($firstyear,$finyear);

print <<END2;
</select>年
<select name="endmon" onFocus="document.summary.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
</select>
<select name="endday" onFocus="document.summary.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
	<option value="13">13
	<option value="14">14
	<option value="15">15
	<option value="16">16
	<option value="17">17
	<option value="18">18
	<option value="19">19
	<option value="20">20
	<option value="21">21
	<option value="22">22
	<option value="23">23
	<option value="24">24
	<option value="25">25
	<option value="26">26
	<option value="27">27
	<option value="28">28
	<option value="29">29
	<option value="30">30
	<option value="31">31
</select>日まで
</td></tr>
</table>
<!-- input type=checkbox name="past" checked>２００件以前　
<input type=checkbox name="new" checked>最新２００件 -->
</td>
</tr>
<tr>
<td width="30%">個人名方式</td>
<td width="1%">　</td>
<td width="69%">
<input type=radio name="perso" value="keep">名前　
<input type=radio name="perso" value="nokeep" checked>人物
<a href="$mbnamedef">同一人物設定</a>
</td>
</tr>
<tr>
<td nowrap>名前</td>
<td>　</td>
<td nowrap><input type=text name="hname" size=20></td>
</tr>

<tr>
<td>日毎の集計</td>
<td><input type=radio name="choise" value="data10" checked></td>
<td>
<select name="y1" onFocus="document.summary.choise[0].checked=true">
END2

    &optyear($firstyear,$finyear);

print <<END3;
</select>年
<select name="m1" onFocus="document.summary.choise[0].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
</select>月の毎日の書き込み量
</td>
</tr>
<tr>
<td>トップ３０</td>
<td><input type=radio name="choise" value="data11"></td>
<td>書き込み量の上位３０</td>
</tr>
<tr>
<td>件数対日数</td>
<td><input type=radio name="choise" value="data12"></td>
<td>日数を件数でソ\ート</td>
</tr>
<tr>
<td>時間帯集計</td>
<td><input type=radio name="choise" value="data13"></td>
<td>時間帯毎の書き込みの量</td>
</tr>
<tr>
<td>曜日毎集計</td>
<td><input type=radio name="choise" value="data14"></td>
<td>曜日毎の書き込みの量</td>
</tr>
<tr>
<td>月毎の集計</td>
<td><input type=radio name="choise" value="data15"></td>
<td>毎月の書き込みの量</td>
</tr>
<tr>
<td>年毎の集計</td>
<td><input type=radio name="choise" value="data15a"></td>
<td>毎年の書き込みの量</td>
</tr>
<tr>
<td>　</td>
<td>　</td>
<td><input type="submit" value="　見　る　">　<input type="button" value="デフォルト" onClick="setopt();setall();"></td>
</tr>
</table><p>
<a href="$mbread">メッセージボードへ</a>
　<a href="$mbsumfm">書き込み統計へ</a>
</form>

</td></tr></table>

END3

&htmltail;

}
#############################################################################
# Summary mode ##############################################################
#############################################################################
sub mbsum {

    my ($filename,$tmpdata,$finday) = &gentmpdata;

    if (!-e $gif){
	my $gifdata = &gengif(20,20,0,128,0);
	&writegif ($gif,$gifdata);
    }

    my %sum_item_titles = (
			   'data1',	'日毎の集計',
			   'data1a',	'トップ１００',
			   'data1b',	'件数対日数',
			   'data2',	'時間帯集計',
			   'data3',	'曜日毎集計',
			   'data4',	'月毎の集計',
			   'data4a',	'年毎の集計',
			   'data5',	'ぴったり賞',
			   'data6',	'個人データ集計',
			   'data6a',	'月間個人別集計',
			   'data6b',	'年間個人別集計',
			   'data6c',	'歴代月間トップ３',
			   'data7',	'個人最終書き込み',
			   'data10',	'日ごとのデータ集計',
			   'data11',	'書き込みトップ３０',
			   'data12',	'件数対日数',
			   'data13',	'時間帯集計',
			   'data14',	'曜日毎集計',
			   'data15',	'毎月の書き込み集計',
			   'data15a',	'毎年の書き込み集計',
			   );
    my $titleprint=&titleprint("$sum_item_titles{$in{choise}}","$mbsum_logo","$mbsum_style","$mbsum_color","$mbsum_size","$mbsum_face","$mbsum_sel","$mbsum_loc");

    &htmlhead($sum_item_titles{$in{choise}});

    print "$titleprint\n";
    &subtitle;
    &backbutton;

    ($in{choise} eq 'data1')   && &sum_data1  ($filename,$finday);
    ($in{choise} eq 'data1a')  && &sum_data1a ($filename,$finday);
    ($in{choise} eq 'data1b')  && &sum_data1b ($filename);
    ($in{choise} eq 'data2')   && &sum_data2  ($filename);
    ($in{choise} eq 'data3')   && &sum_data3  ($filename);
    ($in{choise} eq 'data4')   && &sum_data4  ($filename);
    ($in{choise} eq 'data4a')  && &sum_data4a ($filename);
    ($in{choise} eq 'data5')   && &sum_data5  ($filename);
    ($in{choise} eq 'data6')   && &sum_data6  ($filename);
    ($in{choise} eq 'data6a')  && &sum_data6a ($filename);
    ($in{choise} eq 'data6b')  && &sum_data6b ($filename);
    ($in{choise} eq 'data6c')  && &sum_data6c ($filename);
    ($in{choise} eq 'data7')   && &sum_data7  ($filename);
    ($in{choise} eq 'data10')  && &sum_data10 ($filename,$finday);
    ($in{choise} eq 'data11')  && &sum_data11 ($filename,$finday);
    ($in{choise} eq 'data12')  && &sum_data12 ($filename);
    ($in{choise} eq 'data13')  && &sum_data13 ($filename);
    ($in{choise} eq 'data14')  && &sum_data14 ($filename);
    ($in{choise} eq 'data15')  && &sum_data15 ($filename);
    ($in{choise} eq 'data15a') && &sum_data15a($filename);

    unlink("$tmpdata") if (-e "$tmpdata");
    &backbutton;
    &htmltail;
}

sub sum_data1 {
    my $filename = shift;
    my $finday = shift;
    open(FILE,"< $filename");
    my ($num,$date,@line);
    my %count;
    my $total;
    while (<FILE>){
	chomp;
	($num,$date,@line)=split(/,/);
	if ($date =~ /^${in{y1}}_${in{m1}}_/){
	    $count{$date}++;
	    $total++;
	}
    }
    close(FILE);
    my $i;
    my $linemax = 40;
    my $width;
    my $rightend = 400;
    for ($i=1;$i<=$finday;$i++){
	$date="${in{y1}}_${in{m1}}_${i}";
	printf("%04d/%02d/%02d | ",$in{y1}+1900,$in{m1},$i);
	$width=($count{$date}/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($count{$date} eq ""){$count{$date}=0;}
	print " <font color=\"#0000ee\">$count{$date}</font><br>";
    }
    my $mean=$total/$finday;
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件、 一日平均＝";
    printf("%3.2f",$mean);
    print "件</font><br>";
}

sub sum_data1a {
    my $filename = shift;
    my $finday = shift;
    my ($num,$date,@line);
    my %count;
    my $total;
    open(FILE,"< $filename");
    while (<FILE>){
	chomp;
	($num,$date,@line)=split(/,/);
	$count{$date}++;
	$total++;
    }
    close(FILE);
    my $i=0;
    my %content;
    foreach (keys(%count)){
	$content{"${count{$_}}_${i}"}="$_";
	$i++;
    }
    my @tmp=keys(%content);
    my @tmp1=reverse(sort({$a<=>$b}@tmp));
    my @sortdata=splice(@tmp1,0,100);
    my ($yy,$mm,$dd,$dummy);
    my $linemax = 60;
    my $width;
    my $number;
    my $rightend = 400;
    foreach $number (@sortdata){
	$date=$content{$number};
	($yy,$mm,$dd,$dummy)=split(/_/,$date);
	printf("%04d/%02d/%02d | ",$yy+1900,$mm,$dd);
	$width=($count{$date}/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($number eq ""){$number=0;}
	print " <font color=\"#0000ee\">$count{$date}</font><br>";
    }
    my $mean=$total/$finday;
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件、 一日平均＝";
    printf("%3.2f",$mean);
    print "件</font><br>";
}

sub sum_data1b {
    my $filename = shift;
    my ($num,$date,@line);
    my %count;
    my $total;
    open(FILE,"< $filename");
    my $i=0;
    my $date1;
    my $num0;
    while (<FILE>){
	chomp;
	($num,$date,@line)=split(/,/);
	if ($i==0){$date1=$date;$num0=$num;}
	$count{$date}++;
	$i++;
    }
    close(FILE);
    my ($yyy,$mmm,$ddd)=split(/_/,$date1);
    my ($yyy2,$mmm2,$ddd2)=split(/_/,$date);
    my @timetmp = $localtime_en ? localtime(time) : gmtime(time+$offset*3600);
    my $firstline=timelocal(0,0,0,$ddd,$mmm-1,$yyy,$timetmp[6],$timetmp[7],$timetmp[8]);
    my $endline=timelocal(0,0,0,$ddd2,$mmm2-1,$yyy2,$timetmp[6],$timetmp[7],$timetmp[8]);
    my @tmp=sort {$a<=>$b} values(%count);
    my $max=$tmp[$#tmp];
    $total=$#tmp+1;
    my $yyyy = $yyy;
    my $yyyy2 = $yyy2;
    $yyy=$yyy+1900;
    $yyy2=$yyy2+1900;
    print "<font size=\"+1\">$yyy年$mmm月$ddd日から$yyy2年$mmm2月$ddd2日まで</font><p>";
    my @dnum;
    my $value;
    my ($d,$m,$y);
    my $gtotal;
    my $linemax=600;
    my $finday;
    my $curline;
    my %timetmp;
    my $width;
    my $rightend = 400;
    my $num2;
    my $mean1;
    for ($i=0;$i<=$max;$i++){
	@dnum=grep(/^$i$/,@tmp);
	$value=$#dnum+1;
	if ($i==0){
	    for($y=$yyyy;$y<=$yyyy2;$y++){
		for($m=1;$m<=12;$m++){
		    if (($m =~ /^[13578]$/) || ($m =~ /^1[02]$/)){
			$finday = 31;
		    } elsif (($m =~ /^[469]$/) || ($m == 11)){
			$finday = 30;
		    } elsif ($m == 2){
			$finday = 28;
		    }
		    for($d=1;$d<=$finday;$d++){
			$curline=timelocal(0,0,0,$d,$m-1,$y,$timetmp[6],$timetmp[7],$timetmp[8]);
			if (($curline < $firstline)||($curline > $endline)){next;}
			if ($count{"${y}_${m}_${d}"} eq ""){
			    $value++;
			}
			if ($date eq "${y}_${m}_${d}"){last;}
		    }
		    if ($date eq "${y}_${m}_${d}"){last;}
		}
		if ($date eq "${y}_${m}_${d}"){last;}
	    }
	    $gtotal=$value;
	}
	printf("%02d件 | ",$i);
	$width=($value/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	$num2 = $num2+$value*$i;
	$mean1=($value/($total+$gtotal))*100;
	print " <font color=\"#0000ee\">$value日</font>";
	printf(" <font color=\"#804040\">(%3.2f%%)</font><br>",$mean1);
    }
    $total=$total+$gtotal;
    my $mean=($total/($num2))*24;
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total日、$num2件、 投稿平均間隔＝";
    printf("%3.2f",$mean);
    print "時間</font><br>";
}

sub sum_data2 {
    my $filename = shift;
    my $inc;
    if (($in{new} eq 'on')&&($in{past} eq 'on')){
	$inc=10;
    } elsif ($in{new} eq 'on'){
	$inc=1;
    } elsif ($in{past} eq 'on'){
	$inc=10;
    }
    open(FILE,"< $filename");
    my ($num,$date,$name,$mail,$host,$today,@line);
    my $total;
    my @count;
    while (<FILE>){
	chomp;
	($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
	if ($today =~ /(\d\d)時\d\d分$/){
	    $count[$1]++;
	    $total++;
	}
    }
    close(FILE);
    my @tmp=sort {$a <=> $b} @count;
    my $linemax=$tmp[$#tmp];
    my $pars;
    my $i;
    my $width;
    my $rightend = 400;
    for($i=0;$i<=23;$i++){
	printf("%02d時〜%02d時 | ",$i,$i+1);
	if ($linemax == 0){last;}
	$width=($count[$i]/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($total == 0){last;}
	$pars=($count[$i]/$total)*100;
	if ($count[$i] eq ""){$count[$i] = 0;}
	print " <font color=\"#0000ee\">$count[$i]</font>";
	printf(" <font color=\"#804040\">(%2.2f%%)</font><br>\n",$pars);
    }
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件</font><br>";
}

sub sum_data3 {
    my $filename = shift;
    my $inc;
    if (($in{new} eq 'on')&&($in{past} eq 'on')){
	$inc=20;
    } elsif ($in{new} eq 'on'){
	$inc=1;
    } elsif ($in{past} eq 'on'){
	$inc=20;
    }
    open(FILE,"< $filename");
    my ($num,$date,$name,$mail,$host,$today,@line);
    my $total;
    my %count;
    while (<FILE>){
	chomp;
	($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
	if ($today =~ /\((.*)\)\d\d時\d\d分$/){
	    $count{$1}++;
	    $total++;
	}
    }
    close(FILE);
    my @tmp=sort {$a <=> $b} values(%count);
    my $linemax=$tmp[$#tmp];
    my $width;
    my $pars;
    my $rightend = 400;
    foreach my $week ('日','月','火','水','木','金','土'){
	printf("%s | ",$week);
	if ($linemax == 0){last;}
	$width=($count{$week}/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($count{$week} eq ""){$count{$week}=0;}
	if ($total == 0){last;}
	$pars=($count{$week}/$total)*100;
	print " <font color=\"#0000ee\">$count{$week}</font>\n";
	printf(" <font color=\"#804040\">(%2.2f%%)</font><br>\n",$pars);
    }
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル = $total件</font><br>\n";
}

sub sum_data4 {
    my $filename = shift;
    my $inc=10;
    open(FILE,"< $filename");
    my ($num,$date,@line);
    my %count;
    my $total;
    while (<FILE>){
	chomp;
	($num,$date,@line)=split(/,/);
	$date =~ s/^(\d?\d\d_\d?\d)_\d?\d$/$1/;
	$count{$date}++;
	$total++;
    }
    close(FILE);
    my @item=keys(%count);
    my @item1=();
    foreach (@item){
	s/^(\d?\d\d)_(\d)$/${1}0$2/;
	s/^(\d?\d\d)_(\d\d)$/$1$2/;
	push(@item1,$_);
    }
    @item1=sort {$a <=> $b} @item1;
    my @tmp=sort {$a <=> $b} values(%count);
    my $linemax= $tmp[$#tmp];
    my ($yy,$mm);
    my $width;
    my $rightend = 400;
    foreach $date (@item1){
	$date =~ s/^(\d?\d\d)([1-9]\d)$/${1}_$2/;
	$date =~ s/^(\d?\d\d)0(\d)$/${1}_$2/;
	($yy,$mm)=($1,$2);
	printf("%04d年%02d月 | ",$yy+1900,$mm);
	if ($linemax == 0){last;}
	$width=($count{$date}/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($count{$date} eq ""){$count{$date}=0;}
	print " <font color=\"#0000ee\">$count{$date}</font><br>";
    }
    my $mean= ($#item == -1) ? 0: $total/($#item+1);
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件、 月平均＝";
    printf("%3.2f",$mean);
    print "件</font><br>";
}

sub sum_data4a {
    my $filename = shift;
    my $inc=10;
    open(FILE,"< $filename");
    my ($num,$date,@line);
    my %count;
    my $total;
    while (<FILE>){
	chomp;
	($num,$date,@line)=split(/,/);
	$date =~ s/^(\d?\d\d)_\d?\d_\d?\d/$1/;
	$count{$date}++;
	$total++;
    }
    close(FILE);
    my @item=keys(%count);
    my @item1=@item;
    @item1=sort {$a <=> $b} @item1;
    my @tmp=sort {$a <=> $b} values(%count);
    my $linemax=$tmp[$#tmp];
    my $width;
    my $rightend = 400;
    foreach $date (@item1){
	printf("%04d年 | ",$date+1900);
	if ($linemax == 0){last;}
	$width=($count{$date}/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($count{$date} eq ""){$count{$date}=0;}
	print " <font color=\"#0000ee\">$count{$date}</font><br>";
    }
    my $mean= ($#item == -1) ? 0: $total/($#item+1);
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件、 年平均＝";
    printf("%3.2f",$mean);
    print "件</font><br>";
}

sub sum_data5 {
    my $filename = shift;
    my ($num,$date,$name,$mail,$host,$today,@line);
    my %pname;
    my $today2;
    my @darray;
    my @tmpaaa;
    my %ptoday;
    open(FILE,"< $filename");
    while (<FILE>){
	chomp;
	($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
	if (grep(/^$num$/,@period) ne ""){
	    $pname{$num}=$name;
	    $date =~ s/^(\d?\d\d)_\d?\d_\d?\d$/$1/;
	    $today2=$today;
	    $today2 =~ s/^(\d\d?\d?)..*/$1/;
	    if ($today2 != $date){
		$date =~ s/^(\d?\d\d)_\d?\d_\d?\d$/$1/;
	    } else {
		@darray = split(/[^\d]/,$today);
		@tmpaaa = split(/日[^\)]/,$today);
		$date=$darray[0];
		$today=sprintf("%s月%s日(%s",$darray[2],$darray[4],$tmpaaa[1]);
	    }
	    $ptoday{$num}=sprintf("%s年%s",$date+1900,$today);
	}
    }
    close(FILE);
    print "<table cols=\"3\" width=\"60%\" border=0>";
    foreach my $number (reverse(@period)){
	if ($pname{$number} eq ""){next;}
	if ($in{perso} eq "nokeep"){
	    $name=&checkname($pname{$number});
	} else {
	    $name = $pname{$number}
	}
	print "<tr>";
	printf("<td width=\"30%%\" nowrap style=\"border:0px\">Message# %d</td><td width=\"30%%\" nowrap style=\"border:0px\"><font color=\"#0000ee\">%s</font></td><td nowrap style=\"border:0px\"><font color=\"#804040\">%s</font></td>",$number,$name,$ptoday{$number});
	print "</tr>\n";
    }
    print "</table>";
}

sub sum_data6 {
    my $filename = shift;
    my $inc;
    if (($in{new} eq 'on')&&($in{past} eq 'on')){
	$inc=25;
    } elsif ($in{new} eq 'on'){
	$inc=1;
    } elsif ($in{past} eq 'on'){
	$inc=25;
    }
    my ($num,$date,$name,$mail,$host,$today,@line);
    my %count;
    my $total;
    open(FILE,"< $filename");
    while (<FILE>){
	chomp;
	($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
	if ($in{perso} eq "nokeep"){$name=&checkname($name);}
	$count{$name}++;
	$total++;
    }
    close(FILE);
    my $i=0;
    my %content;
    foreach (keys(%count)){
	$content{"${count{$_}}_${i}"}="$_";
	$i++;
    }
    my @tmp=keys(%content);
    my @sortdata=reverse(sort({$a<=>$b}@tmp));
    my $linemax=$sortdata[0];
    my $width;
    my $pars;
    my $rightend = 400;
    print "<table cols=2 border=0 width=\"70%\">\n";
    foreach my $data (@sortdata){
	print "<tr>";
	print "<td width=\"10%\" nowrap align=\"right\" style=\"border:0px\"><font color=\"#804040\">$content{$data}</font></td> \n";
	$data =~ s/^(\d\d*)_\d\d*/$1/;
	print "<td width=\"90%\" nowrap style=\"border:0px\">";
	if ($linemax == 0){last;}
	$width=($data/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($total == 0){last;}
	$pars=($data/$total)*100;
	print " <font color=\"#0000ee\">$data</font>";
	printf("<font color=\"#ee3333\"> (%3.2f%%)</font>",$pars);
	print "</td></tr>";
	print "</td></tr>";
    }
    print "</table>";
    my $people=$#sortdata+1;
    print "<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件、 延べ人数＝";
    print "$people";
    print "人、一人平均＝";
    if ($people == 0){$people=1;}
    my $mean=$total/$people;
    printf("%3.2f",$mean);
    print "件</font><br>";
}

sub sum_data6a {
    my $filename = shift;
    my $inc=2;
    my $realy=$in{y2}+1900;
    print "<font size=+1>$realy年$in{m2}月のデータ</font><p>";
    my ($num,$date,$name,$mail,$host,$today,@line);
    my %count;
    my $total;
    open(FILE,"< $filename");
    while (<FILE>){
	chomp;
	($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
	if ($date =~ /^$in{y2}_$in{m2}_\d\d?$/){
	    if ($in{perso} eq "nokeep"){$name=&checkname($name);}
	    $count{$name}++;
	    $total++;
	}
    }
    close(FILE);
    my $i=0;
    my %content;
    foreach (keys(%count)){
	$content{"${count{$_}}_${i}"}="$_";
	$i++;
    }
    my @tmp=keys(%content);
    my @sortdata=reverse(sort({$a<=>$b}@tmp));
    my $linemax=$sortdata[0];
    my $width;
    my $pars;
    print "<table cols=2 border=0 width=\"70%\">\n";
    foreach my $data (@sortdata){
	print "<tr>";
	print "<td width=\"10%\" nowrap align=\"right\" style=\"border:0px\"><font color=\"#804040\">$content{$data}</font></td> \n";
	$data =~ s/^(\d\d*)_\d\d*/$1/;
	print "<td width=\"90%\" nowrap style=\"border:0px\">";
	if ($linemax == 0){last;}
	$width=($data/$linemax)*400;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($total == 0){last;}
	$pars=($data/$total)*100;
	print " <font color=\"#0000ee\">$data</font>";
	printf("<font color=\"#ee3333\"> (%3.2f%%)</font>",$pars);
	print "</td></tr>";
	print "</td></tr>";
    }
    print "</table>";
    my $people=$#sortdata+1;
    print "<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件、 延べ人数＝";
    print "$people";
    print "人、一人平均＝";
    if ($people == 0){$people=1;}
    my $mean=$total/$people;
    printf("%3.2f",$mean);
    print "件</font><br>";
}

sub sum_data6b {
    my $filename = shift;
    my $inc=20;
    my $realy=$in{y3}+1900;
    print "<font size=+1>$realy年のデータ</font><p>";
    my ($num,$date,$name,$mail,$host,$today,@line);
    my $name1;
    my $total;
    my %count;
    open(FILE,"< $filename");
    while (<FILE>){
	chomp;
	    ($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
	    if ($date =~ /^$in{y3}_\d\d?_\d\d?$/){
		$name1=$name;
		if ($in{perso} eq "nokeep"){$name=&checkname($name);}
		$count{$name}++;
		$total++;
	    }
    }
    close(FILE);
    my $i=0;
    my %content;
    foreach (keys(%count)){
	$content{"${count{$_}}_${i}"}="$_";
	$i++;
    }
    my @tmp=keys(%content);
    my @sortdata=reverse(sort({$a<=>$b}@tmp));
    my $linemax=$sortdata[0];
    my $width;
    my $pars;
    my $rightend = 400;
    print "<table cols=2 border=0 width=\"70%\">\n";
    foreach my $data (@sortdata){
	print "<tr>";
	print "<td width=\"10%\" nowrap align=\"right\" style=\"border:0px\"><font color=\"#804040\">$content{$data}</font></td> \n";
	$data =~ s/^(\d\d*)_\d\d*/$1/;
	print "<td width=\"90%\" nowrap style=\"border:0px\">";
	if ($linemax == 0){last;}
	$width=($data/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($total == 0){last;}
	$pars=($data/$total)*100;
	print " <font color=\"#0000ee\">$data</font>";
	printf("<font color=\"#ee3333\"> (%3.2f%%)</font>",$pars);
	print "</td></tr>";
	print "</td></tr>";
    }
    print "</table>";
    my $people=$#sortdata+1;
    print "<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件、 延べ人数＝";
    print "$people";
    print "人、一人平均＝";
    if ($people == 0){$people=1;}
    my $mean=$total/$people;
    printf("%3.2f",$mean);
    print "件</font><br>";
}

sub sum_data6c {
    my $filename = shift;
    my $inc=2;
    print "<table cols=4 border=1 width=\"70%\">";
    print "<tr><th align=\"center\" width=\"25%\" bgcolor=\"#ffcc33\">月</th>";
    print "<th align=\"center\" width=\"25%\" bgcolor=\"#ffcc33\">１位</th>";
    print "<th align=\"center\" width=\"25%\" bgcolor=\"#ffcc33\">２位</th>";
    print "<th align=\"center\" width=\"25%\" bgcolor=\"#ffcc33\">３位</th>";
    print "</tr>";
    open(FILE,"< $filename");
    my $j=0;
    my @tbl;
    my ($num,$date,$name,$mail,$host,$today,@line);
    my %count;
    my %content;
    my $lastmon;
    my $total;
    while (<FILE>) {
	chomp;
	($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
	if ($in{perso} eq "nokeep"){$name=&checkname($name);}
	$date =~ s/^(\d?\d\d_\d\d?)_\d\d?$/$1/;
	$date =~ s/^(\d?\d\d)_(\d)$/${1}_0$2/;
	$count{$date}{"$name"}++;
	$total++;
	$lastmon=$date;
    }
    close(FILE);

    my $ym;
    foreach $ym (sort keys %count) {
	my @sorted_name = sort {$count{$ym}{$b} <=> $count{$ym}{$a}} keys %{$count{$ym}};
	my ($yyy,$mmm)=split(/_/,$ym);
	$yyy=$yyy+1900;
	print "<tr><td nowrap align=\"center\" bgcolor=\"#66ff99\">$yyy年$mmm月</td>";
	print "<td nowrap align=\"center\"><font color=\"#000066\">$sorted_name[0]</font><br><font color=\"#804040\">$count{$ym}{$sorted_name[0]}件</font></td>";
	print "<td nowrap align=\"center\"><font color=\"#000066\">$sorted_name[1]</font><br><font color=\"#804040\">$count{$ym}{$sorted_name[1]}件</font></td>";
	print "<td nowrap align=\"center\"><font color=\"#000066\">$sorted_name[2]</font><br><font color=\"#804040\">$count{$ym}{$sorted_name[2]}件</font></td>";
	print "</tr>";
    }
    
    print "</table>";
}

sub sum_data7 {
    my $filename = shift;
    my ($num,$date,$name,$mail,$host,$today,@line);
    my $date2;
    my $today2;
    my %count;
    open(FILE,"< $filename");
    while (<FILE>){
	chomp;
	($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
	$date =~ s/_(\d_\d?\d)$/_0${1}/;
	$date =~ s/_(\d\d_)(\d)$/_${1}0${2}/;
	$date =~ s/^(9\d_\d\d_\d\d)$/0${1}/;
	$date2=$date;
	$date =~ s/^(\d?\d\d)_\d?\d_\d?\d$/$1/;
	$today2=$today;
	$today2 =~ s/^(\d\d?\d?)..*/$1/;
	if ($in{perso} eq "nokeep"){$name=&checkname($name);}
	if ($today2 != $date){
	    $count{$name}=sprintf("%s_%s年%s_%s",$date2,$date,$today,$num);
	} else {
	    $count{$name}="${date2}_${today}_${num}";
	}
    }
    close(FILE);
    my %content;
    foreach (keys(%count)){
	$content{"$count{$_}"}="$_";
    }
    my @tmp=keys(%content);
    my @sortdata=reverse(sort(@tmp));
    print "<table cols=3 border=0 width=\"70%\">";
    my @darray;
    my $datex;
    my $tx;
    my $mesnum;
    my @tmpaaa;
    foreach $today (@sortdata){
	$today2 = $today;
	$today2 =~ s/^\d?\d\d_\d\d_\d\d_(..*)_(\d\d*)$/$1/;
	
	@darray = split(/[^\d]/,$today2);
	@tmpaaa = split(/日[^\)]/,$today2);
	$datex=$darray[0];
	$tx=sprintf("%s月%s日(%s",$darray[2],$darray[4],$tmpaaa[1]);
	$today2=sprintf("%s年%s",$datex+1900,$tx);
	
	$mesnum=$2;
	print "<tr><td align=\"right\" nowrap style=\"border:0px\"><font color=\"#000000\">$content{$today}</font></td><td nowrap style=\"border:0px\"><font color=\"#883322\">$today2</font></td><td style=\"border:0px\"><font color=\"#000000\"> #$mesnum</font></td></tr>\n";
	}
    print "</table>";
}

sub sum_data10 {
    my $filename = shift;
    my $finday = shift;
    print "<font size=\"+1\">「<font color=\"$post_name_color\">$in{hname}</font>」での集計</font><p>\n";
    open(FILE,"< $filename");
    my ($num,$date,$name,@line);
    my $hname;
    my %count;
    my $total;
    while (<FILE>){
	chomp;
	($num,$date,$name,@line)=split(/,/);
	if ($in{perso} eq "nokeep"){
	    $name=&checkname($name);
	    $hname=&checkname($in{hname});
	} else {
	    $hname=$in{hname};
	}
	if ($name eq $hname){
	    if ($date =~ /^${in{y1}}_${in{m1}}_/){
		$count{$date}++;
		$total++;
	    }
	}
    }
    close(FILE);
    my $i;
    my $linemax=40;
    my $width;
    my $rightend = 400;
    for ($i=1;$i<=$finday;$i++){
	$date="${in{y1}}_${in{m1}}_${i}";
	printf("%04d/%02d/%02d | ",$in{y1}+1900,$in{m1},$i);
	$width=($count{$date}/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($count{$date} eq ""){$count{$date}=0;}
	print " <font color=\"#0000ee\">$count{$date}</font><br>";
    }
    my $mean=$total/$finday;
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件、 一日平均＝";
    printf("%3.2f",$mean);
    print "件</font><br>";
}

sub sum_data11 {
    my $filename = shift;
    my $finday = shift;
    my ($num,$date,$name,@line);
    my $hname;
    my %count;
    my $total;
    print "<font size=\"+1\">「<font color=\"$post_name_color\">$in{hname}</font>」での集計</font><p>\n";
    open(FILE,"< $filename");
    while (<FILE>){
	chomp;
	($num,$date,$name,@line)=split(/,/);
	if ($in{perso} eq "nokeep"){
	    $name=&checkname($name);
	    $hname=&checkname($in{hname});
	} else {
	    $hname=$in{hname};
	}
	if ($name eq $hname){
	    $count{$date}++;
	    $total++;
	}
    }
    close(FILE);
    my $i=0;
    my %content;
    foreach (keys(%count)){
	$content{"${count{$_}}_${i}"}="$_";
	$i++;
    }
    my @tmp=keys(%content);
    my @tmp1=reverse(sort({$a<=>$b}@tmp));
    my @sortdata=splice(@tmp1,0,30);
    my ($yy,$mm,$dd,$dummy);
    my $linemax=20;
    my $width;
    my $rightend = 400;
    foreach my $number (@sortdata){
	$date=$content{$number};
	($yy,$mm,$dd,$dummy)=split(/_/,$date);
	printf("%04d/%02d/%02d | ",$yy+1900,$mm,$dd);
	$width=($number/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($number eq ""){$number=0;}
	print " <font color=\"#0000ee\">$count{$date}</font><br>";
    }
    my $mean=$total/$finday;
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件、 一日平均＝";
    printf("%3.2f",$mean);
    print "件</font><br>";
}

sub sum_data12 {
    my $filename = shift;
    print "<font size=\"+1\">「<font color=\"$post_name_color\">$in{hname}</font>」での集計</font><p>\n";
    open(FILE,"< $filename");
    my ($num,$date,$name,@line);
    my $hname;
    my %count;
    my $total;
    my $i=0;
    my $date1;
    my $num0;
    while (<FILE>){
	chomp;
	($num,$date,$name,@line)=split(/,/);
	if ($in{perso} eq "nokeep"){
	    $name=&checkname($name);
	    $hname=&checkname($in{hname});
	} else {
	    $hname=$in{hname};
	}
	if ($name eq $hname){
	    if ($i==0){$date1=$date;$num0=$num;}
	    $count{$date}++;
	    $i++;
	}
    }
    close(FILE);
    my ($yyy,$mmm,$ddd)=split(/_/,$date1);
    my ($yyy2,$mmm2,$ddd2)=split(/_/,$date);
    my @timetmp= $localtime_en ? localtime(time) : gmtime(time + $offset*3600);
    my $firstline=timelocal(0,0,0,$ddd,$mmm-1,$yyy,$timetmp[6],$timetmp[7],$timetmp[8]);
    my $endline=timelocal(0,0,0,$ddd2,$mmm2-1,$yyy2,$timetmp[6],$timetmp[7],$timetmp[8]);
    my @tmp=sort {$a<=>$b} values(%count);
    my $max=$tmp[$#tmp];
    $total=$#tmp+1;
    $yyy = $yyy + 1900;
    $yyy2 = $yyy2 + 1900;
    print "<font size=\"+1\">$yyy年$mmm月$ddd日から$yyy2年$mmm2月$ddd2日まで</font><p>";
    my @dnum;
    my $value;
    my $y;
    my $finday;
    my $m;
    my $d;
    my $gtotal;
    my $curline;
    my $linemax=2000;
    my $width;
    my $num2;
    my $mean1;
    my $rightend = 400;
    for ($i=0;$i<=$max;$i++){
	@dnum=grep(/^$i$/,@tmp);
	$value=$#dnum+1;
	if ($i==0){
	    for($y=$yyy-1900;$y<=$yyy2-1900;$y++){
		for($m=1;$m<=12;$m++){
		    if (($m =~ /^[13578]$/) || ($m =~ /^1[02]$/)){
			$finday = 31;
		    } elsif (($m =~ /^[469]$/) || ($m == 11)){
			$finday = 30;
		    } elsif ($m == 2){
			$finday = 28;
		    }
		    for($d=1;$d<=$finday;$d++){
			$curline=timelocal(0,0,0,$d,$m-1,$y,$timetmp[6],$timetmp[7],$timetmp[8]);
			if (($curline < $firstline)||($curline > $endline)){next;}
			if ($count{"${y}_${m}_${d}"} eq ""){
			    $value++;
			}
			if ($date eq "${y}_${m}_${d}"){last;}
		    }
		    if ($date eq "${y}_${m}_${d}"){last;}
		}
		if ($date eq "${y}_${m}_${d}"){last;}
	    }
	    $gtotal=$value;
	}
	printf("%02d件 | ",$i);
	$width=($value/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	$num2 = $num2+$value*$i;
	$mean1=($value/($total+$gtotal))*100;
	print " <font color=\"#0000ee\">$value日</font>";
	printf(" <font color=\"#804040\">(%3.2f%%)</font><br>",$mean1);
    }
    $total=$total+$gtotal;
    my $mean=($total/($num2))*24;
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total日、$num2件、 投稿平均間隔＝";
    printf("%3.2f",$mean);
    print "時間</font><br>";
}

sub sum_data13 {
    my $filename = shift;
    my $inc;
    if (($in{new} eq 'on')&&($in{past} eq 'on')){
	$inc=5;
    } elsif ($in{new} eq 'on'){
	$inc=1;
    } elsif ($in{past} eq 'on'){
	$inc=5;
    }
    print "<font size=\"+1\">「<font color=\"$post_name_color\">$in{hname}</font>」での集計</font><p>\n";
    open(FILE,"< $filename");
    my ($num,$date,$name,$mail,$host,$today,@line);
    my $hname;
    my @count;
    my $total;
    while (<FILE>){
	chomp;
	($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
	if ($in{perso} eq "nokeep"){
	    $name=&checkname($name);
	    $hname=&checkname($in{hname});
	} else {
	    $hname=$in{hname};
	}
	if ($name eq $hname){
	    if ($today =~ /(\d\d)時\d\d分$/){
		$count[$1]++;
		$total++;
	    }
	}
    }
    close(FILE);
    my @tmp = sort {$a <=> $b} @count;
    my $linemax=$tmp[$#tmp];
    my $i;
    my $width;
    my $pars;
    my $rightend = 400;
    for($i=0;$i<=23;$i++){
	printf("%02d時〜%02d時 | ",$i,$i+1);
	if ($linemax == 0){last;}
	$width=($count[$i]/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($total == 0){last;}
	$pars=($count[$i]/$total)*100;
	if ($count[$i] eq ""){$count[$i] = 0;}
	print " <font color=\"#0000ee\">$count[$i]</font>";
	printf(" <font color=\"#804040\">(%2.2f%%)</font><br>\n",$pars);
    }
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$total件</font><br>";
}

sub sum_data14 {
    my $filename = shift;
    my $inc;
    if (($in{new} eq 'on')&&($in{past} eq 'on')){
	$inc=5;
    } elsif ($in{new} eq 'on'){
	$inc=1;
    } elsif ($in{past} eq 'on'){
	$inc=5;
    }
    print "<font size=\"+1\">「<font color=\"$post_name_color\">$in{hname}</font>」での集計</font><p>\n";
    open(FILE,"< $filename");
    my ($num,$date,$name,$mail,$host,$today,@line);
    my $hname;
    my %count;
    my $total;
    while (<FILE>){
	chomp;
	($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
	if ($in{perso} eq "nokeep"){
	    $name=&checkname($name);
	    $hname=&checkname($in{hname});
	} else {
	    $hname=$in{hname};
	}
	if ($name eq $hname){
	    if ($today =~ /\((.*)\)\d\d時\d\d分$/){
		$count{$1}++;
		$total++;
	    }
	}
    }
    close(FILE);
    my @tmp = sort {$a <=> $b} values(%count);
    my $linemax=$tmp[$#tmp];
    my $width;
    my $pars;
    my $rightend = 400;
    foreach my $week ('日','月','火','水','木','金','土'){
	printf("%s | ",$week);
	if ($linemax == 0){last;}
	$width=($count{$week}/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($count{$week} eq ""){$count{$week}=0;}
	if ($total == 0){last;}
	$pars=($count{$week}/$total)*100;
	print " <font color=\"#0000ee\">$count{$week}</font>\n";
	printf(" <font color=\"#804040\">(%2.2f%%)</font><br>\n",$pars);
    }
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル = $total件</font><br>\n";
}

sub sum_data15 {
    my $filename = shift;
    my $inc=2;
    print "<font size=\"+1\">「<font color=\"$post_name_color\">$in{hname}</font>」での集計</font><p>\n";
    open(FILE,"< $filename");
    my ($num,$date,$name,$mail,$host,$today,@line);
    my $hname;
    my %count;
    my $total;
    my %personal;
    my $ptotal;
    while (<FILE>){
	chomp;
	($num,$date,$name,@line)=split(/,/);
	if ($in{perso} eq "nokeep"){
	    $name=&checkname($name);
	    $hname=&checkname($in{hname});
	} else {
	    $hname=$in{hname};
	}
	$date =~ s/^(\d?\d\d_\d?\d)_\d?\d$/$1/;
	$count{$date}++;
	$total++;
	if ($name eq $hname){
	    $personal{$date}++;
	    $ptotal++;
	}
    }
    close(FILE);
    my @item=keys(%count);
    my @item1=();
    foreach (@item){
	s/^(\d?\d\d)_(\d)$/${1}0$2/;
	s/^(\d?\d\d)_(\d\d)$/$1$2/;
	push(@item1,$_);
    }
    @item1=sort {$a <=> $b} @item1;
    my $flag = 0;
    my @tmp = sort {$a <=> $b} values(%personal);
    my $linemax=$tmp[$#tmp];
    my ($yy,$mm);
    my $width;
    my $pers;
    my $rightend = 400;
    my $item3;
    my $p2total;
    foreach $date (@item1){
	$date =~ s/^(\d?\d\d)([1-9]\d)$/${1}_$2/;
	$date =~ s/^(\d?\d\d)0(\d)$/${1}_$2/;
	($yy,$mm)=($1,$2);
	if ($personal{$date} == 0 && $flag == 0){next;}
	printf("%04d年%02d月 | ",$yy+1900,$mm);
	if ($linemax == 0){last;}
	$width=($personal{$date}/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	if ($count{$date} != 0){
	    $pers=($personal{$date}/$count{$date})*100;
	} else {
	    $pers=0;
	}
	if ($personal{$date} eq ""){$personal{$date}=0;}
	print " <font color=\"#0000ee\">$personal{$date}</font>";
	printf("<font color=\"#804040\"> (%3.2f%%)</font><br>\n",$pers);
	$flag = 1;
	$item3++;
	$p2total = $p2total + $count{$date};
    }
    my $pers1;
    my $pers2;
    my $mean2;
    if ($total != 0){$pers2=($ptotal/$total)*100;}
    if ($p2total != 0){$pers1=($ptotal/$p2total)*100;}
    if ($item3 != 0){$mean2=$ptotal/$item3;}
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$ptotal件、 初書き込み以来月平均＝";
    printf("%3.2f",$mean2);
    print "件、<br>";
    print "初書き込み以来全体の";
    printf("%3.2f%%、",$pers1);
    print "全書き込みの";
    printf("%3.2f%%",$pers2);
    print "</font>\n";
}

sub sum_data15a {
    my $filename = shift;
    my $inc=2;
    print "<font size=\"+1\">「<font color=\"$post_name_color\">$in{hname}</font>」での集計</font><p>\n";
    open(FILE,"< $filename");
    my ($num,$date,$name,$mail,$host,$today,@line);
    my $hname;
    my %count;
    my $total;
    my %personal;
    my $ptotal;
    while (<FILE>){
	chomp;
	($num,$date,$name,@line)=split(/,/);
	if ($in{perso} eq "nokeep"){
	    $name=&checkname($name);
	    $hname=&checkname($in{hname});
	} else {
	    $hname=$in{hname};
	}
	$date =~ s/^(\d?\d\d)_\d?\d_\d?\d$/$1/;
	$count{$date}++;
	$total++;
	if ($name eq $hname){
	    $personal{$date}++;
	    $ptotal++;
	}
    }
    close(FILE);
    my @item=keys(%count);
    my @item1=@item;
    @item1=sort {$a <=> $b} @item1;
    my $flag = 0;
    my @tmp = sort {$a <=> $b} values(%personal);
    my $linemax=$tmp[$#tmp];
    my $yy;
    my $width;
    my $pers;
    my $item3;
    my $p2total;
    my $rightend = 400;
    foreach my $date (@item1){
	$yy=$date;
	if ($personal{$date} == 0 && $flag == 0){next;}
	printf("%04d年 | ",$yy+1900);
	if ($linemax == 0){last;}
	$width=($personal{$date}/$linemax)*$rightend;
	if ($width != 0){
	    print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
	}
	$pers=($personal{$date}/$count{$date})*100;
	if ($personal{$date} eq ""){$personal{$date}=0;}
	print " <font color=\"#0000ee\">$personal{$date}</font>";
	printf("<font color=\"#804040\"> (%3.2f%%)</font><br>\n",$pers);
	$flag = 1;
	$item3++;
	$p2total = $p2total + $count{$date};
    }
    my $mean2;
    my $pers1;
    my $pers2;
    if ($item3 != 0){$mean2=$ptotal/$item3;}
    if ($p2total != 0){$pers1=($ptotal/$p2total)*100;}
    if ($total != 0){$pers2=($ptotal/$total)*100;}
    print "---------------------<br><font size=+1 color=\"#ee0000\">";
    print "トータル＝$ptotal件、 初書き込み以来年平均＝";
    printf("%3.2f",$mean2);
    print "件、<br>";
    print "初書き込み以来全体の";
    printf("%3.2f%%、",$pers1);
    print "全書き込みの";
    printf("%3.2f%%",$pers2);
    print "</font>\n";
}


sub subtitle {
    if ($in{ref} eq 'part'){
	if ($lang){
	    print "From Message#$in{startnum} to $in{endnum}<p>\n";
	} else {
	    print "Message#$in{startnum}から$in{endnum}まで<p>\n";
	}
    } elsif ($in{ref} eq 'timeframe'){
	my $fullsty=$in{styear}+1900;
	my $fulledy=$in{endyear}+1900;
	if ($lang) {
	    print "$in{stmon}/$in{stday}/$fullsty to $in{endmon}/$in{endday}/$fulledy<p>\n";
	} else {
	    print "$fullsty年$in{stmon}月$in{stday}日から$fulledy年$in{endmon}月$in{endday}日まで<p>\n";
	}
    }
}

sub gentmpdata {
    
    my ($filename,$tmpdata);
    
    $tmpdata = "$mbdir/tmp.$$";
    $filename = $mbdata;
    
    my $finday;
    if (($in{m1} =~ /^[13578]$/) || ($in{m1} =~ /^1[02]$/)){
	$finday = 31;
    } elsif (($in{m1} =~ /^[469]$/) || ($in{m1} == 11)){
	$finday = 30;
    } elsif ($in{m1} == 2){
	$finday = 28;
    }
    
    if ($in{ref} eq 'part'){
	open(ALLFILE,"< $filename");
	open(TMPFILE,"> $tmpdata");
	while(<ALLFILE>){
	    my ($num,@dum)=split(/,/);
	    if ($num >= $in{startnum} && $num <= $in{endnum}){
		print TMPFILE;
	    }
	    if ($num > $in{endnum}){last;}
	}
	close(ALLFILE);
	close(TMPFILE);
	$filename=$tmpdata;
    } elsif ($in{ref} eq 'timeframe'){
	open(ALLFILE,"< $filename");
	open(TMPFILE,"> $tmpdata");
	my $firstline;
	my $endline;
	if ($localtime_en) {
	    $firstline=timelocal(0,0,0,$in{stday},$in{stmon}-1,$in{styear});
	    $endline=timelocal(0,0,0,$in{endday},$in{endmon}-1,$in{endyear});
	} else {
	    $firstline=timegm(0,0,0,$in{stday},$in{stmon}-1,$in{styear});
	    $endline=timegm(0,0,0,$in{endday},$in{endmon}-1,$in{endyear});
	}
	my ($cury,$curm,$curd);
	my $curline;
	while(<ALLFILE>){
	    ($cury,$curm,$curd)=split(/_/, (split /,/)[1]);
	    if ($localtime_en) {
		$curline=timelocal(0,0,0,$curd,$curm-1,$cury);
	    } else {
		$curline=timegm(0,0,0,$curd,$curm-1,$cury);
	    }
	    if (($curline >= $firstline)&&($curline <= $endline)){
		print TMPFILE;
	    }
	    if ($curline > $endline){last;}
	}
	close(ALLFILE);
	close(TMPFILE);
	$filename=$tmpdata;
    }
    
    return ($filename,$tmpdata,$finday);
    
}

sub checkname {
    my ($name) = shift;
    
    open(NAMES,"< $namedef") || return($name);
    my @nicknames;
    my $nick;
    while(<NAMES>){
	chomp;
	(@nicknames)=split(/,/);
	foreach $nick (@nicknames){
	    if ("$name" eq "$nick"){
		close(NAMES);
		return($nicknames[0]);
	    }
	}
    }
    close(NAMES);
    return($name);
}

sub backbutton {
    my $back;
    if ($lang){
	$back = 'Back';
    } else {
	$back = '戻る';
    }
    print "<form><input type=button value=\"$back\" onClick=\"history.back()\"></form>\n";
}

sub get_firstyear {
    my @alldata = &getmbdata;
    my ($num,$datecode,@dum)=split(/,/,$alldata[$#alldata]);
    $datecode =~ /^(\d\d+)_\d+_\d+/;
    my $finyear = $1;

    open(FILE,"< $mbdata");
    my $firstdata = <FILE>;
    close(FILE);
    ($num,$datecode,@dum)=split(/,/,$firstdata);
    $datecode =~ /^(\d\d+)_/;
    my $firstyear = $1;
    return ($firstyear,$finyear);
}

#############################################################################
# Search Form mode ##########################################################
#############################################################################
sub mbschform {

    my ($firstyear,$finyear) = &get_firstyear;

    &htmlhead($mbsrctitle,$firstyear);

    my $titleprint=&titleprint("$mbsrctitle","$mbsrc_logo","$mbsrc_style","$mbsrc_color","$mbsrc_size","$mbsrc_face","$mbsrc_sel","$mbsrc_loc");

    print <<END2;
<FORM action="$script" name="search" method="post">
<input type=hidden name="mode" value="search">
$titleprint

<ul>
<li>ブランクにしている項目は無視されます。
<!-- li>日付、Message#での検索は「<a href="$mbpast">２００件以前</a>」をご利用ください。< -->
<li>本文中に「>」でインデントされている部分（返事のための引用部）は検索しません。
<li>検索結果は１ページで表\示されるので大量にマッチする検索は表\示に時間がかかります。
</ul>

<table cols=2 border=1 width="90%">
<tr>
<td width="10%" nowrap>
検索範囲
</td>
<td>
<table cols=2 border=0>
<tr>
<td colspan=2 style="border:0px">
<input type=radio name="ref" value="whole" checked>全部　
<input type=radio name="ref" value="part">Message#
<input type=text name="startnum" size=8 onFocus="document.search.ref[1].checked=true">から
<input type=text name="endnum" size=8 onFocus="document.search.ref[1].checked=true">まで
</td></tr>
<tr><td width="10%" nowrap valign="top" style="border:0px">
<input type=radio name="ref" value="timeframe">日付が
</td>
<td style="border:0px" width="10%" nowrap>
<select name="styear" onFocus="document.search.ref[2].checked=true">
END2

&optyear($firstyear,$finyear);

print <<END1;
</select>年
<select name="stmon" onFocus="document.search.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
</select>
<select name="stday" onFocus="document.search.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
	<option value="13">13
	<option value="14">14
	<option value="15">15
	<option value="16">16
	<option value="17">17
	<option value="18">18
	<option value="19">19
	<option value="20">20
	<option value="21">21
	<option value="22">22
	<option value="23">23
	<option value="24">24
	<option value="25">25
	<option value="26">26
	<option value="27">27
	<option value="28">28
	<option value="29">29
	<option value="30">30
	<option value="31">31
</select>日から<br>
<select name="endyear" onFocus="document.search.ref[2].checked=true">
END1

&optyear($firstyear, $finyear);

print <<END2;
</select>年
<select name="endmon" onFocus="document.search.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
</select>
<select name="endday" onFocus="document.search.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
	<option value="13">13
	<option value="14">14
	<option value="15">15
	<option value="16">16
	<option value="17">17
	<option value="18">18
	<option value="19">19
	<option value="20">20
	<option value="21">21
	<option value="22">22
	<option value="23">23
	<option value="24">24
	<option value="25">25
	<option value="26">26
	<option value="27">27
	<option value="28">28
	<option value="29">29
	<option value="30">30
	<option value="31">31
</select>日まで
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="10%" nowrap>名前でサーチ</td>
<td width="70%">
<input type=text name="name" size="30"><br>
<input type=hidden name="perso" value="keep">
<input type=radio name="name_plus" value="and" checked>AND　
<input type=radio name="name_plus" value="or">OR<br>
</td>
</tr>
<tr>
<td width="10%" nowrap>タイトルでサーチ</td>
<td width="70%">
<input type=text name="title" size="30"><br>
<input type=radio name="title_plus" value="and" checked>AND　
<input type=radio name="title_plus" value="or">OR<br>
</td>
</tr>
<tr>
<td width="10%" nowrap>本文でサーチ</td>
<td width="70%">
<input type=text name="main1" size="50"><br>
<input type=radio name="main1_plus" value="and" checked>AND　
<input type=radio name="main1_plus" value="or">OR<br>
<input type=text name="main2" size="50"><br>
<input type=radio name="main2_plus" value="and" checked>AND　
<input type=radio name="main2_plus" value="or">OR<br>
<input type=text name="main3" size="50"><br>
</td>
</tr>

<tr>
<td>　</a></td>
<td><input type="submit" value="　サーチ　">　<input type="reset" value="　クリア　"></td>
</tr>
</table><p>
<a href="$mbread">メッセージボードへ</a>
</form>

</BODY>
</HTML>
END2

}

#############################################################################
# Search mode ###############################################################
#############################################################################
sub mbsearch {

    my ($filename,$tmpdata) = &gentmpdata;
    
    my $name = $in{name};
    my $title = $in{title};
    my $main1 = $in{main1};
    my $main2 = $in{main2};
    my $main3 = $in{main3};

    foreach ($name, $title, $main1, $main2, $main3) {
# 正規表現のスペシャルな文字に関してエスケープする。
# \=%5C, (=%28, )=%29, [=%5B, ]=%5D, |=%7C
# ?=%3F, +=%2B, ^=%5E, $=%24, {=%7B, }=%7D
# 圭=%8C%5C、表=%95%5C、ー=%81%5B、望=%96%5D、
# 評=%95%5D、従=%8F%5D、転=%93%5D、余=%97%5D、ゾ=%83%5D、犠=%8B%5D、

	s/([\W])/sprintf("%%%02X", ord($1))/eg;

	s/%5[BCDE]/%5c$&/gi;
	s/%2[489B]/%5c$&/gi;
	s/%3F/%5c$&/gi;
	s/%7[BCD]/%5c$&/gi;
	s/[\.\*]/%5c$&/g;
	
	s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg;
    }

    &htmlhead("$mbsrctitle");
    
    &backbutton;
    
    open(FILE,"< $filename") || "die Cannot open file\n";
    
    print "<ul>\n";
    
    while (<FILE>){
	
	chomp;
	
	my $nameres = "false";
	my $titleres = "false";
	my $main1res = "false";
	my $main2res = "false";
	my $main3res = "false";
	my ($lnum,$ldcode,$lname,$lmadd,$lip,$ldate,$ltitle,$lmain,$lencpwd,$limagefile)=split(/,/);
	$lmain =~ s/\&gt\;[^<]*<br>//g;

	($name ne '') && ("$lname" =~ /$name/) && ($nameres = 'true');
	($title ne '') && ("$ltitle" =~ /$title/) && ($titleres = 'true');
	($main1 ne '') && ("$lmain" =~ /$main1/) && ($main1res = 'true');
	($main2 ne '') && ("$lmain" =~ /$main2/) && ($main2res = 'true');
	($main3 ne '') && ("$lmain" =~ /$main3/) && ($main3res = 'true');
	
	if (($nameres eq 'false') && ($titleres eq 'false') && ($main1res eq 'false') && ($main2res eq 'false') && ($main3res eq 'false')) {next;}
	
	if (($nameres eq 'false' || $titleres eq 'false') && $in{name_plus} eq 'and' && $name ne '' && $title ne ''){next;}
	if (($nameres eq 'false' || $main1res eq 'false') && $in{name_plus} eq 'and' && $name ne '' && $main1 ne ''){next;}
	if (($nameres eq 'false' || $main2res eq 'false') && $in{name_plus} eq 'and' && $name ne '' && $main2 ne ''){next;}
	if (($nameres eq 'false' || $main3res eq 'false') && $in{name_plus} eq 'and' && $name ne '' && $main3 ne ''){next;}
	
	if (($titleres eq 'false' || $main1res eq 'false') && $in{title_plus} eq 'and' && $title ne '' && $main1 ne ''){next;}
	if (($titleres eq 'false' || $main2res eq 'false') && $in{title_plus} eq 'and' && $title ne '' && $main2 ne ''){next;}
	if (($titleres eq 'false' || $main3res eq 'false') && $in{title_plus} eq 'and' && $title ne '' && $main3 ne ''){next;}
	
	if (($main1res eq 'false' || $main2res eq 'false') && $in{main1_plus} eq 'and' && $main1 ne '' && $main2 ne ''){next;}
	if (($main1res eq 'false' || $main3res eq 'false') && $in{main1_plus} eq 'and' && $main1 ne '' && $main3 ne ''){next;}
	
	if (($main2res eq 'false' || $main3res eq 'false') && $in{main2_plus} eq 'and' && $main2 ne '' && $main3 ne ''){next;}
	
	
	print "<li>";
	if ($name ne ''){$lname =~ s/($name)/<b>$1<\/b>/g;}
	print "<a href=\"$script?mode=print&message=$lnum\">#$lnum</a>";
	print ", ", $lname, ", ";
	if ($title ne ''){$ltitle =~ s/($title)/<b>$1<\/b>/g;}
	my $disp_subject = &subject_text($ltitle);
	print "<font color=\"$post_title_color\">", $disp_subject, "</font>";
	my @ldlist = split(/_/,$ldcode);

	printf(" &#44;%d年%d月%d日<br>\n",$ldlist[0]+1900,$ldlist[1],$ldlist[2]);

	$lmain =~ s/<br>/ /g;
	if ($main1 ne '' && $lmain =~ $main1){
	    $lmain =~ m/($main1)/g;
	} elsif ($main2 ne '' && $lmain =~ $main2){
	    $lmain =~ m/($main2)/g;
	} elsif ($main3 ne '' && $lmain =~ $main3){
	    $lmain =~ m/($main3)/g;
	}
	my $position = pos($lmain);
	if ($position < 100) {$position = 100;}
	$lmain = substr($lmain,$position-100,200);
	
	my $lmain1 = $lmain;
	my $taillmain = chop($lmain1);
	my $taillmain2 = substr($lmain1,-1);
	my $tailhex = unpack("C",$taillmain);
	my $tailhex2 = unpack("C",$taillmain2);
	my $lastchar = $tailhex2 * 0x100 + $tailhex;

	if (!(
#	    $tailhex >= 0x21 && $tailhex <= 0x7e || 
#	    $tailhex >= 0xa1 && $tailhex <= 0xdf || 
	    $lastchar >= 0x8140 && $lastchar <= 0x84be ||
	    $lastchar >= 0x889f && $lastchar <= 0x9872 ||
	    $lastchar >= 0x989f && $lastchar <= 0x9ffc)){
		$lmain = $lmain1;
	}
	my $headlmain = substr($lmain,0,1);
	my $headlmain2 = substr($lmain,1,1);
	my $lmain2 = substr($lmain,1);
	my $headhex = unpack("C",$headlmain);
	my $headhex2 = unpack("C",$headlmain2);
	my $headchar = $headhex * 0x100 + $headhex2;

	if (!($headchar >= 0x8140 && $headchar <= 0x84be ||
	    $headchar >= 0x889f && $headchar <= 0x9872 ||
	    $headchar >= 0x989f && $headchar <= 0x9ffc)){
		$lmain = $lmain2;
	}

	if ($main1 ne ''){$lmain =~ s/($main1)/<b>$1<\/b>/g;}
	if ($main2 ne ''){$lmain =~ s/($main2)/<b>$1<\/b>/g;}
	if ($main3 ne ''){$lmain =~ s/($main3)/<b>$1<\/b>/g;}

	print $lmain, "<p>\n";
    }
    
    print "</ul>\n";
    
    close(FILE);
    
    &backbutton;
    
    &htmltail;
    
    unlink("$tmpdata") if ("$tmpdata");;
    
    exit;
    
}

#############################################################################
# Archive Form mode #########################################################
#############################################################################
sub mbarchform {

    opendir(ARCHDIR, "$mbdir") or &error("$mbdirが開けません。");
    my @dircontents = readdir(ARCHDIR);
    closedir(ARCHDIR);
    my @old_archfiles;
    push @old_archfiles, grep /^mb.*\.html$/, @dircontents;
    push @old_archfiles, grep /^mb.*\.zip$/, @dircontents;
    my $now = time;
    my $expire = 60;
    foreach my $oldfile (@old_archfiles){
	my ($d_dev,$d_ino,$d_mode,$d_nlink,$d_uid,$d_gid,$d_rdev,$d_size,$d_atime,$d_mtime,$d_ctime,$d_blksize,$d_blocks)=stat("$mbdir/$oldfile");
	if ($now > $d_mtime + $expire * 60){
	    unlink("$mbdir/$oldfile");
	}
    }

    &htmlhead($mbarctitle);

    my $titleprint=&titleprint("$mbarctitle","$mbarc_logo","$mbarc_style","$mbarc_color","$mbarc_size","$mbarc_face","$mbarc_sel","$mbarc_loc");

print <<END2;
$titleprint

<hr>
このページでメッセージボードのアーカイブを作成できます。
下の項目から一つを選び、条件を入力して「作成」をクリックしてください。HTML,圧縮ファイル名は変更できます。ダウンロード後、WinZip等で解凍してブラウザでご覧ください（圧縮はzipで行われています）。作成されたメッセージは、古い順になっています。圧縮ファイルは２００件で約３０ＫＢ、１０００件で約１５０ＫＢになります。画像も同時にアーカイブされます。
<form method="post" name="arch" action="$script">
<input type=hidden name="mode" value="archive">
<br>
<table cols=2 width="70%" border=0 align="center">
<tr>
<td width="5%" align="center" style="border:0px"><input type="radio" name="choice" value="new200" ></td>
<td style="border:0px">最新２００件</td>
</tr>
<tr>
<td width="5%" align="center" style="border:0px"><input type="radio" name="choice" value="tillnew" ></td>
<td nowarp style="border:0px">Message#<input type="text" size=6 name="start1"  onFocus="document.arch.choice[1].checked=true;">から最新メッセージまで</td>
</tr>
<tr>
<td width="5%" align="center" style="border:0px"><input type="radio" name="choice" value="fromto" ></td>
<td nowrap style="border:0px">Message#<input type="text" size=6 name="start2"  onFocus="document.arch.choice[2].checked=true;">からMessage#<input type="text" size=6 name="end2"  onFocus="document.arch.choice[2].checked=true;">まで </td>
</tr>
<tr>
<td width="5%" align="center" style="border:0px"></td>
<td style="border:0px"><input type="submit" value="作成">　<input type="reset" value="クリア"></td>
</tr>
</table>
</form>
<hr>
<a href="$mbread">メッセージボードへ</a>

END2

&htmltail;

}
#############################################################################
# Archive mode ##############################################################
#############################################################################
sub mbarch {

    my $outfile="$mbdir/mb$$.html";
    my $zipfile="$mbdir/mb$$.zip";

    my $to;
    my $from;
    if ($in{choice} eq "new200") {
	$to=&newnum;
	$from=$to-199;
	if ($from < 1) {$from = 1;}
	
    } elsif ($in{choice} eq "tillnew") {
	$to=&newnum;
	$from=$in{start1};
	
    } elsif ($in{choice} eq "fromto") {
	$to=$in{end2};
	$from=$in{start2};
    } else {
	&error(("どれか選択した後「作成」をクリックしてください。",
		"Select one of them and click generate")[$lang]);
    }

    my $infile = $mbdata;

    my @imagelist = &printmb($from,$to,$infile,$outfile);
    chmod(0666,"$outfile");
    if (-e $zipfile){unlink($zipfile);}

    my $zip = Archive::Zip->new();
    $zip->addFile("$outfile");
    foreach (@imagelist) {$zip->addFile("$imagedir/$_", "$_")}
    my $status = $zip->writeToFileNamed("$zipfile");
    if ($status != 'AZ_OK') {
	unlink("$zipfile") if (-e "$zipfile");
	&error("$zipfileが作成されませんでした。") ;
    }

    chmod(0666,"$zipfile");
#    print $q->header(-type=>'application/octet-stream',-attachment=>"$zipfile");
    print "Location: $zipfile\n\n";
}

sub newnum {
    my ($fin,@dummy);
    open(FILE,"< $mbdata");
    while (<FILE>){
	($fin,@dummy)=split(/,/);
    }
    close(FILE);
    return($fin);
}

sub printmb {
    my ($from,$to,$infile,$outfile)=@_;
    
    my $titleprint=&titleprint("$mbtitle","$mblogo","$logo_style","$logo_color","$logo_size","$logo_face","$logo_sel","$logo_loc");
    
    open(OUTMB,">$outfile") or &error(("テンポラリーファイルが作成されませんでした。","Failed to generate a temporary file.")[$lang]);
    print OUTMB &htmlhead($mbtitle);
    print OUTMB "$titleprint\n";
    
    if ($in{choice} eq "unread"){
	print OUTMB "<center><h3>未読分</h3></center>\n";
    } elsif ($in{choice} eq "new200") {
	print OUTMB "<center><h3>$from - $to（最新２００件）</h3></center>\n";
    } elsif ($in{choice} eq "tillnew") {
	print OUTMB "<center><h3>$from - $to（最新まで）</h3></center>\n";
    } elsif ($in{choice} eq "fromto") {
	print OUTMB "<center><h3>$from - $to</h3></center>\n";
    }
    
    print OUTMB "<p><hr>\n";

    my @imagelist;
    open(INMB,"< $infile");
    while(<INMB>){
	my ($number,$datecode,$name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile,$user_name_color,$user_title_color,$user_text_color)=split(/,/);
	if ($number >= $from && $number <= $to){
	    chomp;
	    print OUTMB &display_one_message($_);
	    push(@imagelist, $imagefile) if (-f "$imagedir/$imagefile");
	}
    }
    close(INMB);

    print OUTMB &copyright;
    print OUTMB "</td></tr></table>\n";
    print OUTMB "</body>\n";
    print OUTMB "</html>\n";
    
    close(OUTMB);
    return (@imagelist);
}

#############################################################################
# Past mode #################################################################
#############################################################################
sub mbpast {

    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = $localtime_en ? local_time(time) : gmtime(time+$offset*3600);

    my @alldata;
    open(FILE,"< $mbdata");
    while(<FILE>){
	push(@alldata,$_);
	if ($#alldata >= 201){
	    shift(@alldata);
	}
    };
    close(FILE);
    my $fin = $alldata[0];
    shift(@alldata);

    my ($endline,$findate,@dummy)=split(/,/,$fin);
    my ($finyy,$finmm,$findd)=split(/_/,$findate);
    my $how = 1;
    my $endline2=$endline;
    
    my $ago;
    my $lin;
    my $start;
    my $t;
    if ($ENV{"REQUEST_METHOD"} eq "GET"){
	$ago=$in{number};
	$lin = 99;
	if ($in{number} ne ""){
	    $endline = $in{number};
	    $lin=$in{lin};
#		if ($in{title} eq 'on'){$t='title';}
	}
	$start = $endline - $lin;
	if ($in{title} eq 'on'){$t='title';}
	
    } elsif ($ENV{"REQUEST_METHOD"} eq "POST"){
	if ($in{title} eq 'on'){$t = 'title'};
	if ($in{see1} ne ""){
	    $ago=$in{endline};
	    my $tmpline = $endline;
	    $endline=$ago;
	    $lin = $in{start} - 1;
	    $start=$ago - $lin;
	}
	if ($in{see2} ne ""){
	    my $yy=$in{yy};
	    my $mm=$in{mm};
	    my $dd=$in{dd};
	    my $how=$in{how};
	    my $finyy = $yy;
	    my $finmm = $mm;
	    my $findd = $dd;
	    $in{start}="";
	    $in{endline}="";
	    my $lin = 99;
	    my $fromtime=timelocal($sec,$min,$hour,$dd,$mm-1,$yy,$wday,$yday,$isdst);
	}
    }
    if ($start < 1){
	$start = 1;
    }
    
    my @pastdata=();
    my @numlist=();
    my @continiouslist;
    if ($in{mode} eq 'print'){
	@numlist=split(/\&\#44;/,$in{message});
	@continiouslist = grep(/-/,@numlist);
	@numlist = grep(!/-/,@numlist);
	my ($aa, $bb);
	foreach (@continiouslist){
	    ($aa,$bb) = split(/-/);
	    ($aa,$bb) = sort {$a <=> $b} ($aa,$bb);
	    foreach my $cc ($aa .. $bb){push(@numlist,$cc);}
	}
	@numlist = sort {$a <=> $b} @numlist;
    }
    
    my $pastfile = $mbdata;
    
    open(ALL,"<$pastfile");
    my ($number,$dates);
    my $ld;
    my $dd;
    my $mm;
    my $yy;
    my $thattime;
    my $mm2;
    my $fromtime;
    while(<ALL>){
	chomp;
	($number,$dates,@dummy)=split(/,/);
	if ($in{mode} eq 'print'){
	    if (grep(/^$number$/,@numlist)){
		push(@pastdata,$_);
	    }
	} else {
	    if (($in{see1} ne "") || ($ENV{"REQUEST_METHOD"} eq "GET")){
		if ($number >= $start && $number <= $endline){
		    push(@pastdata,$_);
		}
	    } elsif ($in{see2} ne ""){
		for($ld=0;$ld<$how;$ld++){
		    $thattime = $fromtime - $ld*86400;
		    ($sec,$min,$hour,$dd,$mm,$yy,$wday,$yday,$isdst)=gmtime($thattime);
		    $mm2=$mm+1;
		    if ("${yy}_${mm2}_${dd}" eq $dates){
			push(@pastdata,$_);
		    }
		}
	    }
	}
    }
    close(ALL);
    
    @pastdata = reverse(@pastdata);

    &htmlhead($mbtitle);
    
    print "$body_insert1" if ($body_insert1_en == 1);

    print "<form type=\"text\" method=\"post\" action=\"$script\">\n";
    print "<input type=\"hidden\" name=\"mode\" value=\"past\">\n";
    print "<center><input type=\"checkbox\" name=\"title\"";
    if ($t eq 'title') {print "checked"};
    print ">タイトル ";
    if ($image_en) {
	print "<input type=\"checkbox\" name=\"imlist\"";
	if ($t eq 'imlist') {print "checked"};
	print ">画像";
    }
    print "<br>";
    print "Message#";
    print "<input type=\"text\" size=6 name=\"endline\" value=\"$in{endline}\">";
    print "から前";
    print "<select name=\"start\">";
    my $ss;
    foreach $ss (200,100,50,10){
	if ($ss == $in{start}){
	    print "<option value=\"$ss\" selected>$ss";
	} else {
	    print "<option value=\"$ss\">$ss";
	}
    }
    print "</select>";
    print "件を";
    print "<input type=\"submit\" name=\"see1\" value=\"見る\"></center><br>";
    print "<center><select name=\"yy\">";
    my ($ly, $lm, $lh, $start2, $count, $datecode);
    foreach $ly (97 .. $year){
	if ($ly == $finyy){
	    printf("<option value=\"%d\" selected>%02d\n",$ly,$ly%100);
	} else {
	    printf("<option value=\"%d\">%02d\n",$ly,$ly%100);
	}
    }
    print "</select>年\n";
    
    print "<select name=\"mm\">";
    foreach $lm (1 .. 12){
	if ($lm == $finmm){
	    print "<option value=\"$lm\" selected>$lm";
	} else {
	    print "<option value=\"$lm\">$lm";
	}
    }
    print "</select>月\n";
    
    print "<select name=\"dd\">";
    foreach $ld (1 .. 31){
	if ($ld == $findd){
	    print "<option value=\"$ld\" selected>$ld";
	} else {
	    print "<option value=\"$ld\">$ld";
	}
    }
    print "</select>日から\n";
    
    print "<select name=\"how\">";
    foreach $lh (1 .. 5, 7, 10){
	if ($lh == $how){
	    print "<option value=\"$lh\" selected>${lh}日分";
	} else {
	    print "<option value=\"$lh\">${lh}日分";
	}
    }
    print "</select>";
    
    print "前を";
    print "<input type=\"submit\" name=\"see2\" value=\"見る\"></center>";
    print "</form><br>";
    
    print "$body_insert4" if ($body_insert4_en == 1);

    @alldata = &getmbdata;
    my @day_before = &get_before_data(@alldata);
    &disphead(0,@day_before);
    
#    print "<table cols=1 border=0 width=\"${body_width}%\" align=\"center\"><tr><td style=\"border:0px\">\n";
    
    if ($start != 1 && $in{mode} ne 'print'){
	$start2=$start-1;
	if ($endline2 >= $ago){
	    if ($t eq 'title') {
		print "<a href=\"$mbpast&number=$start2&lin=99&title=on\">更に前１００件</a>　";
	    } else {
		print "<a href=\"$mbpast&number=$start2&lin=99\">更に前１００件</a>　";
	    }
	}
    }
    
    print "<hr>";
    if (($t eq 'title' or $t eq 'imlist') && $lin != 0) {print "<ul>\n";};
    my ($name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile,$user_name_color,$user_title_color,$user_text_color);
    foreach $count (0 .. $#pastdata){
	($number,$datecode,$name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile,$user_name_color,$user_title_color,$user_text_color)=split(/,/,$pastdata[$count]);
	
	if (($t eq 'title' or $t eq 'imlist') && $lin != 0) {
	    &display_one_title($pastdata[$count]);
	} else {
	    &display_one_message($pastdata[$count]);
	}
    }
    if (($t eq 'title' or $t eq 'imlist') && $lin != 0) {print "</ul><hr>\n";};

    if ($start != 1 && $in{mode} ne 'print'){
	$start2=$start-1;
	if ($endline2 >= $ago){
	    if ($t eq 'title') {
		print "<a href=\"$mbpast&number=$start2&lin=99&title=on\">更に前１００件</a>　";
	    } else {
		print "<a href=\"$mbpast&number=$start2&lin=99\">更に前１００件</a>　";
	    }
	}
    }
    
    print "</td></tr></table>\n";
    
    &disptail;
    
    &htmltail;
}

#############################################################################
# namedef form mode #########################################################
#############################################################################
sub mbnamedef {

  &setadminpwd if ($in{pwd} eq '');
  &error('管理用パスワードが違います。') unless &checkadmin($in{pwd});

  &checkadmin($in{pwd});

  &htmlhead('namedef form');

  print "<FORM action=\"$script\" method=\"post\">\n";
  print "<input type=hidden name=mode value=namedefwr>\n";

  my @namelist;
  if (open(NAMEDEF,"< $namedef")){
	@namelist=<NAMEDEF>;
	close(NAMEDEF);
    }
  my $datanum=$#namelist;

print <<EXPLAIN;
統計の個人名方式で「人物」を選んだ場合に違う名前を同一人物と判断させることができます。<br>
namedef.datにそれらの名前を人物ごとに１行に登録されていると一番左の名前が代表\として表\示されます。<br>
例：以下はnamedef.datの内容の例です。<br>
　　----------------------------------------<br>
　　管理人,作成者,かんりにん<br>
　　ホークス,hawks<br>
　　----------------------------------------<br>
この例では、「作成者」「かんりにん」共に「管理人」と同一人物としてまとめて集計されます。<br>
「ホークス」は改行されているので管理人と別人として判断されますが、「hawks」とは同一人物となります。<br>
namedef.datがない場合は、書き込みの名前そのままで集計されます。<br>
各名前は、半角カンマで区切ってください。<br>
同一人物名のリストに表\示名を含む必要はありません。
<p>

EXPLAIN

    print "<table cols=2 border=1>\n";
print "<tr><th>表\示名</th><th>表\示名とみなされる同一人物名のリスト</th></tr>\n";
my $i=0;
my $main_name;
my $sub_name;
foreach (@namelist){
	s/[\n\r]*$//; # instead of a chomp
	/^([^,]+),(.+)$/;
	$main_name = $1;
	$sub_name=$2;
	print "<tr>\n";
	print "<td width=\"20%\">\n";
	print "<input type=text name=\"main_$i\" value=\"$main_name\" size=20>\n";
	print "</td>\n";
	print "<td>\n";
	print "<input type=text name=\"sub_$i\" value=\"$sub_name\" size=70>\n";

	print "</td>\n";
	print "</tr>\n";
	$i = $i + 1;
}

my $i2;
for ($i2=$i;$i2<$i+3;$i2=$i2+1){
	print "<tr>\n";
	print "<td width=\"20%\">\n";
	print "<input type=text name=\"main_$i2\" size=20>\n";
	print "</td>\n";
	print "<td>\n";
	print "<input type=text name=\"sub_$i2\" size=70>\n";

	print "</td>\n";
	print "</tr>\n";
}

print "<tr><td>管理人パスワード</td>\n";
print "<td><input type=password name=pwd size=20><input type=submit name=define value=\"登録\"></td></tr>\n";

print "</table>\n";

print "</form>\n";
print "</body></html>\n";

}

#############################################################################
# namedef write mode #########################################################
#############################################################################
sub mbnamedefwr {

    &error("管理人パスワードが違います。") unless &checkadmin($in{pwd});

    my @numbers;
    foreach (keys(%in)){
	/main_(\d+)/ && push(@numbers,$1);
    }
    @numbers = sort {$a <=> $b} @numbers;
    
    open(FILE,"> $namedef");

    my $main;
    my $sub;
    foreach (@numbers){
	$main = "main_$_";
	if ("$in{$main}" eq ''){next;}
	$sub = "sub_$_";
	$in{$sub} =~ s/&#44;/,/g;
	$in{$sub} =~ s/&gt;/>/g;
	$in{$sub} =~ s/&lt;/</g;
	$in{$main} =~ s/&gt;/>/g;
	$in{$main} =~ s/&lt;/</g;
	print FILE "$in{$main},$in{$sub}\n";
    }
    
    close(FILE);

    print $q->redirect("$mbsumfm");
#    print "Location: $mbsumfm\n\n";
}

#############################################################################
# 携帯モード read mode ##########################################################
#############################################################################
sub mbiread {

    my @alldata = &getmbdata;
    @alldata = reverse(@alldata);

    print "Content-Type: text/html\n\n";

    my $mesnum = $in{number};

    my $next = $mesnum + 1;
    if ($next > 199){$next = 199};
    my $prev = $mesnum - 1;
    if ($prev < 0){$prev = 0;}
    
    print "<html>";
    print <<HEADPRINT;
<HEAD><TITLE>MB read</TITLE></HEAD>
HEADPRINT
print "<BODY><center>";

    print "<a href=\"$mbiwrform\">書く</a> \n";
    if ($mesnum != 0)	{
	print "<a href=\"$mbiread&number=$prev\">↑</a>\n";
    } else {
	print "↑\n";
    }
    
    if ($mesnum != $#alldata){
	print "<a href=\"$mbiread&number=$next\">↓</a>\n";
    } else {
	print "↓\n";
    }
    print "<br>";
    print "<a href=\"$top_link\">$top_link_title</a> \n";
    print "<a href=\"$mbiread\">最新</a></center>\n<hr>\n";
    
    my ($number,$datecode,$name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile)=split(/,/,$alldata[$mesnum]);
    
    print "#${number} ";
    my @darray = split(/[^\d]/,$date);
    my $dy = $darray[0]+1900;
    $date =~ s/^\d?\d\d([^\d]..*)$/$dy$1/;
    print "$date<br>";
    print "From: $name";
    if ($namesan_en == 1){
	print "$namesan";
    }
    print "<br>\n";
    my @sub2=split(/Re:/,$subject);
    if ($#sub2 > 1){
	print "Subject: Re$#sub2:$sub2[$#sub2]";
    } else {
	print "Subject: $subject";
    }
    print " [<a href=\"$mbires&number=${number}\">返事</a>]<p>\n";
#print " [返事]<p>";
    
    print "<table cols=1 border=0><tr><td style=\"border:0px\">\n";
    
    if ($imode_image == 1 && $imagefile ne '' && -e "$imagedir/$imagefile"){
	my ($imagefile,$width,$height)=&get_image_size($imagefile,$imode_image_x,$imode_image_y);
	
	print &image_tag($imagefile,$width,$height);
	print "<br>\n";
    }
    
    my @mainarry=split(/<[bB][rR]>/,$main);
    
    my $endline;
    foreach my $eachline (@mainarry){
	$eachline = &replace_link($eachline,$number);
	$eachline = &replace_tag($eachline);
	if($eachline =~ /^(\&gt;)(.*)$/){
	    print "<font color=\"$quate_color\">$1$2</font>";
	} else {
	    print "$eachline";
	}
	print "<br>";
    }
    
    print "\n</td></tr></table>\n";
    
    print "\n<hr>\n";
    print "<center><a href=\"$mbiwrform\">書く</a> \n";
    if ($mesnum != 0)	{
	print "<a href=\"$mbiread&number=$prev\">↑</a>\n";
    } else {
	print "↑\n";
    }
    
    if ($mesnum != $#alldata){
	print "<a href=\"$mbiread&number=$next\">↓</a>\n";
    } else {
	print "↓\n";
    }
    
    print "</center>\n";
    &htmltail;
}

#############################################################################
# 携帯モード Write mode #########################################################
#############################################################################
sub mbiwrite {

    &lockfile;

    my $max=200;

    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
	$localtime_en ? localtime(time) : gmtime(time+$offset*3600);
    my @wday_array = ('日','月','火','水','木','金','土');
    my $date_now = sprintf("%02d年%01d月%01d日(%s)%02d時%02d分",$year,$mon +1,$mday,$wday_array[$wday],$hour,$min);

    my $rmon=$mon+1;
    my $datecode="${year}_${rmon}_${mday}";

    my @alldata;
    my $number;
    my @dummy;
    if (! -e "$mbdata"){
	$number = 1;
    } else {
	@alldata = &getmbdata;
	($number,@dummy)=split(/,/,$alldata[$#alldata]);
	$number = $number + 1;
    }

    my $host = $ENV{'REMOTE_HOST'};
    my $ip = $ENV{'REMOTE_ADDR'};

    my $encpwd;
    if ($in{pwd} ne '') {
	$encpwd = &makecrypt($in{pwd});
    } else {
	$encpwd = '';
    }

    my $main=$in{main};

    if ($in{name} eq "" || $in{subject} eq "") {
	&error('名前とタイトルは必ず書いてください。');
    }
    
    if ($member_only == 1 && ($in{member_pwd} ne "$member_pwd")) {
	&error('メンバー専用パスワードが違います。');
    }
    
    if ($in{addr} =~ /[^$mail_pattern]/){
	my $message = ('無効なメールアドレスです','Invalid mail address')[$lang];
	&error("$in{addr}:$message");
    }

    open(FILE,">>$mbdata") || &error("$mbdataを開けません。");
    print FILE "$number,$datecode,$in{name},$in{addr},${ip}_${host},$date_now,$in{subject},$main,$encpwd\n";
    close(FILE);
    
    chmod(0666,"$mbdata");
    
    print "Content-Type: text/html\n\n";
    
    print "<html><body>";
    print "<center>書き込みました。<br>";
    print "<a href=\"$mbiread\">読むへ</a></body></html>";
    
    &extraupdate;
    
    &unlockfile;
}

#############################################################################
# 携帯モード Write Form mode ####################################################
#############################################################################
sub mbiwrform {

print "Content-Type:text/html\n\n";

print <<END;
<HTML><HEAD><TITLE>MB Write</TITLE></HEAD>
<BODY>
<FORM action="$script" method="post">
<input type=hidden name="mode" value="iwrite">
名前（必須）
<BR><INPUT type="text" size="30" name="name">
<BR>タイトル（必須）
<BR><INPUT type="text" size="30" name="subject">
<P>内容
<BR><TEXTAREA rows="15" cols="30" name="main" wrap=soft></TEXTAREA><p>
END

&mbipwd_form;

print <<END3;
<P><INPUT type="submit" value="書く">
<BR>
</form>
</BODY>
</HTML>
END3

}

sub mbipwd_form {
    my $member_pwd = $q->cookie('member_pwd');

    if ($member_only == 1){
	print <<END3;
管理人から与えられたメンバー専用パスワード（半角英数で）
<BR><INPUT type=\"text\" size=\"20\" name=\"member_pwd\" value=$member_pwd>
<p>
END3
	}
    
    my $cook_pwd = $q->cookie('mypwd');
    
    if ($delete_en == 1 || $modify_en == 1){
	print <<END2;
削除修正用個人パスワード（半角英数で）
<BR><INPUT type=\"text\" size=\"20\" name=\"pwd\" value="$cook_pwd">
<p>
END2
	}
    
}

#############################################################################
# 携帯モード Res Form mode ######################################################
#############################################################################
sub mbiresform {

    my $resnum = $in{number};

    my @alldata = &getmbdata;

    my @resdata = grep(/^$resnum,/,@alldata);

    my ($resnumber,$rescode,$resname,$resmail,$reshost,$resdate,$ressubject,$resmain,$resencpwd,$resimagefile)=split(/,/,$resdata[0]);

    print "Content-Type: text/html\n\n";

    print <<END1;
<HTML><HEAD><TITLE>MB res</TITLE>
</HEAD>
<BODY>
<FORM action=\"$script\" method=\"post\">
<input type=hidden name="mode" value="iwrite">
名前（必須）
<BR><INPUT type=\"text\" size=\"30\" name=\"name\">
<br>タイトル（必須）
<BR><INPUT type=\"text\" name=\"subject\" size=\"30\" value=\"Re:$ressubject\">

<P>内容
<BR><TEXTAREA rows=\"15\" cols=\"30\" name=\"main\" wrap=soft>
END1

    @resdata=split(/<[bB][rR]>/,$resmain);

    print "$resname";
    if ($ressan_en == 1){
	print "$ressan";
    }
    print "のメッセージ(#$resnumber)への返事\n\n";

    foreach (@resdata){
	s/<a..*>(http..*)<\/a>/$1/;
	print "&gt; $_\n";
    }
    
    print "</TEXTAREA><p>";
    
&mbipwd_form;

    print <<END3;
<P><INPUT type=\"submit\" value=\"書く\">
<BR>
</form>
</BODY>
</HTML>
END3

}
#############################################################################
# SSI mode ##################################################################
#############################################################################
sub mbssi {

    my @alldata = &getmbdata;
    @alldata = reverse @alldata;

    print "Content-Type: text/html\n\n";

    my $i;
    for ($i=0;$i<$ssiken;$i++){

	my ($number,$datecode,$name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile)=split(/,/,$alldata[$i]);
	
	print "<table cols=1 border=0 width=\"100%\"><tr>";
	my @darray = split(/[^\d]/,$date);
	print "<td style=\"border:0px\">#${number}, ";
	my $dy = $darray[0]+1900;
	$date =~ s/^\d?\d\d([^\d]..*)$/$dy$1/;
	$subject = &subject_text($subject);
	print ", $name";
	if ($namesan_en == 1){
	    print "$namesan";
	}
	
	print ", $date";
	
	my @mainarry=split(/<br>/i,$main);
	
	print "</td></tr>\n";
	
	print "<tr><td valign=top style=\"border:0px\">";
	
	my $newwin;
	if ($ssiimage_en and $imagefile and -e "$imagedir/$imagefile"){
	    if ($image_samewin_en == 1){
		$newwin = '';
	    } else {
		$newwin = 'target="_blank"';
	    }
	    my ($imagefile,$w,$h)=&get_image_size($imagefile,$ssiimage_w,$ssiimage_h);
	    print "<a href=\"$httpcgibin/$imagefile\" $newwin>";
	    print &image_tag("$httpcgibin/$imagefile",$w,$h);
	    print "</a><br>\n";
	}
	
	my $endline;
	if ($#mainarry < $in{line}-1){
	    $endline = $#mainarry;
	} else {
	    $endline = $in{line}-1;
	}
	
	my $eachline;
	foreach (0 .. $endline){
	    $eachline = $mainarry[$_];
	    $eachline = &replace_link($eachline,$number);
	    $eachline =~ s/\(\#(\d+)\)/\(<a href=\"$httpcgibin\/$mbprint&message=$1\">\#$1<\/a>\)/g;
	    $eachline =~ s/(Message)\#(\d+)/<a href=\"$httpcgibin\/$mbprint&message=$2\">$1\#$2<\/a>/ig;
	    $eachline = &replace_tag($eachline);
	    if($eachline =~ /^(\&gt;)(.*)$/){
		print "<font color=\"$quate_color\">$1$2</font>";
	    } else {
		print "$eachline";
	    }
	    print "<br>";
	}
	print "</td></tr>";
	print "</table>\n";
    }
    print "<a href=\"$httpcgibin/$mbread\">$gotomb</a>";
    
}


sub postprocess {
    my (%in) = @_;

    my ($key, $value);
    
    while (($key,$value)=each %in){
	if ($key eq 'imagefile'){next;}
	
	my $br;
	if ($key ne 'main' && $key ne 'style_sheet' && $key !~ /insert/){
	    $br = "";
	} else {
	    $br = "<br>";
	}
	
	$value =~ s/&gt;/&\#62;/g;  # When $tag_use==1, to be able to write <...>
	$value =~ s/&lt;/&\#60;/g;  # When $tag_use==1, to be able to write <...>
	$value =~ s/</&lt;/g;
	$value =~ s/>/&gt;/g;
	if ($value =~ /\r\n/) { $value =~ s/\r\n/$br/g; }
	if ($value =~ /\n/) { $value =~ s/\n/$br/g; }
	if ($value =~ /\r/) { $value =~ s/\r/$br/g; }
	if ($value =~ /,/) { $value =~ s/,/&\#44;/g; }
			     
	if ($key eq 'subject'){
	    $value =~ s/\'/&\#39;/g;
	}
	
	$in{"$key"}=$value;
    }
    
    return(%in);
    
}

sub makecrypt {
    my $plain = shift;
    my $salt = join "", ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];
    my $result = crypt($plain,$salt) or crypt($plain,'$1$'.$salt.'$');
    return $result;
}

sub setadminpwd {

    &htmlhead(("管理者用パスワード","Enter admin password")[$lang]);
    print "<form name=\"setpwd\" action=\"$script\" method=\"post\">\n";

    my $inname = ("入力","Enter")[$lang];
    my $setname = ("設定","Enter")[$lang];
    if ($in{mode}){
	print (("<center>管理者用パスワードを入力してください。<br>\n",
		"<center>Eenter admin password<br>\n")[$lang]);
	print "<input type=password name=\"pwd\" size=20>\n";
	print "<input type=submit name=\"sub\" value=\"$inname\">\n";
	print "<input type=hidden name=\"mode\" value=\"$in{mode}\">\n";
    } else {
	print (("<center>管理者用パスワードを設定してください。<br>\n",
	       "<center>Eenter admin password<br>\n")[$lang]);
	print "<input type=input name=\"pwd\" size=20>\n";
	print "<input type=submit name=\"sub\" value=\"$setname\">\n";
	print "<input type=hidden name=\"mode\" value=\"adminpwd\">\n";
    }
    
    print "</form></center>\n";
    &htmltail;
}

sub wradminpwd {

  my $plain = shift;
  $plain ||= $in{pwd};
  my $passwd = &makecrypt($plain);
  
  if (open(FILE,"> $admindat")){
    print FILE "$passwd";
    close(FILE);
  } else {
    &error('パスワードファイル作成に失敗しました');
  }
  
  print $q->redirect("$script");
#  print "Location: $script\n\n";

}

###########################################################################
# Setup files form ########################################################
###########################################################################
sub setup {

  &setadminpwd if ($in{pwd} eq '');
  &error(('管理用パスワードが違います。','Wrong admin password')[$lang]) unless &checkadmin($in{pwd});

  my $period = join(',',@period);

  my @compatible_check;
  my @logo_check;
  my @mbwr_check;
  my @mbres_check;
  my @mbsum_check;
  my @mbarc_check;
  my @mblink_check;
  my @mbsrc_check;
  my @mbdel_check;
  my @mbedit_check;
  my @logo_loc_check;
  my @mbwr_loc_check;
  my @mbres_loc_check;
  my @mbsum_loc_check;
  my @mbarc_loc_check;
  my @mblink_loc_check;
  my @mbsrc_loc_check;
  my @mbdel_loc_check;
  my @mbedit_loc_check;
  
  my @bgimage_check;
  my @summary_check;
  my @archive_check;
  my @link_check;
  my @title_check;
  my @search_check;
  my @imode_check;
  my @imode_image_check;
  my @delete_check;
  my @dellog_save_check;
  my @modify_check;
  my @setup_check;
  my @link_samewin_check;
  my @top_link_check;
  my @update1_file_check;
  my @update2_file_check;
  my @namesan_check;
  my @ressan_check;
  my @image_check;
  my @image_samewin_check;
  my @style_sheet_check;
  my @head_insert_check;
  my @maildisp_check;
  my @tag_use_check;
  my @autolink_when_tag_is_on_check;
  my @autolink_head_only_check;
  my @member_only_check;
  my @body_insert1_check;
  my @body_insert2_check;
  my @body_insert3_check;
  my @body_insert4_check;
  my @body_insert5_check;
  my @user_name_color_check;
  my @user_title_color_check;
  my @user_text_color_check;
  my @imlist_check;
  my @pastlog_save_check;
  my @ssiimage_check;
  my @attach_icon_check;

  $logo_check[$logo_sel] = "checked";
  $mbwr_check[$mbwr_sel] = "checked";
  $mbres_check[$mbres_sel] = "checked";
  $mbsum_check[$mbsum_sel] = "checked";
  $mbarc_check[$mbarc_sel] = "checked";
  $mblink_check[$mblink_sel] = "checked";
  $mbsrc_check[$mbsrc_sel] = "checked";
  $mbdel_check[$mbdel_sel] = "checked";
  $mbedit_check[$mbedit_sel] = "checked";
  $logo_loc_check[$logo_loc] = "checked";
  $mbwr_loc_check[$mbwr_loc] = "checked";
  $mbres_loc_check[$mbres_loc] = "checked";
  $mbsum_loc_check[$mbsum_loc] = "checked";
  $mbarc_loc_check[$mbarc_loc] = "checked";
  $mblink_loc_check[$mblink_loc] = "checked";
  $mbsrc_loc_check[$mbsrc_loc] = "checked";
  $mbdel_loc_check[$mbdel_loc] = "checked";
  $mbedit_loc_check[$mbedit_loc] = "checked";
  
  $bgimage_check[$bgimage_en] = "checked";
  $summary_check[$summary_en] = "checked";
  $archive_check[$archive_en] = "checked";
  $link_check[$link_en] = "checked";
  $title_check[$title_en] = "checked";
  $search_check[$search_en] = "checked";
  $imode_check[$imode_en] = "checked";
  $imode_image_check[$imode_image] = "checked";
  $delete_check[$delete_en] = "checked";
  $dellog_save_check[$dellog_save] = "checked";
  $modify_check[$modify_en] = "checked";
  $setup_check[$setup_en] = "checked";
  $link_samewin_check[$link_samewin_en] = "checked";
  $top_link_check[$top_link_en] = "checked";
  $update1_file_check[$update1_file_en] = "checked";
  $update2_file_check[$update2_file_en] = "checked";
  $namesan_check[$namesan_en] = "checked";
  $ressan_check[$ressan_en] = "checked";
  $image_check[$image_en] = "checked";
  $image_samewin_check[$image_samewin_en] = "checked";
  $style_sheet_check[$style_sheet_en] = "checked";
  $head_insert_check[$head_insert_en] = "checked";
  $maildisp_check[$maildisp_en] = "checked";
  $tag_use_check[$tag_use] = "checked";
  $autolink_when_tag_is_on_check[$autolink_when_tag_is_on] = "checked";
  $autolink_head_only_check[$autolink_head_only] = "checked";
  $member_only_check[$member_only] = "checked";
  $body_insert1_check[$body_insert1_en] = "checked";
  $body_insert2_check[$body_insert2_en] = "checked";
  $body_insert3_check[$body_insert3_en] = "checked";
  $body_insert4_check[$body_insert4_en] = "checked";
  $body_insert5_check[$body_insert5_en] = "checked";
  $user_name_color_check[$user_name_color_en] = "checked";
  $user_title_color_check[$user_title_color_en] = "checked";
  $user_text_color_check[$user_text_color_en] = "checked";
  $imlist_check[$imlist_en] = "checked";
  $pastlog_save_check[$pastlog_save] = "checked";
  $ssiimage_check[$ssiimage_en] = "checked";
  $attach_icon_check[$attach_icon_en] = "checked";

  &htmlhead(('管理人セットアップ','admin setup')[$lang]);

  &checkadmin($in{pwd});

  print "<form name=\"setupform\" action=\"$script\" method=\"post\">\n";
  print "<input type=hidden name=\"mode\" value=\"setup2\">\n";
  print "<input type=hidden name=\"pwd\" value=\"$in{pwd}\">\n";

print <<END;

<table cols=2 border=1 width="100%">
<tr>
<td colspan=2>
<ul>
<li>
セットアップリンクを非表\示にしている場合は、$script?mode=setupからパスワードを入力してこのページに入ってください。
</li>
<li>
削除機能\を無効にしている場合は、$script?mode=deleteから削除するメッセージを選んで管理用パスワードで削除してください。
</li>
<li>
変更機能\を無効にしている場合は、$script?mode=edit&resnum=&lt;number&gt;で変更するメッセージナンバーを入力して変更してください。
</li>
<li><font color=red>数字やカラー指定は必ず半角で指定してください。全角やブランクだとＣＧＩが起動しなくなります。</font>万一間違って全角で書いてしまった場合は、$mbsetupfileをエディタで開きその場所を半角に正しく修正してください。それで直ります。</li>
</ul>
</td>
</tr>

<tr>
<td width="20%">データディレクトリ</td>
<td width="80%"><input type=text name="mbdir" value="$mbdir" size=30></td>
</tr>

<tr>
<td width="20%">画像格納ディレクトリ</td>
<td width="80%"><input type=text name="imagedir" value="$imagedir" size=30></td>
</tr>

<tr>
<td>データファイル</td>
<td><input type=text name="mbdata" value="$mbdata" size=30></td>
</tr>

<tr>
<td nowrap>削除変更元記事の保存</td>
<td>
<input type=radio name=dellog_save value=1 $dellog_save_check[1]>有効
<input type=radio name=dellog_save value=0 $dellog_save_check[0]>無効<br>
<input type=text name="mbdellog" value="$mbdellog" size=30>保存ファイル名</td>
</tr>

<tr>
<td>２００件以前の過去記事の保存</td>
<td>
<input type=radio name=pastlog_save value=1 $pastlog_save_check[1]>有効
<input type=radio name=pastlog_save value=0 $pastlog_save_check[0]>無効
</td>
</tr>

<tr>
<td>ロックファイル</td>
<td><input type=text name="lockfile" value="$lockfile" size=30></td>
</tr>

<!--
<tr>
<td>ロゴ画像</td>
<td>
<input type=radio name=logo value=1 $logo_check[1]>有効
<input type=radio name=logo value=0 $logo_check[0]>無効<br>
<input type=text name="mblogo" value="$mblogo" size=30>
</td>
</tr>
-->

<tr>
<td>バックグランド</td>
<td>
<input type=radio name=bgimage_en value=1 $bgimage_check[1]>画像を使う
<input type=radio name=bgimage_en value=0 $bgimage_check[0]>カラー設定にする<br>
<input type=text name="bgimagefile" value="$bgimagefile" size=30>画像を使う場合の画像ファイル<br>
<input type=text name="bgcolor" value="$bgcolor" size=10>カラー設定の場合のカラー番号（白：#ffffff 又は white）
</td>
</tr>

<tr>
<td>各記事のタイトル、色、サイズ</td>
<td>
色：color=<input type=text name="post_title_color" value="$post_title_color" size=8>
サイズ：size=<input type=text name="post_title_size" value="$post_title_size" size=8>
フォント：face=<input type=text name="post_title_face" value="$post_title_face" size=8>
</td>
</tr>

<tr>
<td>名前の色</td>
<td>
color=<input type=text name="post_name_color" value="$post_name_color" size=8>
</td>
</tr>

<tr>
<td>返信引用記事の色</td>
<td>
<input type=text name="quate_color" value="$quate_color" size=8>カラー番号又はカラー名（default : #804040）
</td>
</tr>

<tr>
<td>記事本文の色</td>
<td>
<input type=text name="text_color" value="$text_color" size=8>カラー番号又はカラー名（default : black）
</td>
</tr>

<tr>
<td>個人投稿記事色設定</td>
<td>
名前の色
<input type=radio name=user_name_color_en value=1 $user_name_color_check[1]>有効
<input type=radio name=user_name_color_en value=0 $user_name_color_check[0]>無効<br>
タイトルの色
<input type=radio name=user_title_color_en value=1 $user_title_color_check[1]>有効
<input type=radio name=user_title_color_en value=0 $user_title_color_check[0]>無効<br>
本文の色
<input type=radio name=user_text_color_en value=1 $user_text_color_check[1]>有効
<input type=radio name=user_text_color_en value=0 $user_text_color_check[0]>無効<br>
</td>
</tr>

<tr>
<td>記事本文の表\示幅</td>
<td>
ブラウザ全体の<input type=text name="body_width" value="$body_width" size=5>％
</td>
</tr>

<tr>
<td>メッセージボードタイトル名</td>
<td><input type=text name="mbtitle" value="$mbtitle" size=30><br>
<input type=radio name=logo_sel value=4 $logo_check[4]>無し<br>
<input type=radio name=logo_sel value=0 $logo_check[0]>デフォルト&lt;H2&gt;&lt;/H2&gt;<br>
<input type=radio name=logo_sel value=1 $logo_check[1]>テキスト
color=<input type=text name="logo_color" value="$logo_color" size=8>
size=<input type=text name="logo_size" value="$logo_size" size=8>
face=<input type=text name="logo_face" value="$logo_face" size=8><br>
<input type=radio name=logo_sel value=2 $logo_check[2]>ロゴ画像
<input type=text name="mblogo" value="$mblogo" size=30><br>
<input type=radio name=logo_sel value=3 $logo_check[3]>スタイルシート
<input type=text name="logo_style" value="$logo_style" size=30><br>
位置：
<input type=radio name=logo_loc value=0 $logo_loc_check[0]>左
<input type=radio name=logo_loc value=1 $logo_loc_check[1]>中
<input type=radio name=logo_loc value=2 $logo_loc_check[2]>右
</td>
</tr>

<tr>
<td>書き込みタイトル</td>
<td><input type=text name="mbwrtitle" value="$mbwrtitle" size=50><br>
<input type=radio name=mbwr_sel value=4 $mbwr_check[4]>無し<br>
<input type=radio name=mbwr_sel value=0 $mbwr_check[0]>デフォルト&lt;H2&gt;&lt;/H2&gt;<br>
<input type=radio name=mbwr_sel value=1 $mbwr_check[1]>テキスト
color=<input type=text name="mbwr_color" value="$mbwr_color" size=8>
size=<input type=text name="mbwr_size" value="$mbwr_size" size=8>
face=<input type=text name="mbwr_face" value="$mbwr_face" size=8><br>
<input type=radio name=mbwr_sel value=2 $mbwr_check[2]>ロゴ画像
<input type=text name="mbwr_logo" value="$mbwr_logo" size=30><br>
<input type=radio name=mbwr_sel value=3 $mbwr_check[3]>スタイルシート
<input type=text name="mbwr_style" value="$mbwr_style" size=30><br>
位置：
<input type=radio name=mbwr_loc value=0 $mbwr_loc_check[0]>左
<input type=radio name=mbwr_loc value=1 $mbwr_loc_check[1]>中
<input type=radio name=mbwr_loc value=2 $mbwr_loc_check[2]>右
</td>
</tr>

<tr>
<td>返事タイトル</td>
<td><input type=text name="mbrestitle" value="$mbrestitle" size=50><br>
<input type=radio name=mbres_sel value=4 $mbres_check[4]>無し<br>
<input type=radio name=mbres_sel value=0 $mbres_check[0]>デフォルト&lt;H2&gt;&lt;/H2&gt;<br>
<input type=radio name=mbres_sel value=1 $mbres_check[1]>テキスト
color=<input type=text name="mbres_color" value="$mbres_color" size=8>
size=<input type=text name="mbres_size" value="$mbres_size" size=8>
face=<input type=text name="mbres_face" value="$mbres_face" size=8><br>
<input type=radio name=mbres_sel value=2 $mbres_check[2]>ロゴ画像
<input type=text name="mbres_logo" value="$mbres_logo" size=30><br>
<input type=radio name=mbres_sel value=3 $mbres_check[3]>スタイルシート
<input type=text name="mbres_style" value="$mbres_style" size=30><br>
位置：
<input type=radio name=mbres_loc value=0 $mbres_loc_check[0]>左
<input type=radio name=mbres_loc value=1 $mbres_loc_check[1]>中
<input type=radio name=mbres_loc value=2 $mbres_loc_check[2]>右
</td>
</tr>

<tr>
<td>統計タイトル</td>
<td><input type=text name="mbsumtitle" value="$mbsumtitle" size=50><br>
<input type=radio name=mbsum_sel value=4 $mbsum_check[4]>無し<br>
<input type=radio name=mbsum_sel value=0 $mbsum_check[0]>デフォルト&lt;H2&gt;&lt;/H2&gt;<br>
<input type=radio name=mbsum_sel value=1 $mbsum_check[1]>テキスト
color=<input type=text name="mbsum_color" value="$mbsum_color" size=8>
size=<input type=text name="mbsum_size" value="$mbsum_size" size=8>
face=<input type=text name="mbsum_face" value="$mbsum_face" size=8><br>
<input type=radio name=mbsum_sel value=2 $mbsum_check[2]>ロゴ画像
<input type=text name="mbsum_logo" value="$mbsum_logo" size=30><br>
<input type=radio name=mbsum_sel value=3 $mbsum_check[3]>スタイルシート
<input type=text name="mbsum_style" value="$mbsum_style" size=30><br>
位置：
<input type=radio name=mbsum_loc value=0 $mbsum_loc_check[0]>左
<input type=radio name=mbsum_loc value=1 $mbsum_loc_check[1]>中
<input type=radio name=mbsum_loc value=2 $mbsum_loc_check[2]>右
</td>
</tr>

<tr>
<td>アーカイブタイトル</td>
<td><input type=text name="mbarctitle" value="$mbarctitle" size=50><br>
<input type=radio name=mbarc_sel value=4 $mbarc_check[4]>無し<br>
<input type=radio name=mbarc_sel value=0 $mbarc_check[0]>デフォルト&lt;H2&gt;&lt;/H2&gt;<br>
<input type=radio name=mbarc_sel value=1 $mbarc_check[1]>テキスト
color=<input type=text name="mbarc_color" value="$mbarc_color" size=8>
size=<input type=text name="mbarc_size" value="$mbarc_size" size=8>
face=<input type=text name="mbarc_face" value="$mbarc_face" size=8><br>
<input type=radio name=mbarc_sel value=2 $mbarc_check[2]>ロゴ画像
<input type=text name="mbarc_logo" value="$mbarc_logo" size=30><br>
<input type=radio name=mbarc_sel value=3 $mbarc_check[3]>スタイルシート
<input type=text name="mbarc_style" value="$mbarc_style" size=30><br>
位置：
<input type=radio name=mbarc_loc value=0 $mbarc_loc_check[0]>左
<input type=radio name=mbarc_loc value=1 $mbarc_loc_check[1]>中
<input type=radio name=mbarc_loc value=2 $mbarc_loc_check[2]>右
</td>
</tr>

<tr>
<td>リンクタイトル</td>
<td><input type=text name="mblinktitle" value="$mblinktitle" size=50><br>
<input type=radio name=mblink_sel value=4 $mblink_check[4]>無し<br>
<input type=radio name=mblink_sel value=0 $mblink_check[0]>デフォルト&lt;H2&gt;&lt;/H2&gt;<br>
<input type=radio name=mblink_sel value=1 $mblink_check[1]>テキスト
color=<input type=text name="mblink_color" value="$mblink_color" size=8>
size=<input type=text name="mblink_size" value="$mblink_size" size=8>
face=<input type=text name="mblink_face" value="$mblink_face" size=8><br>
<input type=radio name=mblink_sel value=2 $mblink_check[2]>ロゴ画像
<input type=text name="mblink" value="$mblink_size" size=30><br>
<input type=radio name=mblink_sel value=3 $mblink_check[3]>スタイルシート
<input type=text name="mblink_style" value="$mblink_style" size=30><br>
位置：
<input type=radio name=mblink_loc value=0 $mblink_loc_check[0]>左
<input type=radio name=mblink_loc value=1 $mblink_loc_check[1]>中
<input type=radio name=mblink_loc value=2 $mblink_loc_check[2]>右
</td>
</tr>

<tr>
<td>サーチタイトル</td>
<td><input type=text name="mbsrctitle" value="$mbsrctitle" size=50><br>
<input type=radio name=mbsrc_sel value=4 $mbsrc_check[4]>無し<br>
<input type=radio name=mbsrc_sel value=0 $mbsrc_check[0]>デフォルト&lt;H2&gt;&lt;/H2&gt;<br>
<input type=radio name=mbsrc_sel value=1 $mbsrc_check[1]>テキスト
color=<input type=text name="mbsrc_color" value="$mbsrc_color" size=8>
size=<input type=text name="mbsrc_size" value="$mbsrc_size" size=8>
face=<input type=text name="mbsrc_face" value="$mbsrc_face" size=8><br>
<input type=radio name=mbsrc_sel value=2 $mbsrc_check[2]>ロゴ画像
<input type=text name="mbsrc_logo" value="$mbsrc_logo" size=30><br>
<input type=radio name=mbsrc_sel value=3 $mbsrc_check[3]>スタイルシート
<input type=text name="mbsrc_style" value="$mbsrc_style" size=30><br>
位置：
<input type=radio name=mbsrc_loc value=0 $mbsrc_loc_check[0]>左
<input type=radio name=mbsrc_loc value=1 $mbsrc_loc_check[1]>中
<input type=radio name=mbsrc_loc value=2 $mbsrc_loc_check[2]>右
</td>
</tr>

<tr>
<td>削除タイトル</td>
<td><input type=text name="mbdeltitle" value="$mbdeltitle" size=50><br>
<input type=radio name=mbdel_sel value=4 $mbdel_check[4]>無し<br>
<input type=radio name=mbdel_sel value=0 $mbdel_check[0]>デフォルト&lt;H2&gt;&lt;/H2&gt;<br>
<input type=radio name=mbdel_sel value=1 $mbdel_check[1]>テキスト
color=<input type=text name="mbdel_color" value="$mbdel_color" size=8>
size=<input type=text name="mbdel_size" value="$mbdel_size" size=8>
face=<input type=text name="mbdel_face" value="$mbdel_face" size=8><br>
<input type=radio name=mbdel_sel value=2 $mbdel_check[2]>ロゴ画像
<input type=text name="mbdel_logo" value="$mbdel_logo" size=30><br>
<input type=radio name=mbdel_sel value=3 $mbdel_check[3]>スタイルシート
<input type=text name="mbdel_style" value="$mbdel_style" size=30><br>
位置：
<input type=radio name=mbdel_loc value=0 $mbdel_loc_check[0]>左
<input type=radio name=mbdel_loc value=1 $mbdel_loc_check[1]>中
<input type=radio name=mbdel_loc value=2 $mbdel_loc_check[2]>右
</td>
</tr>

<tr>
<td>変更タイトル</td>
<td><input type=text name="mbedititle" value="$mbedititle" size=50><br>
<input type=radio name=mbedit_sel value=4 $mbedit_check[4]>無し<br>
<input type=radio name=mbedit_sel value=0 $mbedit_check[0]>デフォルト&lt;H2&gt;&lt;/H2&gt;<br>
<input type=radio name=mbedit_sel value=1 $mbedit_check[1]>テキスト
color=<input type=text name="mbedit_color" value="$mbedit_color" size=8>
size=<input type=text name="mbedit_size" value="$mbedit_size" size=8>
face=<input type=text name="mbedit_face" value="$mbedit_face" size=8><br>
<input type=radio name=mbedit_sel value=2 $mbedit_check[2]>ロゴ画像
<input type=text name="mbedit_logo" value="$mbedit_logo" size=30><br>
<input type=radio name=mbedit_sel value=3 $mbedit_check[3]>スタイルシート
<input type=text name="mbedit_style" value="$mbedit_style" size=30><br>
位置：
<input type=radio name=mbedit_loc value=0 $mbedit_loc_check[0]>左
<input type=radio name=mbedit_loc value=1 $mbedit_loc_check[1]>中
<input type=radio name=mbedit_loc value=2 $mbedit_loc_check[2]>右
</td>
</tr>

<tr>
<td>トップへのリンク</td>
<td>
<input type=radio name=top_link_en value=1 $top_link_check[1]>表\示
<input type=radio name=top_link_en value=0 $top_link_check[0]>非表\示<br>
<input type=text name="top_link_title" value="$top_link_title" size=30>リンク名<br>
<input type=text name="top_link" value="$top_link" size=30>ＵＲＬ<br>
</td>
</tr>

<tr>
<td>名前欄のメールアドレス</td>
<td>
<input type=radio name=maildisp_en value=1 $maildisp_check[1]>表\示
<input type=radio name=maildisp_en value=0 $maildisp_check[0]>非表\示<br>
</td>
</tr>

<tr>
<td>クッキー名１</td>
<td><input type=text name="cookiename" value="$cookiename" size=30></td>
</tr>

<tr>
<td>クッキー名２</td>
<td><input type=text name="cookiename2" value="$cookiename2" size=30></td>
</tr>

<tr>
<td>Message#キリ番設定</td>
<td>統計で使われるMessage#のキリ番<br>
<input type=text name="period" value="$period" size=60></td>
</tr>

<tr>
<td>画像アップ機能\</td>
<td>
<input type=radio name=image_en value=1 $image_check[1]>有効
<input type=radio name=image_en value=0 $image_check[0]>無効
</td>
</tr>

<tr>
<td>統計</td>
<td>
<input type=radio name=summary_en value=1 $summary_check[1]>有効
<input type=radio name=summary_en value=0 $summary_check[0]>無効
</td>
</tr>

<tr>
<td>アーカイブ</td>
<td>
<input type=radio name=archive_en value=1 $archive_check[1]>有効
<input type=radio name=archive_en value=0 $archive_check[0]>無効
</td>
</tr>

<tr>
<td>リンク</td>
<td>
<input type=radio name=link_en value=1 $link_check[1]>有効
<input type=radio name=link_en value=0 $link_check[0]>無効
</td>
</tr>

<tr>
<td>タイトルリスト</td>
<td>
<input type=radio name=title_en value=1 $title_check[1]>有効
<input type=radio name=title_en value=0 $title_check[0]>無効
</td>
</tr>

<tr>
<td>画像リスト</td>
<td>
<input type=radio name=imlist_en value=1 $imlist_check[1]>有効
<input type=radio name=imlist_en value=0 $imlist_check[0]>無効
</td>
</tr>

<tr>
<td>サーチ</td>
<td>
<input type=radio name=search_en value=1 $search_check[1]>有効
<input type=radio name=search_en value=0 $search_check[0]>無効
</td>
</tr>

<tr>
<td>携帯モード</td>
<td>
<input type=radio name=imode_en value=1 $imode_check[1]>有効
<input type=radio name=imode_en value=0 $imode_check[0]>無効
</td>
</tr>

<tr>
<td>削除</td>
<td>
<input type=radio name=delete_en value=1 $delete_check[1]>有効
<input type=radio name=delete_en value=0 $delete_check[0]>無効
</td>
</tr>

<tr>
<td>変更</td>
<td>
<input type=radio name=modify_en value=1 $modify_check[1]>有効
<input type=radio name=modify_en value=0 $modify_check[0]>無効
</td>
</tr>

<tr>
<td>セットアップ表\示</td>
<td>
<input type=radio name=setup_en value=1 $setup_check[1]>表\示
<input type=radio name=setup_en value=0 $setup_check[0]>非表\示
</td>
</tr>

<tr>
<td>自動リンククリック時</td>
<td>
<input type=radio name=link_samewin_en value=1 $link_samewin_check[1]>同じウィンドウ
<input type=radio name=link_samewin_en value=0 $link_samewin_check[0]>別ウィンドウ</td>
</tr>

<tr>
<td>画像クリック時</td>
<td>
<input type=radio name=image_samewin_en value=1 $image_samewin_check[1]>同じウィンドウ
<input type=radio name=image_samewin_en value=0 $image_samewin_check[0]>別ウィンドウ</td>
</tr>

<tr>
<td>画像表\示サイズ</td>
<td>
<input type=text name=max_width size=5 value=$max_width>横幅<br>
<input type=text name=max_height size=5 value=$max_height>縦幅</td>
</tr>

<tr>
<td>画像アップサイズ</td>
<td>
<input type=text name=maxmb size=5 value=$maxmb>KB<br>
</tr>

<tr>
<td>携帯モードでの画像表\示</td>
<td>
<input type=radio name=imode_image value=1 $imode_image_check[1]>表\示
<input type=radio name=imode_image value=0 $imode_image_check[0]>非表\示<br>
<input type=text name=imode_image_x size=5 value=$imode_image_x>横幅<br>
<input type=text name=imode_image_y size=5 value=$imode_image_y>縦幅</td>
</tr>

<tr>
<td>サポート外の画像ファイルがアップされた場合の表\示</td>
<td>
<input type=radio name=attach_icon_en value=0 $attach_icon_check[0]>&lt;Attachment&gt;表\示
<input type=radio name=attach_icon_en value=1 $attach_icon_check[1]>アイコン使用<br>
アイコンファイル<input type=text name=attach_icon size=20 value=$attach_icon></td>
</td>
</tr>

<tr>
<td>タグ使用</td>
<td>
<input type=radio name=tag_use value=1 $tag_use_check[1]>可
<input type=radio name=tag_use value=0 $tag_use_check[0]>不可<br>
タグ使用可の時のhttp://からの文字列への自動リンク
<input type=radio name=autolink_when_tag_is_on value=1 $autolink_when_tag_is_on_check[1]>有効
<input type=radio name=autolink_when_tag_is_on value=0 $autolink_when_tag_is_on_check[0]>無効
</td>
</tr>

<tr>
<td>自動リンクの適用</td>
<td>
<input type=radio name=autolink_head_only value=1 $autolink_head_only_check[1]>http://が行頭にある場合のみ
<input type=radio name=autolink_head_only value=0 $autolink_head_only_check[0]>文中どこでも<br>
タグ使用を「可」にして自動リンクを「有効」にし、適用を「文中どこでも」にすると&lt;a href&gt;や&lt;img&gt;タグ内のhttpさえも自動リンクされるのでそれらのタグがくずれます。
</td>
</tr>

<tr>
<td>名前欄の敬称</td>
<td>
<input type=radio name=namesan_en value=1 $namesan_check[1]>あり
<input type=radio name=namesan_en value=0 $namesan_check[0]>なし<br>
<input type=text name="namesan" value="$namesan" size=10>敬称<br>
</td>
</tr>

<tr>
<td>返信コメントでの敬称</td>
<td>
<input type=radio name=ressan_en value=1 $ressan_check[1]>あり
<input type=radio name=ressan_en value=0 $ressan_check[0]>なし<br>
<input type=text name="ressan" value="$ressan" size=10>敬称<br>
</td>
</tr>

<tr>
<td>書き込みのメンバー制限</td>
<td>
<input type=radio name=member_only value=1 $member_only_check[1]>有効
<input type=radio name=member_only value=0 $member_only_check[0]>無効<br>
<input type=password name="member_pwd" value="$member_pwd" size=10>メンバー用パスワード（半角英数で）<br>
</td>
</tr>

<tr>
<td width="20%" rowspan=5>SSIモード設定</td>
<td width="80%">SSIモードを使用するHTMLファイルから見たこのスクリプトへの相対パス、又はhttp://からのフルパス<br>
<input type=text name="httpcgibin" value="$httpcgibin" size=30></td></tr>
<tr>
<td width="80%">続き表\示リンクの文字列<br>
<input type=text name="gotomb" value="$gotomb" size=30></td>
</tr>
<tr>
<td width="80%"> SSIモードでの表\示ライン数のデフォルト<br>
<input type=text name="ssiline" value="$ssiline" size=10></td>
</tr>
<tr>
<td width="80%"> SSIモードでの表\\示件数<br>
<input type=text name="ssiken" value="$ssiken" size=5>
<br>上の表\示ラインの行数は全ての表\示件数に適用されます。</td>
</tr>
<tr>
<td width="80%"> SSIモードで画像表\\示<br>
<input type=radio name="ssiimage_en" value=1 $ssiimage_check[1]>表\\示
<input type=radio name="ssiimage_en" value=0 $ssiimage_check[0]>非表\\示<br>
幅<input type=text name="ssiimage_w" value="$ssiimage_w" size=5>
高さ<input type=text name="ssiimage_h" value="$ssiimage_h" size=5></td>
</tr>

<tr>
<td>&lt;head&gt;内挿入文</td>
<td>
<input type=radio name=head_insert_en value=1 $head_insert_check[1]>有効
<input type=radio name=head_insert_en value=0 $head_insert_check[0]>無効<br>
ＨＴＭＬ書式<br>
ポップアップ広告やJavascript、&lt;META&gt;を挿入したい場合にここに記述する。<br>
以下の記述が&lt;head&gt;〜&lt;/head&gt;内に挿入される。<br>
<textarea name="head_insert" cols=50 rows=3>$head_insert</textarea><br>
</td>
</tr>

<tr>
<td>スタイルシート</td>
<td>
<input type=radio name=style_sheet_en value=1 $style_sheet_check[1]>有効
<input type=radio name=style_sheet_en value=0 $style_sheet_check[0]>無効<br>
<textarea name="style_sheet" cols=50 rows=3>$style_sheet</textarea><br>
</td>
</tr>

<tr>
<td>&lt;body&gt;内挿入文</td>
<td>
メッセージボード上部に表\示される文をＨＴＭＬで記述。ルールやコメント、広告やアクセスカウンタ、リンクなど記すことができます。<br>
メッセージボードタイトルの上
<input type=radio name=body_insert1_en value=1 $body_insert1_check[1]>有効
<input type=radio name=body_insert1_en value=0 $body_insert1_check[0]>無効<br>
<textarea name="body_insert1" cols=50 rows=3>$body_insert1</textarea><br>
メッセージボードタイトルの下
<input type=radio name=body_insert2_en value=1 $body_insert2_check[1]>有効
<input type=radio name=body_insert2_en value=0 $body_insert2_check[0]>無効<br>
<textarea name="body_insert2" cols=50 rows=3>$body_insert2</textarea><br>
「新規書き込み」リンクの上
<input type=radio name=body_insert3_en value=1 $body_insert3_check[1]>有効
<input type=radio name=body_insert3_en value=0 $body_insert3_check[0]>無効<br>
<textarea name="body_insert3" cols=50 rows=3>$body_insert3</textarea><br>
「新規書き込み」リンクの下
<input type=radio name=body_insert4_en value=1 $body_insert4_check[1]>有効
<input type=radio name=body_insert4_en value=0 $body_insert4_check[0]>無効<br>
<textarea name="body_insert4" cols=50 rows=3>$body_insert4</textarea><br>
メニューリンクの下
<input type=radio name=body_insert5_en value=1 $body_insert5_check[1]>有効
<input type=radio name=body_insert5_en value=0 $body_insert5_check[0]>無効<br>
<textarea name="body_insert5" cols=50 rows=3>$body_insert5</textarea><br>
</td>
</tr>

<tr>
<td>時間設定</td>
<td>GMTより<input type=text name=offset value=$offset size=2>時間(日本：+9時間)</td>
</tr>

<tr>
<td>棒グラフの棒</td>
<td><input type=text name=gif value=$gif size=30>統計で使用されます。</td>
</tr>

<tr>
<td>予\備のアップデートファイル</td>
<td>
１
<input type=radio name=update1_file_en value=1 $update1_file_check[1]>使用
<input type=radio name=update1_file_en value=0 $update1_file_check[0]>非使用
<input type=text name="update1_file" value="$update1_file" size=30>ファイル名<br>
２
<input type=radio name=update2_file_en value=1 $update2_file_check[1]>使用
<input type=radio name=update2_file_en value=0 $update2_file_check[0]>非使用
<input type=text name="update2_file" value="$update2_file" size=30>ファイル名<br>
</td>
</tr>

</table>
END

	print "<input type=submit name=\"sub\" value=\"設定\">";
	print "</form>";

&htmltail;

exit;
}

###########################################################################
# Setup files write #######################################################
###########################################################################
sub makesetup {

    &checkadmin($in{pwd});

    $in{post_title_size} =~ s/ /+/;
    $in{logo_size} =~ s/ /+/;
    $in{mbwr_size} =~ s/ /+/;
    $in{mbres_size} =~ s/ /+/;
    $in{mbsum_size} =~ s/ /+/;
    $in{mbarc_size} =~ s/ /+/;
    $in{mblink_size} =~ s/ /+/;
    $in{mbsrc_size} =~ s/ /+/;
    $in{mbdel_size} =~ s/ /+/;
    $in{mbedit_size} =~ s/ /+/;
    
    foreach (keys(%in)){
	$in{$_} =~ s/<br>/\n/g;
	$in{$_} =~ s/&#44;/,/g;
	$in{$_} =~ s/&lt;/</g;
	$in{$_} =~ s/&gt;/>/g;
    }

    open(SETUP,"> $mbsetupfile");

    print SETUP <<END;
#### File definitions ######################

#\$cgibin = "$in{cgibin}";
\$mbdir = "$in{mbdir}";

\$mbdata = "$in{mbdata}";

\$mbdellog="$in{mbdellog}";

\$cookiename = "$in{cookiename}";
\$cookiename2 = "$in{cookiename2}";

\$lockfile = "$in{lockfile}";

\$mbtitle = '$in{mbtitle}';
\$mblogo = '$in{mblogo}';
\$logo_style = '$in{logo_style}';
\$logo_color = '$in{logo_color}';
\$logo_size = '$in{logo_size}';
\$logo_face = '$in{logo_face}';
\$logo_sel = $in{logo_sel}; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
\$logo_loc= $in{logo_loc};  # 0:左、1:中、2:右

\$mbwrtitle = '$in{mbwrtitle}';
\$mbwr_logo = '$in{mbwr_logo}';
\$mbwr_style = '$in{mbwr_style}';
\$mbwr_color = '$in{mbwr_color}';
\$mbwr_size = '$in{mbwr_size}';
\$mbwr_face = '$in{mbwr_face}';
\$mbwr_sel = $in{mbwr_sel}; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
\$mbwr_loc= $in{mbwr_loc};  # 0:左、1:中、2:右

\$mbrestitle = '$in{mbrestitle}';
\$mbres_logo = '$in{mbres_logo}';
\$mbres_style = '$in{mbres_style}';
\$mbres_color = '$in{mbres_color}';
\$mbres_size = '$in{mbres_size}';
\$mbres_face = '$in{mbres_face}';
\$mbres_sel = $in{mbres_sel}; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
\$mbres_loc= $in{mbres_loc};  # 0:左、1:中、2:右

\$mbsumtitle = '$in{mbsumtitle}';
\$mbsum_logo = '$in{mbsum_logo}';
\$mbsum_style = '$in{mbsum_style}';
\$mbsum_color = '$in{mbsum_color}';
\$mbsum_size = '$in{mbsum_size}';
\$mbsum_face = '$in{mbsum_face}';
\$mbsum_sel = $in{mbsum_sel}; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
\$mbsum_loc= $in{mbsum_loc};  # 0:左、1:中、2:右

\$mbarctitle = '$in{mbarctitle}';
\$mbarc_logo = '$in{mbarc_logo}';
\$mbarc_style = '$in{mbarc_style}';
\$mbarc_color = '$in{mbarc_color}';
\$mbarc_size = '$in{mbarc_size}';
\$mbarc_face = '$in{mbarc_face}';
\$mbarc_sel = $in{mbarc_sel}; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
\$mbarc_loc= $in{mbarc_loc};  # 0:左、1:中、2:右

\$mblinktitle = '$in{mblinktitle}';
\$mblink_logo = '$in{mblink_logo}';
\$mblink_style = '$in{mblink_style}';
\$mblink_color = '$in{mblink_color}';
\$mblink_size = '$in{mblink_size}';
\$mblink_face = '$in{mblink_face}';
\$mblink_sel = $in{mblink_sel}; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
\$mblink_loc= $in{mblink_loc};  # 0:左、1:中、2:右

\$mbsrctitle = '$in{mbsrctitle}';
\$mbsrc_logo = '$in{mbsrc_logo}';
\$mbsrc_style = '$in{mbsrc_style}';
\$mbsrc_color = '$in{mbsrc_color}';
\$mbsrc_size = '$in{mbsrc_size}';
\$mbsrc_face = '$in{mbsrc_face}';
\$mbsrc_sel = $in{mbsrc_sel}; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
\$mbsrc_loc= $in{mbsrc_loc};  # 0:左、1:中、2:右

\$mbdeltitle = '$in{mbdeltitle}';
\$mbdel_logo = '$in{mbdel_logo}';
\$mbdel_style = '$in{mbdel_style}';
\$mbdel_color = '$in{mbdel_color}';
\$mbdel_size = '$in{mbdel_size}';
\$mbdel_face = '$in{mbdel_face}';
\$mbdel_sel = $in{mbdel_sel}; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
\$mbdel_loc= $in{mbdel_loc};  # 0:左、1:中、2:右

\$mbedititle = '$in{mbedititle}';
\$mbedit_logo = '$in{mbedit_logo}';
\$mbedit_style = '$in{mbedit_style}';
\$mbedit_color = '$in{mbedit_color}';
\$mbedit_size = '$in{mbedit_size}';
\$mbedit_face = '$in{mbedit_face}';
\$mbedit_sel = $in{mbedit_sel}; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
\$mbedit_loc= $in{mbedit_loc};  # 0:左、1:中、2:右

# logo enable 1:有効 0:無効
\$logo='$in{logo}';

# 書き込みタイトルのサイズ、色
\$post_title_color = '$in{post_title_color}';
\$post_title_size = '$in{post_title_size}';
\$post_title_face = '$in{post_title_face}';

# 名前の色
\$post_name_color = '$in{post_name_color}';

# 返信引用記事の色
\$quate_color = '$in{quate_color}';

# 記事本文の色
\$text_color = '$in{text_color}';

# 投稿者個人色設定 1:on 0:off
\$user_name_color_en = $in{user_name_color_en};
\$user_title_color_en = $in{user_title_color_en};
\$user_text_color_en = $in{user_text_color_en};

# 記事本文の表\示幅 ブラウザ全体の％
\$body_width = $in{body_width};

#############################################
#### Function settings ######################

# Background 設定 1:画像を使う 0:カラー番号を使う
\$bgimage_en = $in{bgimage_en};
\$bgimagefile = "$in{bgimagefile}";
\$bgcolor = "$in{bgcolor}";

# 統計の「ピッタリ賞」でキリ番として扱われるメッセージナンバーの設定。
\@period=($in{period});

# 統計 1:有効 0:無効
\$summary_en = $in{summary_en};

# アーカイブ 1:有効 0:無効
\$archive_en = $in{archive_en};

# リンク 1:有効 0:無効
\$link_en = $in{link_en};

# タイトル 1:有効 0:無効
\$title_en = $in{title_en};

# 画像リスト 1:有効 0:無効
\$imlist_en = $in{imlist_en};

# サーチ 1:有効 0:無効
\$search_en = $in{search_en};

# 携帯モード 1:有効 0:無効
\$imode_en = $in{imode_en};

# 削除 1:有効 0:無効
\$delete_en = $in{delete_en};

# 変更 1:有効 0:無効
\$modify_en = $in{modify_en};

# セットアップ表\示 1:表\示 0:非表\示
\$setup_en = $in{setup_en};

# 自動リンククリック時 1:同じウィンドウ 0:別ウィンドウ
\$link_samewin_en = $in{link_samewin_en};

#タグ使用 1:可 0:不可
\$tag_use = $in{tag_use};

#削除変更元記事保存 1:有効 0:無効
\$dellog_save = $in{dellog_save};

#２００件以前の過去記事保存 1:有効 0:無効
\$pastlog_save = $in{pastlog_save};

#携帯モードでの画像表\示 1:有効 0:無効
\$imode_image = $in{imode_image};

#携帯モーででの画像表\示サイズ
\$imode_image_x = $in{imode_image_x};
\$imode_image_y = $in{imode_image_y};

# サポートされていない画像やファイルの場合のアイコン使用 1:有効 0:無効
\$attach_icon_en = $in{attach_icon_en};
\$attach_icon = '$in{attach_icon}';

#タグ使用可の時にhttp://からのオートリンク 1:on 0:off
\$autolink_when_tag_is_on = $in{autolink_when_tag_is_on};

#http://の適用  1:行頭のみ 0:どこでも
\$autolink_head_only = $in{autolink_head_only};

# トップへのリンク 1:表\示 0:非表\示
\$top_link_en = $in{top_link_en};
\$top_link_title = '$in{top_link_title}';
\$top_link = '$in{top_link}';

# 名前欄のメールアドレス表\示非表\示 1:on 0:off
\$maildisp_en = $in{maildisp_en};

# 名前欄の敬称 1:on 0:off
\$namesan_en = $in{namesan_en};
\$namesan = '$in{namesan}';

# 返信コメントでの敬称 1:on 0:off
\$ressan_en = $in{ressan_en};
\$ressan = '$in{ressan}';

# SSIモード設定
# SSIモードを使用するHTMLファイルから見たこのスクリプトへの相対パス、
# 又はhttp://からのフルパス
\$httpcgibin = "$in{httpcgibin}";
# 続き表\示リンクの文字列
\$gotomb = '$in{gotomb}';

# SSIモードの表\示ライン数のデフォルト
\$ssiline = $in{ssiline};

# SSIモードの表示件数のデフォルト
# $ssikenが1以上の場合は$ssilineは無効
\$ssiken = $in{ssiken};

# SSIモードで画像表\\示 0:off 1:on
\$ssiimage_en = $in{ssiimage_en};
# 画像サイズ
\$ssiimage_w = $in{ssiimage_w};
\$ssiimage_h = $in{ssiimage_h};

# 時間設定 GMTからのオフセット　日本:+9
\$offset = $in{offset};
\$time_offset = time + \$offset * 3600;

# Archiveで使われる圧縮コマンド
\$compress = "$in{compress}"; #実行されるコマンド
\$compmsg = \$compress;
\$compmsg =~ s/^.\*[\\/\\\\]([^\\/\\\\\\.]+)\\..*\$/\$1/;

# Compantible modeで使われるUNIX コマンド
\$cat = "$in{cat}";

# Summary で使われる棒グラフの棒
\$gif="$in{gif}";

# 画像機\ 0:無し 1:有り
\$image_en = $in{image_en};

# 画像格納ディレクトリ
\$imagedir = "$in{imagedir}";

# 画像クリック時のウィンドウ 0:別ウィンドウ 1:同じウィンドウ
\$image_samewin_en = $in{image_samewin_en};

# 縮小表\示時のサイズ
\$max_width = $in{max_width};
\$max_height = $in{max_height};

#最大画像アップサイズ(kB)
\$maxmb = $in{maxmb};

#会員専用書き込み 1:on 0:off
\$member_only = $in{member_only};
\$member_pwd = '$in{member_pwd}';

#<head>〜</head>内に挿入できる構\文 1:on, 0:off
\$head_insert_en = $in{head_insert_en};
\$head_insert = '$in{head_insert}';

#スタイルシート 1:on 0:off
\$style_sheet_en = $in{style_sheet_en};
\$style_sheet = '$in{style_sheet}';

#メッセージボード上部に表\示させる文 1:on, 0:off
\$body_insert1_en = $in{body_insert1_en};
\$body_insert1 = '$in{body_insert1}';
\$body_insert2_en = $in{body_insert2_en};
\$body_insert2 = '$in{body_insert2}';
\$body_insert3_en = $in{body_insert3_en};
\$body_insert3 = '$in{body_insert3}';
\$body_insert4_en = $in{body_insert4_en};
\$body_insert4 = '$in{body_insert4}';
\$body_insert5_en = $in{body_insert5_en};
\$body_insert5 = '$in{body_insert5}';

#トップからのＳＳＩ表\示による更新時間のための予\備のアップデートファイル
# 1: on, 0: off
\$update1_file_en = $in{update1_file_en};
\$update2_file_en = $in{update2_file_en};
\$update1_file = '$in{update1_file}';
\$update2_file = '$in{update2_file}';

END

close(SETUP);

    print $q->redirect("$script");
#print "Location: $script\n\n";

}

sub extraupdate {

if ($update1_file_en == 1){
	open(UPDATE,">$update1_file");
	print UPDATE "dummy file1\n";
	close(UPDATE);
	chmod(0666,"$update1_file");
}

if ($update2_file_en == 1){
	open(UPDATE,">$update2_file");
	print UPDATE "dummy file2\n";
	close(UPDATE);
	chmod(0666,"$update2_file");
}

}

sub error {
    my $msg = shift;
    &unlockfile;
    &htmlhead($msg);
    print "<br><center>$msg<p>\n";
    &backbutton;
    print "</center>\n";
    &htmltail;
}

### title print ###
sub titleprint {

    my ($title,$logo,$style,$color,$size,$face,$sel,$loc)=@_;
    my @location = ('left','center','right');

    my $titleline;
    if ($sel == 0) {
	$titleline = "<div align=\"$location[$loc]\"><h2>$title</h2></div>";
    } elsif ($sel == 1){
	$titleline = "<div align=\"$location[$loc]\"><font size=\"$size\" color=\"$color\" face=\"$face\">$title</font></div><br>";
    } elsif ($sel == 2){
	$titleline = "<div align=\"$location[$loc]\"><img src=\"$logo\" alt=\"$title\"></div><br>";
    } elsif ($sel == 3){
	$titleline = "<div align=\"$location[$loc]\" style=\"$style\">$title</div><br>";
    } elsif ($sel == 4){
	$titleline = "";
    }
    
    return($titleline);
}

### 書き込みのコメント ###
sub write_comment {

my $head_only_comment = '';
$head_only_comment = ('行頭の','In the head of line, ')[$lang] if ($autolink_head_only == 1);
my $tag_comment = ('<font color="red">※</font>本文中にタグは使用できません。<br>','Cannot use tags in the comment.<br>')[$lang];
$tag_comment = ('<font color="red">※</font>本文中にタグを使用できます。<br>','Can use tags in the comments.<br>')[$lang] if ($tag_use == 1);
my $autolink_comment = '';
$autolink_comment = ("<font color=\"red\">※</font>${head_only_comment}http://から半角文字列の最後まで自動リンクされます。<br>","${head_only_comment}starting from http://will be automatically linked.<br>")[$lang] if ($autolink_when_tag_is_on == 1 || $tag_use == 0);

print $tag_comment;
print $autolink_comment;
if ($lang == 0){
print <<WRITE_COMMENT;
<font color="red">※</font>(\#123)など半角括弧で囲んだ\#&lt;半角数字&gt;はそのメッセージ番号のメッセージへ自動リンクされます。<br>
<font color="red">※</font>Message\#123など半角Message\#&lt;半角数字&gt;もそのメッセージ番号のメッセージへ自動リンクされます。<br>
WRITE_COMMENT
} else {
print <<WRITE_COMMENT;
(\#&lt;number&gt;), such as (\#123), will be automaticllay linked to that message.<br>
Message\#&lt;number&gt;), such as (\#123), will be automaticllay linked to that message.<br>
WRITE_COMMENT
}
if ($image_en == 1) {
print (("<font color=\"red\">※</font>画像最大アップサイズは${maxmb}ｋＢです。<br>\n","Maximum image upload size is ${maxmb}kB.")[$lang]);
}

}

### タグ変換 ###
sub replace_tag {
	my $value = shift;
	if ($tag_use == 1){
		$value =~ s/&lt;($tag_pattern)&gt;/<$1>/g;
		if ($value =~ /&lt;\s*[aA]\s+.*&gt;/){
			$value =~ s/&lt;($tag_pattern)&gt;/<$1>/g;
		}
	}
	return($value);
}

### link replace
sub replace_link {
    my $value = shift;
    my $number = shift;

    return ($value) if (grep /^$number$/, @reject);
    if ($tag_use == 0 || ($tag_use == 1 && $autolink_when_tag_is_on == 1)){
	if ($autolink_head_only == 1){
	    # Has ^ at the head of the pattern
	    $value =~ s/^($url_pattern)/<a href=\"$1\" target="$link_target">$1<\/a>$2/g;
	} else {
	    # No ^ at the head of the pattern
	    $value =~ s/($url_pattern)/<a href=\"$1\" target="$link_target">$1<\/a>$2/g;
	}
    }
    return($value);
}

sub replace_color {
	my ($name_color,$title_color,$contents_color) = @_;
	my ($each_name_color,$each_title_color,$each_text_color);
	chomp($contents_color);
	if ($user_name_color_en == 1 && $name_color =~ /[\w#]+/){
		$each_name_color = $name_color;
	} else {
		$each_name_color = $post_name_color;
	}
	if ($user_title_color_en == 1 && $title_color =~ /[\w#]+/){
		$each_title_color = $title_color;
	} else {
		$each_title_color = $post_title_color;
	}
	if ($user_text_color_en == 1 && $contents_color =~ /[\w#]+/){
		$each_text_color = $contents_color;
	} else {
		$each_text_color = $text_color;
	}
	return ($each_name_color,$each_title_color,$each_text_color);
}

sub user_color_input {
    my ($user_name_color,$user_title_color,$user_text_color)=@_;
    my ($name_color_input,$title_color_input,$contents_color_input);
    if ("$user_name_color" eq ''){
	$user_name_color = $post_name_color;
    }
    if ("$user_title_color" eq ''){
	$user_title_color = $post_title_color;
    }
    if ("$user_text_color" eq ''){
	$user_text_color = $text_color;
    }
    $name_color_input = "（名前の色<input type=text name=\"user_name_color\" size=8 value=\"$user_name_color\"> ）" if ($user_name_color_en == 1);
    $title_color_input = "（タイトルの色<input type=text name=\"user_title_color\" size=8 value=\"$user_title_color\"> ）" if ($user_title_color_en == 1);
    $contents_color_input = "（記事の色<input type=text name=\"user_text_color\" size=8 value=\"$user_text_color\"> ）" if ($user_text_color_en == 1);
    return ($name_color_input,$title_color_input,$contents_color_input);
}

sub checkcrypt {
  my ($pwd,$encpwd)=@_;
  return(crypt($pwd,$encpwd) eq "$encpwd" or &checkadmin($pwd));
}

sub checkadmin {
  my $pwd = shift;
  $pwd ||= $in{pwd};
  if (open(FILE,"< $admindat")){
      my $filepwd = <FILE>;
      close(FILE);
      my $inpwd = crypt($pwd,$filepwd);
      return ("$inpwd" eq "$filepwd");
  } else {
      my $message = ('パスワードファイルが存在しません','Cannot find password file.')[$lang];
      &error($message);
  }
  
}

sub mbcleanlink {

    my $title = ('クリーンリンク','Clean link')[$lang];

    &htmlhead($title);

    print <<END;

<center>
<h2>$title</h2>
<hr>

<font size=+1><b>rejectlink.dat更新</b></font><p>
<form actoin="$script" method=post>
<input type=hidden name=mode value=\"cleanlink2\">
管理用パスワード<input type=password size=10 name=pwd><br>
<input type=submit name=\"cleanlink\" value=\"デッドリンクを検出し、$rejectlinkに追加する\"><br>
一旦ボタンをクリックしたら途中でブラウザの中止ボタンなどで止めないでください。<br>
サーバーに高負荷のままジョブが残って大変な事になります。<br>
全ての結果が再表\示されるまでお待ちください。
</form>
</center>

<hr>
END

print "<a href=\"$script\">メッセージボードへ</a> \n";
print "<a href=\"$script?mode=link\">リンク抜粋へ</a>\n";

&htmltail;

}

sub mbmakebargif {

    my $bar_r = "0";
    my $bar_g = "128";
    my $bar_b = "0";
    my $bar_x = "20";
    my $bar_y = "20";
    my $title = ('bar.gif作成','Make bar.gif')[$lang];

    &htmlhead($title);

    print <<END;
<center><font size=+1><b>統計で使われる棒グラフの棒（gifファイル）作成</b></font></center><p>

<form actoin="$script" method=post>
<table cols=2 width=30% border=1 align=center>
<tr><td align=right width=10% nowrap>
サイズ
</td>
<td align=left>
x=<input type=text size=10 name=pic_x value="20">px<br>
y=<input type=text size=10 name=pic_y value="20">px<br>
</td>
</tr>
<tr><td align=right>
色
</td>
<td align=left nowrap>
R=<input type=text size=10 name=pic_r value="$bar_r"> 0 ≦ R ≦ 255<br>
G=<input type=text size=10 name=pic_g value="$bar_g"> 0 ≦ G ≦ 255<br>
B=<input type=text size=10 name=pic_b value="$bar_b"> 0 ≦ B ≦ 255<br>
</td>
</tr>
<tr><td colspan=2 align=center nowrap>
管理用パスワード<input type=password size=10 name=pwd><br>
<input type=submit name=gen value='作成'>
</td></tr>
</table>
<input type=hidden name=mode value="makebar2">
</form>

<hr>
END

print "<a href=\"$script\">メッセージボードへ</a> \n";
print "<a href=\"$script?mode=sumform\">書きこみ統計へ</a>\n";

&htmltail;

}

sub makebar {

    &error(("管理人パスワードが違います。","Wrong admin password.")[$lang]) unless (&checkadmin($in{pwd}));
    
    $in{pic_r} = 255 if $in{pic_r} > 255;
    $in{pic_g} = 255 if $in{pic_g} > 255;
    $in{pic_b} = 255 if $in{pic_b} > 255;
    
    my $gifdata = &dispbar(1);

    &writegif ($gif,$gifdata);
    
    my $title = 'makebar';
    &htmlhead($title);
    
    print "<center>以下gif画像が$gifとして作成されました。<p>\n";
    print "<a href=\"$gif\"><img src=\"$script?mode=dispbar&pic_x=$in{pic_x}&pic_y=$in{pic_y}&pic_r=$in{pic_r}&pic_g=$in{pic_g}&pic_b=$in{pic_b}\" border=0 alt=\"$gif\"></a>\n";
    print "<p>\n";
    &backbutton;
    print "</center>";
    
    &htmltail;
    
}

sub writegif {
    my ($gif,$gifdata) = @_;
    open(GIF,"> $gif") or &error("$gifが開けません");
    binmode GIF;
    print GIF $gifdata;
    close(GIF);
}

sub dispbar {
    my ($ret) = shift;
    
    my $gifdata = &gengif($in{pic_x},$in{pic_y},$in{pic_r},$in{pic_g},$in{pic_b});
    
    if ($ret == 1){
	return ($gifdata);
    } else {
	print "Content-type: image/gif\n\n";
	print "$gifdata";
    }
}

sub gengif {
    my ($bar_x,$bar_y,$bar_r,$bar_g,$bar_b) = @_;
    my $im = new GD::Image($bar_x,$bar_y);
    my $color = $im->colorAllocate($bar_r,$bar_g,$bar_b);
    $im->fill($bar_x,$bar_y,$color);
    my $gifdata = $im->gif();
    return $gifdata;
}


sub cleanlink {
    
    &error(("管理人パスワードが違います。","Wrong admin password.")[$lang]) unless (&checkadmin($in{pwd}));
    
    my @reject;
    
    if (open(REJECT,"< $rejectlink")){
	@reject = <REJECT>;
	close(REJECT);
	chomp @reject;
    } else {
	@reject = ();
    }
    
    my $filename = $mbdata;
    
    my $ua = LWP::UserAgent->new;
    $ua->timeout(5);
    
    my @deadlink = ();
    
    &htmlhead('クリーンリンク');
    
    print "デッドリンク検出中・・・・<br>";
    my $flag = 0;
    my $i = 1;
    
    open(FILE,"< $filename");
    STDOUT->autoflush(1);
    my ($number,$b,$c,$d,$e,$date,$title,$main,$encpwd,$imagefile);
    my $linkarray2;
    my $aaa;
    my @available_link;
    while (<FILE>){
	chomp;
	($number,$b,$c,$d,$e,$date,$title,$main,$encpwd,$imagefile)=split(/,/);
	if (/$url_pattern/){
	    foreach (split(/<[Bb][rR]>/,$main)){
		if (/($url_pattern)/ && !/^\&gt;/){
		    $linkarray2 .= "$1<br>";
		    print "$number ";
		    print "<br>\n" if ($i % 20 == 0);
		    $i++;
		}
	    }
	    if($linkarray2 ne ""){
		($aaa)=grep(/^$number/,@reject);
		if ($aaa != $number){
		    (@available_link) = split(/<br>/,$linkarray2);
		    foreach (@available_link){
			my $response = $ua->get($_);
			if (! $response->is_success){
			    $flag = 1;
			    push(@deadlink,$number) if (!grep(/^$number$/,(@reject,@deadlink)));
			    print "<p>$number -> $_ : ";
			    print $response->status_line;
			    print "<p>";
			    $i=0;
			}
		    }
		}
	    }
	    $linkarray2="";
	}
    }
    
    close(FILE);
    
    print "<br>\n";
    
    if ($flag == 1){
	my $alldeadlink = join ("\n",@deadlink);
	open(RL, ">> $rejectlink");
	print RL $alldeadlink;
	print RL "\n";
	close(RL);
    } else {
	print "デッドリンクはありませんでした。<p>";
    }
    
    &backbutton;
    
    &htmltail;
    
}