#!/usr/local/bin/perl
#--------------------------------------------------------------------------------------------------
# 掲示板 ver1.12.00
#
# ※再配布不可／改造可です。
#
# date: 2000/08
# by : megumi.s
# mail: webmaster@ace-cgi.jp
# url : http://www.ace-cgi.jp/
#--------------------------------------------------------------------------------------------------
require './jcode.pl';
require './frmana.pl';
########## 固定項目 ##########
$cgi_file = "./bbs200.cgi"; #このファイル
$data_file = "./bbs200.dat"; #データファイル
$env_file = './bbs200.env'; #環境設定ファイル
$top_file = "./top.html"; #上部ファイル
$form_file = "./bbsform.html"; #フォームファイル
$ptbl_file = "./ptbl.html"; #親記事表示ファイル
$ctbl_file = "./ctbl.html"; #親記事表示ファイル
$cnt_file = "./count.dat"; #カウンタファイル
$pastno_file = "./pastno.dat"; #過去ログ番号ファイル
$lock_file = "./lock/bbs200.lok"; #ロックファイル名
$log_line = '100'; #過去ログ１ファイル行数
$cook_name = 'BBS200'; #クッキー名
$counter_path = "cnt"; #カウンタ画像のディレクトリ
########## 処理はここから ##########
&env_read; #環境設定読み込み
$form_cnt = &form_get($tagkey); #フォーム解析
if($FORM{'mode'} eq "howto") {&howto_disp;}
if($FORM{'mode'} eq "find") {&search_proc;}
if($FORM{'mode'} eq "past") {&past_disp;}
if($FORM{'mode'} eq "msg_del") {&del_disp;}
if($FORM{'mode'} eq "del") {&del_proc;}
if($FORM{'mode'} eq "master") {&master_in;}
if($FORM{'mode'} eq "env") {&env_set;}
if($FORM{'mode'} eq "env_w") {&env_write;}
if($FORM{'mode'} eq "master_res") {&mas_res_proc;}
if($FORM{'mode'} eq "image") {&icon_disp;}
if($FORM{'mode'} eq "msg"){
&input_chk;
&cookie_set;
&data_save;
}
if($FORM{'mode'} eq "res_msg"){
&cookie_get;
&head_disp;
&form_disp($FORM{'resno'});
&res_disp;
&foot_disp;
exit;
}
if($FORM{'mode'} eq "all_res"){
if($FORM{'pass_wd'} ne $pass){
&error('パスワードが違います','');
}
}
&cookie_get;
&top_disp;
&form_disp("");
&data_disp;
&foot_disp;
exit;
#----------------#
# 投稿データ取得 #
#----------------#
sub form_get
{
local($flg) = $_[0]; #タグ
local($cnt) = 0;
local($pair,$buff,$i);
if($ENV{'REQUEST_METHOD'} eq "POST"){
if($ENV{'CONTENT_LENGTH'} > 51200){&error('サイズオーバー','');}
read(STDIN, $buff, $ENV{'CONTENT_LENGTH'});
}
else{$buff = $ENV{'QUERY_STRING'};}
local(@pairs) = split(/&/,$buff);
foreach $pair(@pairs){
local($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');
&jcode'h2z_sjis(*value);
if($flg == 0){
$value =~ s//>/g;
$value =~ s/\"/"/g;
}
else{
$value =~ s///g;
$value =~ s/<##>/<##>/g;
$value =~ s/<#>/<#>/g;
$value =~ s/<>/<>/g;
}
for($i=0; $i<@TAG; $i++){
if($TAG[$i] eq $name || index($name,"mrescom_") >= 0){
$value =~ s/\r\n/
/g;
$value =~ s/\r/
/g;
$value =~ s/\n/
/g;
last;
}
}
if($i >= @TAG){
$value =~ s//>/g;
$value =~ s/\"/"/g;
$value =~ s/\r//g;
$value =~ s/\n//g;
}
if($name eq 'del'){
push(@delete,$value);
}
if(index($name,"mrescom_") >= 0){
$nn = $name;
$nn =~ s/mrescom_//g;
push(@answer,$nn);
}
$FORM{$name} = $value;
if($name ne "mode" && $name ne "resno" && $name ne "pass" && index($name,"mrescom_") < 0){
$cif = 0;
for($cin=0; $cin<$cnt+1; $cin++){
if($FORM[$cin] eq $name){
$FORM[$cin] = $name; $cif = 1; last;
}
}
if($cif == 0){ $FORM[$cnt++] = $name; }
}
}
@answer = reverse(@answer);
return $cnt;
}
#--------------------#
# ヘッダ部分書き出し #
#--------------------#
sub head_disp
{
if(!open(IN,"$top_file")){ &error('トップファイルがオープン出来ません',''); }
local(@head) = ;
close(IN);
print "Content-type: text/html\n\n";
print "\n";
for($i=0;$i<@head;$i++){
print "$head[$i]";
if(index($head[$i],"= 0 || index($head[$i],"= 0){
last;
}
}
}
#-------------------------------------------------#
# フッタ部分書き出し ※ここは書き換えないで下さい #
#-------------------------------------------------#
sub foot_disp
{
print "\n";
print "
自由レイアウト掲示板 v1.12.00 エース\n";
print "