#! /usr/bin/perl
#
# mjbbs.cgi
# 麻雀掲示板
#
# Revision history
# 2.008 : 3/26/07 : NG wordを追加
# 2.007 : 10/16/06 : Cookieを修正
# 2.006 : 10/5/06 : 直接書き込み防止機能を追加
# 2.005 : 1/7/06 : 画像処理を修正
# 2.004 : 10/7/05 : logo設定のタイプミスを修正
# 2.003 : 10/2/05 : Copyrightにリンクを追加
# 2.002 : 9/18/05 : jcode.plを削除
# 2.001 : 2/28/05 : ジャンタグ一覧のＨＴＭＬを修正
# 2.0   : 2/22/05 : 一般公開のため大幅改造、nerimb3.cgiをベースに牌表示機能を追加
#
# 直接実行可能なMode Options:
# mode=read
# mode=title
# mode=wrform
# mode=res
# mode=delete
# mode=edit
# mode=link
# mode=sumform
# mode=sumpsnl
# mode=schform
# mode=archform
# mode=past
# mode=iread
# mode=iwrform
# mode=iresform
# mode=unlock
# mode=setup
# mode=namedef
# mode=print
# mode=ssi（ＳＳＩで呼び出すときのみ有効）
#
# mode=unlockとmode=backupはメニューに出てきませんので直接ＵＲＬを
# タイプしてください。
# 例）nerimb3.cgi?mode=unlock
# 　　nerimb3.cgi?mode=backup　(ver.1.0 compatibleのみ有効)
# 他のメニュー表示、非表示はセットアップ画面で選択できます。
# 非表示にした場合、mode=delete（削除）、mode=setup（セットアップ）のみ
# ＵＲＬ直接指定で実行できます。その他の機能は直接指定しても動きません。
#
# パスワードファイルを削除することにより新パスワードを設定し直す事ができます。
#
# - mode=ssi
#   次のようにＳＳＩとして埋め込むのことによって最新メッセージの最初のline行を
#   を表示することができます。
#   <!--#include virtual="nerimb3.cgi?mode=ssi&line=5 -->
#
# Undocumented Usage :
# 次のように<a href>などで直接リンクすることで特定のメッセージを表示させることが
# できます。
# - nerimb3.cgi?mode=print&message=<number>
#   でMessage# <number>を表示します。
#   <number>は、ハイフン、カンマで複数指定することが出来ます。
#   ハイフンは範囲、カンマは区切りを表します。
#   例：nerimb3.cgi?mode=print&message=12,15,24,20-22,8-5
#       Message#5,6,7,8,12,15,20,21,22,24を表示します。
# - nerimb3.cgi?mode=print&message=<number>&title=on
#   でMessage# <number>のタイトルを表示します。
#   <number>は、ハイフン、カンマで複数指定することが出来ます。
#   ハイフンは範囲、カンマは区切りを表します。
#   例：nerimb3.cgi?mode=print&message=12,15,24,20-22,8-5
#       Message#5,6,7,8,12,15,20,21,22,24のタイトルを表示します。
#
# - nerimb3.cgi?mode=past&number=<number>
#   でMessage# <number>を表示します。
# - nerimb3.cgi?mode=past&number=<number1>&lin=<number2>
#   で<number1>から<number2>分前までを表示します。
#   例：nerimb3.cgi?mode=past&number=1232&lin=6
#       Message#1226から#1232まで計７件表示します。
# - nerimb3.cgi?mode=read&number=d<number>
#   で今日から過去<number>日分のメッセージを表示します。
#   例：nerimb3.cgi?mode=read&number=d16
#       今日から過去１６日分表示（最新２００件分以内のみ有効）
# - nerimb3.cgi?mode=read&number=<number>
#   で最新メッセージから過去<number>分のメッセージを表示します。
#   例：nerimb3.cgi?mode=read&number=120
#       最新メッセージから過去１２０件分表示（最新２００件分以内のみ有効）
# 
# 自動リンク：
# - 書き込み記事内のhttp://から半角文字の最後まで自動リンクされます。
# - 書き込み記事内の(#1234)などの表記でそのメッセージナンバーへリンクされます。
# - 書き込み記事内のMessage#1234の表記でもそのメッセージナンバーへリンクされます。
#
# rejectlink.datとnamedef.datはファイル名が決まっています。
# rejectlink.datは、link modeで、namedef.datは、summary modeで
# 使用されますが、無くても問題ありません。
# どちらもnerimb3.cgiと同じディレクトリに置いてください。
# 通常どちらもcgi-binに置いてください。
# 
# rejectlink.dat :
# メッセージ中のリンクの中でデッドリンク等でリンク表示のリストから
# 除外したいメッセージナンバーをrejectlink.datに１行つづ記述してください。
#　例：以下はrejectlink.datの内容の例です。
#　　　----------------------------------------
#　　  1
#　　  120
#　　  123
#　　  523
#　　　----------------------------------------
#
# namedef.dat :
#　統計の個人名方式で「人物」を選んだ場合に違う名前を同一人物と
#　判断させることができます。
#　namedef.datにそれらの名前を人物ごとに１行に登録されていると
#　一番左の名前が代表として表示されます。
#　例：以下はnamedef.datの内容の例です。
#　　　----------------------------------------
#　　　管理人,作成者,かんりにん
#　　　ホークス,hawks
#　　　----------------------------------------
#　この例では、「作成者」「かんりにん」共に「管理人」と同一人物として
#　まとめて集計されます。
#　「ホークス」は改行されているので管理人と別人として判断されますが、
#　「hawks」とは同一人物となります。
#　namedef.datがない場合は、書き込みの名前そのままで集計されます。
#
# http://www.hidekik.com
#
# $Id: mjbbs.cgi,v 1.13 2007/03/26 04:24:40 Hideki Kanayama Exp $
# Copyright(c) 1998-2007 Hideki Kanayama Allright reserved

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

=head1 麻雀牌は以下のサイトのを利用しています。

------------------------------------------
          まつセン　牌画
          （フリー素材）
------------------------------------------

「軽さ」にこだわった「小ファイルサイズ！」のGIF牌画像

　麻雀を世に広めるため、牌画を使って素敵なＨＰやプログラム
をつくってみましょうよ！！
　リンク貼れだの、メール連絡しろだのと細かい使用条件はなる
べくつけませんので、どんどん活用方法を考えてみてください！

※使用上の注意

・牌画は勝手にどんどん使ってください。ＨＰ等での使用にあた
　って使用連絡する必要ナシ。

・（この牌画だけを有料で配布なんてことはまず商業的に無理で
　しょうから）プログラムに使うなど、ご自分で付加価値を高め
　ての商用化はご自由に。著作権料もいりません。

・再配布したい方､プログラム等に使用したい方はご連絡だけいた
　だけませんでしょうか。
　（使用条件、制限を求めるとかではないのでご心配なく）

・１６色透過ＧＩＦ画像です。

・好みに応じて牌の色を変えたり自分で改造して使用してください。

・花牌など、無い牌は自分で作ってください（笑）。

・このＨＰへのリンクはご自由にどうぞ！



 まつセンパイ
 --------------------------------------------
  e-mail: l6000all@m4.cty-net.ne.jp
  HP    : http://www4.cty-net.ne.jp/~l6000all/

  (^ー^)    Let's play mahjong !
 m::::::m    

=cut

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

use CGI::Carp qw(fatalsToBrowser);
use GD;

require "timelocal.pl";
require "cgi-lib.pl";

$mbsetupfile = "mbsetup.pl";
$admindat = "adminpwd.dat";
$namedef = "namedef.dat";

$version = "2.008";

$reservedyear = "1998-2007";

$program = $0;
$program =~ s/^.+[\/\\]([^\/\\]+)$/$1/;
$script = "$program";

$lang = 0;

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

#$cgibin = "../cgi-bin";
$mbdir = ".";
$mbdata = "$mbdir/logdata.dat";

# The following files are only used in versino 1.0 compatible mode.
$mbpastdata = "$mbdir/logpast.dat";
$mbarchdata = "$mbdir/logarch.dat";
$pastall = "$mbdir/logpast.all";
$alldata = "$mbdir/logdata.all";
$mbdellog="$mbdir/mbdel.log";

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

# 使い方の説明ファイルは各自で用意してください。
$mbusage = "$mbdir/mbusage.html";

# 牌画像ファイルのディレクトリ
$paidir = 'pai';

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

$mbtitle = "麻雀掲示板";
$mblogo = "$mbdir/mboard.gif";
$logo_style = '';
$logo_color = 'black';
$logo_size = '+1';
$logo_face = '';
$logo_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
$logo_loc=1;  # 0:左、1:中、2:右

$mbwrtitle = "麻雀掲示板書き込み";
$mbwr_logo = "";
$mbwr_style = '';
$mbwr_color = 'black';
$mbwr_size = '+1';
$mbwr_face = '';
$mbwr_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
$mbwr_loc=0;  # 0:左、1:中、2:右

$mbrestitle = "麻雀掲示板返事";
$mbres_logo = "";
$mbres_style = '';
$mbres_color = 'black';
$mbres_size = '+1';
$mbres_face = '';
$mbres_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
$mbres_loc=0;  # 0:左、1:中、2:右

$mbsumtitle = "麻雀掲示板　書き込み統計";
$mbsum_logo = "";
$mbsum_style = '';
$mbsum_color = 'black';
$mbsum_size = '+1';
$mbsum_face = '';
$mbsum_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
$mbsum_loc=1;  # 0:左、1:中、2:右

$mbarctitle = "麻雀掲示板　アーカイブ作成";
$mbarc_logo = "";
$mbarc_style = '';
$mbarc_color = 'black';
$mbarc_size = '+1';
$mbarc_face = '';
$mbarc_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
$mbarc_loc=1;  # 0:左、1:中、2:右

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

$mbsrctitle = "麻雀掲示板　サーチ";
$mbsrc_logo = "";
$mbsrc_style = '';
$mbsrc_color = 'black';
$mbsrc_size = '+1';
$mbsrc_face = '';
$mbsrc_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
$mbsrc_loc=1;  # 0:左、1:中、2:右

$mbdeltitle = "麻雀掲示板削除";
$mbdel_logo = "";
$mbdel_style = '';
$mbdel_color = 'black';
$mbdel_size = '+1';
$mbdel_face = '';
$mbdel_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
$mbdel_loc=1;  # 0:左、1:中、2:右

$mbedititle = "麻雀掲示板変更";
$mbedit_logo = "";
$mbedit_style = '';
$mbedit_color = 'black';
$mbedit_size = '+1';
$mbedit_face = '';
$mbedit_sel = 0; # 0:デフォルト、1:テキスト、2:ロゴ、3:スタイルシート
$mbedit_loc=1;  # 0:左、1:中、2:右

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

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

# 統計の「ピッタリ賞」でキリ番として扱われるメッセージナンバーの設定。
@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:無効
$summary_en = 0;

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

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

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

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

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

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

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

# 使い方 1:有効 0:無効
# 使い方の説明ファイルは各自で用意してください。
$usage_en = 0;

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

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

# トップへのリンク 1:表示 0:非表示
$top_link_en = 1;
$top_link_title = 'トップへ';
$top_link = '../index.html';

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

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

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

# 名前欄の敬称 1:on 0:off
$namesan_en = 0;
$namesan = 'さん';

# 返信コメントでの敬称 1:on 0:off
$ressan_en = 0;
$ressan = 'さん';

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

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

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

# Data file compatible with version 1.0
# 1: Compatible, 0: Incompatible
# Version 1.0　では、２００件以前の過去のデータを
# $mbarchdataと$mbpastdataに分割して保存します。
# Versoin 2.0　以降では、全てのデータを$mbdataの一つのファイルに保存します。
$compatible = 0;

# Archiveで使われる圧縮コマンド
$compress = "gzip"; #実行されるコマンド
$compmsg = "gzip";  #説明に使われるコマンド名

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

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

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

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

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

# 縮小表示時のサイズ
$max_w = 150;
$max_h = 150;

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

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

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

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

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

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

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

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

&ReadParse;

%in=&mbdecode(%in);

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

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

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

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

if ($bgimage_en == 1){
	$bgimage = "background=\"$bgimagefile\"";
} else {
	$bgimage = "bgcolor=\"$bgcolor\"";
}

@janpai = qw(
man1 man2 man3 man4 man5 man6 man7 man8 man9
pin1 pin2 pin3 pin4 pin5 pin6 pin7 pin8 pin9
sou1 sou2 sou3 sou4 sou5 sou6 sou7 sou8 sou9
haku hatu tyun ton  nan  sha  pei
man5red pin5red sou5red ura
);


#if ($in{mode} ne 'setup' && $in{mode} ne 'setup1' && $in{mode} ne 'setup2'){
#	if (! -d "$mbdir"){
#		print "Content-Type:text/html\n\n";
#		print "<html>\n";
#		print "<HEAD>\n";
#		print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
#		print "<META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">\n";
#		print "<TITLE>ディレクトリ$mbdirが存在しません</TITLE>\n";
#		print "</HEAD>\n";
#		print "<body $bgimage>\n";
#		print "<center>ディレクトリ$mbdirが存在しません。</center>\n";
#		print "</body></html>\n";
#		exit;
#	}
#}

if ($in{mode} eq 'read' || ($in{mode} eq 'title' && $title_en == 1) || $in{mode} eq ''){
	&mbread;
} elsif ($in{mode} eq 'wrform'){
	&mbwrform;
} elsif ($in{mode} eq 'write'){
	&mbwrite;
} elsif ($in{mode} eq 'res'){
	&mbres;
} elsif ($in{mode} eq 'delete'){
	&mbdel1;
} elsif ($in{mode} eq 'del2'){
	&mbdel2;
} elsif ($in{mode} eq 'del3'){
	&mbdel3;
} elsif ($in{mode} eq 'edit'){
	&mbedit;
} elsif ($in{mode} eq 'edit2'){
	&mbedit2;
} elsif ($in{mode} eq 'link' && $link_en == 1){
	&mblink;
} elsif ($in{mode} eq 'sumform' && $summary_en == 1){
	&mbsumform;
} elsif ($in{mode} eq 'sumpsnl' && $summary_en == 1){
	&mbsumpsnl;
} elsif ($in{mode} eq 'summary' && $summary_en == 1){
	&mbsum;
} elsif ($in{mode} eq 'namedef' && $summary_en == 1){
	&mbnamedef;
} elsif ($in{mode} eq 'namedefwr' && $summary_en == 1){
	&mbnamedefwr;
} elsif ($in{mode} eq 'schform' && $search_en == 1){
	&mbschform;
} elsif ($in{mode} eq 'search' && $search_en == 1){
	&mbsearch;
} elsif ($in{mode} eq 'archform' && $archive_en == 1){
	&mbarchform;
} elsif ($in{mode} eq 'archive' && $archive_en == 1){
	&mbarch;
} elsif ($in{mode} eq 'past' || $in{mode} eq 'print'){
	&mbpast;
} elsif ($in{mode} eq 'iread' && $imode_en == 1){
	&mbiread;
} elsif ($in{mode} eq 'iwrite' && $imode_en == 1){
	&mbiwrite;
} elsif ($in{mode} eq 'iwrform' && $imode_en == 1){
	&mbiwrform;
} elsif ($in{mode} eq 'iresform' && $imode_en == 1){
	&mbiresform;
} elsif ($in{mode} eq 'backup'){
	&mbbackup;
} elsif ($in{mode} eq 'unlock'){
	&mbunlock;
} elsif ($in{mode} eq 'setup'){
	&setadminpwd;
} elsif ($in{mode} eq 'setup1'){
	&asksetup;
} elsif ($in{mode} eq 'setup2'){
	&makesetup;
} elsif ($in{mode} eq 'ssi'){
	&mbssi;
} elsif ($in{mode} eq 'jantag'){
	&mbjantag;
} else {
	&mbread;
}

exit;

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

&getmbdata;

@alldata = reverse(@alldata);

$cookies = $ENV{'HTTP_COOKIE'};

@pairs = split(/;/,$cookies);
foreach $pair (@pairs) {

	($name, $value) = split(/=/, $pair);
	$name =~ s/ //g;
	$DUMMY{$name} = $value;
}

@pairs = split(/,/,$DUMMY{$cookiename2});
foreach $pair (@pairs) {

	($name, $value) = split(/:/, $pair);
	$COOKIE{$name} = &cookie_decode($value);
}

$date_gmt=&mbcook;

@findata = split(/,/,$alldata[0]);

$cook="done:$findata[0]";

#$ago = $ENV{"QUERY_STRING"};
$ago = $in{number};

#if ($ago ne ''){
	print "Set-Cookie: $cookiename2=$cook; expires=$date_gmt\n";
#}

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

$fdone=$findata[0] - $COOKIE{done};
$fnext=$findata[0] - 20;
$startpoint = 0;

if($ago eq done){
	$line=$fdone;
} elsif ($ago =~ /&/) {
	($ago,$t)=split(/&/,$ago);
	$line = $ago;
} elsif ($ago =~ /^d/) {
	$ago =~ s/d(\d+)/$1/;
	$today=$time_offset;

	for($i=0;$i<=$ago;$i=$i+1){
		$yesterday=$today-86400*$i;

		($ysec,$ymin,$yhour,$ymday,$ymon,$yyear,$ywday,$yyday,$yisdst)=gmtime($yesterday);

		$yrmon=$ymon+1;
		$yester1="${yyear}_${yrmon}_${ymday}";

		@yesterdata=grep(/^\d\d*,$yester1,/,@alldata);

		$ycount=$#yesterdata + 1;
		$line = $line + $ycount;
	}

} 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;
}

$t = $in{mode};

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

print "<html>";
print <<HEADPRINT;
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
   <META NAME="Author" CONTENT="Hideki Kanayama">
   <TITLE>$mbtitle</TITLE>
HEADPRINT

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

print "</HEAD>\n";
print "<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";

&disphead;

if (($fnext > $findata[0] - 200) && (($ago eq '')||($startpoint != 0))) {
	if ($fnext > 0) {print "<a href=\"$mbread&number=n$fnext\">更に前の２０件を見る</a>　";}
}
print "<hr>\n";

if ($t eq 'title') {print "<ul>";};
foreach $count ($startpoint .. $finline){
	chomp($alldata[$count]);
	my $pai;
	($number,$datecode,$name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile,$pai)=split(/,/,$alldata[$count]);

    if ($t eq 'title') {
	print "<li><a href=\"$mbpast&number=${number}&lin=0\">#${number}</a>、";
	@sub2=split(/Re:/,$subject);
	if ($#sub2 > 1){
		print "<font color=\"$post_title_color\">Re$#sub2:$sub2[$#sub2]</font>";
	} else {
		print "<font color=\"$post_title_color\">$subject</font>";
	}
	@darray = split(/[^\d]/,$date);
	$dy = $darray[0]+1900;
	$date =~ s/^\d?\d\d([^\d]..*)$/$dy$1/;
	print "<font color=\"gray\"> ........ $date</font></li>\n";
    } else {
	
	print "<table cols=2 border=0 width=\"100%\"><tr>";
#	print "<td nowrap style=\"border:0px\">Message#${number} $date<br>";
	@darray = split(/[^\d]/,$date);
	print "<td nowrap style=\"border:0px\">Message#${number} ";
	$dy = $darray[0]+1900;
	$date =~ s/^\d?\d\d([^\d]..*)$/$dy$1/;
	print "$date<br>";
	print "From: ";
	if ($mail ne ""){
		print "<a href=\"mailto:${mail}\">${name}</a>"
	} else {
		print "<font color=\"#0000ee\">$name</font>";
	}
	if ($namesan_en == 1){
		print "$namesan";
	}
	if ($mail ne "" && $maildisp_en == 1){
		print " ($mail)"
	}
	print "</td>";
	print "<td style=\"border:0px\"><div align=right>";
	print "<a href=\"$mbres&resnum=${number}\">返事</a>";
	if ($delete_en == 1) {print " <a href=\"$mbdel2&resnum=${number}\">削除</a>";}
	if ($modify_en == 1) {print " <a href=\"$mbedit&resnum=${number}\">変更</a>";}
	print "</div></td></tr></table>";
	@sub2=split(/Re:/,$subject);

	print "<table cols=1 border=0 cellpadding=10><tr><td style=\"border:0px\">";
	if ($#sub2 > 1){
		print "<font color=\"$post_title_color\" size=\'$post_title_size\' face=\'$post_title_face\'>Re$#sub2:$sub2[$#sub2]</font>";
	} else {
		print "<font color=\"$post_title_color\" size=\'$post_title_size\' face=\'$post_title_face\'>$subject</font>";
	}
	print "</td></tr></table>";

	if ($link_samewin_en == 1){
		$link_target = '_top';
	} else {
		$link_target = '_blank';
	}
	$main =~ s/(https?:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\$]*)/<a href=\"$1\" target="$link_target">$1<\/a>$2/g;
	$main =~ s/\(#(\d+)\)/\(<a href=\"$mbprint&message=$1\">#$1<\/a>\)/g;
	$main =~ s/([Mm][Ee][Ss][Ss][Aa][Gg][Ee])#(\d+)/<a href=\"$mbprint&message=$2\">$1#$2<\/a>/g;

	$main =~ s/(&lt;\w+&gt;)/&convjantag($1)/ige;

	@mainarry=split(/<[bB][rR]>/,$main);

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

	$imagefile =~ s/[\r\n]*$//;

	if ($image_en == 1 && $imagefile ne ''){
		$imagefile =~ /.+(\..+)$/;
		$tail = $1;

		($imagefile,$w,$h)=&get_image_size($imagefile,$max_w,$max_h);

		if ($image_samewin_en == 1){
			$newwin = '';
		} else {
			$newwin = 'target="_blank"';
		}

		print "<a href=\"$imagefile\" $newwin style=\"border:0px\"><img src=\"$imagefile\" width=$w height=$h border=0></a>";
	}

	print "</td>";
	print "<td valign=top style=\"border:0px\">";

	&readpai($pai);

	foreach (@mainarry){
		if(/^(\&gt;)(.*)$/){
			print "<font color=\"$quate_color\">$1$2</font>";
		} else {
			print;
		}
		print "<br>";
	}
	print "</td></tr>";
	print "</table><hr>\n";
    }
}
if ($t eq 'title') {print "</ul><hr>\n";};
if (($fnext > $findata[0] - 200) && (($ago eq '')||($startpoint != 0))) {
	if ($fnext > 0) {print "<a href=\"$mbread&number=n$fnext\">更に前の２０件を見る</a>　";}
}

&disptail;

print "<p><center><a href=\"$mbwrform\">新規書き込み</a></center><p>\n";

&copyright;

print "</body>";
print "</html>";

}

sub get_image_size {

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

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

sub copyright {

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

sub convjantag {
	my ($tag) = shift;
	my $result, $orgtag, $word;

	$orgtag = $tag;
	$tag =~ tr/[A-Z]/[a-z]/;
	$tag =~ /&lt;(.+)&gt;/;
	$word = $1;
	if (-e "$paidir/$word.gif") {
		$result = "<img src=\"$paidir/$word.gif\">";
		return($result);
	} else {
		return($orgtag);
	}
}

sub readpai {

my ($pai) = shift;
my (@paiarray);

@paiarray = split(/<>/,$pai);

&paidisplay(@paiarray);

}

sub disphead {
local(@md)=@_;

$today=$time_offset;
foreach $i (0 .. 5){

	$yesterday=$today-86400*$i;
	($ysec,$ymin,$yhour,$ymday,$ymon,$yyear,$ywday,$yyday,$yisdst)=gmtime($yesterday);
	$yrmon=$ymon+1;
	$yester1="${yyear}_${yrmon}_${ymday}";
	@yesterdata=grep(/^\d\d*,$yester1,/,@alldata);
	$ycount=$#yesterdata + 1;
	$line[$i] = $ycount;

}

$mb0=$line[0];
$mb1=$mb0+$line[1];
$mb2=$mb1+$line[2];
$mb3=$mb2+$line[3];
$mb4=$mb3+$line[4];
$mb5=$mb4+$line[5];

$titleprint=&titleprint("$mbtitle","$mblogo","$logo_style","$logo_color","$logo_size","$logo_face","$logo_sel","$logo_loc");

if ($md[0] == 0){
if ($logo_sel != 4){
#	print "<CENTER><img src=\"$mblogo\" alt=\"$mbtitle\" nosave></center><br>\n";
	print "$titleprint\n";
}
print "<center>最近の書き込み件数：　今日 $mb0件、昨日 $line[1]件</center>\n";
print "<center>";
if ($fdone > 0) {print "<a href=\"$mbread&number=$fdone\">";}
print "未読分：$fdone件";
if ($fdone > 0) {print "</a>\n";}
print "</center><br>\n";
#print "<center>未読分：$fdone件</center><br>\n";
print "<center>";
if ($top_link_en == 1){
	print "<a href=\"$top_link\">$top_link_title</a>　";
}
print "<a href=\"$mbwrform\">新規書き込み</a></center><p>\n";
}

print "<center><font size=\"-1\"><A HREF=\"$mbread\">最新２０件</A>＊<A HREF=\"$mbread&number=50\">最新５０件</A>＊<A HREF=\"$mbread&number=100\">最新１００件</A>＊<A HREF=\"$mbread&number=200\">最新２００件</A>＊<A HREF=\"$mbpast\">２００件以前</A></font><br>\n";
print "<font size=\"-1\"><A HREF=\"$mbread&number=d1\">昨日以降</A>($mb1)＊<A HREF=\"$mbread&number=d2\">２日前以降</A>($mb2)＊<A HREF=\"$mbread&number=d3\">３日前以降</A>($mb3)＊<A HREF=\"$mbread&number=d4\">４日前以降</A>($mb4)＊<A HREF=\"$mbread&number=d5\">５日前以降</A>($mb5)<br>\n";
if ($summary_en == 1){print "<a href=\"$mbsumfm\">統計</a>＊";}
if ($archive_en == 1){print "<a href=\"$mbarchform\">アーカイブ</a>＊";}
if ($link_en == 1){print "<a href=\"$mblink\">リンク</a>＊";}
if ($title_en == 1){print "<a href=\"$mbreadt&number=200\">タイトル</a>＊";}
if ($search_en == 1){print "<a href=\"$mbschform\">サーチ</a>＊";}
#if ($delete_en == 1){print "<a href=\"$mbdel1\">削除</a>＊";}
if ($imode_en == 1){print "<a href=\"$mbiread\" target=\"_top\">携帯モード</a>＊";}
if ($usage_en == 1){print "<a href=\"$mbusage\">使い方</a>＊";}
if ($setup_en == 1){print "<a href=\"$mbsetup\">セットアップ</a>";}
print "</center>";
print "</font>\n";

}

sub disptail {

print "<center><font size=\"-1\"><A HREF=\"$mbread\">最新２０件</A>＊<A HREF=\"$mbread&number=50\">最新５０件</A>＊<A HREF=\"$mbread&number=100\">最新１００件</A>＊<A HREF=\"$mbread&number=200\">最新２００件</A>＊<A HREF=\"$mbpast\">２００件以前</A></font></center>\n";
print "<center><font size=\"-1\"><A HREF=\"$mbread&number=d1\">昨日以降</A>＊<A HREF=\"$mbread&number=d2\">２日前以降</A>＊<A HREF=\"$mbread&number=d3\">３日前以降</A>＊<A HREF=\"$mbread&number=d4\">４日前以降</A>＊<A HREF=\"$mbread&number=d5\">５日前以降</A></font></center>\n";

}

sub getmbdata {
if ($compatible == 1){
	open(FILE,"< $mbdata");
	@alldata=<FILE>;
	close(FILE);
} else {
	open(FILE,"< $mbdata");
	while(<FILE>){
		chomp;
		push(@alldata,$_);
		if ($#alldata >= 200){
			shift(@alldata);
		}
	};
	close(FILE);
}
}

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

$cookies = $ENV{'HTTP_COOKIE'};

@pairs = split(/;/,$cookies);
foreach $pair (@pairs) {

	($name, $value) = split(/=/, $pair);
	$name =~ s/ //g;
	$DUMMY{$name} = $value;
}

@pairs = split(/,/,$DUMMY{$cookiename});
foreach $pair (@pairs) {

	($name, $value) = split(/:/, $pair);
	$COOKIE{$name} = &cookie_decode($value);
}

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

print <<END1;
<HTML>
<HEAD>
   <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">
   <META NAME=\"GENERATOR\" CONTENT=\"Mozilla/4.02 [en] (Win95; I) [Netscape]\">
   <META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">
   <TITLE>$mbwrtitle</TITLE>
END1

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

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

print <<END;
</HEAD>
<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">
<FORM action=\"$script\" method=\"post\" enctype="multipart/form-data">
$titleprint
お名前(必須)
<BR><INPUT type=\"text\" size=\"30\" name=\"name\" value=\"$COOKIE{name}\">
<BR>メールアドレス
<BR><INPUT type=\"text\" size=\"40\" name=\"addr\" value=\"$COOKIE{email}\">
<BR>タイトル(必須)
<BR><INPUT type=\"text\" size=\"60\" name=\"subject\">
<BR><INPUT type=\"hidden\" name=\"mode\" value=\"write\">

<P>内容　<a href="$script?mode=jantag" target="_blank">ジャンタグ一覧</a>
<BR><TEXTAREA rows=\"15\" cols=\"80\" name=\"main\" wrap=off></TEXTAREA>

<p>
END

&wrticket;

if ($image_en == 1){
print <<ENDIMAGE;
アップ画像ファイル（ファイル名は半角英数、アンダースコア、ドットのみ）
<BR><INPUT type=\"file\" size=\"50\" name=\"imagefile\">
<p>
ENDIMAGE
}

&paiinput;

if ($delete_en == 1 || $modify_en == 1){
print <<END2;
パスワード（半角英数で）
<BR><INPUT type=\"password\" size=\"20\" name=\"pwd\" value=$COOKIE{mypwd}>
<p>
END2
}

print "書き込み後の表\示：";

print <<END2;
<select name=\"past\">
	<option value=\"&number=done\">未読分
	<option value=\"&number=5\">５日前以降
	<option value=\"&number=4\">４日前以降
	<option value=\"&number=3\">３日前以降
	<option value=\"&number=2\">２日前以降
	<option value=\"&number=1\">昨日以降
	<option value=\"\" selected>最新２０件
	<option value=\"&number=30\">最新３０件
	<option value=\"&number=50\">最新５０件
	<option value=\"&number=100\">最新１００件
</select>

<P><INPUT type=\"submit\" name=write value=\"書き込む\">　書き込む前にもう一度チェック
<p>

END2

&write_comment;

&unlockdisp;

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


}

sub paiinput {

local($value) = shift;

my $j;
if ($value ne ''){
	my (@localpai) = split(/<>/,$value);
	for($j=0;$j<=$#localpai;$j++){
		if ($localpai[$j] eq '') {$num_check[$j+1][0] = 'checked';next;}
		if ($localpai[$j] =~ /(y?)([a-z]*)(\d?)((red)?)\.?([ma]?)\.?(s?)/){
			if ($1 eq 'y') {$yoko_check[$j+1] = 'checked'}
			if ($2 eq 'man') {$man_check[$j+1] = 'checked'}
			if ($2 eq 'sou') {$sou_check[$j+1] = 'checked'}
			if ($2 eq 'pin') {$pin_check[$j+1] = 'checked'}
			if ($2 eq 'haku') {$haku_check[$j+1] = 'checked'}
			if ($2 eq 'hatu') {$hatu_check[$j+1] = 'checked'}
			if ($2 eq 'tyun') {$tyun_check[$j+1] = 'checked'}
			if ($2 eq 'ton') {$ton_check[$j+1] = 'checked'}
			if ($2 eq 'nan') {$nan_check[$j+1] = 'checked'}
			if ($2 eq 'sha') {$sha_check[$j+1] = 'checked'}
			if ($2 eq 'pei') {$pei_check[$j+1] = 'checked'}
			if ($2 eq 'ura') {$ura_check[$j+1] = 'checked'}
			$num_check[$j+1][$3] = 'checked';
			if ($4 eq 'red') {$red_check[$j+1] = 'checked'}
			if ($6 eq 'm') {$minkan_check[$j+1] = 'checked'}
			if ($6 eq 'a') {$ankan_check[$j+1] = 'checked'}
			if ($7 eq 's') {$space_check[$j+1] = 'checked'}
		}
	}
} else {
	for ($j=1;$j<=14;$j++){
		$num_check[$j][0] = 'checked';
	}
}

my $cols=25;

print "<font size=-1><font color=red>※</font>数字だけで牌の種類（萬品索）がチェックされていなければデフォルトは萬子になります。</font><br>\n";
print "<font size=-1><font color=red>※</font>暗槓、明槓はその列の牌を４つ表\\示します。上の二つが指定されている場合はそれらもそのまま表\\示されます。</font><br>\n";
print "<font size=-1><font color=red>※</font>明槓で二つ上の「横」がチェックされているとカンの左端の牌が横になります。一つ上の「横」がチェックされていると左から２番目の牌が横になります。その列の「横」がチェックされていると右端の牌が横になります。</font><br>\n";
print "<font size=-1><font color=red>※</font>「赤」は伍萬、伍品、伍索だけに有効です。</font><br>\n";
print "<table cols=$cols border=1>\n";
print "<tr><td colspan=$cols nowrap>";
#print "<input type=checkbox name=allvalid onclick=\"\">全部表\\示　";
print "<input type=checkbox name=allinvalid onclick=\"\">全部非表\\示　";
print "<td></tr>\n";
my $i;
foreach $i (1 .. 14) {
	&haipai_oneline($i);
	if ($i == 3 || $i == 6 || $i == 9 || $i == 12 || $i == 13){
		print "<tr><td nowrap colspan=$cols>スペース<input type=checkbox name=space_$i $space_check[$i]></td></tr>\n";
	}
}
print "</table>\n";

print "<p>";
print "<input type=submit name=checkpai value=\"手牌プレビュー\">\n";
print "<p>";

}

sub haipai_oneline {

my ($i) = shift;

print <<ONELINE;

<tr align=center>
<td nowrap>無<br><input type=radio name=num_$i value=0 $num_check[$i][0]></td>
<td>1<br><input type=radio name=num_$i value=1 $num_check[$i][1]></td>
<td>2<br><input type=radio name=num_$i value=2 $num_check[$i][2]></td>
<td>3<br><input type=radio name=num_$i value=3 $num_check[$i][3]></td>
<td>4<br><input type=radio name=num_$i value=4 $num_check[$i][4]></td>
<td>5<br><input type=radio name=num_$i value=5 $num_check[$i][5]></td>
<td>6<br><input type=radio name=num_$i value=6 $num_check[$i][6]></td>
<td>7<br><input type=radio name=num_$i value=7 $num_check[$i][7]></td>
<td>8<br><input type=radio name=num_$i value=8 $num_check[$i][8]></td>
<td>9<br><input type=radio name=num_$i value=9 $num_check[$i][9]></td>
<td>萬<br><input type=radio name=type_$i value=man $man_check[$i]></td>
<td>品<br><input type=radio name=type_$i value=pin $pin_check[$i]></td>
<td>索<br><input type=radio name=type_$i value=sou $sou_check[$i]></td>
<td>白<br><input type=radio name=num_$i value=haku $haku_check[$i]></td>
<td>發<br><input type=radio name=num_$i value=hatu $hatu_check[$i]></td>
<td>中<br><input type=radio name=num_$i value=tyun $tyun_check[$i]></td>
<td>東<br><input type=radio name=num_$i value=ton $ton_check[$i]></td>
<td>南<br><input type=radio name=num_$i value=nan $nan_check[$i]></td>
<td>西<br><input type=radio name=num_$i value=sha $sha_check[$i]></td>
<td>北<br><input type=radio name=num_$i value=pei $pei_check[$i]></td>
<td>裏<br><input type=radio name=num_$i value=ura $ura_check[$i]></td>
<td>赤<br><input type=checkbox name=red_$i $red_check[$i]></td>
<td>横<br><input type=checkbox name=yoko_$i $yoko_check[$i]></td>
ONELINE

print "<td nowrap>暗槓<br><input type=checkbox name=ankan_$i $ankan_check[$i]></td>" if ($i%3 == 0);
print "<td nowrap>明槓<br><input type=checkbox name=minkan_$i $minkan_check[$i]></td>" if ($i%3 == 0);
print "</tr>\n";


}

sub mbjantag {

&htmlhead('ジャンタグ');

print "<center>下のタグを記事中に埋め込む事で麻雀牌の画像を表\\示させる事ができます。</center><p>\n";

my $cols=9;
my $rows=5;
print "<table cols=$cols border=1 width=50% align=center>\n";

$colsm1 = $cols - 1;
$rowsm1 = $rows - 1;

for($h=0;$h<=1;$h++){
	foreach $i (0 .. $rowsm1){
		for($l=0;$l<=1;$l++){
			foreach $j (0 .. $colsm1){
				if ($h==0) {$prefix=''} else {$prefix='y'}
				print "<tr>" if ($j == 0);
				my $key = $i*$cols+$j;
				if ($janpai[$key] ne ''){
					print "<td nowrap align=center><img src=\"$paidir/$prefix$janpai[$key].gif\"></td>\n" if ($l == 0);
					print "<td nowrap align=center>&lt;$prefix$janpai[$key]&gt;</td>\n" if ($l == 1);
				} else {
					print "<td>&nbsp;</td>\n";
				}
				print "</tr>" if ($j == $colsm1);
			}
		}
	}
}

print "</table>\n";

&htmltail;
}

sub htmlhead {

my($title) = shift;

print "Content-type: text/html\n\n";
print "<html>";
print <<HEADPRINT;
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
   <META NAME="Author" CONTENT="Hideki Kanayama">
   <TITLE>$title</TITLE>
HEADPRINT

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

print "</HEAD>\n";
print "<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";

}

sub htmltail {

print "</body></html>";

}

sub mbcheckpai {

&htmlhead('手牌プレビュー');

print "<p><center>\n";

my @paiarray = &resolvepai;
&paidisplay(@paiarray);

print "<p>\n";

my @pais = ();
foreach $abc (keys(%in)){
	push (@pais,"$abc=$in{$abc}") if ($abc =~ /^num/);
	push (@pais,"$abc=$in{$abc}") if ($abc =~ /^type/);
	push (@pais,"$abc=$in{$abc}") if ($abc =~ /^ankan/);
	push (@pais,"$abc=$in{$abc}") if ($abc =~ /^minkan/);
	push (@pais,"$abc=$in{$abc}") if ($abc =~ /^yoko/);
	push (@pais,"$abc=$in{$abc}") if ($abc =~ /^ura/);
	push (@pais,"$abc=$in{$abc}") if ($abc =~ /^red/);
	push (@pais,"$abc=$in{$abc}") if ($abc =~ /^space/);
}
$arg = join ('&',@pais);

print "<a href=\"$script?mode=write&checkpai=on&$arg\" target=\"_blank\">この画面を別ウィンドウで開く</a><p>";
print "<form><input type=button value=\"戻る\" onClick()=\"history.back()\"></form>";

print "</center>\n";

&htmltail;

exit;
}

sub paidisplay {

my (@paiarray) = @_;
my $i;
my $elem;
my $flag = 0;
my $tmp;

my $j = 0;
foreach $elem (@paiarray){
	my $yoko1 = '';
	my $yoko2 = '';
	my $yoko3 = '';
	if ($elem eq '') {$j++;next;}
	if (-e "$paidir/$elem.gif"){
		$flag = 1;
		print "<img src=\"$paidir/$elem.gif\">";
	} else {
		(@small) = split(/\./,$elem);
		(@smallm2) = split(/\./,$paiarray[$j-2]) if ($j >= 2);
		(@smallm1) = split(/\./,$paiarray[$j-1]) if ($j >= 1);
		if (grep(/^m$/,@small)){
			if ($smallm2[0] =~ /^y/){$yoko1 = 'y'} else {$yoko1 = ''}
			if ($smallm1[0] =~ /^y/){$yoko2 = 'y'} else {$yoko2 = ''}
			if ($small[0] =~ /^y/){$yoko3 = 'y'} else {$yoko3 = ''}
			$tmp = $small[0];
			$tmp =~ s/^y//;
			if (-e "$paidir/$yoko1$tmp.gif" &&
			    -e "$paidir/$yoko2$tmp.gif" &&
			    -e "$paidir/$tmp.gif" &&
			    -e "$paidir/$yoko3$tmp.gif") {
				print "<img src=\"$paidir/$yoko1$tmp.gif\">";
				print "<img src=\"$paidir/$yoko2$tmp.gif\">";
				print "<img src=\"$paidir/$tmp.gif\">";
				print "<img src=\"$paidir/$yoko3$tmp.gif\">";
			}
		} elsif (grep(/^a$/,@small)){
			$tmp = $small[0];
			$tmp =~ s/^y//;
			if (-e "$paidir/$tmp.gif"){
				print "<img src=\"$paidir/ura.gif\">";
				for ($i=0;$i<2;$i++){print "<img src=\"$paidir/$tmp.gif\">";}
				print "<img src=\"$paidir/ura.gif\">";
			}
		} elsif (-e "$paidir/$small[0].gif") {
			print "<img src=\"$paidir/$small[0].gif\">";
		}
		if (grep(/^s$/,@small)){
			print "　";
		}
		$flag = 1;
	}
	$j++;
}

if ($flag == 1) {print "<p>\n";}

}

sub resolvepai {
my @paiarray = ();
my $i;

return(@paiarray) if ($in{allinvalid} eq 'on');

foreach $i (1 .. 14){
	my $numkey = "num_$i";
	my $typekey = "type_$i";
	my $redkey = "red_$i";
	my $yokokey = "yoko_$i";
	my $ankankey = "ankan_$i";
	my $minkankey = "minkan_$i";
	my $spacekey = "space_$i";
	my $pai;
	if ($in{$yokokey} eq on) {$prefix = 'y'} else {$prefix = ''}
	if ($in{$redkey} eq on && $in{$numkey} == 5) {$suffix = 'red'} else {$suffix = ''}
	if ($in{$numkey} !~ /^0/){
		if ($in{$numkey} =~ /\d/){
			if ($in{$typekey} eq ''){
				$pai = "man$in{$numkey}";
			} else {
				$pai = "$in{$typekey}" . "$in{$numkey}";
			}
		} else {
			$pai = "$in{$numkey}";
		}
	}
	$pai = "$prefix$pai$suffix";

	if ($in{$ankankey} eq on){
		$pai = "$pai.a";
	} elsif ($in{$minkankey} eq on){
		$pai = "$pai.m";
	}
	if ($in{$spacekey} eq on){
		$pai = "$pai.s";
	}

	push (@paiarray,"$pai");
}
return (@paiarray);

}

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

if ($in{checkpai} ne ''){
	&mbcheckpai;
}

if ($ENV{REQUEST_METHOD} ne 'POST' or $in{ticket} ne "$ticket") {
    &error("正規の書き込み方法ではありません。");
}

while(-f "$lockfile"){
	sleep(1);
}

open(LOCK,"> $lockfile");
close(LOCK);

if ($compatible == 1){$max=200;}

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

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

my @paiarray = &resolvepai;
my $paijoin = join ('<>',@paiarray);

$cook="name\:" . &cookie_encode($in{name}) . "\,email\:$in{addr}\,mypwd\:$in{pwd}";

$date_gmt = &mbcook;

print "Set-Cookie: $cookiename=$cook; expires=$date_gmt\n";

if ($in{name} eq "" || $in{subject} eq "") {
	&error('名前とタイトルは必ず書いてください');
}

if (! open(RD,"<$mbdata")){
	$number = 1;
} else {
	if ($compatible == 1){
		@alldata=<RD>;
		@tmpdata=@alldata;
		$line=pop(@tmpdata);
		($number,@dummy)=split(/,/,$line);
		close(RD);
		if ($max <= $#alldata + 1) {
			open(LOG,">>$mbpastdata");
			print LOG shift(@alldata);
			close(LOG);
			chmod(0666,"mbpastdata");
		}
	} else {
		&getmbdata;
		($number,@dummy)=split(/,/,$alldata[$#alldata]);
	}
	$number = $number + 1;
}

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

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

$main=$in{main};

if ($main =~ /\[URL/i or 
    $main =~ /a *href/i
    ) {
    &error("書き込み禁止です。");
}

if ($image_en == 1 && $in{imagefile} ne ''){

	foreach (@in){
		if ($_ =~ /name=\"imagefile\"/){
			if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; }
			if ($_ =~ /(.*)filename=\"(.*)\"/i) {
				$origfile=$2;
				$origfile =~ s/^.*[\\\/]([^\\\/]+)$/$1/;
				$imagefile="$number-$origfile";
			}
		}
	}

	if ("$origfile" !~ /^[0-9a-zA-Z\._]+$/) {
		&error("$origfile:アップ後のファイル名は半角英数で。");
	}

	open(OUT,"> $imagedir/$imagefile") || &error("アップロードに失敗しました。");
	binmode(OUT);
	binmode(STDOUT);
	print OUT $in{imagefile};
	close(OUT);
	chmod (0666,"$imagedir/$imagefile");
}

if ($compatible == 1){
	push(@alldata,"$number,$datecode,$in{name},$in{addr},${ip}_${host},$date_now,$in{subject},$main,$encpwd,$imagefile,$paijoin\n");

	open(FILE,">$mbdata") || &error("$mbdataを開けません。");
	print FILE @alldata;
	close(FILE);
} else {
	open(FILE,">>$mbdata") || &error("$mbdataを開けません。");
	print FILE "$number,$datecode,$in{name},$in{addr},${ip}_${host},$date_now,$in{subject},$main,$encpwd,$imagefile,$paijoin\n";
	close(FILE);
}

chmod(0666,"$mbdata");

&extraupdate;

unlink("$lockfile");

if ($in{name} ne "" && $in{subject} ne "") {
	print "Location: $mbread$in{past}\n\n";
}

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

&getmbdata;

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

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

$cookies = $ENV{'HTTP_COOKIE'};

@pairs = split(/;/,$cookies);
foreach $pair (@pairs) {

	($name, $value) = split(/=/, $pair);
	$name =~ s/ //g;
	$DUMMY{$name} = $value;
}

@pairs = split(/,/,$DUMMY{$cookiename});
foreach $pair (@pairs) {

	($name, $value) = split(/:/, $pair);
	$COOKIE{$name} = &cookie_decode($value);
}

#$ressubject =~ s/&#44(\d)/,$1/g;

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

print <<END1;
<HTML>
<HEAD>
   <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">
   <META NAME=\"GENERATOR\" CONTENT=\"Mozilla/4.02 [en] (Win95; I) [Netscape]\">
   <META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">
   <TITLE>$mbrestitle</TITLE>
END1

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

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

print <<END2;
</HEAD>
<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">
<FORM action=\"$script\" method=\"post\" enctype="multipart/form-data">
$titleprint
お名前(必須)
<BR><INPUT type=\"text\" size=\"30\" name=\"name\" value=\"$COOKIE{name}\">
<BR>メールアドレス
<BR><INPUT type=\"text\" size=\"40\" name=\"addr\" value=\"$COOKIE{email}\">
<br>タイトル（必須）
<BR><INPUT type=\"text\" name=\"subject\" size=\"60\" value=\'Re:$ressubject\'><BR><INPUT type=\"hidden\" name=\"mode\" value=\"write\">
END2

&wrticket;
print "<P>内容　<a href=\"$script?mode=jantag\" target=\"_blank\">ジャンタグ一覧</a><br>\n";
if ($pai =~ /\w/){
	&readpai($pai);
}

print <<END3;
<TEXTAREA rows=\"15\" cols=\"80\" name=\"main\" wrap=off>
END3

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

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

foreach (@resdata){
#	s/<a..*>(http..*)<\/a>/$1/;
#	s/&#44(\d)/,$1/g;
	print "&gt; $_\n";
}

print "</TEXTAREA><p>";

if ($image_en == 1){
print <<ENDIMAGE;
アップ画像ファイル（ファイル名は半角英数、アンダースコア、ドットのみ）
<BR><INPUT type=\"file\" size=\"50\" name=\"imagefile\">
<p>
ENDIMAGE
}

&paiinput($pai);

if ($delete_en == 1 || $modify_en == 1){
print <<END2;
パスワード（半角英数で）
<BR><INPUT type=\"password\" size=\"20\" name=\"pwd\" value=$COOKIE{mypwd}>
<p>
END2
}

print "書き込み後の表\示：";

print <<END2;
<select name=\"past\">
	<option value=\"&number=done\">未読分
	<option value=\"&number=5\">５日前以降
	<option value=\"&number=4\">４日前以降
	<option value=\"&number=3\">３日前以降
	<option value=\"&number=2\">２日前以降
	<option value=\"&number=1\">昨日以降
	<option value=\"\" selected>最新２０件
	<option value=\"&number=30\">最新３０件
	<option value=\"&number=50\">最新５０件
	<option value=\"&number=100\">最新１００件
</select>

<P><INPUT type=\"submit\" value=\"書き込む\">　書き込む前にもう一度チェック
<p>

END2

&write_comment;

&unlockdisp;

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


}


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

&getmbdata;

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

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

$cookies = $ENV{'HTTP_COOKIE'};

@pairs = split(/;/,$cookies);
foreach $pair (@pairs) {

	($name, $value) = split(/=/, $pair);
	$name =~ s/ //g;
	$DUMMY{$name} = $value;
}

@pairs = split(/,/,$DUMMY{$cookiename});
foreach $pair (@pairs) {

	($name, $value) = split(/:/, $pair);
	$COOKIE{$name} = &cookie_decode($value);
}

#$ressubject =~ s/&#44(\d)/,$1/g;

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

print <<END1;
<HTML>
<HEAD>
   <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">
   <META NAME=\"GENERATOR\" CONTENT=\"Mozilla/4.02 [en] (Win95; I) [Netscape]\">
   <META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">
   <TITLE>$mbedititle</TITLE>
END1

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

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

print <<END2;
</HEAD>
<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">
<FORM action=\"$script\" method=\"post\" enctype="multipart/form-data">
$titleprint
お名前(必須)
<BR><INPUT type=\"text\" size=\"30\" name=\"name\" value=\"$resname\">
<BR>メールアドレス
<BR><INPUT type=\"text\" size=\"40\" name=\"addr\" value=\"$resmail\">
<br>タイトル（必須）
<BR><INPUT type=\"text\" name=\"subject\" size=\"60\" value=\'$ressubject\'><BR>
<INPUT type=\"hidden\" name=\"mode\" value=\"edit2\">
<INPUT type=\"hidden\" name=\"resnum\" value=\"$in{resnum}\">
END2

print "<P>内容　<a href=\"$script?mode=jantag\" target=\"_blank\">ジャンタグ一覧</a><br>\n";
&wrticket;
print <<END3;
<TEXTAREA rows=\"15\" cols=\"80\" name=\"main\" wrap=off>
END3

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

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

print "</TEXTAREA><p>";

if ($image_en == 1){

$resimagefile =~ s/[\n\r]*$//;

if ($resimagefile ne ''){

print <<ENDIMAGE;
<input type="radio" name="imageedit" value="asis" checked>画像はそのまま<br>
<input type="radio" name="imageedit" value="delete">画像を削除<br>
<input type="radio" name="imageedit" value="replace">画像を差し替え<br>
差し替え画像ファイル（ファイル名は半角英数、アンダースコア、ドットのみ）
ENDIMAGE

} else {

print <<ENDIMAGE2;
<input type="hidden" name="imageedit" value="replace">
アップ画像ファイル（ファイル名は半角英数、アンダースコア、ドットのみ）
ENDIMAGE2

}
print "<BR><INPUT type=\"file\" size=\"50\" name=\"imagefile\"><p>\n";
}

if ($pai =~ /\w/){
	&readpai($pai);
}

&paiinput("$pai");

if ($delete_en == 1 || $modify_en == 1){
print <<END2;
変更用確認パスワード
<BR><INPUT type=\"password\" size=\"20\" name=\"pwd\" value=$COOKIE{mypwd}>
<p>
END2
}

print "書き込み後の表\示：";

print <<END2;
<select name=\"past\">
	<option value=\"&number=done\">未読分
	<option value=\"&number=5\">５日前以降
	<option value=\"&number=4\">４日前以降
	<option value=\"&number=3\">３日前以降
	<option value=\"&number=2\">２日前以降
	<option value=\"&number=1\">昨日以降
	<option value=\"\" selected>最新２０件
	<option value=\"&number=30\">最新３０件
	<option value=\"&number=50\">最新５０件
	<option value=\"&number=100\">最新１００件
</select>

<P><INPUT type=\"submit\" value=\"変更する\">　書き込む前にもう一度チェック
<p>
END2

&write_comment;

&unlockdisp;

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


}


#############################################################################
# Edit execute mode #######################################################
#############################################################################
sub mbedit2 {

if ($in{checkpai} ne ''){
	&mbcheckpai;
}

while(-f "$lockfile"){
	sleep(1);
}

open(LOCK,"> $lockfile");
close(LOCK);

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

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($time_offset);
@wday_array = ('日','月','火','水','木','金','土');
$date_now = sprintf("%01d月%01d日(%s)%02d時%02d分",$mon +1,$mday,$wday_array[$wday],$hour,$min);

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

my @paiarray = &resolvepai;
my $paijoin = join ('<>',@paiarray);

if ($in{name} eq "" || $in{subject} eq "") {
	print "Content-Type: text/html\n\n";
	print "<HTML>\n";
	print "<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";
	print "<br><center>名前とタイトルは必ず書いてください。<p>\n";
	print "<form><input type=\"button\" value=\"戻る\" onClick=\"history.back()\"></form></center>\n</body></html>\n";
	unlink("$lockfile");
	exit 1;
}

open(FILE,"< $admindat");
$adminpwd = <FILE>;
close(FILE);

open(RD,"< $mbdata");
open(FILE,"> $mbdir/tmp.$$");

while(<RD>){
	s/[\r\n]*$//; # instead of chop
	($number,$datecode,$name,$mail,$host,$date,$subject,$main,$oldencpwd,$old_imagefile)=split(/,/);
	if ($number == $in{resnum}){
		if (((crypt($in{pwd},$oldencpwd) eq "$oldencpwd") && ($oldencpwd ne '')) ||
		     (crypt($in{pwd},$adminpwd) eq "$adminpwd")) {


			if ($image_en == 1){
				if ($in{imageedit} eq 'delete'){
					unlink("$imagedir/$old_imagefile");
					$imagefile = '';
				} elsif ($in{imageedit} eq 'asis'){
					$imagefile = "$old_imagefile";
				} elsif ($in{imageedit} eq 'replace'){

					if ($in{imagefile} ne ''){
						unlink("$imagedir/$old_imagefile");

						foreach (@in){
							if ($_ =~ /name=\"imagefile\"/){
								if ($_ =~ /(.*)Content-type:(.*)/i) { $tail=$2; }
								if ($_ =~ /(.*)filename=\"(.*)\"/i) {
									$origfile=$2;
									$origfile =~ s/^.*[\\\/]([^\\\/]+)$/$1/;
									$imagefile="$number-$origfile";
								}
							}
						}

						if ("$origfile" !~ /^[0-9a-zA-Z\._]+$/) {
							&error("$origfile:アップ後のファイル名は半角英数で。");
						}
						open(OUT,"> $imagedir/$imagefile") || &error("アップロードに失敗しました。");
						binmode(OUT);
						binmode(STDOUT);
						print OUT $in{imagefile};
						close(OUT);
						chmod (0666,"$imagedir/$imagefile");

					}

				} else {
					$imagefile = "$old_imagefile";
				}
			} else {
				$imagefile = "$old_imagefile";
			}

			open(LOG,">>$mbdellog");
			print LOG "$_\n";
			close(LOG);
			print FILE "$number,$datecode,$in{name},$in{addr},${ip}_${host},$date,$in{subject},$in{main},$oldencpwd,$imagefile,$paijoin\n";
			chmod(0666,"$mbdellog");
			$error = 0;
		} else {
			print "Content-Type: text/html\n\n";
			print "<html>\n";
			print "<HEAD>\n";
			print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
			print "<META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">\n";
			print "<TITLE>パスワードエラー</TITLE>\n";
			print "</HEAD>\n";
			print "<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";
			if ("$oldencpwd" ne '') {
				print "<center>　<br>パスワードが違います。</center>\n";
			} else {
				print "<center>　<br>パスワードが設定されていないので管理人のみ変更できます。</center>\n";
			}
			print "</body>\n";
			print "</html>\n";
			print FILE "$_\n";
			$error = 1;
		}
	} else {
		print FILE "$_\n";
	}
}
close(RD);
close(FILE);
rename("$mbdir/tmp.$$","$mbdata");
chmod(0666,"$mbdata");

&extraupdate;

unlink("$lockfile");

if ($error == 0) {print "Location: $mbread\n\n";}

}

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

&getmbdata;

@alldata = reverse(@alldata);

@findata = split(/,/,$alldata[0]);

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

$ago = $in{number};

if ($ago eq ''){
	$line = 200;
} elsif ($ago >= 1 && $ago <= 5) {
	$today=time;

	for($i=0;$i<=$ago;$i=$i+1){
		$yesterday=$today-86400*$i;

		($ysec,$ymin,$yhour,$ymday,$ymon,$yyear,$ywday,$yyday,$yisdst)=gmtime($yesterday);

		$yrmon=$ymon+1;
		$yester1="${yyear}_${yrmon}_${ymday}";

		@yesterdata=grep(/^\d\d*,$yester1,/,@alldata);

		$ycount=$#yesterdata + 1;
		$line = $line + $ycount;
	}

} else {
	$line=$ago;
}

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

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

print "<html>\n";
print "<HEAD>\n";
print "   <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
print "   <META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">\n";
print "   <META NAME=\"GENERATOR\" CONTENT=\"Mozilla/4.03 [en] (Win95; I) [Netscape]\">\n";
print "   <TITLE>$mbdeltitle</TITLE>\n";

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

print "</HEAD>\n";
print "<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";

print "$titleprint\n";

&disphead(1);

print "<hr>\n";

foreach $count (0 .. $finline){
	chomp($alldata[$count]);
	my $pai;
	($number,$datecode,$name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile,$pai)=split(/,/,$alldata[$count]);

	print "<table cols=2 border=0 width=\"100%\"><tr>";
#	print "<td nowrap nowrap style=\"border:0px\">Message#${number} $date<br>";
	@darray = split(/[^\d]/,$date);
	print "<td nowrap nowrap style=\"border:0px\">Message#${number} ";
	$dy = $darray[0]+1900;
	$date =~ s/^\d?\d\d([^\d]..*)$/$dy$1/;
	print "$date<br>";
	print "From: ";
	if ($mail ne ""){
		print "<a href=\"mailto:${mail}\">${name}</a>"
	} else {
		print "<font color=\"#0000ee\">$name</font>";
	}
	if ($namesan_en == 1){
		print "$namesan";
	}
	if ($mail ne ""){
		print " ($mail)"
	}
	print "</td>";
	print "<td nowrap style=\"border:0px\"><div align=right><a href=\"$mbdel2&resnum=${number}\">削除</a></div></td></tr></table>";

	print "<table cols=1 border=0 cellpadding=10><tr><td style=\"border:0px\">";
	if ($#sub2 > 1){
		print "<font color=\"$post_title_color\" size=\'$post_title_size\' face=\'$post_title_face\'>Re$#sub2:$sub2[$#sub2]</font>";
	} else {
		print "<font color=\"$post_title_color\" size=\'$post_title_size\' face=\'$post_title_face\'>$subject</font>";
	}
	print "</td></tr></table>";

	if ($link_samewin_en == 1){
		$link_target = '_top';
	} else {
		$link_target = '_blank';
	}
#	$main =~ s/(#)(\d+)/<a href=\"$mbprint&message=$2\">$1$2<\/a>/g;
	$main =~ s/(https?:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\$]*)/<a href=\"$1\" target="$link_target">$1<\/a>$2/g;
	@mainarry=split(/<[bB][rR]>/,$main);

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

	$imagefile =~ s/[\r\n]*$//;

	if ($image_en == 1 && $imagefile ne ''){
		$imagefile =~ /.+(\..+)$/;
		$tail = $1;

		($imagefile,$w,$h)=&get_image_size($imagefile,$max_w,$max_h);

		if ($image_samewin_en == 1){
			$newwin = '';
		} else {
			$newwin = 'target="_blank"';
		}

		print "<a href=\"$imagefile\" $newwin style=\"border:0px\"><img src=\"$imagefile\" width=$w height=$h border=0></a>";
	}

	print "</td>";
	print "<td valign=top style=\"border:0px\">";

	foreach (@mainarry){
		if(/^(\&gt;)(.*)$/){
			print "<font color=\"#804040\">$1$2</font>";
		} else {
			print;
		}
		print "<br>";
	}
	print "</td></tr>";
	print "</table><hr>\n";
}

&disptail;

print "</body>";
print "</html>";
}
#############################################################################
# Delete confirm mode #######################################################
#############################################################################
sub mbdel2 {

&getmbdata;

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

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

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

print <<END1;
<HTML>
<HEAD>
   <META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">
   <META NAME=\"GENERATOR\" CONTENT=\"Mozilla/4.02 [en] (Win95; I) [Netscape]\">
   <META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">
   <TITLE>$mbdeltitle</TITLE>
END1

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

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

print <<END2;
</HEAD>
<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">
<FORM action=\"$script\" method=\"post\">
$titleprint
END2

print "<hr><table cols=2 border=0 width=\"100%\"><tr>";
@darray = split(/[^\d]/,$resdate);
print "<td nowrap style=\"border:0px\">Message#${resnumber} ";
$dy = $darray[0]+1900;
$resdate =~ s/^\d?\d\d([^\d]..*)$/$dy$1/;
print "$resdate<br>";
print "From: ";
if ($resmail ne ""){
	print "<a href=\"mailto:${resmail}\">${resname}</a>"
} else {
	print "<font color=\"#0000ee\">$resname</font>";
}
if ($namesan_en == 1){
	print "$namesan";
}
if ($resmail ne ""){
	print " ($resmail)"
}

print "</td>";
print "<td style=\"border:0px\"><div align=right>　</div></td></tr></table>";

print "<table cols=1 border=0 cellpadding=10><tr><td style=\"border:0px\">";
@sub2=split(/Re:/,$ressubject);
if ($#sub2 > 1){
	print "<font color=\"$post_title_color\" size=\'$post_title_size\' face=\'$post_title_face\'>Re$#sub2:$sub2[$#sub2]</font>";
} else {
	print "<font color=\"$post_title_color\" size=\'$post_title_size\' face=\'$post_title_face\'>$ressubject</font>";
}
print "</td></tr></table>";

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

$imagefile =~ s/[\r\n]*$//;

if ($image_en == 1 && $imagefile ne ''){
	$withimage = 'と画像';
} else {
	$withimage = '';
}

if ($image_en == 1 && $imagefile ne ''){
	$imagefile =~ /.+(\..+)$/;
	$tail = $1;

	$imagefile = "$imagedir/$imagefile";

	($imagefile,$w,$h)=&get_image_size($imagefile,$max_w,$max_h);

	if ($image_samewin_en == 1){
		$newwin = '';
	} else {
		$newwin = 'target="_blank"';
	}

	print "<a href=\"$imagefile\" $newwin><img src=\"$imagefile\" width=$w height=$h border=0></a>";
}

print "</td>";
print "<td valign=top style=\"border:0px\">";

&readpai($pai);
print "<br>";

$resmain =~ s/(&lt;\w+&gt;)/&convjantag($1)/ige;
@mainarry=split(/<[bB][rR]>/,$resmain);
foreach (@mainarry){
	if(/^(\&gt;)(.*)$/){
		print "<font color=\"#804040\">$1$2</font>";
	} else {
		print;
	}
	print "<br>";
}

	print "</td></tr>";
	print "</table><hr>\n";

print "上のメッセージ$withimageを削除します。<br>よければパスワードを入力し、削除ボタンをクリックしてください。<p>";
print "パスワード：<INPUT type=\"password\" name=\"pwd\" size=\"20\">";
print "<INPUT type=\"hidden\" name=\"number\" value=\"$resnumber\">";
print "<INPUT type=\"hidden\" name=\"mode\" value=\"del3\">";

print "<P><INPUT type=\"submit\" value=\"削除\">";
print "</form>";
print "<BR>";
print "</BODY>";
print "</HTML>";
}
#############################################################################
# Delete execute mode #######################################################
#############################################################################
sub mbdel3 {

while(-f "$lockfile"){
	sleep(1);
}

open(LOCK,"> $lockfile");
close(LOCK);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($time_offset);
@wday_array = ('日','月','火','水','木','金','土');
$date_now = sprintf("%01d月%01d日(%s)%02d時%02d分",$mon +1,$mday,$wday_array[$wday],$hour,$min);

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

open(FILE,"< $admindat");
$adminpwd = <FILE>;
close(FILE);

open(RD,"< $mbdata");
open(FILE,"> $mbdir/tmp.$$");

while(<RD>){
	s/[\r\n]*$//; # instead of chop
	my $pai;
	($number,$datecode,$name,$mail,$host,$date,$subject,$main,$encpwd,$imagefile,$pai)=split(/,/);
	if ($number == $in{number}){
		if (((crypt($in{pwd},$encpwd) eq "$encpwd") && ($encpwd ne '')) ||
		     (crypt($in{pwd},$adminpwd) eq "$adminpwd")) {
			open(LOG,">>$mbdellog");
			print LOG "$_\n";
			close(LOG);
			chmod(0666,"$mbdellog");
			unlink("$imagedir/$imagefile");
			$error = 0;
		} else {
			print "Content-Type: text/html\n\n";
			print "<html>\n";
			print "<HEAD>\n";
			print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
			print "<META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">\n";
			print "<TITLE>パスワードエラー</TITLE>\n";
			print "</HEAD>\n";
			print "<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";
			if ($encpwd ne '') {
				print "<center>　<br>パスワードが違います。</center>\n";
			} else {
				print "<center>　<br>パスワードが設定されていないので管理人のみ削除できます。</center>\n";
			}
			print "</body>\n";
			print "</html>\n";
			print FILE "$_\n";
			$error = 1;
		}
	} else {
		print FILE "$_\n";
	}
}
close(RD);
close(FILE);
rename("$mbdir/tmp.$$","$mbdata");
chmod(0666,"$mbdata");

&extraupdate;

unlink("$lockfile");

if ($error == 0) {print "Location: $mbread\n\n";}

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

&getmbdata;

if (open(REJECT,"< rejectlink.dat")){
	@reject = <REJECT>;
	close(REJECT);
} else {
	@reject = ();
}


if ($compatible == 1) {
	$in{past} = on;
	$in{new} = on;
	if (($in{new} eq on)&&($in{past} eq on)){
		`$cat  $mbarchdata $mbpastdata $mbdata > $alldata`;
		chmod(0666,"$alldata");
		$filename="$alldata";
	} elsif ($in{new} eq on){
		$filename="$mbdata";
	} elsif ($in{past} eq on){
		`$cat  $mbarchdata $mbpastdata > $pastall`;
		chmod(0666,"$pastall");
		$filename="$pastall";
	}
} else {
	$filename = $mbdata;
}

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

print "<html>\n";
print "<HEAD>\n";
print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=Shift_JIS\">\n";
print "<META NAME=\"Author\" CONTENT=\"Hideki Kanayama\">\n";
print "<TITLE>$mblinktitle</TITLE>\n";

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

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

print "</HEAD>\n";
print "<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";


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;
}

open(FILE,"< $filename");
while (<FILE>){
	chop;
	my $pai;
	($number,$b,$c,$d,$e,$date,$title,$main,$encpwd,$imagefile,$pai)=split(/,/);
	if (/https?:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\$]*/){
		foreach (split(/<[Bb][rR]>/,$main)){
#			print "$_<br>\n";
			if (/(https?:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\$]*)/ & !/^\&gt;/){
#				print "$_<br>\n";
				$linkarray2 .= "$1<br>";
			}
		}
		if($linkarray2 ne ""){
			($aaa)=grep(/^$number/,@reject);
			if ($aaa != $number){
				push(@numarray,$number);
				push(@datearray,$date);
				push(@titlearray,$title);
				push(@linkarray,$linkarray2);
			}
		}
		$linkarray2="";
	}
}
close(FILE);

print "$titleprint\n";
print "<center>麻雀掲示板中にあるURLを抜粋して表\\示してあります。<br>デッドリンク、重複しているものは除外していますが、残っている場合もあります。<br>Message#の番号をクリックするとそのメッセージが表\\示されます。</center><p>\n";

&disphead(1);

print "<hr>";

print "<ul>\n";
for($i=$#linkarray;$i>=0;$i=$i-1){
	print "<li><a href=\"$mbpast&number=$numarray[$i]&lin=0\">#$numarray[$i]</a>,";
	$subject = $titlearray[$i];
#	$subject =~ s/&#44(\d)/,$1/g;
	@sub2=split(/Re:/,$subject);
	if ($#sub2 > 1){
		print "<font color=\"$post_title_color\">Re$#sub2:$sub2[$#sub2]</font><br>\n";
	} else {
		print "<font color=\"$post_title_color\">$subject</font><br>\n";
	}
#	print "<li><a href=\"$mbpast&$number=numarray[$i]&lin=0\">#$numarray[$i]</a>, <font color=\"$post_title_color\"><b>$titlearray[$i]</b></font><br>\n";
	foreach $url (split(/<[Bb][Rr]>/,$linkarray[$i])){
#		$url =~ s/&#44(\d)/,$1/g;
		if ($link_samewin_en == 1){
			$link_target = '_top';
		} else {
			$link_target = '_blank';
		}
		print "<a href=\"$url\" target=\"$link_target\">$url</a><br>";
	}
	print "</li><br>\n";
}
print "</ul>\n";

print "<hr>\n";

&disptail;

print "</body></html>";

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

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

if ($compatible == 0){
	open(FILE,"< $mbdata");
	$firstdata = <FILE>;
	close(FILE);
} else {
	open(FILE,"< $mbarchdata") || open(FILE,"< $mbpastdata") || open(FILE,"< $mbdata");
	$firstdata = <FILE>;
	close(FILE);
}
($num,$datecode,@dum)=split(/,/,$firstdata);
$datecode =~ /^(\d\d+)_/;
$firstyear = $1;

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

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

print <<END;

<HTML>
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
   <META NAME="GENERATOR" CONTENT="Mozilla/4.02 [en] (Win95; I) [Netscape]">
   <META NAME="Author" CONTENT="Hideki Kanayama">
   <TITLE>$mbsumtitle</TITLE>
<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.summary.styear.selectedIndex=year1;
	document.summary.stmon.selectedIndex=mon1;
	document.summary.stday.selectedIndex=day1;
	document.summary.endyear.selectedIndex=year1;
	document.summary.endmon.selectedIndex=mon1;
	document.summary.endday.selectedIndex=day1;
	document.summary.y1.selectedIndex=year1;
	document.summary.m1.selectedIndex=mon1;
	document.summary.y2.selectedIndex=year1;
	document.summary.m2.selectedIndex=mon1;
	document.summary.y3.selectedIndex=year1;
}

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>
END

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

print <<HEADBOTTOM;
</HEAD>
<BODY TEXT="#000000" $bgimage LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000" onLoad="setopt();">
<FORM action="$script" name="summary" method="post">
<input type=hidden name="mode" value="summary">
$titleprint

<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

foreach ($firstyear .. $finyear){
	$dispy = $_+1900;
	print "<option value=\"$_\">$dispy\n";
}

#<script language="JavaScript">
#for (i=0;i<=year1;i=i+1){
#opty=i+97;
#dispy=opty+1900;
#document.write('<option value="' + opty + '">' + dispy + "\n");
#}
#</script>

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

foreach ($firstyear .. $finyear){
	$dispy = $_+1900;
	print "<option value=\"$_\">$dispy\n";
}

#<script language="JavaScript">
#for (i=0;i<=year1;i=i+1){
#opty=i+97;
#dispy=opty+1900;
#document.write('<option value="' + opty + '">' + dispy + "\n");
#}
#</script>

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

foreach ($firstyear .. $finyear){
	$dispy = $_+1900;
	print "<option value=\"$_\">$dispy\n";
}

#<script language="JavaScript">
#for (i=0;i<=year1;i=i+1){
#opty=i+97;
#dispy=opty+1900;
#document.write('<option value="' + opty + '">' + dispy + "\n");
#}
#</script>

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

foreach ($firstyear .. $finyear){
	$dispy = $_+1900;
	print "<option value=\"$_\">$dispy\n";
}

#<script language="JavaScript">
#for (i=0;i<=year1;i=i+1){
#opty=i+97;
#dispy=opty+1900;
#document.write('<option value="' + opty + '">' + dispy + "\n");
#}
#</script>

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

foreach ($firstyear .. $finyear){
	$dispy = $_+1900;
	print "<option value=\"$_\">$dispy\n";
}

#<script language="JavaScript">
#for (i=0;i<=year1;i=i+1){
#opty=i+97;
#dispy=opty+1900;
#document.write('<option value="' + opty + '">' + dispy + "\n");
#}
#</script>

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

</BODY>
</HTML>

END5

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

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

if ($compatible == 0){
	open(FILE,"< $mbdata");
	$firstdata = <FILE>;
	close(FILE);
} else {
	open(FILE,"< $mbarchdata") || open(FILE,"< $mbpastdata") || open(FILE,"< $mbdata");
	$firstdata = <FILE>;
	close(FILE);
}
($num,$datecode,@dum)=split(/,/,$firstdata);
$datecode =~ /^(\d\d+)_/;
$firstyear = $1;

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

$titleprint=&titleprint('個人データ詳細',"$mbsum_logo","$mbsum_style","$mbsum_color","$mbsum_size","$mbsum_face","$mbsum_sel","$mbsum_loc");

print <<END;
<HTML>
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
   <META NAME="GENERATOR" CONTENT="Mozilla/4.02 [en] (Win95; I) [Netscape]">
   <META NAME="Author" CONTENT="Hideki Kanayama">
   <TITLE>個人データ詳細</TITLE>
<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.summary.styear.selectedIndex=year1;
	document.summary.stmon.selectedIndex=mon1;
	document.summary.stday.selectedIndex=day1;
	document.summary.endyear.selectedIndex=year1;
	document.summary.endmon.selectedIndex=mon1;
	document.summary.endday.selectedIndex=day1;
	document.summary.y1.selectedIndex=year1;
	document.summary.m1.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;
	document.summary.hname.value='';
}

</script>
END

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

print <<HEADBOTTOM;
</HEAD>
<BODY TEXT="#000000" $bgimage LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000" onLoad="setopt();">
<FORM action="$script" name="summary" method="post">
<input type=hidden name="mode" value="summary">
$titleprint

<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

foreach ($firstyear .. $finyear){
	$dispy = $_+1900;
	print "<option value=\"$_\">$dispy\n";
}

#<script language="JavaScript">
#for (i=0;i<=year1;i=i+1){
#opty=i+97;
#dispy=opty+1900;
#document.write('<option value="' + opty + '">' + dispy + "\n");
#}
#</script>

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

foreach ($firstyear .. $finyear){
	$dispy = $_+1900;
	print "<option value=\"$_\">$dispy\n";
}

#<script language="JavaScript">
#for (i=0;i<=year1;i=i+1){
#opty=i+97;
#dispy=opty+1900;
#document.write('<option value="' + opty + '">' + dispy + "\n");
#}
#</script>

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

foreach ($firstyear .. $finyear){
	$dispy = $_+1900;
	print "<option value=\"$_\">$dispy\n";
}

#<script language="JavaScript">
#for (i=0;i<=year1;i=i+1){
#opty=i+97;
#dispy=opty+1900;
#document.write('<option value="' + opty + '">' + dispy + "\n");
#}
#</script>

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

</BODY>
</HTML>
END3

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

($filename,$tmpdata) = &gentmpdata;

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

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

print <<SUM_HEAD;
<HTML>
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
   <META NAME="GENERATOR" CONTENT="Mozilla/4.02 [en] (Win95; I) [Netscape]">
   <META NAME="Author" CONTENT="Hideki Kanayama">
   <TITLE>$mbsumtitle</TITLE>
SUM_HEAD

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

print "</head>\n<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">";

$rightend = 400;

if ($in{choise} eq data1){
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($num,$date,@line)=split(/,/);
		if ($date =~ /^${in{y1}}_${in{m1}}_/){
			$count{$date}++;
			$total++;
		}
	}
	close(FILE);
	for ($i=1;$i<=$finday;$i++){
		$date="${in{y1}}_${in{m1}}_${i}";
		printf("%04d/%02d/%02d | ",$in{y1}+1900,$in{m1},$i);
		$linemax = 40;
		$width=($count{$date}/$linemax)*$rightend;
		if ($width != 0){
			print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
		}
#		for($j=0;$j<$count{$date};$j++){
#			print "*";
#		}
		if ($count{$date} eq ""){$count{$date}=0;}
		print " <font color=\"#0000ee\">$count{$date}</font><br>";
	}
	$mean=$total/$finday;
	print "---------------------<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total件、 一日平均＝";
	printf("%3.2f",$mean);
	print "件</font><br>";
}

if ($in{choise} eq data1a){
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($num,$date,@line)=split(/,/);
		$count{$date}++;
		$total++;
	}
	close(FILE);
	$i=0;
	foreach (keys(%count)){
		$content{"${count{$_}}_${i}"}="$_";
		$i++;
	}
	@tmp=keys(%content);
	@tmp1=reverse(sort({$a<=>$b}@tmp));
	@sortdata=splice(@tmp1,0,100);
	foreach $number (@sortdata){
		$date=$content{$number};
		($yy,$mm,$dd,$dummy)=split(/_/,$date);
		printf("%04d/%02d/%02d | ",$yy+1900,$mm,$dd);
		$linemax = 60;
		$width=($count{$date}/$linemax)*$rightend;
		if ($width != 0){
			print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
		}
#		for($j=0;$j<$number;$j++){
#			print "*";
#		}
		if ($number eq ""){$number=0;}
		print " <font color=\"#0000ee\">$count{$date}</font><br>";
	}
	$mean=$total/$finday;
	print "---------------------<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total件、 一日平均＝";
	printf("%3.2f",$mean);
	print "件</font><br>";
}

if ($in{choise} eq data1b){
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	open(FILE,"< $filename");
	$i=0;
	while (<FILE>){
		chop;
		($num,$date,@line)=split(/,/);
		if ($i==0){$date1=$date;$num0=$num;}
		$count{$date}++;
		$i++;
	}
	close(FILE);
	($yyy,$mmm,$ddd)=split(/_/,$date1);
	($yyy2,$mmm2,$ddd2)=split(/_/,$date);
	@timetmp=gmtime($time_offset);
	$firstline=&timelocal(0,0,0,$ddd,$mmm-1,$yyy,$timetmp[6],$timetmp[7],$timetmp[8]);
	$endline=&timelocal(0,0,0,$ddd2,$mmm2-1,$yyy2,$timetmp[6],$timetmp[7],$timetmp[8]);
	@tmp=sort {$a<=>$b} values(%count);
	$max=$tmp[$#tmp];
	$total=$#tmp+1;
	$yyyy = $yyy;
	$yyyy2 = $yyy2;
	$yyy=$yyy+1900;
	$yyy2=$yyy2+1900;
	print "<font size=\"+1\">$yyy年$mmm月$ddd日から$yyy2年$mmm2月$ddd2日まで</font><p>";
	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);
		$linemax=600;
		$width=($value/$linemax)*$rightend;
		if ($width != 0){
			print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
		}
#		for($j=0;$j<$value;$j=$j+5){
#			print "*";
#		}
		$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;
	$mean=($total/($num2))*24;
	print "---------------------<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total日、$num2件、 投稿平均間隔＝";
	printf("%3.2f",$mean);
	print "時間</font><br>";
}

if ($in{choise} eq data2){
	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;
	}
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
		if ($today =~ /(\d\d)時\d\d分$/){
			$count[$1]++;
			$total++;
		}
	}
	close(FILE);
	@tmp=sort {$a <=> $b} @count;
	$linemax=$tmp[$#tmp];
	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";
		}
#		for($j=0;$j<$count[$i];$j=$j+$inc){
#			print "*";
#		}
		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>";
}


if ($in{choise} eq data3){
	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;
	}
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
		if ($today =~ /\((.*)\)\d\d時\d\d分$/){
			$count{$1}++;
			$total++;
		}
	}
	close(FILE);
	@tmp=sort {$a <=> $b} values(%count);
	$linemax=$tmp[$#tmp];
	foreach $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";
		}
#		for($j=0;$j<$count{$week};$j=$j+$inc){
#			print "*";
#		}
		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";
}

if ($in{choise} eq data4){
	$inc=10;
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($num,$date,@line)=split(/,/);
		$date =~ s/^(\d?\d\d_\d?\d)_\d?\d$/$1/;
		$count{$date}++;
		$total++;
	}
	close(FILE);
	@item=keys(%count);
	@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;
	@tmp=sort {$a <=> $b} values(%count);
	$linemax= $tmp[$#tmp];
	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";
		}
#		for($j=0;$j<$count{$date};$j=$j+$inc){
#			print "*";
#		}
		if ($count{$date} eq ""){$count{$date}=0;}
		print " <font color=\"#0000ee\">$count{$date}</font><br>";
	}
	$mean=$total/($#item+1);
	print "---------------------<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total件、 月平均＝";
	printf("%3.2f",$mean);
	print "件</font><br>";
}

if ($in{choise} eq data4a){
	$inc=10;
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($num,$date,@line)=split(/,/);
		$date =~ s/^(\d?\d\d)_\d?\d_\d?\d/$1/;
		$count{$date}++;
		$total++;
#		print "$date<br>\n";
	}
	close(FILE);
	@item=keys(%count);
	@item1=@item;
#	@item1=();
#	foreach (@item){
#		s/^(\d?\d\d)_/$1/;
#		push(@item1,$_);
#	}
	@item1=sort {$a <=> $b} @item1;
	@tmp=sort {$a <=> $b} values(%count);
	$linemax=$tmp[$#tmp];
	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>";
	}
	$mean=$total/($#item+1);
	print "---------------------<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total件、 年平均＝";
	printf("%3.2f",$mean);
	print "件</font><br>";
}

if ($in{choise} eq data5){
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
#	@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);
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($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/;
#				$ptoday{$num}=sprintf("%s年%s",$date+1900,$today);
			} else {
				@darray = split(/[^\d]/,$today);
				@tmpaaa = split(/日[^\)]/,$today);
				$date=$darray[0];
				$today=sprintf("%s月%s日(%s",$darray[2],$darray[4],$tmpaaa[1]);
#				$ptoday{$num}=$today;
			}
			$ptoday{$num}=sprintf("%s年%s",$date+1900,$today);
		}
	}
	close(FILE);
	print "<table cols=\"3\" width=\"60%\" border=0>";
	foreach $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>";
}


if ($in{choise} eq data6){
	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;
	}
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
		if ($in{perso} eq "nokeep"){$name=&checkname($name);}
		$count{$name}++;
		$total++;
	}
	close(FILE);
	$i=0;
	foreach (keys(%count)){
		$content{"${count{$_}}_${i}"}="$_";
		$i++;
	}
	@tmp=keys(%content);
	@sortdata=reverse(sort({$a<=>$b}@tmp));
	print "<table cols=2 border=0 width=\"70%\">\n";
	foreach $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\">";
		$linemax=$sortdata[0];
		if ($linemax == 0){last;}
		$width=($data/$linemax)*$rightend;
		if ($width != 0){
			print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
		}
#		for($j=0;$j<$data;$j=$j+$inc){
#			print "*";
#		}
		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>";
	$people=$#sortdata+1;
	print "<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total件、 延べ人数＝";
	print "$people";
	print "人、一人平均＝";
	if ($people == 0){$people=1;}
	$mean=$total/$people;
	printf("%3.2f",$mean);
	print "件</font><br>";
}

if ($in{choise} eq data6a){
	$inc=2;
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	$realy=$in{y2}+1900;
	print "<font size=+1>$realy年$in{m2}月のデータ</font><p>";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($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);
	$i=0;
	foreach (keys(%count)){
		$content{"${count{$_}}_${i}"}="$_";
		$i++;
	}
	@tmp=keys(%content);
	@sortdata=reverse(sort({$a<=>$b}@tmp));
	$linemax=$sortdata[0];
	print "<table cols=2 border=0 width=\"70%\">\n";
	foreach $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";
		}
#		for($j=0;$j<$data;$j=$j+$inc){
#			print "*";
#		}
		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>";
	$people=$#sortdata+1;
	print "<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total件、 延べ人数＝";
	print "$people";
	print "人、一人平均＝";
	if ($people == 0){$people=1;}
	$mean=$total/$people;
	printf("%3.2f",$mean);
	print "件</font><br>";
}

if ($in{choise} eq data6b){
	$inc=20;
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	$realy=$in{y3}+1900;
	print "<font size=+1>$realy年のデータ</font><p>";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($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);
	$i=0;
	foreach (keys(%count)){
		$content{"${count{$_}}_${i}"}="$_";
		$i++;
	}
	@tmp=keys(%content);
	@sortdata=reverse(sort({$a<=>$b}@tmp));
	$linemax=$sortdata[0];
	print "<table cols=2 border=0 width=\"70%\">\n";
	foreach $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";
		}
#		for($j=0;$j<$data;$j=$j+$inc){
#			print "*";
#		}
		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>";
	$people=$#sortdata+1;
	print "<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total件、 延べ人数＝";
	print "$people";
	print "人、一人平均＝";
	if ($people == 0){$people=1;}
	$mean=$total/$people;
	printf("%3.2f",$mean);
	print "件</font><br>";
}

if ($in{choise} eq data6c){
	$inc=2;
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	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");
	$j=0;
	while (<FILE>) {
		chop;
		($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/;
		if ($lastmon ne '' && $lastmon ne $date){
			&mktbl;
			$j=$j+1;
			undef %count;
			undef %content;
		}
		$count{"$name"}++;
		$total++;
		$lastmon=$date;
	}
	close(FILE);
	&mktbl;

	for($i=$j;$i>=0;$i=$i-1){
		($ym,$a1,$a2,$b1,$b2,$c1,$c2)=split(/\,/,$tbl[$i]);
		($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\">$a1</font><br><font color=\"#804040\">$a2件</font></td>";
		print "<td nowrap align=\"center\"><font color=\"#000066\">$b1</font><br><font color=\"#804040\">$b2件</font></td>";
		print "<td nowrap align=\"center\"><font color=\"#000066\">$c1</font><br><font color=\"#804040\">$c2件</font></td>";
		print "</tr>";
	}

	print "</table>";
}

sub mktbl {
	$i=0;
	foreach (keys(%count)){
	$content{"${count{$_}}_$i"}="$_";
		$i++;
	}
	@tmp = keys(%content);
	@tmp1 = reverse(sort {$a<=>$b} @tmp);
	$top=$tmp1[0];
	$top =~ s/^(\d\d*)_\d\d*$/$1/;
	$second=$tmp1[1];
	$second =~ s/^(\d\d*)_\d\d*$/$1/;
	$third=$tmp1[2];
	$third =~ s/^(\d\d*)_\d\d*$/$1/;
	$tbl[$j]="$lastmon,$content{$tmp1[0]},$top,$content{$tmp1[1]},$second,$content{$tmp1[2]},$third";
}

if ($in{choise} eq data7){
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($num,$date,$name,$mail,$host,$today,@line)=split(/,/);
		$date =~ s/_(\d_\d?\d)$/_0${1}/;
		$date =~ s/_(\d\d_)(\d)$/_${1}0${2}/;
		$date =~ s/^(9\d_\d\d_\d\d)$/0${1}/;
		$date2=$date;
		$date =~ s/^(\d?\d\d)_\d?\d_\d?\d$/$1/;
		$today2=$today;
		$today2 =~ s/^(\d\d?\d?)..*/$1/;
		if ($in{perso} eq "nokeep"){$name=&checkname($name);}
		if ($today2 != $date){
			$count{$name}=sprintf("%s_%s年%s_%s",$date2,$date,$today,$num);
		} else {
			$count{$name}="${date2}_${today}_${num}";
		}
	}
	close(FILE);
	foreach (keys(%count)){
		$content{"$count{$_}"}="$_";
	}
	@tmp=keys(%content);
	@sortdata=reverse(sort(@tmp));
	print "<table cols=3 border=0 width=\"70%\">";
	foreach $today (@sortdata){
		$today2 = $today;
		$today2 =~ s/^\d?\d\d_\d\d_\d\d_(..*)_(\d\d*)$/$1/;

		@darray = split(/[^\d]/,$today2);
		@tmpaaa = split(/日[^\)]/,$today2);
		$datex=$darray[0];
		$tx=sprintf("%s月%s日(%s",$darray[2],$darray[4],$tmpaaa[1]);
		$today2=sprintf("%s年%s",$datex+1900,$tx);

		$mesnum=$2;
		print "<tr><td align=\"right\" nowrap style=\"border:0px\"><font color=\"#000000\">$content{$today}</font></td><td nowrap style=\"border:0px\"><font color=\"#883322\">$today2</font></td><td style=\"border:0px\"><font color=\"#000000\"> #$mesnum</font></td></tr>\n";
	}
	print "</table>";
}



if ($in{choise} eq data10){
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	print "<font size=\"+1\">「<font color=\"#0000ee\">$in{hname}</font>」での集計</font><p>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($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);
	for ($i=1;$i<=$finday;$i++){
		$date="${in{y1}}_${in{m1}}_${i}";
		printf("%04d/%02d/%02d | ",$in{y1}+1900,$in{m1},$i);
		$linemax=40;
		$width=($count{$date}/$linemax)*$rightend;
		if ($width != 0){
			print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
		}
#		for($j=0;$j<$count{$date};$j++){
#			print "*";
#		}
		if ($count{$date} eq ""){$count{$date}=0;}
		print " <font color=\"#0000ee\">$count{$date}</font><br>";
	}
	$mean=$total/$finday;
	print "---------------------<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total件、 一日平均＝";
	printf("%3.2f",$mean);
	print "件</font><br>";
}

if ($in{choise} eq data11){
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	print "<font size=\"+1\">「<font color=\"#0000ee\">$in{hname}</font>」での集計</font><p>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($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);
	$i=0;
	foreach (keys(%count)){
		$content{"${count{$_}}_${i}"}="$_";
		$i++;
	}
	@tmp=keys(%content);
	@tmp1=reverse(sort({$a<=>$b}@tmp));
	@sortdata=splice(@tmp1,0,30);
	foreach $number (@sortdata){
		$date=$content{$number};
		($yy,$mm,$dd,$dummy)=split(/_/,$date);
		printf("%04d/%02d/%02d | ",$yy+1900,$mm,$dd);
		$linemax=20;
		$width=($number/$linemax)*$rightend;
		if ($width != 0){
			print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
		}
#		for($j=0;$j<$number;$j++){
#			print "*";
#		}
		if ($number eq ""){$number=0;}
		print " <font color=\"#0000ee\">$count{$date}</font><br>";
	}
	$mean=$total/$finday;
	print "---------------------<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total件、 一日平均＝";
	printf("%3.2f",$mean);
	print "件</font><br>";
}

if ($in{choise} eq data12){
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	print "<font size=\"+1\">「<font color=\"#0000ee\">$in{hname}</font>」での集計</font><p>\n";
	open(FILE,"< $filename");
	$i=0;
	while (<FILE>){
		chop;
		($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);
	($yyy,$mmm,$ddd)=split(/_/,$date1);
	($yyy2,$mmm2,$ddd2)=split(/_/,$date);
	@timetmp=gmtime($time_offset);
	$firstline=&timelocal(0,0,0,$ddd,$mmm-1,$yyy,$timetmp[6],$timetmp[7],$timetmp[8]);
	$endline=&timelocal(0,0,0,$ddd2,$mmm2-1,$yyy2,$timetmp[6],$timetmp[7],$timetmp[8]);
	@tmp=sort {$a<=>$b} values(%count);
	$max=$tmp[$#tmp];
	$total=$#tmp+1;
	$yyy = $yyy + 1900;
	$yyy2 = $yyy2 + 1900;
	print "<font size=\"+1\">$yyy年$mmm月$ddd日から$yyy2年$mmm2月$ddd2日まで</font><p>";
	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;
		}
		$linemax=2000;
		printf("%02d件 | ",$i);
		$width=($value/$linemax)*$rightend;
		if ($width != 0){
			print "<img src=\"$gif\" width=\"$width\" height=\"12\">\n";
		}
#		for($j=0;$j<$value;$j=$j+5){
#			print "*";
#		}
		$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;
	$mean=($total/($num2))*24;
	print "---------------------<br><font size=+1 color=\"#ee0000\">";
	print "トータル＝$total日、$num2件、 投稿平均間隔＝";
	printf("%3.2f",$mean);
	print "時間</font><br>";
}

if ($in{choise} eq data13){
	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 "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	print "<font size=\"+1\">「<font color=\"#0000ee\">$in{hname}</font>」での集計</font><p>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($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);
	@tmp = sort {$a <=> $b} @count;
	$linemax=$tmp[$#tmp];
	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";
		}
#		for($j=0;$j<$count[$i];$j=$j+$inc){
#			print "*";
#		}
		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>";
}


if ($in{choise} eq data14){
	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 "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	print "<font size=\"+1\">「<font color=\"#0000ee\">$in{hname}</font>」での集計</font><p>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($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);
	@tmp = sort {$a <=> $b} values(%count);
	$linemax=$tmp[$#tmp];
	foreach $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";
		}
#		for($j=0;$j<$count{$week};$j=$j+$inc){
#			print "*";
#		}
		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";
}


if ($in{choise} eq data15){
	$inc=2;
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	print "<font size=\"+1\">「<font color=\"#0000ee\">$in{hname}</font>」での集計</font><p>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($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);
	@item=keys(%count);
	@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;
	$flag = 0;
	@tmp = sort {$a <=> $b} values(%personal);
	$linemax=$tmp[$#tmp];
	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";
		}
#		for($j=0;$j<$personal{$date};$j=$j+$inc){
#			print "*";
#		}
		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);
#		if ($personal{$date} == 0 && $flag == 0){next;}
		$flag = 1;
		$item3++;
		$p2total = $p2total + $count{$date};
	}
#	$mean1=$total/($#item+1);
	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";
}

if ($in{choise} eq data15a){
	$inc=2;
	print "$titleprint\n";
	&subtitle;
	print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";
	print "<font size=\"+1\">「<font color=\"#0000ee\">$in{hname}</font>」での集計</font><p>\n";
	open(FILE,"< $filename");
	while (<FILE>){
		chop;
		($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);
	@item=keys(%count);
	@item1=@item;
#	@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;
	$flag = 0;
	@tmp = sort {$a <=> $b} values(%personal);
	$linemax=$tmp[$#tmp];
	foreach $date (@item1){
#		$date =~ s/(\d?\d\d)([1-9]\d)/${1}_$2/;
#		$date =~ s/(\d?\d\d)0(\d)/${1}_$2/;
		$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);
#		if ($personal{$date} == 0 && $flag == 0){next;}
		$flag = 1;
		$item3++;
		$p2total = $p2total + $count{$date};
	}
#	$mean1=$total/($#item+1);
	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";
}


print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";

print "</body></html>";

if ($in{ref} eq 'part' || $in{ref} eq 'timeframe' || $compatible == 1){
	unlink("$tmpdata");
}

exit;

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

}

sub gentmpdata {

local($filename,$tmpdata);

$tmpdata = "$mbdir/tmp.$$";
if ($compatible == 1) {
	`$cat  $mbarchdata $mbpastdata $mbdata > $alldata`;
	chmod(0666,"$alldata");
	$filename="$alldata";
} else {
	$filename = $mbdata;
}

if (($in{m1} =~ /^[13578]$/) || ($in{m1} =~ /^1[02]$/)){
	$finday = 31;
} elsif (($in{m1} =~ /^[469]$/) || ($in{m1} == 11)){
	$finday = 30;
} elsif ($in{m1} == 2){
	$finday = 28;
}

if ($in{ref} eq 'part'){
	open(ALLFILE,"< $filename");
	open(TMPFILE,"> $tmpdata");
	while(<ALLFILE>){
		($num,@dum)=split(/,/);
		if ($num >= $in{startnum} && $num <= $in{endnum}){
			print TMPFILE;
		}
		if ($num > $in{endnum}){last;}
	}
	close(ALLFILE);
	close(TMPFILE);
	$filename=$tmpdata;
} elsif ($in{ref} eq 'timeframe'){
	open(ALLFILE,"< $filename");
	open(TMPFILE,"> $tmpdata");
	@timetmp=gmtime($time_offset);
	$firstline=&timelocal(0,0,0,$in{stday},$in{stmon}-1,$in{styear},$timetmp[6],$timetmp[7],$timetmp[8]);
	$endline=&timelocal(0,0,0,$in{endday},$in{endmon}-1,$in{endyear},$timetmp[6],$timetmp[7],$timetmp[8]);
	while(<ALLFILE>){
		($num,$datecode,@dum)=split(/,/);
		($cury,$curm,$curd)=split(/_/,$datecode);
		$curline=&timelocal(0,0,0,$curd,$curm-1,$cury,$timetmp[6],$timetmp[7],$timetmp[8]);
		if (($curline >= $firstline)&&($curline <= $endline)){
			print TMPFILE;
		}
		if ($curline > $endline){last;}
	}
	close(ALLFILE);
	close(TMPFILE);
	$filename=$tmpdata;
}

return ($filename,$tmpdata);

}

#　統計の個人名方式で「人物」を選んだ場合に違う名前を同一人物と
#　判断させることができます。
#　namedef.datにそれらの名前を人物ごとに１行に登録されていると
#　一番左の名前が代表として表示されます。
#　例：以下はnamedef.datの内容の例です。
#　　　----------------------------------------
#　　　管理人,作成者,かんりにん
#　　　ホークス,hawks
#　　　----------------------------------------
#　この例では、「作成者」「かんりにん」共に「管理人」と同一人物として
#　まとめて集計されます。
#　「ホークス」は改行されているので管理人と別人として判断されますが、
#　「hawks」とは同一人物となります。
#　namedef.datがない場合は、書き込みの名前そのままで集計されます。


sub checkname {
	local($name)=@_;

	open(NAMES,"< $namedef") || return($name);
	while(<NAMES>){
		s/[\r\n]*$//; # instead of chop;
		(@nicknames)=split(/,/);
		foreach $nick (@nicknames){
			if ("$name" eq "$nick"){
				close(NAMES);
				return($nicknames[0]);
			}
		}
	}
	close(NAMES);
	return($name);
}

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

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

if ($compatible == 0){
	open(FILE,"< $mbdata");
	$firstdata = <FILE>;
	close(FILE);
} else {
	open(FILE,"< $mbarchdata") || open(FILE,"< $mbpastdata") || open(FILE,"< $mbdata");
	$firstdata = <FILE>;
	close(FILE);
}
($num,$datecode,@dum)=split(/,/,$firstdata);
$datecode =~ /^(\d\d+)_/;
$firstyear = $1;

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

print <<END;
<HTML>
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
   <META NAME="GENERATOR" CONTENT="Mozilla/4.02 [en] (Win95; I) [Netscape]">
   <META NAME="Author" CONTENT="Hideki Kanayama">
   <TITLE>$mbsrctitle</TITLE>

<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;
	document.search.y1.selectedIndex=year1;
	document.search.m1.selectedIndex=mon1;
}

</script>

END

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

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

print <<END2;
</HEAD>
<BODY TEXT="#000000" $bgimage LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000" onLoad="setopt()">
<FORM action="$script" name="search" method="get">
<input type=hidden name="mode" value="search">
$titleprint
<ul>
<li>ブランクにしている項目は無視されます。
<!-- li>日付、Message#での検索は「<a href="$mbpast">２００件以前</a>」をご利用ください。< -->
<li>本文中に「>」でインデントされている部分（返事のための引用部）は検索しません。
<li>検索結果は１ページで表\\示されるので大量にマッチする検索は表\\示に時間がかかります。
<!-- li>半角の \ [ ] | ^ { } & を単独で検索すると、正しくマッチしない場合があります。-->
</ul>

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

foreach ($firstyear .. $finyear){
	$dispy = $_+1900;
	print "<option value=\"$_\">$dispy\n";
}

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

foreach ($firstyear .. $finyear){
	$dispy = $_+1900;
	print "<option value=\"$_\">$dispy\n";
}
print <<END2;
</select>年
<select name="endmon" onFocus="document.search.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
</select>
<select name="endday" onFocus="document.search.ref[2].checked=true">
	<option value="1">1
	<option value="2">2
	<option value="3">3
	<option value="4">4
	<option value="5">5
	<option value="6">6
	<option value="7">7
	<option value="8">8
	<option value="9">9
	<option value="10">10
	<option value="11">11
	<option value="12">12
	<option value="13">13
	<option value="14">14
	<option value="15">15
	<option value="16">16
	<option value="17">17
	<option value="18">18
	<option value="19">19
	<option value="20">20
	<option value="21">21
	<option value="22">22
	<option value="23">23
	<option value="24">24
	<option value="25">25
	<option value="26">26
	<option value="27">27
	<option value="28">28
	<option value="29">29
	<option value="30">30
	<option value="31">31
</select>日まで
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="30%">名前でサーチ</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="30%">タイトルでサーチ</td>
<td width="70%">
<input type=text name="title" size="30"><br>
<input type=radio name="title_plus" value="and" checked>AND　
<input type=radio name="title_plus" value="or">OR<br>
</td>
</tr>
<tr>
<td width="30%">本文でサーチ</td>
<td width="70%">
<input type=text name="main1" size="50"><br>
<input type=radio name="main1_plus" value="and" checked>AND　
<input type=radio name="main1_plus" value="or">OR<br>
<input type=text name="main2" size="50"><br>
<input type=radio name="main2_plus" value="and" checked>AND　
<input type=radio name="main2_plus" value="or">OR<br>
<input type=text name="main3" size="50"><br>
</td>
</tr>

<tr>
<td>　</a></td>
<td><input type="submit" value="　サーチ　">　<input type="reset" value="　クリア　"></td>
</tr>
</table><p>
<a href="$mbread">麻雀掲示板へ</a>
</form>

</BODY>
</HTML>
END2

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

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

@tmparry=split(/&/,$data);

foreach $string (@tmparry){
	($key,$value)=split(/=/,$string);
#	$value =~ tr/+/ /;

# 正規表現のスペシャルな文字に関してエスケープする。
# \=%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、

	$value =~ s/%5[bBcCdDeE]/%5c$&/g;
	$value =~ s/%2[489B]/%5c$&/g;
	$value =~ s/%3F/%5c$&/g;
	$value =~ s/%7[BCD]/%5c$&/g;
	$value =~ s/[\.\*]/%5c$&/g;

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


	$value =~ s/</&lt;/g; $value =~ s/>/&gt;/g;

	if ($key ne main){
		$br = "";
	} else {
		$br = "<br>";
	}
	if ($value =~ /\r\n/) { $value =~ s/\r\n/$br/g; }
	if ($value =~ /\n/) { $value =~ s/\n/$br/g; }
	if ($value =~ /\r/) { $value =~ s/\r/$br/g; }
	if ($value =~ /,/) { $value =~ s/,/&#44;/g; }

	if ($key eq title){
		$value =~ s/\'/&#39;/g;
	}

	$in{"$key"}=$value;

}

#if ($compatible == 1){
#	`$cat  $mbarchdata $mbpastdata $mbdata > $alldata`;
#	chmod(0666,"$alldata");
#	$filename="$alldata";
#} else {
#	$filename = $mbdata;
#}

($filename,$tmpdata) = &gentmpdata;

$name = $in{name};

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

print "<html>\n";
print "<head>\n";

if ($head_insert_en == 1){
	print "$head_insert\n";
}

if ($style_sheet_en == 1){
	print "<STYLE type=\"text/css\">\n";
	print "$style_sheet";
	print "\n</style>\n";
}

print "</head>\n";
print "<BODY TEXT=\"#000000\" $bgimage LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n";

print "<form><input type=button value=\"戻る\" onClick=\"history.back()\"></form>\n";

open(FILE,"< $filename") || "die Cannot open file\n";

print "<ul>\n";

while (<FILE>){

	s/[\r\n]*$//;

	$nameres = "false";
	$titleres = "false";
	$main1res = "false";
	$main2res = "false";
	$main3res = "false";
	($lnum,$ldcode,$lname,$lmadd,$lip,$ldate,$ltitle,$lmain,$lencpwd,$limagefile)=split(/,/);
	$