HTML
&last;
exit;
#======================================================================#
# ツリー表示処理
sub tree{
local($log,$c,$n)=@_;
local(@aaa,$a);
foreach (@log){
last if /^$log\t/;
if(/^\d+\t$log\t/){
push(@aaa,$_);
}
}
close(LOG);
if($n eq "└"){
$c.=" ";
}elsif($n){
$c.="│";
}
while(@aaa){
if($log == 0){
@data=split(/\t/,shift(@aaa));
}else{
@data=split(/\t/,pop(@aaa));
}
$n="├";
$n="└" unless @aaa;
print"
│\n
$c$n
◆" if 0 eq $data[1];
print"
$c$n◇" if 0 ne $data[1];
print"$data[0]:";
if($FORM{'log'} ne $data[0]){
print"
$data[3] [$data[4]] $data[6]";
}else{
print"
$data[3] [$data[4]] $data[6]";
}
print"
$lastf" if $last == 1 && $F{$data[2]} eq $data[0];
print"
$newf" if $news < $data[0];
print"\n";
&tree($data[0],$c,$n);
undef $dat;
}
undef @aaa;
undef $a;
}
#======================================================================#
# HTML ヘッダー表示
sub head{
print"Content-type: text/html\n\n";
print<
$title
$body
$title
新規発言 ｜ 一覧 ｜ 最新発言 ｜ ＨＯＭＥ
HTML
}
#======================================================================#
# 書き込みフォーム
sub ha{
@dummy=@_;
&head;
$li="" if $FORM{'s'};
$FORM{'re'}="0" unless $FORM{'re'};
($FORM{'name'},$FORM{'email'})=split(/\t/,&get_cookie) if $FORM{'name'} eq "";
$FORM{'t'}=~ s/
/\r/g if $FORM{'t'};
$formurls= <
ＵＲＬ |
省略可 |
URL
print<