#! /usr/bin/perl
#
# dmb.cgi
# 超多機能スレッド式メッセージボード
#
# 1.055 : 3/16/08 : スレッドサーチでの日にち表示を修正
# 1.054 : 2/18/08 : 携帯モード書き込み→ＰＣ削除の場合のエラーを修正
# 1.053 : 2/16/08 : 変更字にIP情報が冗長になるのを修正
# 1.052 : 1/28/08 : メッセージを古い順に表示するオプションを追加
# 1.051 : 1/22/08 : メッセージのパスワード未設定の処理を修正
# 1.050 : 12/2/07 : 縮小画像自動作成機能を追加。携帯画像ファイルサイズ制限機能を追加。
# 1.049 : 11/22/07 : 携帯モードでのID#への自動リンク、PCページへのリンクを追加
# 1.048 : 11/21/07 : 携帯モードの番号の指定を修正、及びMessage#のリンクを追加
# 1.047 : 10/21/07 : 携帯モードにperlコードを挿入できるオプションを追加
# 1.046 : 10/4/07 : 入力フォームを若干修正
# 1.045 : 9/5/07 : CAPTCHA画像をjpeg, gifで出力するオプションを追加
# 1.044 : 6/11/07 : ページ毎のソートを修正
# 1.043 : 5/11/07 : サーチの日付のデフォルトを修正
# 1.042 : 4/15/07 : リカバーのタイムスタンプを修正
# 1.041 : 4/8/07 : 200件以前の返事削除変更リンクを修正、個人最終書き込みの日付を修正
# 1.040 : 4/7/07 : 200件以前の日付検索を修正
# 1.039 : 3/29/07 : 名前のメールリンクをメールフォームにするオプションを追加
# 1.038 : 2/10/07 : デフォルトでCAPTCHAをオフに修正
# 1.037 : 1/22/07 : スレッド更新、recover modeを修正
# 1.036 : 1/18/07 : 200件以前のbody_insertを修正
# 1.035 : 1/9/07 : zipファイル作成を修正
# 1.034 : 1/8/07 : ファイルロックのバグを修正
# 1.033 : 1/6/07 : mode=read時にスレッドデータを触らないように修正
# 1.032 : 1/3/07 : 携帯モードにnoidexを追加
# 1.031 : 12/29/06 : robot用noindexを日数表示に追加
# 1.030 : 12/20/06 : 無効なスレッドIDを指定したときの処理を修正
# 1.029 : 12/19/06 : 検索結果表示を修正
# 1.028 : 12/17/06 : BODY内挿入に「</body>の前」を追加。id#xによるスレッドへの直接リンクを追加。
# 1.027 : 12/8/06 : 検索をCase insensitiveに修正
# 1.026 : 12/2/06 : メールアドレスチェックを修正
# 1.025 : 12/1/06 : 200件以前にもタイトルと戻るリンクを追加。変更時のグループパスワードチェックを修正。
# 1.024 : 11/23/06 : 閲覧カウンタを修正
# 1.023 : 11/17/06 : サーチのバグを修正
# 1.022 : 11/15/06 : アップファイルサイズ処理を修正。
# 1.021 : 11/6/06 : SSIモード表示を修正。スレッドソート順を修正。
# 1.020 : 11/4/06 : タグ変換を修正。セットアップのバグを修正。
# 1.019 : 11/3/06 : robot用noindexを返信フォーム等に追加
# 1.018 : 10/30/06 : CAPTCHA導入, メンバーパスワードを強化、SSIモードに最新スレッドモード追加
# 1.017 : 10/29/06 : 全スレッド検索を追加
# 1.016 : 10/21/06 : ２００件以前の日付、添付表示のバグを修正
# 1.015 : 10/20/06 : 最新メッセージの下にメッセージを追加できるように修正
# 1.014 : 10/16/06 : Cookieを修正
# 1.013 : 10/15/06 : スレッドファイル復活モードを強化
# 1.012 : 10/14/06 : スレッドファイル復活モードを追加
# 1.011 : 10/11/06 : 未読分計算を修正。スレッドを超えたリンク機能を追加。
# 1.010 : 10/10/06 : アップファイル処理を修正
# 1.009 : 10/1/06 : ID表示オプション追加。スレッドソート機能追加。
# 1.008 : 9/10/06 : 携帯書き込み時のエラーを修正
# 1.007 : 9/10/06 : スレッド更新ファイルを修正
# 1.006 : 8/6/06 : 修正フォームのテキストを修正
# 1.005 : 8/1/06 : クッキーとスレッド削除を修正
# 1.004 : 7/27/06 : トップに未読分表示
# 1.003 : 7/26/06 : アーカイブのデフォルトをチェック
# 1.002 : 7/25/06 : クリーンリンク他修正
# 1.001 : 7/25/06 : 統計、アーカイブ、サーチを修正。
# 1.0 : 7/24/06 : Created
#
# http://www.hidekik.com
#
# $Id: dmb.cgi,v 1.86 2008/03/16 07:41:05 Hideki Kanayama Exp $
# Copyright(c) 1997-2008, Hideki Kanayama, All rights reserved.

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;
use GD::SecurityImage::AC;
use Jcode;

my $mbsetupfile = "dmb_setup.pl";
my $admindat = "adminpwd.dat";
my $groupdat = "grouppwd.dat";
my $namedef = "namedef.dat";
my $rejectlink = "rejectlink.dat";

my $version = "1.055";

my $reservedyear = "1997-2008";

my $script = basename($0);

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

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

### thread setting ###

our $thdata = "thread.dat";
our $thread_onepage_max = 100;

our $th_title = ("ディスカッション","Discussion")[$lang];
our $th_logo = "mboard.gif";
our $th_style = '';
our $th_color = 'black';
our $th_size = '+1';
our $th_face = '';
our $th_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $th_loc=1;  # 0:左、1:中、2:右

our $thwrtitle = ("スレッド作成","Make thread")[$lang];
our $thwr_logo = "";
our $thwr_style = '';
our $thwr_color = 'black';
our $thwr_size = '+1';
our $thwr_face = '';
our $thwr_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $thwr_loc=1;  # 0:左、1:中、2:右

our $thed_title = ("スレッド名修正","Modify thread title")[$lang];
our $thed_logo = "";
our $thed_style = '';
our $thed_color = 'black';
our $thed_size = '+1';
our $thed_face = '';
our $thed_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $thed_loc=1;  # 0:左、1:中、2:右

our $thdel_title = ("スレッド削除","Delete thread")[$lang];
our $thdel_logo = "";
our $thdel_style = '';
our $thdel_color = 'black';
our $thdel_size = '+1';
our $thdel_face = '';
our $thdel_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $thdel_loc=0;  # 0:左、1:中、2:右

# リストページ<body>内挿入文
our $topdisp1 = '';
our $topdisp2 = '<center>';
our $topdisp3 = '</center><p>';
our $bottomdisp1 = '';

#携帯モードリストページにperlコードを挿入 1:on 0:off
our $top_mob_perl_insert1 = '';
our $top_mob_perl_insert2 = '';
sub top_mob_insert_perl1 {};
sub top_mob_insert_perl2 {};

our $th_title_col_bgcolor = '#dddddd';
our $th_col_odd_bgcolor = '#dddddd';
our $th_col_even_bgcolor = '#eeeeee';

our $to_prevpage = '更に最近のスレッド';
our $to_nextpage = '更に古いスレッド';
our $to_toppage = '最新スレッド';

our $mbmailtitle = "へメール送信";
our $mbmail_logo = "";
our $mbmail_style = '';
our $mbmail_color = 'black';
our $mbmail_size = '+1';
our $mbmail_face = '';
our $mbmail_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
our $mbmail_loc=1;  # 0:左、1:中、2:右

# Background設定
# 1:画像を使う 0:カラー番号を使う
our $thbgimage_en = 0;
our $thbgimagefile = "sample.jpg";
our $thbgcolor="#ffffff";

# 修正リンク 1:on, 0:off
our $th_edit_en = 1;

# 削除リンク 1:on, 0:off
our $th_delete_en = 1;

# 管理用リンク 1:on, 0:off
our $thadmin_en = 1;

# トップへのリンク 1:on, 0:off
our $thtoplink_en = 1;
our $thtoplink_title = ('トップへ','Top')[$lang];
our $thtoplink = '../index.html';

# 携帯モードへのリンク 1:on, 0:off
our $thmob_en = 1;
our $thmoblink_title = ('携帯モード','Mobile mode')[$lang];

# PCモードへのリンク 1:on, 0:off
our $pcmode_link_en = 1;
our $pcmode_link = 'PCモードへ';

# SSI mode時の表示が最新スレッド 1:最新 0:$ssiid指定のスレッド
our $ssi_latest = 1;

# SSI mode ID
our $ssiid = 1;

# ID display
our $iddisp_en = 0;

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

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

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

#セキュリティイメージ
our $captcha_en = 0;
our $capimage_width = 230;
our $capimage_height = 80;
our $scramble_en = 1;
our $cap_text_num = 4; #文字数
our $cap_expire = 60;  #有効期限（分）
our $capimage_sel = 0; # 0:png, 1:jpg, 2:gif

# セキュリティイメージデータディレクトリ
our $capdatadir = 'capdata';

# ttffontファイルを絶対パスで。 "Document and Setting"のようなパス内のspace禁止
our $ttffont = "c:/windows/fonts/cour.ttf";

# ttfrontのポイントサイズ
our $ttffont_ptsize = 30;

#### mb setting ###

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

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

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

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

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=0;  # 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 $disp_order = 1;

# 名前のメールリンク 2:mailtoでリンク 1:メールフォーム 0:リンク無し
our $mailform_en = 1;

# mail command
our $mail_cmd = '/usr/sbin/sendmail -t';

#タグ使用 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';

# スレッドへのリンク 1:表示 0:非表示
our $th_link_en = 1;
our $th_link_title = ('ディスカッションへ','To Discussion')[$lang];

# 書き込みタイトルのサイズ、色、フォント
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 = 0;

# 名前欄の敬称 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 = '';

# アップロード禁止な拡張子
our $prohibit_en = 1;
our $prohibit_extention = "cgi pl php php3";  # 半角スペースで区切る

# 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 = 0;

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

#縮小画像自動作成 1:on 0:off
our $thumb_gen_en = 1;
our $thumb_dir = 'mbthumb';

#携帯モード画像ファイルサイズ制限 (KB)
our $mob_image_size = 25;

#携帯モード画像フォーマット 0:jpg 1:gif 2:png
our $mob_image_format = 1;

#最大ファイルアップサイズ(kB)
our $maxmb = 100;

#スタイルシート 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="dmb">';

#メッセージボード上部に表示させる文 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 = '';
our $body_insert6_en = 0;
our $body_insert6 = '';

#携帯モードにperlコードを挿入 1:on 0:off
our $mob_perl_insert1 = '';
our $mob_perl_insert2 = '';
sub mob_insert_perl1 {};
sub mob_insert_perl2 {};

#トップからのＳＳＩ表示による更新時間のための予備のアップデートファイル
# 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";

#スパム防止のためのキーワード
our $ticket = 'qualified';

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

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

my $url_pattern = 'https?:\/\/[\w\.\~\/\?\&\+\=\:\@\%\;\#\$\%\-]*';
my $tag_pattern = '[\w\s\"\'\\\+\=\/\;\:\%\(\)#\?\.\~\-\!]*';
my $mail_pattern = '(^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,4}$|^$)';
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 'dmbssi.cgi'){
	$script = 'dmb.cgi';
	$in{mode} = 'ssi';
} elsif ($script eq 'dmbmob.cgi'){
	$script = 'dmb.cgi';
	$in{mode} = 'mobile';
}

if (defined $in{mode} and $in{mode} eq 'ssi'){
    if ($in{line} eq ''){
	$in{line} = $ssiline;
    }
    if ($in{id} eq ''){
	if ($ssi_latest){
	    my @tmp = split /,/, &get_latest_thread;
	    $in{id} = $tmp[0];
	} else {
	    $in{id} = $ssiid;
	}
    }
}

my $id = $in{id};
my $idmbsetupfile = "$id-$mbsetupfile";
if (-e "$idmbsetupfile"){
	require "$idmbsetupfile";
}

if ($in{mode} ne 'thwrite' and 
    $in{mode} ne 'thiwrite' and 
    $in{mode} ne 'setup' and 
    $in{mode} ne 'admin'){
    my ($body,$path,$ext) = fileparse($mbdata, '\.\w+');
    $path = '.' if ($path eq '');
    $mbdata = "$path$id-$body$ext";
    ($body,$path,$ext) = fileparse($mbdellog, '\.\w+');
    $path = '.' if ($path eq '');
    $mbdellog = "$path$id-$body$ext";
    $rejectlink = "$id-$rejectlink";
}

#if ($in{mode} !~ /viewthread/ and 
#    $in{mode} ne 'setup' and 
#    $in{mode} ne 'admin'){
#    my ($body,$path,$ext) = fileparse($lockfile, '\.\w+');
#    $path = '.' if ($path eq '');
#    $lockfile = "$path$id-$body$ext";
#}

my @thline = split ',', &get_one_thread;
my $thtitle = $thline[6];
my $thread_sofar = $thline[9];

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

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

my $member_pwd;
if ($member_only){
    if (! -e "$groupdat"){
	if ($in{mode} eq 'grwradminpwd'){
	    &wradminpwd($groupdat);
	} else {
	    &setadminpwd($groupdat);
	}
    }
    open(FILE,"< $groupdat") or &error("$groupdatが開けません。");
    $member_pwd = <FILE>;
    close(FILE);
}

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

if ((! defined $in{mode}) or $in{mode} eq 'thwrform') {
    $bgimage_en = $thbgimage_en;
    $bgimagefile = $thbgimagefile;
    $bgcolor = $thbgcolor;
}

my $host = $ENV{'REMOTE_HOST'};
my $ip = $ENV{'REMOTE_ADDR'};
    
my $captcha;
if ($captcha_en){
    $captcha = GD::SecurityImage::AC->new;
    $captcha->gdsi(
		   new => {
		       width => $capimage_width,
		       height => $capimage_height,
		       lines => 10,
		       scramble => $scramble_en,
		       font => "$ttffont",
		       ptsize => $ttffont_ptsize,
		   },
		   create => ['ttf', 'rect', '#000000', '#555555'],
		   particle => [500],
		   );
    if (! -d "$capdatadir") {mkdir $capdatadir;}
    $captcha->data_folder($capdatadir);
    $captcha->output_folder($capdatadir);
    $captcha->expire($cap_expire * 60);
}

my @mobext = qw(jpg gif png);

if (! defined $in{mode}) {
	&dmblist;
} elsif ($in{mode} eq 'thedit' && $th_edit_en) {
	&thedit_form;
} elsif ($in{mode} eq 'thedit2' && $th_edit_en) {
	&thedit_delete;
} elsif ($in{mode} eq 'thdelete' && $th_delete_en) {
	&thdelete_form;
} elsif ($in{mode} eq 'thdelete2' && $th_delete_en) {
	&thedit_delete;
} elsif ($in{mode} eq 'mobile') {
	&thmobile;
} elsif ($in{mode} eq 'thiwrform') {
	&thiwrform;
} elsif ($in{mode} eq 'thiwrite') {
	&mbiwrite;
} elsif ($in{mode} eq 'iviewthread') {
	&iviewthread;
} elsif ($in{mode} eq 'read') {
	&mbread;
} elsif ($in{mode} eq 'viewthread') {
	&viewthread;
} elsif ($in{mode} eq 'title' && $title_en == 1){
	&mbread;
} elsif ($in{mode} eq 'imlist' && $image_en){
	&mbread;
} elsif ($in{mode} eq 'wrform'){
	&mbwrform;
} elsif ($in{mode} eq 'thwrform'){
	&thwrform;
} elsif ($in{mode} eq 'write'){
	&mbwrite;
} elsif ($in{mode} eq 'thwrite'){
	&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 'thsearch' && $search_en == 1){
	&thsearch;
} 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 'admin'){
    &thsetup;
} elsif ($in{mode} eq 'thsetup2'){
    &makethsetup;
} 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;
} elsif ($in{mode} eq 'recover'){
	&recover;
} elsif ($in{mode} eq 'mail'){
	&mailform;
} elsif ($in{mode} eq 'send'){
	&send;
} else {
	&dmblist;
}

exit;

#############################################################################
# Read mode #################################################################
#############################################################################
sub mbread {
    my @alldata = reverse &getmbdata;
    my @findata = split(/,/,$alldata[0]);

    my ($donename, $done) = split /:/, $q->cookie("$cookiename2$id");
    my $cook="$thline[1]:$findata[0]";
    my $cookie = $q->cookie(-name    => "$cookiename2$id",
			    -value   => "$cook",
			    -expires => "+1y");
    $cookie = &cookie_path_fix($cookie);
    print "Set-Cookie: $cookie\n";
    
    my $fdone;
    if ($donename == $thline[1]){
	$fdone=$findata[0] - $done;
    } else {
	$fdone=$findata[0];
    }
    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($thtitle);
    &disphead($fdone,$thtitle,@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>";};
    my $cc = 0;
    my @dispdata = $disp_order ? @alldata[$startpoint .. $finline] :
	reverse @alldata[$startpoint .. $finline];
    foreach my $ll (@dispdata){
	if ($t eq 'title' or $t eq 'imlist') {
	    &display_one_title($ll);
	} else {
	    &display_one_message($ll);
	    if ($body_insert6_en and $in{mode} ne 'archive' and $cc == 0){
		print "$body_insert6\n<hr>\n";
	    }
	}
	$cc++;
    }
    
    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_encode {
#    my $a = shift;
#    $a =~ s/([\W])/sprintf("%%%02X", ord($1))/eg;
#    return $a;
#}

sub cookie_path_fix {
    my $a = shift;
    $a =~ s/path\s*=\s*[^;]*;//i;
    return $a;
}

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

sub display_one_title {
    my $line = shift;
    my $t = ($in{mode} eq 'imlist') ? $in{mode} : 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 ($t ne 'imlist' or ($t eq 'imlist' and $imagefile ne '' and -e "$imagedir/$imagefile")) {
	print "<li><a href=\"$mbprint&message=${number}\">Message#${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 ($t 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 {
	if ($in{mode} =~ /^i/ and $in{mode} ne 'imlist'){
	    $image = &mob_image_gen($image,$w,$h);
	} else {
	    $image = &image_gen($image,$w,$h) if ($thumb_gen_en);
	}
	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 $noreplink = 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){
	if ($mailform_en == 2){
	    $one_message .= "<a href=\"mailto:$mail\">$name</a>";
	} elsif ($mailform_en == 1){
	    $one_message .= "<a href=\"$script?mode=mail&num=$number&id=$in{id}\">$name</a>";
	} else {
	    $one_message .= "<font color=\"$each_name_color\">$name</font>";
	}
    } 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>";
    unless (($in{mode} eq 'past' and $noreplink) or
	    ($in{mode} eq 'print' and $noreplink) or
	    $in{mode} eq 'del2' or
	    $in{mode} eq 'archive'){
	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+)\-(\d+)\)/\(<a href=\"$script?mode=print&id=$1&message=$2\">\#$1-$2<\/a>\)/g;
    $main =~ s/(message)\#(\d+)\-(\d+)/<a href=\"$script?mode=print&id=$2&message=$3\">$1\#$2-$3<\/a>/gi;
    $main =~ s/\(\#(\d+)\)/\(<a href=\"$mbprint&message=$1\">\#$1<\/a>\)/g;
    $main =~ s/(message)\#(\d+)/<a href=\"$mbprint&message=$2\">$1\#$2<\/a>/gi;
    $main =~ s/(id)\#(\d+)/<a href=\"$script?mode=viewthread&id=$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;
	
	($ysec,$ymin,$yhour,$ymday,$ymon,$yyear,$ywday,$yyday,$yisdst) = $localtime_en ? localtime($yesterday) : 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 ($in{mode} eq '' or $in{mode} eq 'thwrform'){
	if ($th_head_insert_en == 1){
	    $head_message .= "$th_head_insert\n";
	}
	
	if ($th_style_sheet_en == 1){
	    $head_message .= "<STYLE type=\"text/css\">\n";
	    $head_message .= "$th_style_sheet";
	    $head_message .= "\n</style>\n";
	}
    } else {
	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";
	}
    }
    
    if ($in{mode} eq 'res' or $in{mode} eq 'del2' or $in{mode} eq 'edit' or
	$in{mode} eq 'iresform' or $in{mode} =~ /wrform/ or 
	$in{number} =~ /^d/) {
	$head_message .= "<META NAME=\"ROBOTS\" CONTENT=\"NOINDEX\">\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);
# Do not delete in Unix system.
# The lock file can be deleted even it is locked by flock in unix system.
# Leave it all time.
#    unlink "$lockfile" if (-e "$lockfile"); 
    unlink "tmp.$$" if (-e "tmp.$$");
}

sub htmltail {
    print &copyright;
    print "</td></tr></table>\n";
    print "$bottomdisp1";
    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>dmb.cgi 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 = &get_imobj($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,$thtitle,@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("$thtitle","$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 'print' 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> ";
	}
	if ($th_link_en == 1){
	    print "<a href=\"$script\">$th_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&id=$id\">";
	print (('添付','attachment')[$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;
    if (open(GETFILE,"< $mbdata")){
	flock GETFILE, 1;
	while(<GETFILE>){
	    chomp;
	    push(@alldata,$_);
	    if ($#alldata >= 200){
		shift(@alldata);
	    }
	};
	close(GETFILE);
	return (@alldata);
    } else {
	&error("無効なスレッドIDです。");
    }
}

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

    my $titleprint = &titleprint("$thtitle $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);

    &wrticket;
    &display_after_write;

    &write_comment;

    print "<INPUT type=\"hidden\" name=\"id\" value=\"$id\">";
    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} = &cookie_decode($value);
	$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]);
    if ($in{mode} eq 'edit' and
	($mailform_en == 1 and $maildisp_en == 0 or
	 $mailform_en == 0 and $maildisp_en == 0)) {
	$mail = '';
    }
    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 "<INPUT type=\"hidden\" name=\"subject\" value=\"$thtitle\">\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}";

    if (($in{name} eq "" or ($in{subject} eq "" and $in{mode} eq 'thwrite')) 
	&& ($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");
    }

    if ($member_only == 1 && !&checkcrypt($in{member_pwd},$member_pwd) && $in{mode} ne 'edit2') {
	my $message = ('メンバー専用パスワードが違います。','Wrong member password')[$lang];
	&error($message);
    }
	
    &lockfile;
    my $imagefile;
    my $imagefile2;
    if ($in{mode} eq 'write' or $in{mode} eq 'thwrite'){

	&security_check;

	if ($in{mode} eq 'thwrite'){
	    $mbdata = &add_thread;
	}

	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 '');
	
	$thread_sofar++;
	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},$thread_sofar\n";
	my $message = ("$mbdataを開けません。","Cannot open $mbdata.")[$lang];
	if ($pastlog_save) {
	    open(FILE,">>$mbdata") || &error($message);
	    flock FILE, 2;
	    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,$thread_sofar)=split(/,/,shift(@alldata));
		chomp($imagefile);
		unlink("$imagedir/$imagefile") if ($imagefile ne '');
		&delete_thumbs($imagefile);
	    }
	    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");
	flock RDFILE, 1;
	open(TMPFILE,"> tmp.$$");
    
	while(<RDFILE>){
	    chomp;
	    my ($number,$datecode,$name,$mail,$orghost,$date,$subject,$main,$oldencpwd,$old_imagefile,$user_name_color,$user_title_color,$user_text_color,$thread_sofar)=split(/,/);
	    if ($number == $in{resnum}){
		if ("$oldencpwd" eq '' and !&checkadmin("$in{pwd}")) {
		    my $message = ("パスワードが設定されていないので管理人のみ変更できます。","Only can the administrator modify the message since password is not specified.")[$lang];
		    &error($message);
		}
		if (!&checkcrypt($in{pwd},$oldencpwd)){
		    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") if ($old_imagefile ne '');
			&delete_thumbs($old_imagefile);
			$imagefile = '';
		    } elsif ($in{imageedit} eq 'asis'){
			$imagefile = "$old_imagefile";
		    } elsif ($in{imageedit} eq 'replace'){
			if ($in{imagefile} ne ''){
			    unlink("$imagedir/$old_imagefile") if ($old_imagefile ne '');
			    &delete_thumbs($old_imagefile);
			    $imagefile2 = &upload_file($number);
			}
			$imagefile = "$imagefile2";
		    } else {
			$imagefile = "$old_imagefile";
		    }
		} else {
		    $imagefile = "$old_imagefile";
		}
		
		if ($dellog_save == 1){
		    open(LOG,">>$mbdellog");
		    flock LOG, 2;
		    print LOG "$_\n";
		    close(LOG);
		    chmod(0666,"$mbdellog");
		}
		if ($in{mode} eq 'del3'){
		    my $cook="$thline[1]:0";
		    my $cookie = $q->cookie(-name    => "$cookiename2$id",
					    -value   => "$cook",
					    -expires => "+1y");
		    $cookie = &cookie_path_fix($cookie);
		    print "Set-Cookie: $cookie\n";
		} else {
		    $thread_sofar++;
		    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},$thread_sofar\n";
		}
	    } else {
		print TMPFILE "$_\n";
	    }
	}
	close(RDFILE);
	close(TMPFILE);
	rename("tmp.$$","$mbdata");
    }
    
    chmod(0666,"$mbdata");
    
    &extraupdate;
    
    &unlockfile;

    if ($in{mode} ne 'thwrite'){
	&update_thread_data;
    }
    
    chmod(0666,"$thdata");

    if ($in{mode} eq 'write' or $in{mode} eq 'thwrite'){
	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_path_fix($cookie);
	my $next;
	if ($in{mode} eq 'thwrite'){
	    $next = 'viewthread';
	} else {
	    $next = 'read';
	}
	print $q->redirect(-url=>"$script?mode=$next&id=$id",-cookie=>"$cookie");
    } else {
	if (-e "$mbdata"){
	    print $q->redirect(-url=>"$script?mode=read&id=$id");
	} else {
	    print $q->redirect(-url=>"$script");
	}
    }
}

sub add_thread {
    $id = &getlastid;
    $id++;
    &lockfile;
    my $newline = "$id," . time . "," . time . ",$in{name},$in{addr},${ip}_${host},$in{subject}," . &makecrypt($in{pwd}) . ",1,0\n";
    my $message = ("$thdataを開けません。","Cannot open $thdata.")[$lang];
    open(FILE,">>$thdata") || &error($message);
    print FILE $newline;
    close(FILE);
    &unlockfile;
    my ($body,$path,$ext) = fileparse($mbdata, '\.\w+');
    $path = '.' if ($path eq '');
    $mbdata = "$path/$id-$body$ext";
    return "$mbdata";
}

sub upload_file {
    my $number = shift;
    my $origfile = basename($in{imagefile});
    $origfile =~ s/^.+[\/\\]([^\/\\]+)$/$1/; #just in case
    if ("$origfile" !~ /^[\w\._\-]+$/) {
	my $message = ("$origfile:アップ後のファイル名は半角英数で。","file name only allows alphabetical characters and _, ., -.")[$lang];
	&error($message);
    }

    my @suffix_list = split /\s+/, $prohibit_extention;
    my ($body_name, $path_name, $suf_name) = fileparse($origfile,@suffix_list);
    if ($suf_name and $prohibit_en){
	&error("$suf_nameの拡張子ではアップロードが禁止されています。");
    }

    my $imagefile="$id-$number-$origfile";
    my $outfile="$imagedir/$imagefile";
    if (! -d "$imagedir") {
	mkdir $imagedir;
    }
    
    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("$thtitle $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);
    &wrticket;
    &display_after_write;

    &write_comment;

    print "<INPUT type=\"hidden\" name=\"id\" value=\"$id\">\n";
    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("$thtitle $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=\"id\" value=\"$id\">";
    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("$thtitle $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,$thtitle,@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("$thtitle $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 "<INPUT type=\"hidden\" name=\"id\" value=\"$id\">";
    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("$thtitle $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,$thtitle,@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&id=$id\">", ("$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("$thtitle $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!<input type=hidden name="id" value="$id">\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">$thtitleへ</a>
<a href="$script">$th_titleへ</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("$thtitle $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">
<input type=hidden name="id" value="$id">
$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">$thtitleへ</a>
<a href="$script">$th_titleへ</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("$thtitle $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.*/$1/;
	$today2 = ($today2 > 1900) ? $today2 -= 1900 : $today2;
	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] > 1900) ? $darray[0] -= 1900 : $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 = "tmp.$$";
    if ($id eq '') {
	$filename = $thdata;
    } else {
	$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");
	flock ALLFILE, 1;
	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");
	flock ALLFILE, 1;
	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;
	my @line;
	while(<ALLFILE>){
	    @line = split /,/;
	    ($cury,$curm,$curd)=split(/_/, $line[1]);
	    if ($id eq ''){
		$curline = $line[1];
	    } else {
		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);
}

sub get_thfirstyear {
    my $first = 0;
    my $last = 0;
    if (open(THFILE, "< $thdata")){
	flock(THFILE, 1);
	my $i;
	while (<THFILE>){
	    chomp;
	    /^\s$/ && next;
	    my ($id,$regtime,$uptime,@dummy) = split /,/;
	    if ($i == 0){
		$first = $regtime;
		$last = $uptime;
	    }
	    if ($regtime < $first) {
		$first = $regtime;
	    }
	    if ($uptime > $last){
		$last = $uptime;
	    }
	    $i++;
	}
	close(THFILE);
    }
    my ($fsec,$fmin,$fhour,$fmday,$fmon,$fyear,$fwday,$fyday,$fisdst) = $localtime_en ? localtime($first) : gmtime($first);
    my ($lsec,$lmin,$lhour,$lmday,$lmon,$lyear,$lwday,$lyday,$lisdst) = $localtime_en ? localtime($last) : gmtime($last);
    return ($fyear,$lyear);
}

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

    my ($firstyear,$finyear);
    if ($in{id} eq ''){
	($firstyear,$finyear) = &get_thfirstyear;
    } else {
	($firstyear,$finyear) = &get_firstyear;
    }

    &htmlhead($mbsrctitle,$firstyear);

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

    print qq(<FORM action="$script" name="search" method="post">\n);
    if ($in{id} eq ''){
	print qq(<input type=hidden name="mode" value="thsearch">\n);
    } else {
	print qq(<input type=hidden name="mode" value="search">\n);
    }

    my $msgnumber;
    if ($in{id} eq ''){
	$msgnumber = 'ID#';
    } else {
	$msgnumber = 'Message#';
    }

    print <<END2;
<input type=hidden name="id" value="$id">
$titleprint

<ul>
<li>ブランクにしている項目は無視されます。</li>
<li>本文中に「>」でインデントされている部分（返事のための引用部）は検索しません。</li>
<li>検索結果は１ページで表\示されるので大量にマッチする検索は表\示に時間がかかります。</li>
END2

if ($in{id} eq ''){
    print qq(<li>スレッド名のみの指定で他をブランクにするとスレッド名のみ検索になります。</li>\n);
    print qq(<li>スレッド名をブランクにし、他を指定すると全スレッドの内容検索になります。</li>\n);
    print qq(<li>スレッド名と他を指定しても全スレッドのスレッド名＋内容検索になります。</li>\n);
}

    print <<END2;
</ul>

<table cols=2 border=1 width="90%">
<tr>
<td width="10%" nowrap>
検索範囲
</td>
<td>
<table cols=2 border=0 width="10%">
<tr>
<td colspan=2 style="border:0px" nowrap>
<input type=radio name="ref" value="whole" checked>全部　
<input type=radio name="ref" value="part">$msgnumber
<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>
END2

if ($in{id} eq ''){
print <<END3;
<tr>
<td width="10%" nowrap>スレッド名</td>
<td width="70%">
<input type=text name="title" size="30"><br>
</td>
</tr>
END3
}

print <<END4;
<input type=hidden name="title_plus" value="and">
<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="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>
END4

if ($in{id} ne ''){
    print qq(<a href="$mbread">$thtitleへ</a>\n);
}

    print <<END5;
<a href="$script">$th_titleへ</a>
</form>

END5
&htmltail;

}

#############################################################################
# Thread Search mode ########################################################
#############################################################################
sub thsearch {
    my ($name, $title, $main1, $main2, $main3) = 
	&escape_sjis_char($in{name},$in{title},$in{main1},$in{main2},$in{main3});

    &htmlhead("$mbsrctitle");
    &backbutton;

    my @idlist;
    my @idtitle;
    if ($title eq ''){
	my ($refid, $reftitle) = &get_idlist($title);
	@idlist = @{$refid};
	@idtitle = @{$reftitle};
    } elsif ($title ne '') {
	if ($in{name} eq '' and $in{main1} eq '' and $in{main2} eq '' and $in{main3} eq '') {
	    &search_body($name, $title, $main1, $main2, $main3, 'thread');
	} else {
	    my ($refid, $reftitle) = &get_idlist($title);
	    @idlist = @{$refid};
	    @idtitle = @{$reftitle};
	}
    }

    foreach my $tmpid (@idlist){
	my ($body,$path,$ext) = fileparse($mbdata, '\.\w+');
	$path = '.' if ($path eq '');
	$body =~ s/^\d+//;
	$mbdata = "$path$tmpid$body$ext";
	$id = $tmpid;
	&search_body($name, '', $main1, $main2, $main3, $tmpid, $idtitle[$tmpid]);
    }

    &backbutton;
    &htmltail;
}

sub get_idlist {
    my $title = shift;
    my @idlist;
    my @idtitle;
    if (open (THFILE, "< $thdata")){
	flock THFILE, 1;
	if ($title eq ''){
	    while (<THFILE>){
		chomp;
		my ($id,@tmp) = split /,/;
		push (@idlist, $id);
		$idtitle[$id] = "$tmp[5]";
	    }
	} else {
	    while (<THFILE>){
		chomp;
		my ($id,@tmp) = split /,/;
		if ($tmp[5] =~ /$title/){
		    push (@idlist, $id);
		    $idtitle[$id] = "$tmp[5]";
		}
	    }
	}
	close(THFILE);
    }
    return (\@idlist, \@idtitle);
}

sub escape_sjis_char {
    my @in = @_;
    
    foreach (@in) {
# 正規表現のスペシャルな文字に関してエスケープする。
# \=%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;
    }
    return (@in);
}

#############################################################################
# Search mode ###############################################################
#############################################################################
sub mbsearch {
    &htmlhead("$mbsrctitle");
    &backbutton;

    &search_body;
    
    &backbutton;
    &htmltail;
}

sub search_body {
    my ($filename,$tmpdata) = &gentmpdata;
    my ($name, $title, $main1, $main2, $main3,$tmpid, $tmptitle);
    if ($in{id} eq ''){
	($name, $title, $main1, $main2, $main3,$tmpid,$tmptitle) = @_;
    } else {
	($name, $title, $main1, $main2, $main3) = 
	    &escape_sjis_char($in{name},$in{title},$in{main1},$in{main2},$in{main3});
    }

    open(FILE,"< $filename") || "die Cannot open file\n";
    
    print "<ul>\n";
    
    while (<FILE>){
	chomp;

	my $nameres = 0;
	my $titleres = 0;
	my $main1res = 0;
	my $main2res = 0;
	my $main3res = 0;
	my ($lnum,$ldcode,$lname,$lmadd,$lip,$ldate,$ltitle,$lmain,$lencpwd,$limagefile);
	my ($ldcode2,$lmsg,$lread);
	if ($id eq ''){
	    ($lnum,$ldcode,$ldcode2,$lname,$lmadd,$lip,$ltitle,$lencpwd,$lmsg,$lread)=split(/,/);
	} else {
	    ($lnum,$ldcode,$lname,$lmadd,$lip,$ldate,$ltitle,$lmain,$lencpwd,$limagefile)=split(/,/);
	}
	$lmain =~ s/\&gt\;[^<]*<br>//g;

	my $lcname = lc $name;
	my $lctitle = lc $title;
	my $lcmain1 = lc $main1;
	my $lcmain2 = lc $main2;
	my $lcmain3 = lc $main3;
	my $lclname = lc $lname;
	my $lcltitle = lc $ltitle;
	my $lclmain = lc $lmain;
	($name ne '') && ("$lclname" =~ /$lcname/) && ($nameres = 1);
	($title ne '') && ("$lcltitle" =~ /$lctitle/) && ($titleres = 1);
	($main1 ne '') && ("$lclmain" =~ /$lcmain1/) && ($main1res = 1);
	($main2 ne '') && ("$lclmain" =~ /$lcmain2/) && ($main2res = 1);
	($main3 ne '') && ("$lclmain" =~ /$lcmain3/) && ($main3res = 1);

	($name eq '' or $main1 eq '' and $main2 eq '' and $main3 eq '') && ($in{name_plus} = 'and');
	($main1 eq '' and ($main2 ne '' or $main3 ne '')) && ($in{main1_plus} = 'and');
	($main2 eq '' and $main3 eq '') && ($in{main1_plus} = 'and');
	($main1 eq '' and $main2 eq '' and $main3 ne '') && ($in{main2_plus} = 'and');
	($main3 eq '') && ($in{main2_plus} = 'and');
	
	eval "unless ((\$titleres or \$title eq '') $in{title_plus}
                      (\$nameres or \$name eq '') $in{name_plus} 
                      ((\$main1res or \$main1 eq '') $in{main1_plus}
                       (\$main2res or \$main2 eq '') $in{main2_plus}
                       (\$main3res or \$main3 eq ''))) {next;}";
	
	print "<li>";
	if ($name ne ''){$lname =~ s/($name)/<b>$1<\/b>/ig;}
	if ($tmpid eq 'thread'){
	    print "<a href=\"$script?mode=viewthread&id=$lnum\">ID#$lnum</a>";
	} elsif ($tmpid ne ''){
	    print "<a href=\"$script?mode=print&message=$lnum&id=$tmpid\">#$tmpid-$lnum</a>";
	} else {
	    print "<a href=\"$script?mode=print&message=$lnum&id=$id\">#$lnum</a>";
	}
	print ", ", $lname, ", ";
	if ($title ne ''){$ltitle =~ s/($title)/<b>$1<\/b>/ig;}
	my $disp_subject;
	if ($tmpid eq 'thread'){
	    $disp_subject = &subject_text($ltitle);
	} else {
	    $disp_subject = &subject_text($tmptitle);
	}
	print "<f