#!/usr/local/bin/perl

$ver = 'BBSROOM TypeI'; # バージョン情報

#======================#
#    設定するところ    #
#======================#

# jcode.plが同一ディレクトリにある場合
require './jcode.pl';
require '../deny/deny.cgi';
require "../click/admgr.pl";
require './ad.cgi';

#広告を取得
#PC版ヘッダー＆エラーページ表示
$add1_html = &admgr'get_ad('bbs', 'headertext');
#PC版フッター表示
$add2_html = &admgr'get_ad('bbs', 'footer');
$adi_html = &admgr'get_ad('bbs', 'docomo');
$ade_html = &admgr'get_ad('bbs', 'ezweb');
$ady_html = &admgr'get_ad('bbs', 'yahoo');

# 広告468挿入
$adprage = '<iframe frameborder="0" allowtransparency="true" height="60" width="468" marginheight="0" scrolling="no" src="http://ad.jp.ap.valuecommerce.com/servlet/htmlbanner?sid=2102953&pid=881726846" marginwidth="0"><script language="javascript" src="http://ad.jp.ap.valuecommerce.com/servlet/jsbanner?sid=2102953&pid=881726846"></script><noscript><a href="http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2102953&pid=881726846" target="_blank" ><img src="http://ad.jp.ap.valuecommerce.com/servlet/gifbanner?sid=2102953&pid=881726846" height="60" width="468" border="0"></a></noscript></iframe>';
# 広告text挿入
$adtprage = '<a href="http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2102953&pid=881728954" target="_blank" ><img src="http://ad.jp.ap.valuecommerce.com/servlet/gifbanner?sid=2102953&pid=881728954" height="1" width="1" border="0">こちら</a>';

sub init {

# スクリプトファイル名
$script   = "./pres.cgi?room=$room";

# ログファイル
$logfile  = "./user/$room\.log";

# 設定ファイル
$setfile = "./user/$room\.dat";

# ロックファイル名
$lockfile = "./lock/$room\.lock";

# 管理ファイル
$edtfile  = "./edit.cgi?room=$room";

# 設定ファイル読み込み
&open_set;

}

# キャラクタGIF画像のディレクトリを指定
$imgurl = "http://www.bbsroom.com/bbs/icon2";

# 壁紙のあるディレクトリ
$gif_url = "http://www.bbsroom.com/bbs/icon2";

# 本文の文字大きさ（ポイント数:スタイルシートで有効）
$b_size = '11pt';

# 本文の文字のタイプ
$f_face= 'verdana,chicago,"ＭＳ Ｐゴシック"';

# アイコンを定義（上下は必ずペアで）
@icon1 = ('icon01.gif','icon02.gif','icon03.gif','icon04.gif','icon05.gif','icon06.gif','icon07.gif','icon08.gif','icon09.gif','icon10.gif','icon11.gif','icon12.gif','icon13.gif','icon14.gif','icon15.gif','icon16.gif','icon17.gif','icon18.gif','icon19.gif','icon20.gif','icon21.gif','icon22.gif','icon23.gif','icon24.gif','icon25.gif');
@icon2 = ('ライオン','トナカイ','イヌ','ウシ','ヤギ','ゾウ','ネコ','サル','ヒツジ','ウサギ','ペンギン','アシカ','キツネ','リス','トラ','ワニ','アライグマ','メロン','カキ','イチゴ','スイカ','モモ','ブタ','ネズミ','クマ');

# 管理者専用アイコン機能 (0=no 1=yes)
#  --> 【使い方】記事投稿時に「管理者アイコン」を選択し、削除キーに
#                「管理用パスワード」を入力して下さい。
$my_icon = 1;

# 管理者専用アイコンの「ファイル名」を指定
$my_gif  = 'admin.gif';

# アイコンモード (0=no 1=yes)
$icon_mode = 1;

#居住地の名前
@add1 = ('北海道','東　北','関　東','甲信越','東　海','北　陸','近　畿','中　国','四　国','九　州','沖　縄','海　外','不　明','ひみつ');

# 返信がつくと親記事をトップへ移動 (0=no 1=yes)
$top_sort = 1;

# ファイルロック形式
#  --> 0=no 1=symlink関数 2=open関数
$lockkey = 1;

# 自動リンク (0=no 1=yes)
$autolink = 1;

# Ｅメールアドレスの必須入力 (0=no 1=yes)
$in_email = 0;

# 家アイコンの使用 (0=no 1=yes)
$home_icon = 1;
$home_gif = "home.gif";	# 家アイコンのファイル名
$home_wid = 25;		# 画像の横サイズ
$home_hei = 25;		#   〃  縦サイズ

# メールアイコンの使用 (0=no 1=yes)
$mail_icon = 1;
$mail_gif = "mail.gif";	# MAILアイコンのファイル名
$mail_wid = 25;		# 画像の横サイズ
$mail_hei = 25;		#   〃  縦サイズ

# １ページ当たりの記事表示数 (親記事)
$p_log = 5;

# sendmailパス（メール通知する時）
$sendmail = '/usr/lib/sendmail';

# 他サイトから投稿排除する場合 (http://から書く)
$base_url = "http://www.bbsroom.com/cgi-local/bbs2/pres.cgi";

# 日本語チェック
$jp_wd = 1;

# 文字色の設定。
@COLORS = ('#4b6b8f','#4e60b4','#408080','#4b965c','#89669b','#a26faa','#c95a6b','#e67531');

# 記事表示部等の枠の色（レスが付いたときのラインの色もこの色が反映されます）
# この色はユーザーが設定しない場合にのみ反映されます。
$tt_color = "#f0f7fb";

#記事を書きこむときなどのSubmitボタンの背景色
# この色はユーザーが設定しない場合にのみ反映されます。
$sb_col  = "#d1e0ef";
#記事を書きこむときなどのSubmitボタンの文字色
# この色はユーザーが設定しない場合にのみ反映されます。
$sb_fcol = "#4681a4";

#記事表示部の横幅サイズに関する設定（ピクセルまたは%で）
$waku_w = '550';	#記事全体の横幅サイズ

# 投稿フォーム改行形式 (soft=手動 hard=強制)
$wrap = 'soft';

$banner1 = '<!--上部-->';	# 掲示板上部に挿入

$hikoukoku = 'isample';# 非広告ユーザ

# webdo CROOZ メガバナー エラーページ表示
##-------- パラメータのセット -------
my $partner_id = 7318;		#パートナーID(数値)
my $strQuery = ""; 	#キーワード(エンコード等していない文字列)
my $ad_number = 1; 			#取得広告数(数値)
my $allow_unmutched = "Y"; 	#マッチングしない広告の許可(Y/N)
my $segment = "0,0";             #ユーザー情報(例:30歳男性)
##-----------------------------------

my $ret = CROOZ::crooz_ad(
            $partner_id,
            $strQuery,3,
            $ENV{'REMOTE_ADDR'},
            $ENV{'HTTP_USER_AGENT'},
            $allow_unmatched,
            $segment,
            $ENV{'HTTP_X_DCMGUID'},
            $ENV{'HTTP_X_UP_SUBNO'},
            $ENV{'HTTP_X_JPHONE_UID'}
        );
		
# アクセス解析
$analytics = '<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src=\'" + gaJsHost + "google-analytics.com/ga.js\' type=\'text/javascript\'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
var pageTracker = _gat._getTracker("UA-4783714-2");
pageTracker._trackPageview();
</script>';

# アクセス制限（半角スペースで区切る、アスタリスク可）
#  → 拒否ホスト名を記述（後方一致）【例】*.anonymizer.com
$deny_host = '';
#  → 拒否IPアドレスを記述（前方一致）【例】210.12.345.*
$deny_addr = '202.105.* 123.156.* 101.66.* 175.44.* 112.111.* 36.248.* 58.48.* 178.32.* 192.74.250.* 188.165.* 60.182.* 121.8.* 61.152.170.* 210.13.101.* 116.16.* 116.224.* 58.35.* 124.76.* 59.56.* 113.64.* 220.170.32.* 222.245.* 222.184.* 118.248.* 59.136.166.* 58.32.* 58.60.* 59.56.* 59.32.* 60.160.* 60.161.* 60.164.* 60.178.* 60.181.* 61.130.* 61.134.0.* 61.140.* 61.141.* 61.144.* 61.145.* 61.146.* 61.154.* 61.157.* 61.173.* 61.177.* 61.178.* 61.180.* 61.183.* 61.145.* 121.224.* 121.236.* 124.114.* 124.72.* 125.73.* 125.74.* 125.88.* 125.118.* 218.13.* 218.63.* 218.64.* 218.65.* 218.77.* 218.78.* 218.80.* 218.81.* 218.83.* 218.86.* 218.87.* 218.88.* 218.90.* 218.94.* 219.128.* 219.129.* 219.130.* 219.131.* 219.132.* 219.133.* 219.134.* 219.135.* 219.136.* 219.137.* 219.144.* 219.152.* 219.153.* 220.163.* 220.164.* 220.165.* 220.173.* 220.174.* 220.175.* 220.176.* 220.184.* 220.188.* 221.225.* 221.227.* 221.229.* 221.232.* 221.235.* 222.170.* 220.175.* 222.184.* 222.186.* 222.187.* 222.188.* 222.189.* 222.208.* 222.210.* 222.212.* 222.213.* 222.214.* 222.216.* 222.217.* 222.218.* 222.64.* 222.71.* 222.76.* 222.79.* 222.84.* 222.94.* 121.204.* 61.159.214.* 59.40.* 125.80.* 125.88.* 58.37.* 222.170.* 59.52.* 218.78.* 220.187.128.* 222.170.* 218.19.* 222.170.* 124.236.* 121.32.* 60.182.* 222.208.* 116.199.64.* 125.88.* 121.56.* 114.224.* 183.* 123.152.* 218.19.* 117.80.* 119.128.* 124.228.* 125.113.* 5.39.112.* 60.182.159.* 60.182.157.* 125.112.* 218.72.* 14.23.* 168.62.*';

#  → 携帯IPアドレスを記述（前方一致）【例】210.12.345.*
# アクセス制限（半角スペースで区切る、アスタリスク可）
$mobileip = '';

#======================#
#   　　設定完了  　　 #
#======================#

## --- メイン処理
&decode;
&init;
&axscheck;
if ($mode eq 'regist') { &regist; }
if ($mode eq 'find') { &find; }
if ($mode eq 'howto') { &howto; }
if ($mode eq 'enter') { &enter; }
if ($mode eq 'admin') { &admin; }
if ($mode eq 'usrdel') { &usrdel; }
if ($mode eq 'res') { &res_msg; }
if ($mode eq 'image') { &image; }
if ($mode eq 'formtel') { &formtel; }
&html;

## --- 設定ファイル認識
sub open_set {
	local($type);

	unless (-e $setfile) { &error1("指定された掲示板はありません。"); }
	else {
		open(IN,"$setfile") || &error1("Open Error : \$setfile");
		$SetData = <IN>;
		close(IN);
	}

	($type,$title,$t_size,$t_color,$t_face,$t_gif,$home,$b_gif,$in_col,$in_fcol,$bgcolor,$text,$link,$vlink,$alink,$max,$mail,$pw,$sub_color,$tbl_color,$waku_color,$deny) = split(/<>/, $SetData);

	# 記事題名の色とテーブル下地の色をデフォルト定義
	if (!$sub_color) { $sub_color = $t_color; }
	if (!$tbl_color) { $tbl_color = "FFFFFF"; }
	if (!$waku_color) { $waku_color = $tt_color; }
	if (!$in_col) { $in_col = $sb_col; }
	if (!$in_fcol) { $in_fcol = $sb_fcol; }

	# アクセス拒否
	if ($deny) {
		&get_host;
		@DENY = split(/\s+/, $deny);
		$dflag=0;
		foreach (@DENY) {
			if ($host =~ /$_/i) { $dflag=1; last; }
		}
		if ($dflag) { &error("現在アクセスできません。"); }
	}

}

#-------------------------------------------------
#  アクセス制限
#-------------------------------------------------
sub axscheck {
	# IP&ホスト取得
	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};
	if ($gethostbyaddr && ($host eq "" || $host eq $addr)) {
		$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
	}

	# IPチェック
	local($flg);
	foreach ( split(/\s+/, $deny_addr) ) {
		s/\./\\\./g;
		s/\*/\.\*/g;

		if ($addr =~ /^$_/i) { $flg = 1; last; }
	}
	if ($flg) {
		&error("アクセスを許可されていません");

	# ホストチェック
	} elsif ($host) {

		foreach ( split(/\s+/, $deny_host) ) {
			s/\./\\\./g;
			s/\*/\.\*/g;

			if ($host =~ /$_$/i) { $flg = 1; last; }
		}
		if ($flg) {
			&error("アクセスを許可されていません");
		}
	}
	if ($host eq "") { $host = $addr; }
}

#----------------#
#  記事表示処理  #
#----------------#
sub html {
	&header;
	# タイトル部
	print "<center>\n";
	if ($banner1 ne "<!--上部-->") { print "$banner1<P>\n"; }

if ($imode =~ /1|2|3/) {
		print "<font color=\"#CC0000\">";
		print "$title</font><br>\n";
} if ($imode == 0) {
	if ($t_gif) { print "<img src=\"$t_gif\" alt=$title>\n";
		print "<br><br>\n"; }	
	else {
		print "<font color=$t_color size=$t_size face=\"$t_face\">";
		print "<b>$title</b></font>\n";
		print "<br><br>\n";
	}
}

print <<"EOM";
<br><a href="http://www.bbsroom.com/" target="_blank">重要なお知らせ</a><br>
EOM

if ($imode == 1) {
	&jcode'convert(*adi_html,'sjis');
			print "$adi_html\n";
}
if ($imode == 2) {
	&jcode'convert(*ady_html,'sjis');
			print "$ady_html\n";
}
if ($imode == 3) {
	&jcode'convert(*ade_html,'sjis');
			print "$ade_html\n";
}

	if ($imode =~ /1|2|3/) {
		print "</center><hr size=\"1\">\n";
		print "$emo1<a href=\"$script&mode=formtel\" $button=\"1\">新規投稿</a><br>\n";
	}
	if ($imode == 0) {
	print "[<a href=\"$home\" target='_top'>HOME</a>]\n";
	print "[<a href=\"$script&mode=howto\">HOW TO</a>]\n";
	print "[<a href=\"$script&mode=find\">SEARCH</a>]\n";
		# ログファイルのサイズを取得 広告を消す
		$size = -s "$logfile";
		if ($size < 1000) {}
		elsif ($room eq $hikoukoku) {}
		else {		
		#&jcode'convert(*add1_html,'sjis');
		#print "[$add1_html] \n";
		print "[$adtprage] \n";
		}
	print <<"EOM";
[<a href="$script&mode=enter">ADMIN</a>]
<br><br></center>
EOM

	# フォームを表示
	&form_view;
		
	print "<center>\n";
}
	# ページ区切り処理
	$start = $page + 1;
	$end   = $page + $p_log;

	open(IN,"$logfile") || &error("Open Error : $logfile");
	$top = <IN>;

	$i=0; $j=0;
	while ($_ = <IN>) {
		($no,$reno,$date,$name,$mail,$sub,
			$com,$url,$add,$host,$pw,$color,$icon) = split(/<>/, $_);

		if ($reno eq "") { $i++; $j++; }
		if ($i < $start) { next; }
		if ($i > $end) { next; }

	if ($imode =~ /1|2|3/) {
	} if ($imode == 0) {

		if ($mail_icon && $mail) { $mail = "<a href=\"mailto:$mail\"><img src=\"$imgurl\/$mail_gif\" border=0 align=top alt='MAIL' width=\"$mail_wid\" height=\"$mail_hei\"></a>"; }
		elsif (!$mail_icon && $mail) { $mail = "&lt;<a href=\"mailto:$mail\">MAIL</a>&gt;"; }
		if ($home_icon && $url) { $url = "<a href=\"http://$url\" target='_blank'><img src=\"$imgurl\/$home_gif\" border=0 align=top alt='WEB' width=\"$home_wid\" height=\"$home_hei\"></a>"; }
		elsif (!$home_icon && $url) { $url = "&lt;<a href=\"http://$url\" target='_blank'>WEB</a>&gt;"; }
		if (!$icon_mode) { $com = "<blockquote>$com</blockquote>"; }
		
		if ($home_icon) { $hm_wid = $home_wid + $mail_wid + 20; }

		if (!$reno && $flag) {
			print "</TD></TR></TABLE></TD></TR></TABLE><br><br>\n";
			$flag=1;
		}
	}
		if (!$reno) {
	if ($imode =~ /1|2|3/) {
	} if ($imode == 0) {
			print "<TABLE BORDER=0 WIDTH=$waku_w BGCOLOR=\"$waku_color\" CELLSPACING=2 CELLPADDING=2><TR><TD>\n";
			print "<TABLE BORDER=0 WIDTH='100%' BGCOLOR=\"$tbl_color\"><TR><TD>\n";
			$flag=1;
		}
	}

	if ($imode =~ /1|2|3/) {
		if (!$reno) {
		print "<hr size=\"1\">\n";
		print "[NO.$no]<a href=\"$script&mode=res&no=$no\">$sub</a><br>\n";
		if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
		print "$name";
		print "[$add]<br>\n";
		print "$date\n";
		} else {}
	} if ($imode == 0) {
		if ($reno) { print "<hr noshade size=2 color=$waku_color width='85%'>\n"; }
		print "<table border=0 cellpadding=2><tr><td width=10></td>\n";
		if ($reno) { print "<td rowspan=2 width=30><br></td>"; }

		print "<td valign=top nowrap><font color=\"$sub_color\"><b>$sub</b></font>　";
		print "<small>FROM：<b>$name</b> [$add] </small> ";
		print "</td><td valign=top>\n";

		if (!$reno) {
			print "<form action=\"$script\" method=POST>\n";
			print "<input type=hidden name=mode value=res>\n";
			print "<input type=hidden name=no value=$no>\n";
			print "<input type=hidden name=room value=\"$room\">\n";
			print "<input type=submit value='RES' style=\"background-color:$in_col;color:$in_fcol\"></td></form>\n";
		} else {
			print "<br></td>\n";
		}

		print "</tr></table><table border=0 cellpadding=5><tr><td width=10></td>\n";
		if ($reno) { print "<td width=35><br></td>\n"; }
	}
		# アイコンモード
	if ($imode =~ /1|2|3/) {
	} if ($imode == 0) {
		if ($icon_mode) { print "<td><img src=\"$imgurl\/$icon\"></td>"; }

		print "<td><font color=\"$color\">$com</font>";
		print "</td></tr></table><center><table border=0 width=85%><tr><td align=right nowrap>\n";
		print "<small>DATE：$date</small> \n";
		print "<font color=\"$sub_color\"><small>No\.$no</small></font></td>\n";
		print "<td align=right valign=middle width=$hm_wid>&nbsp;$mail&nbsp;$url</td></tr></table></center>\n";

	}
}
	close(IN);
	if ($imode =~ /1|2|3/) {
	} if ($imode == 0) {
	print "</TD></TR></TABLE></TD></TR></TABLE>\n";
}
	print "<P><center>\n";
	
if ($imode == 1) {
	print "<hr size=\"1\">\n";
	&jcode'convert(*adi_html,'sjis');
			print "$adi_html\n";
}
if ($imode == 2) {
	print "<hr size=\"1\">\n";
	&jcode'convert(*ady_html,'sjis');
			print "$ady_html\n";
}
if ($imode == 3) {
	print "<hr size=\"1\">\n";
	&jcode'convert(*ade_html,'sjis');
			print "$ade_html\n";
}
	if ($imode =~ /1|2|3/) {
	print "</center>\n";
	print "<br><br>\n";
	}
	if ($imode == 0) {
	print "</center></P>\n";
		}
	$next_page = $page + $p_log;
	$back_page = $page - $p_log;

	if ($imode =~ /1|2|3/) {
	if ($back_page >= 0) {
		print "$emo2<a href=\"$script&page=$back_page\" $button=\"2\">前ﾍﾟｰｼﾞ</a><br>\n";
	}
	if ($next_page < $i) {
		print "$emo3<a href=\"$script&page=$next_page\" $button=\"3\">次ﾍﾟｰｼﾞ</a>\n";
	}
	} if ($imode == 0) {

	print "<blockquote><center><table align=center cellpadding=0 cellspacing=0><tr>\n";
	if ($back_page >= 0) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$back_page\">\n";
		print "<input type=hidden name=room value=\"$room\">\n";
		print " <input type=submit value=\"BACK\" style=\"background-color:$in_col;color:$in_fcol\"> \n";
		print "</td></form>\n";
	}
	if ($next_page < $i) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$next_page\">\n";
		print "<input type=hidden name=room value=\"$room\">\n";
		print " <input type=submit value=\"NEXT\" style=\"background-color:$in_col;color:$in_fcol\"> \n";
		print "</td></form>\n";
	}
	print "</tr></table>\n";

	# 著作権表示部
	print "<br><center>\n";
	}
	if ($imode =~ /1|2|3/) {
	print "\n";
	} if ($imode == 0) {
		# ログファイルのサイズを取得 広告を消す
		$size = -s "$logfile";
		
		if ($size < 1000) {}
		elsif ($room eq $hikoukoku) {}
		#else {print "$googlei\n";}
		else {
		#&jcode'convert(*add2_html,'sjis');
		#print "$add2_html\n";
		print "$adprage\n";
		}
	print "</center><br>\n";

	print "<center><br><table align=center><tr>\n";
	print "<td nowrap align=center><form action=\"$script\" method=\"POST\">\n";
	print "<input type=hidden name=mode value=\"usrdel\">\n";
	print "<input type=hidden name=room value=\"$room\"><small>\n";
	print "<font color=\"$sub_color\">+ DELETE FORM +</font><br>\n";
	print "NO<input type=text name=no size=3>\n";
	print "DELETE KEY<input type=password name=pwd size=4 maxlength=8>\n";
	print "<input type=submit value=\"DELETE\" style=\"background-color:$in_col;color:$in_fcol\">\n";
	print "</small></form></td>\n";
	print "</tr></table></blockquote></center><br clear=all>\n";
		}
if ($imode =~ /1|2|3/) {
	print "<center>\n";
	print "<br><a href=\"http://www.bbsroom.com/i/\">BBSROOM</a>\n";
	print "</center></body></html>\n";
	} if ($imode == 0) {
	print "<center><P><small>\n";
	print "- <a href='http://www.bbsroom.com/' target='_top'>BBSROOM</a> -<br>";
	print "- Script:<a href='http://www.kent-web.com/' target=\"_blank\">KENT WEB</a> -\n";
	print " Edit:<a href='http://www.prettybook.com/' target=\"_blank\">PRETTY BOOK</a> -\n";
	print " <a href='http://www.prage.jp/' target=\"_blank\">PRAGE</a> -<br>\n";
	print "- <a href=\"http://lemochu.com/\" target=\"_blank\">30代SNS</a> - <a href=\"http://www.prage.jp/\" target=\"_blank\">プラージュ</a> - <a href=\"http://www.tamachimeishi.com/\" target=\"_blank\">名刺印刷</a> - <a href=\"http://www.internetsecurityshop.jp/\" target=\"_blank\">FortiGate</a> -\n";
	print "</center>\n";
	print "<P align=\"right\">\n";
	print "<a href=\"http://www.bbsroom.com/\" target='_top'>BBSROOM</a>\n";
	print "</small></P>\n";
	print "</body></html>\n";
		}
	exit;
}

#----------------#
#  書きこみ処理  #
#----------------#
sub regist {

if ($imode == 0) {

	# 他サイトからのアクセスを排除
	if ($base_url) {
		$ref_url = $ENV{'HTTP_REFERER'};
		$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		if ($ref_url !~ /$base_url/i) { &error("不正なアクセスです"); }
	}
}

#if ($imode =~ /1|2|3/) {
#	&get_host;
	
	# 携帯IPチェック
#	my $flg;
#	foreach ( split(/\s+/, $mobileip) ) {
#		s/\./\\\./g;
#		s/\*/\.\*/g;
		
#		if ($addr =~ /^$_/i) {
#			last;
#		}
#		else {
#			$flg = 1;
#			last;
#		}
#	}
#	if ($flg) {
#		&error("書き込みができませんでした。");
#	}
#	if ($host eq "") { $host = $addr; }
#}

	# フォーム内容をチェック
	if ($name eq "") { &error("名前が入力されていません"); }
	if ($com eq "") { &error("コメントが入力されていません"); }
	if ($in_email && $email !~ /(.+)\@(.+)\.(.+)/) {
		&error("メールアドレスの入力が不正です");
	}

	# 禁止ワードチェック
	if ($deny_word) {
		&deny_word($FORM{'name'});
		&deny_word($FORM{'email'});
		&deny_word($FORM{'url'});
		&deny_word($FORM{'sub'});
		&deny_word($FORM{'com'});
	}
	
	# 日本語チェック
	if ($jp_wd) { &jp_wd; }

	# 管理アイコンのチェック
	if ($my_icon && $icon eq "$my_gif") {
		$check = &d_passwd("$FORM{'pwd'}","$pw");
		if ($check ne "yes") { &error("管理用アイコンは管理者専用です"); }
	}

	# ホスト名を取得
	&get_host;

	# ロック処理
	if ($lockkey == 1) { &lock1; }
	elsif ($lockkey == 2) { &lock2; }

	open(IN,"$logfile") || &error("Open Error : $logfile","lock");
	@lines = <IN>;
	close(IN);
	$top = shift(@lines);

	$match=0;
	foreach (@lines) {
		local($tno,$treno,$tdate,$tname,$tmail,$tsub,$tcom)
								 = split(/<>/, $_);
		if ($name eq "$tname" && $com eq "$tcom") { $match=1; last; }
	}
	if ($match) { &error("二重投稿は禁止です","lock"); }

	# 記事Noを採番
	$top =~ s/\n//;
	$no = $top + 1;

	# 削除キーを暗号化
	if ($FORM{'pwd'}) { $PW = &e_passwd($FORM{'pwd'}); }

	# URL自動リンク
	if ($autolink) { &auto_link($com); }

	# 親記事の場合
	if ($FORM{'reno'} eq "") {

		# 最大記事数処理
		while ($max <= @lines) { pop(@lines); }

		unshift(@lines,"$no<><>$date<>$name<>$email<>$sub<>$com<>$url<>$add<>$host<>$PW<>$color<>$icon<>\n");
		unshift(@lines,"$no\n");

		# 更新
		open(OUT,">$logfile") || &error("Write Error : $logfile","lock");
		print OUT @lines;
		close(OUT);
	}
	# レス記事の場合：トップソートあり
	elsif ($FORM{'reno'} && $top_sort) {

		$match=0;
		@new=();
		@tmp=();
		foreach (@lines) {
			($no2,$reno2,$dm,$dm,$dm,$dm,$dm,$dm,$dm,$dm,$dm,$dm,$dm)
								 = split(/<>/, $_);

			if ($FORM{'reno'} eq "$no2") {
				$match=1;
				push(@new,$_);
			}
			elsif ($FORM{'reno'} eq "$reno2") {
				push(@new,$_);
			}
			elsif ($match == 1 && $FORM{'reno'} ne "$reno2") {
				$match=2;
				push(@new,"$no<>$FORM{'reno'}<>$date<>$name<>$email<>$sub<>$com<>$url<>$add<>$host<>$PW<>$color<>$icon<>\n");
				push(@tmp,$_);
			}
			else { push(@tmp,$_); }
		}

		if ($match == 1) {
			push(@new,"$no<>$FORM{'reno'}<>$date<>$name<>$email<>$sub<>$com<>$url<>$add<>$host<>$PW<>$color<>$icon<>\n");
		}
		push(@new,@tmp);

		# 更新
		unshift(@new,"$no\n");
		open(OUT,">$logfile") || &error("Write Error : $logfile","lock");
		print OUT @new;
		close(OUT);

	}
	# レス記事の場合：トップソートなし
	else {
		$match=0;
		@new=();
		foreach (@lines) {
			($no2,$reno2,$dm,$dm,$dm,$dm,$dm,$dm,$dm,$dm,$dm,$dm,$dm)
								 = split(/<>/, $_);

			if ($match == 0 && $FORM{'reno'} eq "$no2") { $match=1; }
			elsif ($match == 1 && $FORM{'reno'} ne "$reno2") {
				$match=2;
				push(@new,"$no<>$FORM{'reno'}<>$date<>$name<>$email<>$sub<>$com<>$url<>$add<>$host<>$PW<>$color<>$icon<>\n");
			}
			push(@new,$_);
		}

		if ($match == 1) {
			push(@new,"$no<>$FORM{'reno'}<>$date<>$name<>$email<>$sub<>$com<>$url<>$add<>$host<>$PW<>$color<>$icon<>\n");
		}

		# 更新
		unshift(@new,"$no\n");
		open(OUT,">$logfile") || &error("Write Error : $logfile","lock");
		print OUT @new;
		close(OUT);
	}

	# ロック解除
	if (-e $lockfile) { unlink($lockfile); }

	if ($FORM{'cook'} eq 'on') { &set_cookie; }

	# メール処理
	if ($mail ne "") { &mail_to; }

if ($imode == 1) {
	&header;
	print "<center>\n";
	&jcode'convert(*adi_html,'sjis');
			print "$adi_html\n";
}
if ($imode == 2) {
	&header;
	print "<center>\n";
	&jcode'convert(*ady_html,'sjis');
			print "$ady_html\n";
}
if ($imode == 3) {
	&header;
	print "<center>\n";
	&jcode'convert(*ade_html,'sjis');
			print "$ade_html\n";
}
	
	# 携帯完了メッセージ
	if ($imode =~ /1|2|3/) {
	print "<br><br>\n";
	print "正常に受理しました\n";
	print "<br><br>\n";
	print "<a href=\"$script\">掲示板に戻る</a>\n";
	print "</center>\n";
	print "</body></html>\n";
	exit;
}
}

#--------------#
#  ワード検索  #
#--------------#
sub find {
	&header;
	print <<"HTML";
[<a href="$script">BACK</a>]
<center>
<TABLE BORDER=0 WIDTH=$waku_w BGCOLOR="$waku_color" CELLSPACING=2 CELLPADDING=2><TR><TD>
<TABLE BORDER=0 WIDTH=100% BGCOLOR="$tbl_color"><TR><TD ALIGN=center><br>
<big>SEARCH</big>
</center><P><center>
HTML
	# 文字コード変換
	&jcode'convert(*ad1_html,'sjis');
	print "$ad1_html\n";
	print <<"HTML";
</center><P>
<table cellpadding=5>
<tr><td nowrap>
  <UL>
  <LI>検索したい<b>キーワード</b>を入力し、検索領域を選択して「検索ボタン」を押してください。
  <LI>キーワードは「半角スペース」で区切って複数指定することができます。
  </OL>
</td></tr>
</table>
<P><form action="$script" method="POST">
<input type=hidden name=mode value="find">
<input type=hidden name=room value="$room">
<table border=1 cellspacing=1>
<tr>
  <th colspan=2>キーワード
	<input type=text name=word size=30 value="$in{'word'}">
  </th>
</tr>
<tr>
  <td>検索条件</td>
  <td>
    <input type=radio name=cond value="and" checked>AND
    <input type=radio name=cond value="or">OR
  </td>
</tr>
<tr>
  <th colspan=2>
    <input type=submit value="SEARCH" style="background-color:$in_col;color:$in_fcol"><input type=reset value="RESET" style="background-color:$in_col;color:$in_fcol">
  </th>
</tr>
</table>
</form></TD></TR></TABLE></TD></TR></TABLE></center>
HTML
	# ワード検索の実行と結果表示
	if ($FORM{'word'} ne "") {

		# 入力内容を整理
		$cond = $FORM{'cond'};
		$word = $FORM{'word'};
		$word =~ s/　/ /g;
		$word =~ s/\t/ /g;
		@pairs = split(/ /,$word);

		# 検索処理
		print "<OL><hr color=$waku_color> \n";
		open(IN,"$logfile") || &error("Open Error : $logfile");
		$top = <IN>;
		$i=0;
		while ($_ = <IN>) {
			$flag = 0;
			foreach $pair (@pairs) {
				if (index($_,$pair) >= 0) {
					$flag=1;
					if ($cond eq 'or') { last; }
				}
				else {
					if ($cond eq 'and') { $flag = 0; last; }
				}
			}
			if ($flag == 0) { next; }

			# 結果を表示
			$i++;
			($no,$reno,$date,$name,$mail,$sub,
				$com,$url,$add,$host,$pw,$color,$icon) = split(/<>/, $_);

			if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
			if ($url) { $url = "<a href=\"http://$url\" target='_blank'>http://$url</a>"; }

			print "<LI>[$no] From：<b>$name</b> <small>[$add] Date：$date</small><br>\n";
			print "<blockquote>$com<P>$url</blockquote><hr color=$waku_color>\n";
		}
		close(IN);
		print "<center>検索結果は <b>$i</b>件です。</center>\n";
		print "</OL>\n";
	}
	print "<center><P>\n";
	print "<P><br><br>\n";
	print "<a href='http://www.bbsroom.com/' target='_top'><small>BBSROOM</small></a>\n";
	print "</center></body></html>\n";
	exit;
}

#----------------#
#  管理入室画面  #
#----------------#
sub enter {

	&header;
	print <<"EOM";
[<a href="$script">BACK</a>]
<center>
<TABLE BORDER=0 WIDTH=$waku_w BGCOLOR="$waku_color" CELLSPACING=2 CELLPADDING=2><TR><TD>
<TABLE BORDER=0 WIDTH=100% BGCOLOR="$tbl_color"><TR><TD ALIGN=center>
<big>WEB MASTER ONLY</big></TD></TR></TABLE></TD></TR></TABLE>
</td></tr><tr><td>
<center><br><br>
EOM
	# 文字コード変換
	&jcode'convert(*ad1_html,'sjis');
	print "$ad1_html\n";
	print <<"EOM";
</center><br><br><center>
<table cellpadding=5 cellspacing=5>
<tr><td>
<big>記事内容管理</big></td><td>
<form action="$script" method="POST">
<input type=hidden name=action value="del">
<input type=hidden name=mode value="admin">
<input type=hidden name=room value="$room">
<input type=password name=pass size=8></td><td>&nbsp;<input type=submit value="認証" style=\"background-color:$in_col;color:$in_fcol\">
</td></tr><tr><td></form></td><td></td><td></td></tr>
<tr><td>
<big>環境設定</big></td><td>
<form action="$edtfile" method="POST">
<input type=hidden name=mode value="edit1">
<input type=hidden name=type value="I">
<input type=hidden name=room value="$room">
<input type=password name=pass size=8></td><td>&nbsp;<input type=submit value="認証" style=\"background-color:$in_col;color:$in_fcol\">
</td></tr></table>
</center>
</td></tr></TABLE><br>
<font color="$a_potcol">$kugiri</font></form></center>
<center><P>
<P><br><br>
<a href='http://www.bbsroom.com/' target='_top'><small>BBSROOM</small></a>
</center></body></html>
EOM
	exit;
}

#--------------#
#  管理モード  #
#--------------#
sub admin {

	$check = &d_passwd("$FORM{'pass'}","$pw");
	if ($check ne "yes") { &error("パスワードが違います"); }

	&header;
	print "[<a href=\"$script\&\">BACK</a>]\n";
	print <<"EOM";
<center>
<TABLE BORDER=0 WIDTH=$waku_w BGCOLOR="$waku_color" CELLSPACING=2 CELLPADDING=2><TR><TD>
<TABLE BORDER=0 WIDTH=100% BGCOLOR="$tbl_color"><TR><TD ALIGN=center>
<big>WEB MASTER ONLY</big></TD></TR></TABLE></TD></TR></TABLE></center>
EOM

	print "</center>\n";

		# 削除処理
		if ($DEL[0]) {

			# ロック処理
			if ($lockkey == 1) { &lock1; }
			elsif ($lockkey == 2) { &lock2; }

			# 削除情報をマッチングし更新
			@new=();
			open(IN,"$logfile") || &error("Open Error : $logfile","lock");
			$top = <IN>;
			while ($_ = <IN>) {
				$flag=0;
				($no,$reno,$date) = split(/<>/, $_);
				foreach $del (@DEL) {
					if ($no eq "$del" || $reno eq "$del") {
						$flag=1; last;
					}
				}
				if ($flag == 0) { push(@new,$_); }
			}
			close(IN);

			# 更新
			unshift(@new,$top);
			open(OUT,">$logfile") || &error("Write Error : $logfile","lock");
			print OUT @new;
			close(OUT);

			# ロック解除
			if (-e $lockfile) { unlink($lockfile); }
		}

		# 管理を表示
		if ($page eq "") { $page = 0; }
		print "<P><center>\n";
		print "<br>\n";
		# 文字コード変換
		&jcode'convert(*ad1_html,'sjis');
		print "$ad1_html\n";
		print "<br>\n";
		print "<table><tr><td>\n";
		print "<UL><LI>削除する記事のチェックボックスにチェックを入れボタンを押して下さい。\n";
		print "<LI>親記事を削除するとレス記事も削除されます。</UL>\n";
		print "</td></tr></table>\n";
		print "<form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=hidden name=page value=\"$page\">\n";
		print "<input type=hidden name=pass value=\"$FORM{'pass'}\">\n";
		print "<input type=hidden name=action value=\"$FORM{'action'}\">\n";
		print "<input type=hidden name=room value=\"$room\">\n";
		print "<input type=submit value=\"DELETE\" style=\"background-color:$in_col;color:$in_fcol\">";
		print "　<input type=reset value=\"RESET\" style=\"background-color:$in_col;color:$in_fcol\">\n";
		print "<P><table border=0 cellspacing=1>\n";
		print "<tr><th>削除</th><th>記事NO</th><th>投稿日</th><th>TITLE</th>";
		print "<th>投稿者</th><th>URL</th><th>COMMENT</th><th>HOST</th></tr>\n";

		# ページ区切り処理
		$start = $page + 1;
		$end   = $page + $p_log;

		open(IN,"$logfile") || &error("Open Error : $logfile");
		$top = <IN>;
		$i=0; $j=0;
		while ($_ = <IN>) {

			($no,$reno,$date,$name,$mail,$sub,
				$com,$url,$add,$host,$pw,$color,$icon) = split(/<>/, $_);

			if ($reno eq "") { $i++; $j++; }
			if ($i < $start) { next; }
			if ($i > $end) { next; }

			if ($mail) { $name="<a href=\"mailto:$mail\">$name</a>"; }
			($date,$dmy) = split(/\(/, $date);

			if ($url) { $url = "[<a href=\"http://$url\" target='_top'>Web</a>]"; }
			else { $url = '-'; }

			$com =~ s/<br>//ig;
			$com =~ s/</&lt;/g;
			$com =~ s/>/&gt;/g;
			if (length($com) > 50) {
				$com = substr($com,0,48);
				$com = "$com" . "...";
			}

			if ($reno eq "") { print "<tr><th colspan=8><hr color=$waku_color></th></tr>\n"; }

			# 削除チェックボックス
			print "<tr><th><input type=checkbox name=del value=\"$no\" style=\"background-color:$in_col;color:$in_fcol\"></th>";
			print "<td align=center>$no</td>";
			print "<td><small>$date</small></td><th>$sub</th><th>$name</th>";
			print "<td align=center>$url</td><td><small>$com</small></td>";
			print "<td><small>$host</small></td></tr>\n";

		}
		close(IN);

		print "<tr><th colspan=8><hr color=$waku_color></th></tr>\n";
		print "</table></form>\n";
		print "<br>\n";
		print "<br>\n";

	$next_page = $page + $p_log;
	$back_page = $page - $p_log;

	print "<P><table cellspacing=0 cellpadding=0><tr>\n";
	if ($back_page >= 0) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$back_page\">\n";
		print "<input type=hidden name=room value=\"$room\">\n";
		print "<input type=hidden name=pass value=\"$FORM{'pass'}\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=hidden name=action value=\"$FORM{'action'}\">\n";
		print "<input type=submit value=\"BACK\" style=\"background-color:$in_col;color:$in_fcol\">\n";
		print "</form></td>\n";
	}
	if ($next_page < $i) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$next_page\">\n";
		print "<input type=hidden name=room value=\"$room\">\n";
		print "<input type=hidden name=pass value=\"$FORM{'pass'}\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=hidden name=action value=\"$FORM{'action'}\">\n";
		print "<input type=submit value=\"NEXT\" style=\"background-color:$in_col;color:$in_fcol\">\n";
		print "</form></td>\n";
	}
	print "</tr></table>\n";
	print "</body></html>\n";
	exit;
}

#--------------------#
#  返信レスフォーム  #
#--------------------#
sub res_msg {
	&header;
	
if ($imode == 1) {
print "[<a href=\"$script\">Back</a>]<br><br>\n";
		print "<center>\n";
	&jcode'convert(*adi_html,'sjis');
			print "$adi_html\n";
}
if ($imode == 2) {
print "[<a href=\"$script\">Back</a>]<br><br>\n";
		print "<center>\n";
	&jcode'convert(*ady_html,'sjis');
			print "$ady_html\n";
}
if ($imode == 3) {
print "[<a href=\"$script\">Back</a>]<br><br>\n";
		print "<center>\n";
	&jcode'convert(*ade_html,'sjis');
			print "$ade_html\n";
}

	if ($imode =~ /1|2|3/) {
		print "</center>\n";
	}

if ($imode == 0) {
	print <<"EOM";
[<a href="$script">BACK</a>]
<center>
<br>
EOM
	# 文字コード変換
	&jcode'convert(*ad1_html,'sjis');
	print "$ad1_html\n";
	print <<"EOM";
<br><br>
<TABLE BORDER=0 WIDTH=$waku_w BGCOLOR="$waku_color" CELLSPACING=2 CELLPADDING=2><TR><TD>
<TABLE BORDER=0 WIDTH=100% BGCOLOR="$tbl_color"><TR><TD ALIGN=center>
<big>RES FORM</big></TD></TR></TABLE></TD></TR></TABLE><br><BR>
EOM
	}
	open(IN,"$logfile") || &error("Open Error : $logfile");
	$top = <IN>;
	while ($_ = <IN>) {
		($no,$reno,$date,$name,$mail,$sub,
			$com,$url,$add,$host,$pw,$color,$icon) = split(/<>/, $_);

		if ($FORM{'no'} eq "$no" || $FORM{'no'} eq "$reno") {

			if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
			if ($url)  { $url  = "[<a href=\"http://$url\" target='_top'>WEB</a>]"; }
			# レス題名用
			if ($reno eq "") { $res_sub = "Re: $sub"; }
	if ($imode =~ /1|2|3/) {
		print "</center>\n";
		print "[NO.$no]$sub<br>\n";
		if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
		print "$name";
		print "[$add]<br>\n";
		print "$date<br>\n";
		print "$com\n";
		print "<hr size=\"1\">\n";
	} if ($imode == 0) {

			print "<center><TABLE BORDER=0 WIDTH=$waku_w CELLSPACING=5 CELLPADDING=5><TR><TD>\n";
			print "<font color=\"$sub_color\"><b>$sub</b></font> From：<b>$name</b> - $date $url<P>\n";
			print "<blockquote>$com</blockquote><hr color=$waku_color>\n";
			print "</TD></TR></TABLE>\n";
}
		}

	}
	close(IN);
	if ($imode =~ /1|2|3/) {
		print "<center>\n";
		print "<font color=\"#CC0000\">";
		print "返信投稿</font><br>\n";
if ($imode == 1) {
	&jcode'convert(*adi_html,'sjis');
			print "$adi_html\n";
}
if ($imode == 2) {
	&jcode'convert(*ady_html,'sjis');
			print "$ady_html\n";
}
if ($imode == 3) {
	&jcode'convert(*ade_html,'sjis');
			print "$ade_html\n";
}
		print "</center>\n";
		print "<hr size=\"1\">\n";
		print "□[<a href=\"$script\">Back</a>]\n";
		print "<hr size=\"1\">\n";
		print "<form action=\"$script\" method=\"$method\">\n";
		print "<input type=\"hidden\" name=\"reno\" value=\"$FORM{'no'}\">\n";
	print <<"EOM";
<input type=hidden name=mode value="regist">
<input type=hidden name=room value="$room">
NAME<br><input type="text" name="name" size="12"><br>
MAIL<br><input type="text" name="email" size="12"><br>
URL<br><input type="text" name="url" size="12" value="http://"><br>
TITLE<br><input type="text" name="sub" size="12" value="$res_sub"><br>
COMMENT<br><textarea name="com" cols="14" rows="3"></textarea><br>
COLOR<br>
EOM
	print "<select name=\"color\">\n";
	foreach (0 .. $#COLORS) {
			print "<option value=\"$COLORS[$_]\">$COLORS[$_]\n";
		}
	print "</select><br>\n";
print "AREA<br>\n";
	print "<select name=\"add\">\n";
		foreach(0 .. $#add1) {
		print "<option value=\"$add1[$_]\">$add1[$_]\n";
		    }
	print "</select><br>\n";
		if ($my_icon) {
		push(@icon1,"$my_gif");
		push(@icon2,"管理者用");
	}
print "ICON<br>\n";
	print "<select name=\"icon\">\n";
		foreach(0 .. $#icon1) {
		print "<option value=\"$icon1[$_]\">$icon2[$_]\n";
		}
	print "</select><br>\n";
	print<<"EOM";
DELETE<br><input type="password" name="pwd" size="6"><br>
WRITE<br><input type="submit" name="submit" value="WRITE">
</form>
<hr size="1">
絵文字と半角ｶﾅは文字化けの原因となりますので投稿しないでください。
<hr size="1">
EOM

	print "<center>\n";
	print "<br><a href=\"http://www.bbsroom.com/i/\">BBSROOM</a>\n";
	} if ($imode == 0) {
	print "<BR><BR>\n";

	&form_view("$FORM{'no'}");
	print "<P>\n";
	print "<P><br><br>\n";
	print "<a href='http://www.bbsroom.com/' target='_top'><small>BBSROOM</small></a>\n";
	}
	print "</center>\n";
	print "</body></html>\n";
	exit;
}

#--------------#
#  使い方表示  #
#--------------#
sub howto {
	&header;

	print <<"EOM";
[<a href="$script">BACK</a>]
<center><br><br>
EOM
	# 文字コード変換
	&jcode'convert(*ad1_html,'sjis');
	print "$ad1_html\n";
print <<"EOM";
</center><center><br><br>
<TABLE BORDER=0 WIDTH=$waku_w BGCOLOR="$waku_color" CELLSPACING=2 CELLPADDING=2><TR><TD>
<TABLE BORDER=0 WIDTH=100% BGCOLOR="$tbl_color"><TR><TD ALIGN=center><br>
<big>HOW TO USE</big><P>
<table width="100%" border=0 cellpadding=10>
<tr><td bgcolor="$tbl_color">
<OL>
<LI>この掲示板は<b>クッキー対応</b>です。１度記事を投稿いただくと、NAME、MAIL、URL、AREA、DELETE KEYの情報は２回目以降は自動入力されます。（ただし利用者のブラウザがクッキー対応の場合）<P>
<LI>投稿内容には、<b>タグは一切使用できません。</b><P>
<LI>記事を投稿する上での必須入力項目は<b>「NAME」</b>と<b>「COMMENT」</b>です。MAIL、URL、AREA、TITLE、DELETE KEYは任意です。<P>
<LI>記事には、<b>半角カナは一切使用しないで下さい。</b>文字化けの原因となります。<P>
<LI>記事の投稿時に<b>「DELETE」</b>にパスワード（英数字で8文字以内）を入れておくと、その記事は次回<b>DELETE KEY</b>によって削除することができます。<P>
<LI>記事の保持件数は<b>最大 $max件</b>です。それを超えると古い順に自動削除されます。<P>
<LI>既存の記事に<b>「返信」</b>をすることができます。各記事の上部にある<b>「RES」</b>ボタンを押すと返信用フォームが現れます。<P>
<LI><a href="mailto:?subject=BBS&body=http://www.bbsroom.com/cgi-local/bbs2/pres.cgi?room=$room">i-mode、EZweb、Vodafone Live!</a>からも参照及び投稿することができます。<P>
<LI>過去の投稿記事から<b>「キーワード」によって簡易検索ができます。</b>トップメニューの<a href="$script&mode=find">「SEARCH」</a>のリンクをクリックすると検索モードとなります。<P>
<LI>管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は予\告なく削除することがあります。
</OL>
</td></tr></table></TD></TR></TABLE></TD></TR></TABLE>
</center>
<center><P>
<P><br><br>
<a href='http://www.bbsroom.com/' target='_top'><small>BBSROOM</small></a>
</center>
</body></html>
EOM
exit;
}

#------------------#
#  ユーザ記事削除  #
#------------------#
sub usrdel {
	if ($FORM{'no'} eq '' || $FORM{'pwd'} eq '') {
		&error("削除Noまたは削除キーが入力モレです");
	}

	# ロック処理
	if ($lockkey == 1) { &lock1; }
	elsif ($lockkey == 2) { &lock2; }

	open(IN,"$logfile") || &error("Open Error : $logfile");
	@lines = <IN>;
	close(IN);
	$top = shift(@lines);

	$flag=0;
	foreach (@lines) {
		($no,$reno,$date,$name,$mail,$sub,
			$com,$url,$add,$host,$pw,$color,$icon) = split(/<>/, $_);

		if ($flag == 0 && $FORM{'no'} eq "$no") {
			$PW = $pw;
			if ($reno eq "") { $flag=2; }
			else { $flag=1; }
		}
		elsif ($flag == 2 && $FORM{'no'} eq "$reno") { next; }
		else { push(@new,$_); }
	}

	if ($flag == 0) { &error("該当記事が見当たりません","lock"); }
	if ($PW eq '') { &error("該当記事には削除キーが設定されていません","lock"); }

	# 削除キーを照合
	$match = &d_passwd("$FORM{'pwd'}","$PW");
	if ($match ne 'yes') { &error("削除キーが違います","lock"); }
	else {

		# 更新
		unshift(@new,$top);
		open(OUT,">$logfile") || &error("Write Error : $logfile","lock");
		print OUT @new;
		close(OUT);

		# ロック解除
		if (-e $lockfile) { unlink($lockfile); }
	}
}

## --- フォームからのデータ処理
sub decode {
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます"); }
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else { $buffer = $ENV{'QUERY_STRING'}; }

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

		# 文字コード変換
		&jcode'convert(*value,'sjis');

		# タグ処理
		$value =~ s/&/&amp;/g;
		$value =~ s/"/&quot;/g;
		$value =~ s/</&lt;/g;
		$value =~ s/>/&gt;/g;

		# 改行処理
		if ($name eq 'com') {
			$value =~ s/\r\n/<br>/g;
			$value =~ s/\r/<br>/g;
			$value =~ s/\n/<br>/g;
		} else {
			$value =~ s/\r//g;
			$value =~ s/\n//g;
		}

		# 削除情報
		if ($name eq 'del') { push(@DEL,$value); }

		$FORM{$name} = $value;
	}
	$name  = $FORM{'name'};
	$com   = $FORM{'com'};
	$email = $FORM{'email'};
	$sub   = $FORM{'sub'};
	if ($sub eq "") { $sub = "No Title"; }
	$url   = $FORM{'url'};
	$url   =~ s/^http\:\/\///;
	$mode  = $FORM{'mode'};
	$pwd   = $FORM{'pwd'};
	$page  = $FORM{'page'};
	$add  = $FORM{'add'};
	$color = $FORM{'color'};
	$icon  = $FORM{'icon'};
	$room  = $FORM{'room'};
	$room  =~ s/\W//g;

	# 日時の取得
	$ENV{'TZ'} = "JST-9";
	($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);

	# 日時のフォーマット
	@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	$date = sprintf("%04d\/%02d\/%02d(%s) %02d\:%02d",
			$year+1900,$mon+1,$mday,$week[$wday],$hour,$min);

	# ブラウザ判別
	$agent = $ENV{"HTTP_USER_AGENT"};
	if ($agent =~ /DoCoMo/i){# i-mode
		$imode=1;
		$method = 'post';
		$button = 'accesskey';
		$emo1 = '&#63879;';
		$emo2 = '&#63880;';
		$emo3 = '&#63881;';
		$emo4 = '&#63882;';
		$emo5 = '&#63883;';
		$value =~ s/<>/&lt;&gt;/g;
		$meta = '<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">';
		$meta2 = '<meta http-equiv="cache-control" content="max-age=0" />';
		$meta3 = '<meta http-equiv="cache-control" content="no-cache" />';
	 } elsif ($agent =~ /^MOT\-|J\-PHONE|SoftBank|Vodafone/i) {# J-Sky
		$imode=2;
		$method = 'get';
		$button = 'DIRECTKEY';
		$emo1 = pack('H2H2','1B','24') . 'F' . pack('H2','3c') . pack('H2','0F');
		$emo2 = pack('H2H2','1B','24') . 'F' . pack('H2','3d') . pack('H2','0F');
		$emo3 = pack('H2H2','1B','24') . 'F' . pack('H2','3e') . pack('H2','0F');
		$emo4 = pack('H2H2','1B','24') . 'F' . pack('H2','3f') . pack('H2','0F');
		$emo5 = pack('H2H2','1B','24') . 'F' . pack('H2','40') . pack('H2','0F');
		$meta = '<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">';
		$meta2 = '<meta http-equiv="cache-control" content="max-age=0" />';
		$meta3 = '<meta http-equiv="cache-control" content="no-cache" />';
	} elsif ($agent =~ /UP\.Browser/i) {# EZweb
		$imode=3;
		$method = 'get';
		$button = 'accesskey';
		$emo1 = '<img localsrc="180">';
		$emo2 = '<img localsrc="181">';
		$emo3 = '<img localsrc="182">';
		$emo4 = '<img localsrc="183">';
		$emo5 = '<img localsrc="184">';
		$meta = '<meta http-equiv="content-type" content="text/html; charset=Shift_JIS" />';
		$meta2 = '<meta http-equiv="cache-control" content="max-age=0" />';
		$meta3 = '<meta http-equiv="cache-control" content="no-cache" />';
	 } else { $imode=0;# PC
		$meta = '<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">';
		$meta2 = '<meta http-equiv="cache-control" content="max-age=0" />';
		$meta3 = '<meta http-equiv="cache-control" content="no-cache" />';
	 }

}

#--------------#
#  HTMLヘッダ  #
#--------------#
sub header {
	$HEAD = 1; # ヘッダ表示フラグ

#	print "Content-type: text/html\n\n";
print "Content-type: text/html\n";
# クライアントが gzip を許可するか全てOKの場合、gzipを利用する。
if($ENV{HTTP_ACCEPT_ENCODING} =~ /gzip/i || $ENV{HTTP_ACCEPT_ENCODING} =~ /\*/) {
print "Content-Encoding: gzip\n\n";
open GZIP, "| /bin/gzip -1 -c" or die;
open STDOUT, ">&GZIP";
} else {
print "\n";
}
	print <<"EOM";
<html><head>
$meta
$meta2
$meta3
<title>$title</title>
EOM

	if ($imode =~ /1|2|3/) {
	print "</head><body>\n";
	} if ($imode == 0) {
	print <<"EOM";
<STYLE type="text/css">
<!--
body,tr,td,th { font-size: $b_size }
body,tr,td,th { font-family: '$f_face'; }
a:hover { color: $alink }
a:link { text-decoration: none; }
a:visited { text-decoration: none; }
span { font-size: $t_size }
big  { font-size: 12pt }
small { font-size: 9pt }
-->
</STYLE>
</head>
EOM
	# bodyタグ
	if ($b_gif) {
		print "<body background=\"$gif_url/$b_gif\" bgcolor=\"$bgcolor\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">\n";
	} else {
		print "<body bgcolor=\"$bgcolor\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">\n";
	}
		print "$analytics\n";
}
}
#------------------------------------#
#  ブラウザ情報からフォーム長を定義  #
#------------------------------------#
sub get_agent {
	$agent = $ENV{'HTTP_USER_AGENT'};

	if ($agent =~ /MSIE/i) { 
		$nam_wid = 35;
		$sub_wid = 35;
		$com_wid = 42;
	}
	else {
		$nam_wid = 20;
		$sub_wid = 20;
		$com_wid = 32;
	}
}

#--------------#
#  エラー処理  #
#--------------#
sub error {
	if ($_[1] eq "lock" && -e $lockfile) { unlink($lockfile); }

	if ($HEAD eq "") { &header; }
	print "<center><hr width='75%' color=$wak_color><P><h3>ERROR !</h3>\n";
	print "<P><font color=red><B>$_[0]</B></font>\n";

	if ($imode =~ /1|2|3/) {
	print "<P><a href=\"http://www.bbsroom.com/i/\">BBSROOM</a>\n";
	} if ($imode == 0) {

	print "<P><a href=\"http://www.bbsroom.com/\" target=\"_top\">BBSROOM</a>\n";
}	
	print "<P><hr width='75%' color=$wak_color><br>\n";
if ($imode == 1) {
	use strict;
	use CROOZ;
	if(length($ret) > 0){
	print $ret;
	}else{
#	print "$fkei\n";
	}
}
if ($imode == 2) {
	use strict;
	use CROOZ;
	if(length($ret) > 0){
	print $ret;
	}else{
#	print "$fkei\n";
	}
}
if ($imode == 3) {
	use strict;
	use CROOZ;
	if(length($ret) > 0){
	print $ret;
	}else{
#	print "$fkei\n";
	}
}
	if ($imode == 0) {
		}
	print "</center></body></html>\n";
	exit;
}

## --- エラー処理2
sub error1 {
	&unlock if ($lockflag);

if ($imode =~ /1|2|3/) {
	&header;
	print "<center>\n";
	print "<font color=#dd0000>$_[0]</font><br><br>\n";
	print "<a href=\"http://www.bbsroom.com/i/\">BBSROOM</a><br><br>\n";
if ($imode == 1) {
	use strict;
	use CROOZ;
	if(length($ret) > 0){
	print $ret;
	}else{
#	print "$fkei\n";
	}
}
if ($imode == 2) {
	use strict;
	use CROOZ;
	if(length($ret) > 0){
	print $ret;
	}else{
#	print "$fkei\n";
	}
}
if ($imode == 3) {
	use strict;
	use CROOZ;
	if(length($ret) > 0){
	print $ret;
	}else{
#	print "$fkei\n";
	}
}
	print "</center></body></html>\n";
} if ($imode == 0) {
#	print "Content-type: text/html\n\n";
print "Content-type: text/html\n";
# クライアントが gzip を許可するか全てOKの場合、gzipを利用する。
if($ENV{HTTP_ACCEPT_ENCODING} =~ /gzip/i || $ENV{HTTP_ACCEPT_ENCODING} =~ /\*/) {
print "Content-Encoding: gzip\n\n";
open GZIP, "| /bin/gzip -1 -c" or die;
open STDOUT, ">&GZIP";
} else {
print "\n";
}
	print <<"HTML";
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>BBSROOM</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</HEAD>
<BODY bgcolor="#FFFFFF" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" MARGINWIDTH="0" MARGINHEIGHT="0" onLoad="MM_preloadImages('http://www.bbsroom.com/images/menu1_r3_c2.gif','http://www.bbsroom.com/images/menu1_r3_c6.gif','http://www.bbsroom.com/images/menu1_r3_c7.gif','http://www.bbsroom.com/images/menu1_r3_c8.gif','http://www.bbsroom.com/images/menu1_r3_c5.gif')">
<CENTER>
<table border="0" cellpadding="0" cellspacing="0" width="700">
  <tr>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="16" height="1" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="69" height="1" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="89" height="1" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="28" height="1" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="75" height="1" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="72" height="1" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="87" height="1" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="56" height="1" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="191" height="1" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="17" height="1" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="1" height="1" border="0" alt=""></td>
  </tr>

  <tr>
      <td rowspan="2" colspan="3"><a href="http://www.bbsroom.com/"><img name="menu_r1_c1" src="http://www.bbsroom.com/images/menu_r1_c1.gif" width="174" height="67" border="0" alt="BBSROOM"></a></td>
   <td colspan="6"><img name="menu_r1_c4" src="http://www.bbsroom.com/images/menu_r1_c4.gif" width="509" height="3" border="0" alt=""></td>
   <td rowspan="2"><img name="menu_r1_c10" src="http://www.bbsroom.com/images/menu_r1_c10.gif" width="17" height="67" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="1" height="3" border="0" alt=""></td>
  </tr>
  <tr>
      <td colspan="6" align="center" valign="middle" nowrap> 
        <div align="center"><script language='JavaScript'>var rand_1 = (new Date().getTime())%100000000;var rand_2 = Math.round(Math.random()*100000000.0);var rand_id = ""+rand_1+""+rand_2;var url  ="http://www.adjustnetwork.com/aan/serve?st=4&js=1&h=60&w=468&sl=5739&r="+rand_id;document.write('<SCR'+'IPT language=\"JavaScript\" src=\"'+url+'\"><\/SCR'+'IPT>')</script><noscript><a href=http://www.adjustnetwork.com/aan/clickS?st=4&sl=5739&js=0 target=_blank><img src=http://www.adjustnetwork.com/aan/serve?st=4&sl=5739& border=0 /></a></noscript></div></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="1" height="64" border="0" alt=""></td>
  </tr>
  <tr>
   <td><img name="menu_r3_c1" src="http://www.bbsroom.com/images/menu_r3_c1.gif" width="16" height="23" border="0" alt=""></td>
      <td><a href="http://www.bbsroom.com/" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('home','','http://www.bbsroom.com/images/menu1_r3_c2.gif',1)"><img src="http://www.bbsroom.com/images/menu_r3_c2.gif" alt="HOME" name="home" width="69" height="23" border="0"></a></td>
      <td colspan="2"><a href="http://www.bbsroom.com/aboutus/" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('about','','http://www.bbsroom.com/images/menu1_r3_c3.gif',1)"><img src="http://www.bbsroom.com/images/menu_r3_c3.gif" alt="BBSROOMとは" name="about" width="117" height="23" border="0"></a></td>
      <td><a href="http://www.bbsroom.com/service/" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('service','','http://www.bbsroom.com/images/menu1_r3_c5.gif',1)"><img src="http://www.bbsroom.com/images/menu_r3_c5.gif" alt="サービス" name="service" width="75" height="23" border="0"></a></td>
      <td><a href="http://www.bbsroom.com/support/" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('support','','http://www.bbsroom.com/images/menu1_r3_c6.gif',1)"><img src="http://www.bbsroom.com/images/menu_r3_c6.gif" alt="サポート" name="support" width="72" height="23" border="0"></a></td>
      <td><a href="http://www.bbsroom.com/partner/" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('partner','','http://www.bbsroom.com/images/menu1_r3_c7.gif',1)"><img src="http://www.bbsroom.com/images/menu_r3_c7.gif" alt="パートナー" name="partner" width="87" height="23" border="0"></a></td>
      <td><a href="http://www.bbsroom.com/link/" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('link','','http://www.bbsroom.com/images/menu1_r3_c8.gif',1)"><img src="http://www.bbsroom.com/images/menu_r3_c8.gif" alt="リンク" name="link" width="56" height="23" border="0"></a></td>
   <td colspan="2"><img name="menu_r3_c9" src="http://www.bbsroom.com/images/menu_r3_c9.gif" width="208" height="23" border="0" alt=""></td>
   <td><img src="http://www.bbsroom.com/images/spacer.gif" width="1" height="23" border="0" alt=""></td>
  </tr>
</table>
  <TABLE border="0" width="700" cellpadding="0" cellspacing="0">
    <TBODY>
      <TR> 
        <TD align="left"><img src="http://www.bbsroom.com/img/shadow.gif" width="700" height="7"></TD>
      </TR>
      <TR> 
        <TD align="left"><img src="http://www.bbsroom.com/img/damy.gif" width="1" height="7"></TD>
      </TR>
    </TBODY>
  </TABLE>
</center>
<div align="center">
  <table width="600" border="0" cellpadding="3" cellspacing="0">
    <tr>
      <td><div align="center">
          <p><img src="http://www.bbsroom.com/error/image/notfound.gif" alt="Not Found" width="500" height="40"></p>
          <p>指定された掲示板はありません。<br>
            削除されたか、URLが間違っています。 </p>
          <p><a href="http://www.bbsroom.com/" target="_top"><img src="http://www.bbsroom.com/error/image/notfound1.gif" alt="BBSROOM" width="200" height="25" border="0"></a></p>
          <p>&nbsp;</p>

          </div></td>
    </tr>
  </table>
  <hr width="700" size="1">
<a href="http://www.bbsroom.com/">レンタル掲示板 BBSROOM</a><br>
  Copyright (C) <a href="http://www.prage.jp/" target="_blank">PRAGE Inc.</a> All Rights Reserved. </div>
</body>
</html>
HTML
}
	exit;
}

#----------------#
#  投稿フォーム  #
#----------------#
sub form_view {
	# ブラウザ情報を取得
	&get_agent;

	# クッキー情報を取得
	&get_cookie;

	print "<form action=\"$script\" method=\"POST\">\n";
	if ($mode eq "res") {
		print "<input type=hidden name=reno value=\"$_[0]\">\n";
	}

	print <<"EOM";
<center>
<form method="POST" action="$script">
<input type=hidden name=mode value="regist">
<input type=hidden name=room value="$room">
<input type=hidden name=cook value="on">
<TABLE BORDER=0 WIDTH=$waku_w BGCOLOR="$waku_color" CELLSPACING=2 CELLPADDING=2><TR><TD>
<TABLE BORDER=0 WIDTH=100% BGCOLOR="$tbl_color"><TR><TD ALIGN=center><br>
<table border=0 cellspacing=0>
<tr>
  <td nowrap><b>NAME</b></td>
  <td><input type=text name=name size="$nam_wid" value="$c_name"></td>
</tr>
<tr>
  <td nowrap><b>MAIL</b></td>
  <td><input type=text name=email size="$nam_wid" value="$c_email"></td>
</tr>
<tr>
  <td nowrap><b>URL</b></td>
  <td><input type=text size="$nam_wid" name=url value="http://$c_url"></td>
</tr>
<tr>
  <td nowrap><b>TITLE</b></td>
  <td nowrap>
    <input type=text name=sub size="$sub_wid" value="$res_sub">
&nbsp;&nbsp;<input type=submit value="WRITE" style="background-color:$in_col;color:$in_fcol"><input type=reset value="RESET" style="background-color:$in_col;color:$in_fcol">

  </td>
</tr>
<tr>
  <td nowrap valign=top>
    <b>COMMENT</b></td>
  <td nowrap>
    <textarea cols="$com_wid" rows=7 name=com wrap="$wrap"></textarea>
  </td>
</tr>

EOM

	print "<tr><td nowrap><b>COLOR</b></td><td>\n";

	# クッキーの色情報がない場合
	if ($c_color eq "") { $c_color = $COLORS[0]; }

	foreach (0 .. $#COLORS) {
		if ($c_color eq "$COLORS[$_]") {
			print "<input type=radio name=color value=\"$COLORS[$_]\" checked>";
			print "<font color=\"$COLORS[$_]\">■</font>\n";
		} else {
			print "<input type=radio name=color value=\"$COLORS[$_]\">";
			print "<font color=\"$COLORS[$_]\">■</font>\n";
		}
	}

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

	print "<td nowrap><b>AREA</b></td><td>\n";

		print "<select name=add>\n";
		 foreach(0 .. $#add1) {
		    if ($c_add eq "$add1[$_]") {
		  	print "<option value=\"$add1[$_]\" selected>$add1[$_]\n";
		    } else {
			print "<option value=\"$add1[$_]\">$add1[$_]\n";
		    }
		  }

	print "</select>\n";

	# 管理者アイコンを配列に付加
	if ($my_icon) {
		push(@icon1,"$my_gif");
		push(@icon2,"管理者用");
	}

	if ($icon_mode) {
		print " &nbsp;&nbsp;<b>ICON</b>&nbsp;&nbsp;<select name=icon>\n";
		foreach(0 .. $#icon1) {
			if ($c_icon eq "$icon1[$_]") {
				print "<option value=\"$icon1[$_]\" selected>$icon2[$_]\n";			   } else {
				print "<option value=\"$icon1[$_]\">$icon2[$_]\n";
			}
		}
		print "</select> \n";
		print "[<a href=\"$script&mode=image\" target=\"_blank\">IMAGE</a>]";

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

	print "<tr><td nowrap><b>DELETE</b></td>\n";
	print "<td><input type=password name=pwd size=8 maxlength=8 value=\"$c_pwd\">\n";
	print "</td></tr></table></form></TD></TR></TABLE></TD></TR></TABLE>\n";
	print "</center><br>\n";
}

#------------------------------------#
#  投稿フォーム携帯用追加  2004/2/21 #
#------------------------------------#
sub formtel {
	&header;

open(IN,"$logfile") || &error("Open Error : $logfile");
	$top = <IN>;

	$i=0; $j=0;
	while ($_ = <IN>) {
		($no,$reno,$date,$name,$mail,$sub,
			$com,$url,$add,$host,$pw,$color,$icon) = split(/<>/, $_);

		if ($reno eq "") { $i++; $j++; }
		if ($i < $start) { next; }
		if ($i > $end) { next; }
		}
	close(IN);

	print "<center>\n";
	print "<font color=\"#CC0000\">";
	print "新規投稿</font><br>\n";
if ($imode == 1) {
	&jcode'convert(*adi_html,'sjis');
			print "$adi_html\n";
}
if ($imode == 2) {
	&jcode'convert(*ady_html,'sjis');
			print "$ady_html\n";
}
if ($imode == 3) {
	&jcode'convert(*ade_html,'sjis');
			print "$ade_html\n";
}
	print "</center><hr size=\"1\">\n";
	print "□<a href=\"$script\">Back</a>\n";
	print "<hr size=\"1\">\n";
	print "<form action=\"$script\" method=\"$method\">\n";
	print <<"EOM";
<input type="hidden" name="mode" value="regist">
<input type="hidden" name="room" value="$room">
NAME<br><input type="text" name="name" size="12"><br>
MAIL<br><input type="text" name="email" size="12"><br>
URL<br><input type="text" name="url" size="12" value="http://"><br>
TITLE<br><input type="text" name="sub" size="12" value="$res_sub"><br>
COMMENT<br><textarea name="com" cols="14" rows="3"></textarea><br>
COLOR<br>
EOM
	print "<select name=\"color\">\n";
	foreach (0 .. $#COLORS) {
			print "<option value=\"$COLORS[$_]\">$COLORS[$_]\n";
		}
	print "</select><br>\n";
print "AREA<br>\n";
	print "<select name=\"add\">\n";
		foreach(0 .. $#add1) {
		print "<option value=\"$add1[$_]\">$add1[$_]\n";
		    }
	print "</select><br>\n";
		if ($my_icon) {
		push(@icon1,"$my_gif");
		push(@icon2,"管理者用");
	}
print "ICON<br>\n";
	print "<select name=\"icon\">\n";
		foreach(0 .. $#icon1) {
		print "<option value=\"$icon1[$_]\">$icon2[$_]\n";
		}
	print "</select><br>\n";
	print<<"EOM";
DELETE<br><input type="password" name="pwd" size="6"><br>
WRITE<br><input type="submit" name="submit" value="WRITE">
</form>
<hr size="1">
絵文字と半角ｶﾅは文字化けの原因となりますので投稿しないでください。
<hr size="1">
<center>
<a href="http://www.bbsroom.com/i/">BBSROOM</a>
</center>
</body></html>
EOM
exit;
}

## --- メール送信
sub mail_to {
	$mail_subj = "[BBSROOM] $title に投稿がありました。";
$honbun .=<<"EOM";

こんにちは。

BBSROOMからのお知らせです。

$title に$name さんから
$date に投稿がありました。
投稿内容を確認するには以下のURLをクリックしてください。

http://www.bbsroom.com/cgi-local/bbs2/pres.cgi?room=$room

なお登録メールアドレスの変更などは設定変更画面から
おこなってください。

BBSROOM
http://www.bbsroom.com/

━ BBSROOM  ━━━━━━━━━━━━━━━━
レンタル掲示板 BBSROOM
URL      ： http://www.bbsroom.com/
運営会社 ： 株式会社プラージュ
━━━━━━━━━━━━━━━━━━━━━━
EOM
    	&jcode'convert(*mail_subj,'jis');
    	&jcode'convert(*name,'jis');
    	&jcode'convert(*sub,'jis');
    	&jcode'convert(*honbun,'jis');
	if ($date_type) { &jcode'convert(*date,'jis'); }

	$com =~ s/<br>/\n/g;
	if (open(MAIL,"| $sendmail $mail")) {
	print MAIL "X-Mailer: BBSROOM TypeI\n";
	print MAIL "To: $mail\n";

	# メールアドレスがない場合はダミーメールに置き換え
	if ($in{'email'} eq "") { $email = $mail; }

	print MAIL "From: $email\n";
	print MAIL "Subject: $mail_subj\n";
	print MAIL "Content-Transfer-Encoding: 7bit\n";
	print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
	print MAIL "$honbun\n\n";
	close(MAIL);
	}
}

#------------------#
#  クッキーの発行  #
#------------------#
sub set_cookie {
	($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg)	= gmtime(time + 60*24*60*60);
	@mons = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
	$date_g = sprintf("%s, %02d\-%s\-%04d %02d\:%02d\:%02d GMT",
		$week[$wdayg],$mdayg,$mons[$mong],$yearg+1900,$hourg,$ming,$secg);

	$cook="name\:$name\,email\:$email\,url\:$url\,add\:$add\,pwd\:$pwd\,color\:$color\,icon\:$icon";
	print "Set-Cookie: RBBS=$cook; expires=$date_g\n";
}

#------------------#
#  クッキーを取得  #
#------------------#
sub get_cookie {
	$cookies = $ENV{'HTTP_COOKIE'};
	@pairs = split(/;/, $cookies);
	foreach (@pairs) {
		local($name,$value) = split(/=/, $_);
		$name =~ s/\s//g;
		$DUMMY{$name} = $value;
	}
	@pairs = split(/,/, $DUMMY{'RBBS'});
	foreach (@pairs) {
		local($name,$value) = split(/:/, $_);
		$COOKIE{$name} = $value;
	}
	$c_name  = $COOKIE{'name'};
	$c_email = $COOKIE{'email'};
	$c_url   = $COOKIE{'url'};
	$c_pwd   = $COOKIE{'pwd'};
	$c_add   = $COOKIE{'add'};
	$c_icon   = $COOKIE{'icon'};
	$c_color = $COOKIE{'color'};

	if ($FORM{'cook'} eq 'on') {
		if ($FORM{'name'})  { $c_name  = $FORM{'name'}; }
		if ($FORM{'email'}) { $c_email = $FORM{'email'}; }
		if ($FORM{'url'})   { $c_url   = $url; }
		if ($FORM{'pwd'})   { $c_pwd   = $FORM{'pwd'}; }
		if ($FORM{'add'})   { $c_add   = $FORM{'add'}; }
		if ($FORM{'icon'})   { $c_icon   = $FORM{'icon'}; }
		if ($FORM{'color'}) { $c_color = $FORM{'color'}; }
	}
}

#----------------#
#  ホスト名取得  #
#----------------#
sub get_host {
	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};

	if ($host eq "" || $host eq "$addr") {
		$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2) || $addr;
	}
}

#----------------------#
#  パスワード暗号処理  #
#----------------------#
sub e_passwd {
	local($inpw) = $_[0];
	local(@SALT, $salt, $encrypt);

	@SALT = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
	srand;
	$salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))];
	$encrypt = crypt($inpw, $salt) || crypt ($inpw, '$1$' . $salt);
	return $encrypt;
}

#----------------------#
#  パスワード照合処理  #
#----------------------#
sub d_passwd {
	local($inpw, $logpw) = @_;
	local($salt, $key, $check);

	$salt = $logpw =~ /^\$1\$(.*)\$/ && $1 || substr($logpw, 0, 2);
	$check = "no";
	if (crypt($inpw, $salt) eq "$logpw" || crypt($inpw, '$1$' . $salt) eq "$logpw")
		{ $check = "yes"; }
	return $check;
}

#--------------------------------#
#  ロックファイル : symlink関数  #
#--------------------------------#
sub lock1 {
	local($retry) = 5;
	while (!symlink(".", $lockfile)) {
		if (--$retry <= 0) { &error("LOCK is BUSY","lock"); }
		sleep(1);
	}
}

#-----------------------------#
#  ロックファイル : open関数  #
#-----------------------------#
sub lock2 {
	local($flag) = 0;
	foreach (1 .. 5) {
		if (-e $lockfile) { sleep(1); }
		else {
			open(LOCK,">$lockfile") || &error("Write Error : $lockfile","lock");
			close(LOCK);
			$flag = 1;
			last;
		}
	}
	if ($flag == 0) { &error("LOCK is BUSY","lock"); }
}

#--------------#
#  自動リンク  #
#--------------#
sub auto_link {
	$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\=\@\;\#\:\%]+)/$1<a href=\"$2\" target='_top'>$2<\/a>/g;
}

#-------------------------------------------------
#  日本語チェック
#-------------------------------------------------
sub jp_wd {
	local($sub, $com, $mat1, $mat2, $code1, $code2);
	$sub = $FORM{'sub'};
	$com = $FORM{'com'};
	if ($sub) {
		($mat1, $code1) = &jcode'getcode(*sub);
	}
	($mat2, $code2) = &jcode'getcode(*com);
	if ($code1 ne 'sjis' && $code2 ne 'sjis') {
		&error("TITLE又はCOMMENTに日本語が含まれていません。");
	}
}

#-------------------------------------------------
#  禁止ワード
#-------------------------------------------------
sub deny_word {
	local($word) = @_;

	local($flg);
	foreach ( split(/,+/, $deny_word) ) {
		if (index($word,$_) >= 0) { $flg=1; last; }
	}
	if ($flg) { &error("不適切な投稿のため受理できません。"); }
}

#--------------------#
#  イメージ画像表示  #
#--------------------#
sub image {
	&header;
	print "<center><hr width=\"75%\" color=$waku_color>\n";
	print "<b><big>Icon Sample</big></b>\n";
	print "<P><small>- 現在登録されているIconは以下のとおりです -</small>\n";
	print "<hr width=\"75%\" color=$waku_color>\n";
	print "<P><table border=1 cellpadding=5 cellspacing=0><tr>\n";

	$i=0; $j=0;
	$stop = @icon1;
	foreach (0 .. $#icon1) {
		$i++; $j++;
		print "<th><img src=\"$imgurl\/$icon1[$_]\" ALIGN=middle> $icon2[$_]</th>\n";
		if ($i >= 5) { print '</tr><tr>'; $i=0; }
		if ($j eq "$stop") {
			if ($i == 0) { last; }
			while ($i < 5) { print "<th><br></th>"; $i++; }
		}
	}

	print "</tr></table><br>\n";
	print "<FORM><INPUT TYPE=\"button\" VALUE=\"  CLOSE  \" onClick=\"top.close();\" style=\"background-color:$in_col;color:$in_fcol\"></FORM></center>\n";
	print "</body></html>\n";
	exit;
}