#!/usr/local/bin/perl
# 構成（数字はパーミッション()内は所有者権限でCGIが動くサーバの場合）
#|-- tl11s.cgi 755(700)
#|-- jcode.pl 644(600)
#|-- bbs.dat 666(600)
#|-- count.txt 666(600)
#|-- session.dat 666(600)
#
#たいやきライトはシンプルな機能の一行掲示板です。
#使用、改造、再配布に一切の制限はありません。
#08/24 2000 真辺慎
############################### 環境設定 ###############################
$title = '★★東風荘革命軍作戦室★★'; # 掲示板の名前
$bbsurl = './tl11s.cgi'; # このスクリプトのURL（相対指定も可）
$bbsfile = './bbs.dat'; # 記録ファイルのパス
$counterfile = './count.txt'; # カウンタファイルのパス
$jcpl = './jcode.pl'; # 日本語コード変換ライブラリのパス
# 出力HTMLの文字色や背景（ボディタグ）
$body = '';
$namecolor = '#d53d8e'; # 名前の色
$textcolor = '#333333'; # 内容の色
$datecolor = '#666666'; # 投稿日時の色
$max = 100; # 表示件数
$maxlength = 3*1024; # 入力データ合計の最大値(byte)
$time_dif = 9*60*60; # グリニッジ標準時との時差（日本時間を表示する場合9*60*60）
$sessionfile='./session.dat'; # 参加者記録ファイル
$sessiontime=5*60; # 参加者表示有効期限(sec)
############################### 全体処理 ###############################
&get_time;
if ($ENV{'REQUEST_METHOD'} eq "POST") {
&decode;
&write if($FORM{'value'});
}
&html;
exit;
############################### サブルーチン ###############################
sub get_time{ #-------------------- 時刻処理 --------------------#
$time = time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($time + $time_dif);
$mon++;
$wday = ('日','月','火','水','木','金','土')[$wday];
$date_now = sprintf( "%02d/%02d($wday)%02d:%02d",$mon,$mday,$hour,$min);
}
sub decode{ #-------------------- デコード --------------------#
return if($ENV{'CONTENT_LENGTH'} > $maxlength);
require "$jcpl";
read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
foreach (split(/&/,$buf)) {
($name, $value) = split(/=/,$_);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');
$value =~ s/\r|\n//g;
$value =~ s/&/&\;/g;
$value =~ s//>/g;
$value =~ s/\t:/ :/g;
$FORM{$name} = $value;
}
}
sub html{ #-------------------- HTML出力 --------------------#
&counter; # HTML内の任意の場所に$countを置くとそこにカウント数が表示されます
&session; # HTML内の任意の場所に$memberを置くとそこに参加者が表示されます
print "Content-type: text/html\n\n";
print <<"_HTML_";
$title
$body
$title
| 第弐作戦室
| 第参作戦室
| 司令室
| 東風荘
| 革命軍
| ♪$count
ただ今の参加者：$member
_HTML_
# 記事の出力
open(IN,"$bbsfile");
while () {
($date,$name,$value) = split(/\t:/,$_);
print "
$name >\; ";
print "$value $date\n";
}
close(IN);
print <<"_HTML_";
_HTML_
}
sub write{ #-------------------- 書き込み処理 --------------------#
return if($ENV{'HTTP_REFERER'} !~ /$bbsurl/i);
if($FORM{'auto_link'}){
$FORM{'value'} =~ s/(http:\/\/)/\t:$1/g; # 連続してURLを貼った場合の処理（\t:で区切る）
$FORM{'value'} =~ s/http:\/\/([\w|\!\#\$\%\&\'\(\)\=\-\^\`\\\|\@\~\[\{\]\}\;\+\:\*\,\.\?\/]+)/♪<\/a>/g;
$FORM{'value'} =~ s/\t://g; # \t:を元に戻す
}
open(IN,"$bbsfile");
chomp(@lines=);
close(IN);
splice(@lines,$max-1) if($max <= @lines);
open(OUT,">$bbsfile");
print OUT "$date_now\t:$FORM{'name'}\t:$FORM{'value'}\n";
for(@lines){print OUT "$_\n";}
close(OUT);
}
sub counter{ #-------------------- アクセスカウンタ --------------------#
open(IN,"$counterfile");
$count = ;
close(IN);
$count++;
open(OUT,">$counterfile");
print OUT "$count";
close(OUT);
}
sub session{ #-------------------- 参加者表示 --------------------#
if($FORM{'name'}){
$addname=$FORM{'id'}=$FORM{'name'};
}
elsif($FORM{'id'}){
$addname=$FORM{'id'};
}
elsif($ENV{'REQUEST_METHOD'} eq 'POST'){
$addname=$FORM{'id'}="空白$count";
}
open(IN,"$sessionfile");
chomp(@lines=);
close(IN);
foreach(@lines){ # 名前と参加時間をハッシュに取り込む
($inname,$intime)=split(/\t:/,$_);
$session{$inname}=$intime;
}
foreach(keys %session){ # 有効期限が切れていたら削除
$time - $session{$_} > $sessiontime && delete $session{$_};
}
if($addname){ # 同名のkeyがあったら更新、無ければ追加
$found='';
foreach(keys %session){
if($_ eq $addname){
$session{$_} = $time;
$found=1;
last;
}
}
$session{$addname}=$time if(!$found);
}
open(OUT,">$sessionfile");
foreach (sort keys %session){
print OUT "$_\t:$session{$_}\n";
}
close(OUT);
$member=join(' ',keys %session);
} # session end