スレッド表示新設

#---------------------------------------
#  リストスレッド表示
#---------------------------------------
sub ListThreadOpen {
    local($no,$reno,$lx,$sub,$email,$url,$name,$dat,$msg,$t,$h,$pw,$w,$oya,$sml,$child,$i,$commentcount,$last_t);

    # 時間取得
    $time = time;

    # 表題表示
    print "<br>$div_center $threadlist \n";
    print "<tr><th align=left abbr=\"記事\">　　タイトル</th><th abbr=\"発言者\">名前</th><th abbr=\"発言\">日付</th><th abbr=\"記事\">コメント数</th><th abbr=\"記事\">最終コメント日</th></tr>\n";

    $i=0;
    $commentcount=0;
    $last_t=0;
    $lastdat="";
    open(IN,"$logfile") || &error("Open Error: $logfile");
    $top = <IN>;
    while (<IN>) {
        ($no,$reno,$lx,$sub,$email,$url,$name,$dat,$msg,$t,$h,$pw,$w,$oya,$sml,$child) = split(/<>/);

        # ページ送り
        if ($reno == 0) { $i++; }
        if ($i < $page + 1) { next; }
        if ($i > $page + $p_tree) { next; }

        # 記事タイトル長調整
        $sub = &cut_subject($sub);

        # 削除記事
        if ($pw eq 'DEL') {
            if ($lx == 0) {
                print "<tr><td><a href=\"$script?mode=allread&amp;no=$no&amp;page=$page&amp;list=thread\">$treehead</a>";
                print "$no\.$sub</td><td>　</td><td> $dat </td><td>　</td><td>　</td></tr>\n";
            }
        # 親記事
        } elsif ($lx == 0) {
            # 所定時間以内の投稿は[NEWマーク]表示
            if (($time - $last_t > $new_time * 3600)&&
                ($time - $top_t  > $new_time * 3600))
                {$newsign="";}
            else 
                { $newsign = $newmark; }

            # タイトル表示
            if ($i != $page + 1) { print "$td_right_nowrap $commentcount</td>$td_nowrap $lastdat $newsign</td></tr>"; }
            print "<tr>$td_nowrap<a href=\"$script?mode=allread&amp;no=$no&amp;page=$page\">$treehead</a>　";
            print "<a href=\"$script?mode=msgview&amp;no=$no&amp;reno=$reno&amp;oya=$oya&amp;page=$page&amp;list=thread\">$no\.$sub</a></td>$td_nowrap<strong>$name </strong> </td>$td_nowrap $dat</td>\n";
            $commentcount=0;
            $top_t=$t;
            $last_t=0;
            $lastdat="";
        } else {
            # 子記事
            $commentcount++;
            if ($last_t < $t) {
                $last_t = $t;
                $lastdat = $dat;
            }
        }
    }
    close(IN);
    print "$td_right_nowrap $commentcount</td>$td_nowrap $lastdat $newsign</td></tr>";
    print "</table></div>\n";
}

    if ($in{'list'} ne "new") {
        print "[<a href=\"$script?list=new\">新規順表\示</a>]\n";
    } else {
        print "[<a href=\"$script?list=tree\">ツリー表\示</a>]\n";
    }

    if ($in{'list'} ne "new") {
        print "[<a href=\"$script?list=new\">新規順表\示</a>]\n";
    }
    if ($in{'list'} ne "thread") {
        print "[<a href=\"$script?list=thread\">スレッド表\示</a>]\n";
    }
    if ($in{'list'} ne "tree") {
        print "[<a href=\"$script?list=tree\">ツリー表\示</a>]\n";
    }

    if ($in{'list'} eq "new") {
        print "<li>以下は新規投稿順のリスト表\示です。</li><br>\n";
    } else {
        print "<li>ツリー先頭部の $treehead をクリックすると関連記事を一括表\示します。</li><br>\n";
    }

    if ($in{'list'} eq "new") {
        print "<li>以下は新規投稿順のリスト表\示です。</li>\n";
        print "<li>$treehead をクリックすると関連記事を一括表\示します。</li>\n";
    } elsif ($in{'list'} eq "thread") {
        print "<li>行頭部の $treehead をクリックすると関連記事を一括表\示します。</li>\n";
    } else {
        print "<li>ツリー先頭部の $treehead をクリックすると関連記事を一括表\示します。</li>\n";
    }

    # ログを開く
    if ($in{'list'} eq "new") { &ListNewOpen; }
    else { &ListTreeOpen; }

    # ログを開く
    if ($in{'list'} eq "new") { &ListNewOpen; }
    elsif ($in{'list'} eq "thread") { &ListThreadOpen; }
    else { &ListTreeOpen; }