$subject

#!/usr/bin/perl use strict; use vars qw($bbs $key $st $to $ls $im $nf $ko $db @dat $resno); use vars qw($datdir $kakodir $cgiver $cginame $baseurl $daturl $size $now $ONE); $cginame = "read.cgi"; $datdir = "../dat"; $kakodir = "../dat2"; $cgiver = "read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03)"; $baseurl = "http://$ENV{'HTTP_HOST'}"; $now = time; #decode { my ($name,$value,%get,$range); if($ENV{'QUERY_STRING'} ne ""){ foreach(split /&/, $ENV{'QUERY_STRING'}){ ($name, $value) = split /=/; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg; $get{$name} = $value; } $bbs = $get{'bbs'}; $key = $get{'key'}; $st = $get{'st'}; $to = $get{'to'}; $ls = $get{'ls'}; $im = $get{'imode'}; $nf = $get{'nofirst'}; $ko = $get{'kako'}; $db = $get{'debug'}; } elsif($ENV{'PATH_INFO'} ne ""){ ($name,$bbs, $key, $range) = split (/\//,$ENV{'PATH_INFO'}); if($range =~ /^l(\d+)/){$ls = $1;} if($range =~ /^(\d+)\-(\d+)/){$st = $1; $to = $2;} elsif ($range =~ /\-(\d+)/){$to = $1;} elsif ($range =~ /(\d+)\-/){$st = $1;} elsif ($range =~ /^(\d+)/){$st = $1; $to = $1; $nf = "true";$ONE = 1;} if($range =~ /\./){$nf = "false";} if($range =~ /n/){$nf = "true";} if($range =~ /k/){$ko = "true";} #kakolog } else{&error("エラー：オプションが指定されていません。");} } #main { # datファイル指定/サイズ取得 my $datfile = $datdir . "/" . $key . ".dat"; my $kakofile = $kakodir . "/" . $key . ".dat"; my $k_flag = 0; $size = (stat($datfile))[7]; $size = int($size/1024); #存在確認 if(!-e "$datfile"){ &error("スレッドがありません。");} print "Content-type: text/html\n\n"; #dat読み出し。 my ($name, $mail, $date, $message, $subject,$mailto,$nom); open(IN,"$datfile"); @dat = ;#! close(IN); $resno=@dat+1; ($name, $mail, $date, $message, $subject) = split /<>/, $dat[0]; chomp($subject); if($ls =~ /(\d+)/){$st = $resno - $1;} if($st < 1){$st = 1;} if(!$to){$to=$resno;} #dat表示 print "$subject"; print "\n"; ### スレッドのヘッダー # レス数が多い時or過去ログ落ち時の表示 if (-s "$datfile" > 512000) {print "

スレッドが大きすぎます。残念ながらこれ以上は書き込めません。

\n"; $k_flag = 1;} elsif ($resno >=1000) {print "

レス数が 1000 を超えています。残念ながらこれ以上は書き込めません。

\n"; $k_flag = 1;} elsif ($resno >=950) {print "

レス数が 950 を超えています。1000を超えると書き込めなくなくなるよ。

\n";} elsif ($resno >=900) {print "

レス数が 900 を超えています。1000を超えると書き込めなくなくなるよ。

\n";} if($nf ne "true"){ print "\n"; print "[掲示板に戻る] [表\示 : 全て最新50 "; print "1-99"; # 100単位で閲覧しちゃう？ { my ($acnt,$ncnt,$tcnt); for($acnt=2;$acnt<=int($resno / 100)+1;$acnt++){ $tcnt = $acnt*100; $ncnt = $tcnt-100+1; print " $ncnt-$tcnt";} } print "]"; } print "

$subject

\n\n"; print "

1 名前：$mailto [$date]: $message

\n"; if($st ==1){$st++;} } ### 2以降の書き込み while($st != $to){ if($dat[$st-1] eq ""){last;} chomp($dat[$st-1]); ($name, $mail, $date, $message) = split /<>/, $dat[$st-1]; $message =~ s/(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1\:$2<\/a>/ig; # メール欄の処理 if($mail eq "" || $mail eq "0"){ $mailto = "$name"; }else{ $mailto = "$name";} # 書き込みが？？？ if ($message eq ""){ $name=$mail=""; $subject=$message="[ここ壊れてます]"; } # 表示処理。 print "
$st 名前：$mailto [$date]: $message

\n"; $st++; } $st--; print "

\n\n"; ### スレッドのフッダー print "

"; #続き/新着 print "[ "; print ""; if($resno-1>$st){ print "続きを読む";} else { print "新着レスの表\示";} print " ]

\n"; #全部読む if($nf eq "true"){ print "全部読む \n";} my $rsnt=$st+100; #前レス100 if($st > 100){ my $st1=$st-$ls-1; my $st2=$st1-100; print "前100 \n";} #次と最新 print "次100 \n"; print "最新50 \n"; #とっぷ print "▲ "; #容量ちぇっく if ($size > 500) { print "（；´Д｀）＜$size\KB \n";} elsif ($size > 300) { print "（；´∀｀）＜$size\KB \n";} elsif ($size > 100) { print "（ ´∀｀）＜$size\KB \n";} else { print "（*・∀・）＜$size\KB \n";} #書き込みフォーム if ($nf ne "true" && $k_flag ne "1") { print "\n"; } #footer print "

$cgiver

\n"; print "\n"; print "\n"; } exit; sub error { my $topic = shift; print "Content-Type: text/html; charset=shift_jis\n\nERROR! ■エラーが発生しました。

".$topic."

[READ.CGI]
Version : ".$cgiver."

";exit; }