;
close(LOG);
$p_no = &mbbslib'Page_List(
$reto,$onethre,$mode,$resstart,$url_a,$script,
$folder,"&tn=$thre_no","","p","$cgi_only",
$url_b
);
$b1_on= 1;
}
$nolog2 = $nothr + 1;
$nolog3 = $nothr - 1;
$threadheader = &mbbslib'Threadheader(
$nothr,$parcekiji,$bd_col,$tbgc_a,$tf_col,$thre_no,
$sub,$p_no,$url_a,$script,$folder,$nolog2,$nolog3,"",
$mode,$border_width
);
&threadres_a($url_a);
if ($mode eq 'next') {
print <<"EOF";
$threadheader
$threadres_a
EOF
}else{
print HTML<<"EOF";
$threadheader
$threadres_a
EOF
}
if($b1_on){
foreach $data (@b1st) {
$count++;
}
$printing = $count - $onepage +1;
foreach $data (@b1st) {
$counting++;
if ($counting > $printing){
&thread_res ($url_a);
}
}
}
$b1_on= 0;
&res_form ($url_a);
$pwd_f = '';
$thread_footer = &mbbslib'Thread_Footer (
$mode,$url_a,$reto,$onepage,$script,$folder,$thre_no,
$onethre,$resnew,'',$r_load_b,$p_no,$pwd_f
);
if ($mode eq 'next') {
print <<"EOF";
$res_form
$thread_footer
EOF
&mbbslib'Thread_End ( $space2,"out" );
}else{
$thread_end = &mbbslib'Thread_End ( $space2,"back" );
print HTML<<"EOF";
$res_form
$thread_footer
$thread_end
EOF
}
}
if ($mode eq 'next') {
print <<"EOF";
$go_search$r_load$back_link$p_no_t$next_link$all_tv$tp_slf
EOF
&mbbslib'MekeFoot($sup_email,$sup_name,$script_name,$version,$kaiz,"out");
}else{
if ($tsuginopage){
print HTML<<"EOF";
$go_search$r_load$back_link$p_no_t$next_link$all_tv$tp_slf
EOF
}
my $pagefoot = &mbbslib'MekeFoot (
$sup_email,$sup_name,$script_name,$version,$kaiz,"back"
);
print HTML<<"EOF";
$pagefoot
EOF
close(HTML);
}
}
sub list_point {
if(open(LOG,$dat_a)){
@lines = ;
close(LOG);
($sub,$no,$date,$name,$home_a,$email,$msg,$reto,$sato,$close,$updn,$sw_a,$sw_b) = split(/<>/, $lines[0]);
}else{
&error_ko;
}
if ($resstart <= 1){$readfirst="yes";}
$p_no = &mbbslib'Page_List(
$reto,$onethre,$mode,$resstart,$url_sf,$script,
$folder,"&tn=$thre_no","","p","",$url_b
);
&kijifirst;
if ($resend != 1){
if (open(LOG,$dat_b)){
@b1st = ;
close(LOG);
if ($resnew > 0 ){
if (@b1st > $resnew ){
$rst_no = @b1st-$resnew;
}else{
$rst_no = 0;
}
$red_no = $#b1st;
}elsif ($resstart > 0 ){
if ($resstart < 3){
$rst_no = 0;
}else{
$rst_no = $resstart-2;
}
if ($resend == 0||$reto <= $resend){
$red_no = $#b1st;
}else{
$red_no = $resend-2;
}
}else{
if ($resend){
$rst_no = 0;
$red_no = $resend-2;
}else{
$rst_no = 0;
$red_no = $#b1st;
}
}
if ($rst_no > $#b1st){
$rst_no = $#b1st;
print <<"EOF";
リクエストがレス数を越えていますので最終レスを表\示しています。
EOF
}
if ($red_no > $#b1st){
$red_no = $#b1st;
}
@b1st_v = @b1st[$rst_no..$red_no];
foreach $data (@b1st_v) {
&thread_res ($url_sf);
}
}
}
&res_form ($url_sf);
$tob = 2;
&point_menu;
print <<"EOF";
$res_form
$point_menu
EOF
&mbbslib'Thread_End ( $space2,"out" );
}
sub point_menu {
my $pwd_f = '';
$thread_footer = &mbbslib'Thread_Footer (
$mode,$url_sf,$reto,$onepage,$script,$folder,$thre_no,
$onethre,$resnew,'',$r_load_b,$p_no,$pwd_f
);
if ($tob eq 1) {
$tob_s=(<<"EOF");
▼カッ飛び最後
EOF
} else {
$tob_s=(<<"EOF");
▲カッ飛び先頭
EOF
}
$point_menu=(<<"EOF");
▲▲$bbstitleトップへ$tob_s $thread_footer
EOF
}
sub kijifirst{
if ($js_no != 1){ $js_cookie = &mbbslib'JS_Cookie($folder); }
$pageheader = &mbbslib'Pageheader(
$mode,$sub,'',$bbstitle,$style,$bgcolor,$bakgr_url,
$bakgr,$js_cookie
);
if($mode eq "point"||$mode eq "next") {
$sitetitle_a = $sitetitle2;
}else{
$sitetitle_a = $sitetitle3;
}
my $top_ground_b = &mbbslib'Top_ground_b(
$parce,$tb_colb,"$keitai_p \ ",$sitetitle_a,
$tf_col,$bbstitle,"",$space1,"$p_headline$p_top_p"
);
$tob = 1;
&point_menu;
my $threadheader = &mbbslib'Threadheader(
$nothr,$parcekiji,$bd_col,$tbgc_a,$tf_col,$thre_no,
$sub,$p_no,$url_a,$script,$folder,$nolog2,$nolog3,"",
$mode,$border_width
);
print <<"EOF";
$pageheader
$top_ground_b
$point_menu
$threadheader
EOF
if ($readfirst ne "no"){
&threadres_a($url_a);
print <<"EOF";
$threadres_a
EOF
}
}
sub thread_res {
chop($data);
($no,$date,$name,$home_a,$email,$msg,$sw_a,$sw_b) = split(/<>/,$data);
&threadres_a ($_[0]);
if ($mode eq 'next' || $mode eq 'point') {
print <<"EOF";
$threadres_a
EOF
}else{
print HTML<<"EOF";
$threadres_a
EOF
}
}
sub threadres_a {
$name = &mbbslib'Name_C_M (
$kote_check,$sw_a,$name_cola,$name_colb,$name_colc,
$dn_col,$name,$email,$mode
);
if ($g_home && $home_a){
$home_a = &mbbslib'Home_url ($home_a,$link_check);
} else {
$home_a ="";
}
if ($mode eq 'next' || $mode eq 'point') {
$msg =~ s/\.\.\//\.\//g;
} else {
}
if($all_p ne 'on') {
if ($clip) {
$aaa = &mbbslib'Sjis_Substr($msg,0,$clip,false,true);
if($msg ne $aaa){
$msg = "$aaa\
＜省略されました＞ [全文を見る]<\/a>";
$no = "$no<\/a>";
}
}
}
if ($tagkey == 0 && $tag_act eq "on") {
$msg =~ s/&/\&/g;
$msg =~ s/<//g;
} else {
if($sw_b == 3) {
$msg = &mbbslib'AutoLink($msg,$autolink,$link_check);
$msg = &mbbslib'AppoRs($msg,$_[0],$script,$folder,$thre_no,"");
} elsif($sw_b == 2) {
$msg = &mbbslib'AppoRs($msg,$_[0],$script,$folder,$thre_no,"");
} elsif($sw_b == 1) {
$msg = &mbbslib'AutoLink($msg,$autolink,$link_check);
} else {
}
}
if($quote_color) {
$msg = &mbbslib'QuoteColor ( $msg,$quote_color );
}
$threadres_a=(<<"EOF");
$no: 名前：$name投稿日：$date$home_a$msg $space3
EOF
}
sub res_form {
if($bo_act == 2) {
$res_form = "";
} elsif( $close == 1 ) {
$res_form =&mbbslib'CommentForm_b ($cltb_col,$name_colb);
} else {
if($cgi_only) {
$loca_f = "bo_c";
} else {
$loca_f = "bo_f";
}
$mode_f = "res";
$pwd_f = '';
$js_on = '';
if ($js_no == 1) {
$js_on = 0;
} else {
$js_on = 1;
}
$res_form =&mbbslib'CommentForm (
$_[0],$script,$folder,$thre_no,$mode_f,$loca_f,
$index_b,$pwd_f,$gc_name,$gc_email,$js_on,$g_home
);
$js_on = '';
}
}
sub regist {
$lognewfile = &mbbslib'File_Name ($log_dr,$folder,"","new",$extension);
open(LOG,$lognewfile) || &error("Open Error 6 : $lognewfile",$lock_a,'','');
@lognew = ;
close(LOG);
foreach (@lognew) {
$lognew[$nolog] =~ s/\n//g;
if ($lognew[$nolog] >= $logf) {
$logf = $lognew[$nolog] ;
}
$nolog++;
}
$loge=$logf+1;
if ($loge < 10) { $loge = "000$loge"; }
elsif ($loge < 100) { $loge = "00$loge"; }
elsif ($loge < 1000) { $loge = "0$loge"; }
$readf_a = &mbbslib'File_Name ($log_dr,$folder,$logf,"a",$extension);
$writef_a = &mbbslib'File_Name ($log_dr,$folder,$loge,"a",$extension);
$one=01;
open(IN,"$readf_a") || &error("Open Error 7 : $readf_a",$lock_a,'','');
$top = ;
($tsub,$one,$tdate,$tname,$thome_a,$temail,$tcom,$treto,$tsato,$tclose,$tupdn,$tsw_a,$tsw_b) = split(/<>/, $top);
if ($sub eq "$tsub" ) {&error("タイトルの二重投稿は禁止です。",$lock_a,'','');}
if ($com eq "$tcom" ) {&error("コメントの二重投稿は禁止です。",$lock_a,'','');}
open(INR,"$lognewfile") || &error("Open Error 8 : $lognewfile",$lock_a,'','');
@topd = ;
open(OUTR,">$lognewfile") || &error("Write Error 9 : $lognewfile",$lock_a,'',''); print OUTR "$loge\n";
foreach $topp (@topd) {print OUTR "$topp";}
close(OUTR);
close(INR);
$xcomx = $com;
&auto_link_c($xcomx);
$xcomx = "";
$resno = '01';
$reto = $resno;
open(OUT,">$writef_a") || &error("Write Error 10 : $writef_a",$lock_a,'','');
print OUT "$sub<>$resno<>$date<>$name<>$home_a<>$email<>$com<>$reto<>$sato<>$close<>$updn<>$sw_a<>$sw_b\n";
if ($host_w){
$thre_no = $loge;
&hostrec;
}
$i=0;
while ($_ = ) {
$i++;
if ($i > $max-2) { last; }
print OUT $_;
}
close(OUT);
close(IN);
chmod 0666,$writef_a;
if($loc_scr eq "bo_f"||$loc_scr eq "") {
$location = "$url_c$index#pagetop";
} elsif ($loc_scr eq "bo_c") {
$location = "$url_sf$script?mo=n&ts=1&te=$thre_to&fo=$folder";
} elsif ($loc_scr eq "ha_f") {
$location = "$url_sfheadline.cgi?fo=$folder";
} elsif ($loc_scr eq "ma_f") {
$location = "$url_sf$mente?mo=n&ts=1&te=$thre_to&fo=$folder&pwd=$pwd";
} elsif ($loc_scr eq "i_f"||$loc_scr eq "w_f") {
$location_1 = "$url_sf$script_i?mo=po&fo=$folder&tn=$loge";
$location_2 = "$url_sf$script_i?fo=$folder";
$location_3 = "$url_sf$script_i";
}
my $date_g = &mbbslib'Cookie_Time($c_days);
print "Set-Cookie: $folder=$c_name,$email; $s_cookie expires=$date_g\n";
if($mailing){
if ($loc_scr eq "ma_f" || $loc_scr eq "mp_f"){
if($m_from_admin){
&mail_to ;
}
} else {
&mail_to ;
}
}
}
sub resregist_a {
if ($base_url) { &out_url;}
$writef_a = &mbbslib'File_Name ($log_dr,$folder,$thre_no,"a",$extension);
$writef_b = &mbbslib'File_Name ($log_dr,$folder,$thre_no,"b",$extension);
open(INA,"$writef_a") || &error("Open Error 11 : $writef_a",$lock_a,'',''); $topa = ;
($isub,$ino,$idate,$iname,$ihome_a,$iemail,$icom,$ireto,$isato,$iclose,$iupdn,$isw_a,$isw_b) = split(/<>/, $topa);
if ($iclose == 1) {
if ($pwd ne $master_pass) {
&error("只今、このスレッドへの書きこみは、出来ません。",$lock_a,'','');
}
}
if ( $bo_act > 1 && $iclose ne "0"){
if ($pwd ne "$master_pass") { &error("只今、このスレッドへの書きこみは、出来ません。",$lock_a,'',''); }
}
}
sub resregist_b {
if (open(INB,"$writef_b")){
@top = ;
foreach $top (@top) {
($resno,$tdate,$tname,$thome_a,$temail,$tcom,$tsw_a,$tsw_b) = split(/<>/, $top);
if ($not_dup_com == 1 && $com eq "$tcom") {
&error("コメントの完全二重投稿は禁止です。",$lock_a,'','');
}
}
}
else {$resno="01";}
$sw_b = &auto_link_c($com);
$sw_b = &appo_rs_c($com,$sw_b);
$resno++;
if ($t_updn ne 'on') {
if ($email ne 'sage'){
$lognewfile = &mbbslib'File_Name ($log_dr,$folder,"","new",$extension);
open(INR,"$lognewfile") || &error("Open Error 12 : $lognewfile",$lock_a,'','');
@topd = ;
open(OUTR,">$lognewfile") || &error("Write Error 13 : $lognewfile",$lock_a,'','');
print OUTR "$thre_no\n";
foreach $topd (@topd) {
$topd =~ s/\n//g;
if ($thre_no ne $topd){
print OUTR "$topd\n";
}
}
close(OUTR);
close(INR);
}else{
if($sw_a != 1 && $sw_a != 2) {
$sw_a = 3;
}
}
}else{
if($sw_a != 1 && $sw_a != 2 ) {
$sw_a = 3;
}
}
open(OUTB,">>$writef_b") || &error("Write Error 14 : $writef_b",$lock_a,'','');
print OUTB "$resno<>$date<>$name<>$home_a<>$email<>$com<>$sw_a<>$sw_b\n";
$oreto = $resno;
open(OUTA,"+<$writef_a") || &error("Write Error 15 : $writef_a",$lock_a,'','');
print OUTA "$isub<>$ino<>$idate<>$iname<>$ihome_a<>$iemail<>$icom<>$oreto<>$isato<>$iclose<>$iupdn<>$isw_a<>$isw_b\n";
if ($host_w){&hostrec;}
close(OUTA);
close(OUTB);
close(INB);
close(INA);
chmod 0666,$writef_a;
chmod 0666,$writef_b;
if($loc_scr eq "bo_f"||$loc_scr eq "") {
if ($b_file > 0) {
$location = "$url_sf$script?mo=p&fo=$folder&tn=$b_file&rn=$onethre";
}else{
$location = "$url_c$index#pagetop";
}
} elsif ($loc_scr eq "bo_c") {
if ($b_file > 0) {
$location = "$url_sf$script?mo=p&fo=$folder&tn=$b_file&rn=$onethre";
}else{
$location = "$url_sf$script?mo=n&ts=1&te=$thre_to&fo=$folder";
}
} elsif ($loc_scr eq "ma_f"){
$location = "$url_sf$mente?mo=n&ts=1&te=$thre_to&fo=$folder&pwd=$pwd";
} elsif ($loc_scr eq "mp_f"){
$location = "$url_sf$mente?mo=p&fo=$folder&tn=$thre_no&pwd=$pwd";
} elsif ($loc_scr eq "iv_f"||$loc_scr eq "wv_f") {
$location_1 = "$url_sf$script_i?mo=po&fo=$folder&tn=$thre_no";
$location_2 = "$url_sf$script_i?fo=$folder";
$location_3 = "$url_sf$script_i";
}
my $date_g = &mbbslib'Cookie_Time($c_days);
print "Set-Cookie: $folder=$c_name,$email; $s_cookie expires=$date_g\n";
if($mailing){
if ($loc_scr eq "ma_f" || $loc_scr eq "mp_f"){
if($m_from_admin){
&mail_to ;
}
} else {
&mail_to ;
}
}
}
sub hostcheck{
$r_host = $ENV{'REMOTE_HOST'};
$r_addr = $ENV{'REMOTE_ADDR'};
if ($r_host eq '') { $r_host = $r_addr; }
if ($r_host eq $r_addr) {
$r_host = gethostbyaddr(pack('C4',split(/\./,$r_host)),2) || $r_addr;
}
$log = "$log_dr/$folder/writehost\.$extension";
$log =~ s/\s//g;
if (open(LOG,$log)){
@logs = ;
close(LOG);
$logs[0]=~ s/\s//g;
if ($r_host =~ /$logs[0]/){
&error("連続でスレッドを作ることはできません",$lock_a,'','');
}
}
$writehost = sprintf("$log_dr/$folder/writehost.$extension");
if (open(writehost,"> $writehost")) {
print writehost "$r_host\n";
close(writehost);
chmod 0666,$writehost;
}
}
sub hostrec {
$r_host = $ENV{'REMOTE_HOST'};
$r_addr = $ENV{'REMOTE_ADDR'};
if ($r_host eq '') { $r_host = $r_addr; }
if ($r_host eq $r_addr) {
$r_host = gethostbyaddr(pack('C4',split(/\./,$r_host)),2) || $r_addr;
}
$writef_c = &mbbslib'File_Name ($log_dr,$folder,$thre_no,"c",$extension);
$mark_no = $resno;
$writehost = sprintf("$writef_c");
open(OUTC,">>$writehost") || &error("Write Error 16 : $writehost",$lock_a,'','');
print OUTC "$mark_no<>$r_host<>$date\n";
close(OUTC);
chmod 0666,$writef_c;
}
sub auto_link_c {
my $xcomx = $_[0];
$xcomx =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1xurlx$2/g;
$xcomx =~ s/([^=^\"]|^)(ftp\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1xurlx$2/g;
if($xcomx ne $_[0]) { $sw_b = 1;}
return $sw_b;
}
sub appo_rs_c {
my ($xcomx,$com_a,$com_b,$com_c,$com_d);
$xcomx = $_[0];
if ($xcomx =~ /(.*)(>>)([0-9]+)(.*)/) { $com_a=$4; }
if ($com_a =~ /^(.)(.*)/) { $com_b=$1; $com_c=$2; }
if ($com_c =~ /^(.)(.*)/) { $com_d=$1; }
if ($com_b eq "-" && $com_d > 0) {
$xcomx =~ s/(.*)(>>)([0-9]+)(\-)([0-9]+)(.*)/appo/g;
}else{
$xcomx =~ s/>>([0-9]+)/appo/g;
}
if($xcomx ne $_[0]) {
if ($_[1] == 1) { $_[1] = 3;
}else{ $_[1] = 2;}
}
return $_[1];
}
sub out_url {
$h_agent = substr($ENV{'HTTP_USER_AGENT'},0,1);
$ref_url = $ENV{'HTTP_REFERER'};
$ref_url =~ s/\?(.|\n)*//ig;
$ref_url =~ s/\%7E/\~/ig;
if ($ref_url !~ $base_url) {
if ($keitai == 1 && [$h_agent eq 'D' ||$h_agent eq 'J'] ) {
}else{
&error("外から書き込まないでちょ。ーー；",$lock_a,'','');
}
}
}
sub f_lock {
if ($do_fl) {
$f_l_n = "";
$lock_a = "";
$f_l_n = "$log_dr/$folder/$file_lock";
$lock_a = &mbbslib'File_Lock_s($f_l_n);
if ($lock_a == 0) {
&error("大変混み合っております。
再投稿してください。",$lock_a,'','');
}
$SIG{'PIPE'} = $SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "sigexit";
}
}
sub sigexit {
if ($lock_a == 1) {
rmdir($f_l_n);
$lock_a = 0;
}
exit;
}
sub error_ko {
if ($_[1] == 1) { rmdir($f_l_n); }
print <<"EOF";
■ こまっちゃったエラー ■
そんなスレッドないっすよ。
お勧めのスレッドを出そうかなぁ〜とも思ったんですが・・・
それじゃーやっぱしあれでしょー。
下記内容を確認の上、再度挑戦してください。
・スレッドが削除されたか別の板に移動された。
・掲示板を間違えた。
・スレッド番号を間違えた
レス・ポイント表\示 の使い方も参考にしてください。
|
EOF
exit;
}
sub error {
if ($_[1] == 1) { rmdir($f_l_n); }
my ($e_logo,$e_title);
if ($_[3] eq 'g') {
$e_title = "なにすんねん";
$e_logo = "ゴラー";
}else{
$e_title = "申\し訳ございません";
$e_logo = "エラー";
}
my ($er_m_a);
my $error_a = "$e_logoのお知らせ";
my $error_b = "\申\し訳あません。";
my $error_c = "$e_logoです。";
my $error_d = "";
if ($_[2]){
$error_d = "再投稿願います。";
}
if ($loc_scr eq "i_f" || $loc_scr eq "iv_f") {
print "Content-type: text/html; charset=Shift_JIS\n\n";
print <<"EOF";
$error_a
$_[0]
$error_b
$error_c
$error_d
EOF
} elsif ($loc_scr eq "w_f" || $loc_scr eq "wv_f") {
print "Content-type: text/x-hdml; charset=Shift_JIS\n\n";
print <<"EOF";
$_[0]
−−−−−−−−−−
\申\し訳あません。
$error_b
$error_c
$error_d
EOF
}else{
if ($mode eq "regist" || $mode eq "res"){
$er_m_a = "";
if ($_[2] != 1 ){
$er_m_a = "
再投稿をお願いいたします。";
}
}
if ($h_ct) {
print "
\n";
}else{
print "Content-type: text/html; charset=Shift_JIS\n\n";
}
print <<"EOF";
$error_a
■ $e_title $e_logo ■
$_[0]
大変\申\し訳ございません。$e_logoになってしまいました。
$er_m_a
|
EOF
}
exit;
}
sub mail_to {
my ($sub_m);
unless ($mailto) {$mailto = $sup_email;}
$mail_title = "$sitetitle1 投稿通知【$date】";
&jcode'convert(*mail_title,'jis');
my $report =(<<"EOF");
To: $mailto
From: $sup_email
Subject: $mail_title
MIME-Version: 1.0
Content-type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit
EOF
if($sub){
$sub_m = $sub;
} else {
$sub_m = $isub;
}
if($resno eq '01'){
$report .=(<<"EOF");
$date 新規にスレッドが作成されました。
■掲示板 名： $bbstitle
■スレッド名： $sub_m
EOF
} else {
$report .=(<<"EOF");
$date に新規投稿がありました。
■掲示板 名： $bbstitle
■スレッド名： $sub_m
■レス 番号： $resno
EOF
}
if($mail_contents == 0 || $mail_contents == 2){
if($resno eq '01'){
$report .=(<<"EOF");
■スレッドのURL
$script_path$script?mo=p&fo=$folder&tn=$thre_no&rn=$onethre
EOF
} else {
$report .=(<<"EOF");
■スレッドのURL
$script_path$script?mo=p&fo=$folder&tn=$thre_no&rn=$onethre
■投稿のみのURL
$script_path$script?mo=p&fo=$folder&tn=$thre_no&rs=$resno&re=$resno&rf=no&al=on
EOF
}
}
if($mail_contents == 1 || $mail_contents == 2){
$com =~ s/
/\n/g;
$com =~ s/<//g;
$com =~ s/&/&/g;
$report .=(<<"EOF");
(投稿内容)
■お名前 ： $name
■E-mail ： $email
■URL 欄 ： $home_a
■コメント：
$com
EOF
}
open(MAIL,"| $mailsoft_path -oi -t")
|| &error("sendmailへのパスが間違っています。",$lock_a,'','');
print MAIL $report;
close(MAIL);
}