#!/usr/local/bin/perl

#==================================================================
#
# Lounge: Version 1.30
#
# Copyright (C) 1997, 1999 とほほ s-hasei@mtg.biglobe.ne.jp
#                    http://www2e.biglobe.ne.jp/~s-hasei/
#
# 個人、法人を問わず、自由に改造・使用・再配布可能です。
#
#
# For Hobby World  Y.Kitami
# Version 1.0.2 1999/2/14
#         1.0.3 1999/2/24 Modify
#         1.0.4 1999/2/25 Modify
#         1.0.5 1999/4/8 Modify
#==================================================================

#
# 履歴
# 1997.06.15 初版
# 1997.07.02 &の処理を修正
# 1997.08.03 管理画面、削除機能、メール送信機能を追加
# 1997.08.10 表示の文字化け
# 1997.08.11 逆順にソートするようにした
# 1997.09.28 公開用に大幅改正
# 1997.09.30 [送]機能と[削]機能が動かないバグを修正
# 1997.10.19 管理者用パスワードのチェックミスを修正
# 1997.10.19 管理者へのメール送信機能のバグを修正
# 1998.01.11 1月のメッセージが12月より前に表示されるようにした
# 1998.02.22 管理者モードの削除機能でTARGET=outを指定
# 1998.02.22 管理者モードのFrom欄にはファイル名を表示するようにした
# 1998.02.22 http://ではじまる部分をリンク張るようにした
# 1998.02.22 本文中のFrom:やDate:を評価してしまうバグを修正
# 1998.03.01 古いものをアーカイブするようにした
# 1998.03.02 <や>処理のミスを修正、ソートに時間も考慮するようにした
# 1998.03.11 一括表示機能を試験的にサポート
# 1998.03.15 「ー」を検索するとエラーになるバグ修正
# 1998.03.29 <TITLE>にサブジェクト名を表示するようにした
# 1998.03.29 空メッセージは記録しないようにした
# 1998.04.12 x-sjisを指定しないようにした
# 1998.05.24 文字化けするというバグを修正
# 1998.05.24 空メッセージの際のエラーメッセージが表示されないバグを修正
# 1998.05.24 管理者モードでタイトルがずれるバグを修正
# 1998.09.27 Ver1.25 ページの頭の方に[戻る]リンクを追加した
# 1998.11.08 Ver1.26 EUCを指定してもsjisで書き込まれるバグ修正
# 1998.11.15 Ver1.27 セキュリティ上の問題を修正
# 1999.02.07 Ver1.30 n日分一括表示機能/SIGPIPE対処/50件表示/2000年対応
#

#
# 呼び出し形式
#
#  (1) wwwlng.cgi                     ... 最初の表示
#  (2) wwwlng.cgi?dir+file            ... 過去ログの表示
#  (2) wwwlng.cgi?create              ... 新規サブジェクト作成
#  (3) wwwlng.cgi?print+file          ... 指定サブジェクト表示
#  (4) wwwlng.cgi?write+file          ... 指定サブジェクトへの追加書き込み
#  (5) wwwlng.cgi?manage+passwd       ... 最初の表示(管理機能付き)
#  (6) wwwlng.cgi?delete+passwd+file  ... 削除
#  (7) wwwlng.cgi?send+passwd+file    ... メール送信
#  (8) wwwlng.cgi?test                ... 自己テスト
#  (9) wwwlng.cgi?search+keyword      ... 検索
# (10) wwwlng.cgi?list+n              ... 指定サブジェクト表示
#

#
# 変更可能パラメータ
#
$return_url = '../index.htm';                       # [戻る]ボタンの戻り先
$password = '';                         # 管理者用パスワード
$mailto = '';                           # メールアドレス
$sendmail = '/usr/lib/sendmail';        # メール送信コマンド
$nkf = '/usr/local/bin/nkf';            # 漢字コード変換コマンド
$file_lock_flag = 1;                    # ファイルロックを行うか
$lock_file = "lock/wwwlng.loc";         # ロックファイル
$do_search = 1;                                 # 検索機能を有効にする

#
# 初期化処理
#
$ENV{'TZ'} = "JST-9";
@g_wdays = ( "日", "月", "火", "水", "木", "金", "土" );
$g_dirname = "wwwlng";                  # 対象ディレクトリ名
$g_filename = "";                       # 対象ファイル名
$SIG{'PIPE'} = $SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "sigexit";

#
# 検索用パラメータ
#
$kanji_code = "sjis";                   # "sjis" または "euc"
$target_dir = "wwwlng";                 # 検索対象ディレクトリ
$sufix{".htm"} = 1;                     # 拡張子 .htm を検索する
$sufix{".html"} = 1;                    # 拡張子 .html を検索する
$do_logging = 1;                        # 検索キーワードのロギング
$do_progress = 0;                       # 検索状況表示
$| = 1;                         # 出力をバッファリングしないようにする
require "jcode.pl";             # 漢字コード変換ライブラリ読み込み

#
# メインルーチン
#
{
    &readParam();

    # サブジェクト一覧表示
    if ($#ARGV == -1) {
        &printHeader();
        &printSubjectsList("wwwlng", "normal");
    }

    # サブジェクト一覧表示(過去の履歴)
    elsif ($ARGV[0] eq "dir") {
        &printHeader();
        &printSubjectsList("$g_dirname/$ARGV[1]", "hist");
    }

    # サブジェクト新規作成
    elsif ($ARGV[0] eq "create") {
        &fileLock();
        &createSubject() || goto done;
        &writeMessage() || goto done;
        &fileUnlock();
        &printSubject();
    }

    # サブジェクト表示
    elsif ($ARGV[0] eq "print") {
        $g_filename = $ARGV[1];
        if ($g_filename =~ /(^\/|\.\.)/) {
            &printHeader();
            print "他のフォルダのファイルを参照することはできません。\n";
            goto done;
        }
        &printSubject();
    }

    # 過去のn日分表示
    elsif ($ARGV[0] eq "list") {
        &printHeader();
        $days = $ARGV[1];
        &printList();
    }

    # サブジェクトに発言を追加
    elsif ($ARGV[0] eq "write") {
        $g_filename = $ARGV[1];
        if ($g_filename =~ /(^\/|\.\.)/) {
            &printHeader();
            print "他のフォルダのファイルを参照することはできません。\n";
            goto done;
        }
        &fileLock();
        &writeMessage() || goto done;
        &fileUnlock();
        &printSubject();
    }

    # サブジェクト一覧表示（管理者用）
    elsif ($ARGV[0] eq "manage") {
        &printHeader();
        &passwdCheck($ARGV[1]) || goto done;
        &printSubjectsList($g_dirname, "manage");
    }

    # サブジェクト削除（管理者用）
    elsif ($ARGV[0] eq "delete") {
        &printHeader();
        &passwdCheck($ARGV[1]) || goto done;
        &deleteSubject($ARGV[2]);
    }

    # サブジェクトメール送信（管理者用）
    elsif ($ARGV[0] eq "send") {
        &printHeader();
        &passwdCheck($ARGV[1]) || goto done;
        &sendMail($ARGV[2]);
    }

    # 自己診断機能
    elsif ($ARGV[0] eq "test") {
        &printHeader();
        &localTest();
    }

    # 検索
    elsif ($ARGV[0] eq "search") {
        &printHeader();
        &searchKeyword();
    }

  done:
    &printFooter();
}

#
# ヘッダを書き出す
#
sub printHeader {
    print "Content-type: text/html\n";
    print "\n";
    print "<HTML>\n";
    print "<HEAD>\n";
    print "<TITLE>Low Rider's ラウンジ</TITLE>\n";
    print "</HEAD>\n";
    print "<BODY TEXT=black BGCOLOR=white>\n";
}

#
# フッタを書き出す
#
sub printFooter {
    print "<HR>\n";
    print "</BODY>\n";
    print "</HTML>\n";
}

#
# ラウンジファイルにメッセージを書き込む
#
sub createSubject {
    #
    # 入力パラメータのチェック
    #
    if (($FORM{'SUBJECT'} eq "") || ($FORM{'MESSAGE'} eq "")) {
        print "Content-type: text/html\n";
        print "\n";
        print "新規サブジェクトを追加するには最低限、";
        print "<B>題名</B>と<B>内容</B>を入力してください。\n";
        print "<FORM>\n";
        print "<INPUT TYPE=button VALUE=' 戻る ' ";
        print "onClick=\"location.href = \'wwwlng.cgi\'\">\n";
        print "</FORM>\n";
        return(undef);
    }
    if ($FORM{'FROM'} eq "") {
        $FORM{'FROM'} = "匿名希望";
    }

    #
    # 使用されていないファイル名を探す
    #
    ($sec, $min, $hour, $mday, $mon, $year) = localtime();
    $year %= 100;
    for ($i = 0; $i < 10000; $i++) {
        $g_filename = sprintf("%02d%02d%04d.txt", $year % 100, $mon+1, $i);
        $tmp = sprintf("lng%02d%02d", $year % 100, $mon + 1);
        if (!(-f "$g_dirname/$g_filename")
                && !(-f "$g_dirname/$tmp/$g_filename")) {
            last;
        }
    }
    if ($i == 10000) {
        print "今月はもうこれ以上サブジェクトを作成できません。\n";
        return(undef);
    }

    #
    # サブジェクトを書き込む
    #
    open(OUT, ">> $g_dirname/$g_filename");
    print OUT "Subject: $FORM{'SUBJECT'}\n";
    if (($FORM{'REPLY'} eq "on") && ($FORM{'EMAIL'} =~ /.*@.*/)) {
        print OUT "Reply-To: $FORM{'EMAIL'}\n";
    }
    close(OUT);

    return(1);
}

#
# ラウンジファイルの一覧を表示する
#   &printSubjectsList(dir, listmode)
#      dir: ディレクトリ("wwwlng" or "wwwlng/lng9812")
#      listmode: "normal"=通常  "hist"=過去履歴  "manage"=管理者
#
sub printSubjectsList {
    # 引数を得る
    $dirname = $_[0];
    $listmode = $_[1];

    # 今月($mon1)と先月($mon2)を得る
    ($sec, $min, $hour, $mday, $mon, $year) = localtime();
    $mon1 = sprintf("%04d/%02d", $year + 1900, $mon + 1);
    if ($mon == 0) { $mon = 12; $year--; }
    $mon2 = sprintf("%04d/%02d", $year + 1900, $mon);

    # ディレクトリ内のファイルの一覧を得る
    opendir(DIR, "$dirname");
    @files = readdir(DIR);
    closedir(DIR);

    # それぞれのファイルについて
    foreach $file (@files) {
        if (-d "$dirname/$file") {
            if (($file ne ".") && ($file ne "..")) {
                push(@dirs, "<LI><A HREF='wwwlng.cgi?dir+$file'>$file</A><BR>\n");
            }
            next;
        }
        unless (open(IN, "$dirname/$file")) {
            next;
        }
        $title = <IN>;
        $title =~ s/^Subject: //;
        $count = 0;
        $solved = "<BR>";
        while (<IN>) {
            if ($_ eq "========================================\n") {
                $flag = 1;
            }
            if ($_ eq "\n") {
                $flag = 0;
            }
            if ($flag == 0) {
                next;
            }
            if ($_ =~ /^From: /) {
                $from = $_;
                $from =~ s/^From: //;
                $count++;
            }
            if ($_ =~ /^Solved:/) {
                $solved = "済";
            }
            if ($_ =~ /^Date:/) {
                $date = substr($_, 6, 10);
                $time = substr($_, 21, 8);
            }
        }
        close(IN);

        # 先先月以前のサブジェクトであれば過去のフォルダに移す
        if (($listmode ne "hist") && !($date =~ $mon1) && !($date =~ $mon2)) {
            $dir = "$g_dirname/lng" . substr($date, 2, 2) . substr($date, 5, 2);
            mkdir($dir, 0777);
            open(IN, "$g_dirname/$file");
            open(OUT, "> $dir/$file");
            while (<IN>) {
                print OUT;
            }
            close(IN);
            close(OUT);
            if ((-s "$g_dirname/$file") == (-s "$dir/$file")) {
                unlink("$g_dirname/$file");
            }
            next;
        }

        # １行分のエントリを作成する
        if ($listmode eq "manage") {
            $item =
                "<TR>"
              . "<TD>$date</TD>"
              . "<TD><INPUT TYPE=checkbox NAME='$file'></TD>"
              . "<TD><FONT COLOR=red>$file</FONT></TD>"
              . "<TD>$solved</TD>"
              . "<TD><A TARGET=out HREF='wwwlng.cgi?delete+$password+$file'>削</A></TD>"
              . "<TD><A TARGET=out HREF='wwwlng.cgi?send+$password+$file'>送</A></TD>"
              . "<TD><A TARGET=out HREF='wwwlng.cgi?print+$file'>$title</A> ($count件)</TD>"
              . "</TR>\n";
         } else {
            if ($listmode eq "hist") {
                $file = substr("$dirname/$file", 7);
            }
            $item = 
                "<TR>"
              . "<TD>$date<!-- $time --></TD>"
              . "<TD><INPUT TYPE=checkbox NAME='$file'></TD>"
              . "<TD><FONT COLOR=red>$from</FONT></TD>"
              . "<TD>$solved</TD>"
              . "<TD><A HREF='wwwlng.cgi?print+$file'>$title</A> ($count件)</TD>"
              . "</TR>\n";
        }
        push(@items, $item);
    }

    # ソートする
    @items = sort { $b cmp $a; } @items;
    @dirs = sort { $b cmp $a; } @dirs;

    # 50件以上古いものを過去の履歴にほうり込む
#    if ($listmode ne "hist") {
#        @logs = splice(@items, 50);
#        foreach $_ (@logs) {
#            $_ =~ /<TD>([0-9][0-9]\/[0-9][0-9]\/[0-9][0-9])/;
#            $date = $1;
#            $_ =~ /print\+([0-9]*.txt)/i;
#            $file = $1;
#            $dir = "$g_dirname/lng" . substr($date, 0, 2) . substr($date, 3, 2);
#            mkdir($dir, 0777);
#            open(IN, "$g_dirname/$file");
#            open(OUT, "> $dir/$file");
#            while (<IN>) {
#                print OUT;
#            }
#            close(IN);
#            close(OUT);
#            if ((-s "$g_dirname/$file") == (-s "$dir/$file")) {
#                unlink("$g_dirname/$file");
#            }
#        }
#    }
 
    # 書き出す
    print "<SCRIPT LANGUAGE='JavaScript'>\n";
    print "<!--\n";
    print "function func(form) {\n";
    print "  for (i = 1; i < form.elements.length; i++) {\n";
    print "    if (form.elements[i].checked) {\n";
    print "      form.elements[i].checked = false;\n";
    print "      open('wwwlng.cgi?print+' + form.elements[i].name, i);\n";
    print "    }\n";
    print "  }\n";
    print "}\n";
    print "function func2() {\n";
    print "  window.open('wwwlng.cgi?list+' + document.F1.T2.value, '_blank');\n";
    print "}\n";
    print "// -->\n";
    print "</SCRIPT>\n";
    print "<H3> Low Rider's ラウンジ</H3>\n";
    if ($listmode ne "hist") {
        print "Low Rider とDYNAのラウンジです。誰でも自由に書き込んでください。\n";
        print "テクニカル、ノンテクニカル、雑談、何でもＯＫです。\n";
        print "気になったテーマを話題にして話し合うもよし。質問するもよし。\n";
        print "そふていら〜、ろうきんなども歓迎します。\n";
        print "<P>\n";
        if ($return_url ne "") {
            print "<A HREF='$return_url'>[戻る]</A>\n";
        }
        print "<A HREF='#New'>[新規質問]</A>\n";
        print "<A HREF='#Old'>[過去の履歴]</A>\n";
    }
    print "<HR>\n";
    print "<FONT COLOR=red><B>質問の一覧</B></FONT>\n";
    print "<FORM NAME=F1 METHOD=POST ACTION='wwwlng.cgi?search'>\n";
    print "◎ 単語 <INPUT TYPE=text NAME=WORD> を ";
    print "<INPUT TYPE=submit VALUE='検索'>\n";
    print "<BR>◎ ※欄にチェックした項目を <INPUT TYPE=button VALUE='一括";
    print "表\示' onClick='func(this.form)'>\n";
    print "<BR>◎ 過去 <INPUT TYPE=text NAME='T2' SIZE=3 VALUE='1'> ";
    print "日分の項目を ";
    print "<INPUT TYPE=button VALUE='一括表\示' onClick='func2()'>\n";
    print "<P>\n";
    print "<TABLE BORDER=1>\n";
    print "<TR>\n";
    if ($listmode eq "manage") {
        print "<TH><NOBR>最終<BR>更新日</NOBR></TH><TH>※</TH>";
        print "<TH><FONT COLOR=red><NOBR>ファイル名</NOBR></FONT></TH>";
        print "<TH>解<BR>決</TH>";
        print "<TH>削<BR>除</TH>";
        print "<TH>送<BR>信</TH>";
        print "<TH><NOBR>題名</NOBR></TH>";
    } else {
        print "<TH><NOBR>最終<BR>更新日</NOBR></TH><TH>※</TH>";
        print "<TH><FONT COLOR=red><NOBR>最終<BR>発言者</NOBR></FONT></TH>";
        print "<TH>解<BR>決</TH>";
        print "<TH><NOBR>題名</NOBR></TH>";
    }
    print "</TR>\n";
    print @items;
    print "</TABLE>\n";
    print "</FORM>\n";
    print "<P>\n";
    if ($listmode eq "hist") {
        return;
    }
    print "<HR>\n";
    print "<A NAME='New'>";
    print "<FONT COLOR=red><B>新しい質問を書き込む</B></FONT>";
    print "</A>\n";
    print "<UL>\n";
    print "<LI>誰でも自由に質問／投稿できます。\n";
    print "<LI>質問の場合は質問形式で、それ以外は自由形式\n";
    print "<LI>名前、メールアドレス、ＵＲＬは匿名(空欄)でもかまいません。\n";
    print "<LI>終了したらお礼を書き込んで[解決]をチェックしてください。\n";
    print "<LI>HTMLのタグは使えません。そのまま表\示されます。\n";
    print "<LI>再表\示を行うと発言が重複する事があります。注意してください。";
    print "</UL>\n";
    print "<FORM METHOD=POST ACTION='wwwlng.cgi?create'>\n";
    print "<TABLE>\n";
    print "<TR><TD><NOBR>名　前:</NOBR></TD><TD>";
    print "<INPUT TYPE=text SIZE=50 NAME='FROM'></TD></TR>\n";
    print "<TR><TD><NOBR>メール:</NOBR></TD><TD>";
    print "<INPUT TYPE=text SIZE=50 NAME='EMAIL'></TD></TR>\n";
    print "<TR><TD><NOBR>ＵＲＬ:</NOBR></TD><TD>";
    print "<INPUT TYPE=text SIZE=50 NAME='HPAGE'></TD></TR>\n";
    print "<TR><TD><NOBR>題　名:</NOBR></TD><TD>";
    print "<INPUT TYPE=text SIZE=50 NAME='SUBJECT' VALUE='〜するには？";
    print "...のような質問形式で'></TD></TR>\n";
    print "<TR><TD COLSPAN=2><NOBR>内　容:</NOBR><BR>\n";
    print "<TEXTAREA ROWS=5 COLS=60 NAME='MESSAGE'></TEXTAREA></TD></TR>\n";
    print "</TABLE>\n";
    print "<INPUT TYPE=checkbox NAME='REPLY' VALUE='on'>";
    print "回答をメールで受け取る(メールアドレス入力必須)\n";
    print "<P><INPUT TYPE=submit VALUE=' 作成 '>\n";
    print "<INPUT TYPE=reset VALUE=' 取消 '>\n";
    print "</FORM>\n";
    print "<HR>\n";
    print "<A NAME='Old'><FONT COLOR=red><B>過去の履歴</B></FONT></A>";
    print "<UL>\n";
    print @dirs;
    print "</UL>\n";
}

#
# 発言を追加する
#
sub writeMessage {

    #
    # 空発言は無視する
    #
    if ($FORM{'MESSAGE'} eq "") {
        return(1);
    }

    #
    # 名前無記入は「匿名希望」とする
    #
    if ($FORM{'FROM'} eq "") {
        $FORM{'FROM'} = "匿名希望";
    }

    #
    # ラウンジファイルに発言を追加する
    #
    open(OUT, ">> $g_dirname/$g_filename");
    print OUT "========================================\n";
    print OUT "From: $FORM{'FROM'}\n";
    if ($FORM{'EMAIL'} ne "") {
        print OUT "E-Mail: $FORM{'EMAIL'}\n";
    }
    if ($FORM{'HPAGE'} ne "") {
        print OUT "HomePage: $FORM{'HPAGE'}\n";
    }
    ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime();
    $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",
        $year + 1900, $mon + 1, $mday, $g_wdays[$wday], $hour, $min, $sec);
    print OUT "Date: $date\n";
    if ($FORM{'SOLVED'} eq "on") {
        print OUT "Solved: $FORM{'SOLVED'}\n";
    }
    print OUT "\n";
    print OUT "$FORM{'MESSAGE'}\n";
    close(OUT);

    #
    # 質問者にメールで知らせる
    #
    $mailto = "";
    open(IN, "$g_dirname/$g_filename");
    while (<IN>) {
        if (/^Reply-To:/) {
            chop($_);
            $mailto = $_;
            $mailto =~ s/^Reply-To: //;
        }
        if (/^========/) {
            last;
        }
    }
    if ($mailto ne "") {
        seek(IN, 0, 0);
        open(OUT, "| $nkf -j | $sendmail $mailto");
        print OUT "To: $mailto\n";
        print OUT "Subject: Tohoho Lounge\n";
        print OUT "\n";
        while (<IN>) {
            $_ =~ s/&lt;/</g;
            $_ =~ s/&gt;/>/g;
            $_ =~ s/&amp;/&/g;
            print OUT;
        }
        close(OUT);
    }
    close(IN);

    return(true);
}

#
# 過去n日分を表示する
#
sub printList {
    $nowtime = time();
    $limittime = $nowtime - ($days * 3600 * 24);
    opendir(DIR, "wwwlng");
    @filelist = readdir(DIR);
    closedir(DIR);
    foreach $file (@filelist) {
        if ($file !~ /.txt$/) {
            next;
        }
        $mtime = (stat("wwwlng/$file"))[9];
        if ($mtime >= $limittime) {
            push(@filelist2, "$mtime $file");
        }
    }
    @filelist2 = sort { $b cmp $a; } @filelist2;
    foreach $g_filename (@filelist2) {
        $g_filename =~ s/^[0-9]+ //;
        &printFile($g_filename);
    }
}

sub printFile {
    $g_filename = $_[0];
    $subject = "";
    open(IN, "wwwlng/$g_filename") || print "Can't open $g_filename<BR>\n";
    $subject = <IN>;
    $subject =~ s/^Subject: //;
    $subject =~ s/[\r\n]$//;
    print "<H3><FONT COLOR='#009900'>■ $subject</FONT></H3>\n";
    while (<IN>) {
        chop($_);
        if ($_ =~ /^Reply-To: /) {
            next;
        } elsif ($head && $_ =~ /^From: /) {
            $_ =~ s/^From: //;
            print "<FONT COLOR=red><B>$_</B></FONT>\n";
        } elsif ($head && $_ =~ /^E-Mail: /) {
            $_ =~ s/^E-Mail: //;
            print "<A HREF='mailto:$_'>Mail</A>\n";
        } elsif ($head && $_ =~ /^HomePage: /) {
            $_ =~ s/^HomePage: //;
            print "<A HREF='$_'>HomePage</A>\n";
        } elsif ($head && $_ =~ /^Date: /) {
            $_ =~ s/^Date: //;
            print "$_<BR>\n";
        } elsif ($head && $_ =~ /^Solved: /) {
            print "[[<FONT COLOR='#008080'>解決</FONT>]]<BR>\n";
        } elsif ($_ eq "========================================") {
            print "<HR>\n";
            $head = 1;
        } elsif ($_ eq "") {
            $head = 0;
        } else {
            $_ =~ s/(http:\/\/[a-zA-Z0-9\.\/\-+#_?~&%=^\@:]+)/<A HREF="$1">$1<\/A>/g;
            print "$_<BR>";
        }
    }
    print "<HR>\n";
    print "<A HREF='wwwlng.cgi?print+$g_filename'>[↑の記事に追加発言]</A>\n";
    print "<HR>\n";
    close(IN);
}

#
# サブジェクトを表示する
#
sub printSubject {

    #
    # 既存の発言を表示する
    #
    open(IN, "$g_dirname/$g_filename");
    $_ = <IN>;
    $_ =~ s/^Subject: //;
    $subject = 1;
    print "Content-type: text/html\n";
    print "\n";
    print "<HTML>\n";
    print "<HEAD>\n";
    print "<TITLE>$_</TITLE>\n";
    print "</HEAD>\n";
    print "<BODY TEXT=black BGCOLOR=white>\n";
    print "<H3>$_</H3>\n";
    while (<IN>) {
        chop($_);
        if ($subject && $_ =~ /^Reply-To: /) {
            next;
        } elsif ($head && $_ =~ /^From: /) {
            $_ =~ s/^From: //;
            print "<FONT COLOR=red><B>$_</B></FONT>\n";
        } elsif ($head && $_ =~ /^E-Mail: /) {
            $_ =~ s/^E-Mail: //;
            print "<A HREF='mailto:$_'>Mail</A>\n";
        } elsif ($head && $_ =~ /^HomePage: /) {
            $_ =~ s/^HomePage: //;
            print "<A HREF='$_'>HomePage</A>\n";
        } elsif ($head && $_ =~ /^Date: /) {
            $_ =~ s/^Date: //;
            print "$_<BR>\n";
        } elsif ($head && $_ =~ /^Solved: /) {
            print "[[<FONT COLOR='#008080'>解決</FONT>]]<BR>\n";
        } elsif ($_ eq "========================================") {
            print "<HR>\n";
            $head = 1;
            $subject = 0;
        } elsif ($_ eq "") {
            $head = 0;
        } else {
            $_ =~ s/(http:\/\/[a-zA-Z0-9\.\/\-+#_?~&%=^\@:]+)/<A HREF="$1">$1<\/A>/g;
            print "$_<BR>";
        }
    }
    close(IN);

    #
    # 発言追加フォームを表示する
    #
    if ($g_filename =~ /^lng/) {
        return;
    }
    print "<HR>\n";
    print "<FONT COLOR=red><B>追加発言</B></FONT>\n";
    print "<FORM METHOD=POST ACTION='wwwlng.cgi?write+$g_filename'>\n";
    print "<TABLE>\n";
    print "<TR><TD><NOBR>名　前:</NOBR></TD><TD>";
    print "<INPUT TYPE=text SIZE=50 NAME='FROM' VALUE='$FORM{'FROM'}'>\n";
    print "</TD></TR>\n";
    print "<TR><TD><NOBR>メール:</NOBR></TD><TD>";
    print "<INPUT TYPE=text SIZE=50 NAME='EMAIL' VALUE='$FORM{'EMAIL'}'>\n";
    print "</TD></TR>\n";
    print "<TR><TD><NOBR>ＵＲＬ:</NOBR></TD><TD>";
    print "<INPUT TYPE=text SIZE=50 NAME='HPAGE' VALUE='$FORM{'HPAGE'}'>\n";
    print "</TD></TR>\n";
    print "<TR><TD><NOBR>発　言:</NOBR></TD><TD>";
    print "　<INPUT TYPE=checkbox NAME='SOLVED'>";
    print "←解決(だろう)発言ならここをチェックしてください。</TD></TR>\n";
    print "<TR><TD COLSPAN=2>";
    print "<TEXTAREA ROWS=5 COLS=60 NAME='MESSAGE'></TEXTAREA></TD></TR>\n";
    print "</TABLE>\n";
    print "<INPUT TYPE=submit VALUE=' 書込 '>\n";
    print "<INPUT TYPE=reset VALUE=' 取消 '>\n";
    print "<INPUT TYPE=button VALUE=' 戻る ' ";
    print "onClick=\"location.href = 'wwwlng.cgi'\">\n";
    print "</FORM>\n";
    print "<SMALL><TT>\n";
    print "<UL>\n";
    print "<LI>誰でも自由に発言を追加してください。\n";
    print "<LI>名前、メール、ＵＲＬは省略してもかまいません。\n";
    print "<LI>HTMLのタグは使えません。そのまま表\示されます。\n";
    print "<LI>再表\示を行うと発言が重複する事があります。\n";
    print "</UL>\n";
    print "</TT></SMALL>\n";
}

#
# サブジェクトを管理者にメールで送信する
#
sub sendMail {
    open(OUT, "| $nkf -j | $sendmail $mailto");
    print OUT "To: $mailto\n";
    print OUT "Subject: $_[0]\n";
    print OUT "\n";
    open(IN, "$g_dirname/$_[0]");
    while (<IN>) {
        print OUT $_;
    }
    close(IN);
    close(OUT);
    print "メール送信を完了しました。";
}

#
# サブジェクトを削除する
#
sub deleteSubject {
    unlink("$g_dirname/$_[0]");
    print "削除完了しました。";
}


#
# 自己テスト
#
sub localTest {
    print "<BR>OK. CGIは正常に動作しています。\n";
    if (-d $lock_file) {
        print "<BR>NG. ロックファイル($lock_file)が残っています。\n";
        print "rmdir で削除してください。\n";
    }
    if ($manage ne "") {
        print "<BR>OK. 管理者モードが有効です。\n";
    }
    if ($mailto ne "") {
        print "<BR>OK. メール送信機能が有効です。\n";
        if (! -f $nkf) {
            print "<BR>NG. $nkfが存在しません。\n";
        }
        if (! -f $sendmail) {
            print "<BR>NG. $sendmailが存在しません。\n";
        }
    }
}

#
# フォームに入力されたデータを読みこむ
#
sub readParam {
    read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
    @a = split(/&/, $query_string);
    foreach $x (@a) {
        ($name, $value) = split(/=/, $x);
        $value =~ tr/+/ /;
        $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
        $value =~ s/&/&amp;/g;
        $value =~ s/</&lt;/g;
        $value =~ s/>/&gt;/g;
        $value =~ s/\n$//;
        &jcode'convert(*value, $kanji_code);
        $FORM{$name} = $value;
    }
}

#
# 管理者用パスワードのチェック
#
sub passwdCheck {
    if ($_[0] ne $password) {
        print "管理者用パスワードが不正です。\n";
        return(0);
    } else {
        return(1);
    }
}

#
# ファイルロック開始
#
sub fileLock {
    if ($file_lock_flag) {
        for ($i = 1; $i <= 6; $i++) {
            if (mkdir($lock_file, 755)) {
                last;
            } elsif ($i < 6) {
                sleep(2);
            } else {
                return(undef);
            }
        }
    }
    return(true);
}

#
# ファイルロック解除
#
sub fileUnlock {
    if ($file_lock_flag) {
        for ($i = 1; $i <= 4; $i++) {
            if (rmdir($lock_file) == 0) {
                last;
            } elsif ($i < 4) {
                sleep(1);
            } else {
                return(undef);
            }
        }
    }
    return(true);
}

#
# プログラム中断時の処理
#
sub sigexit {
    rmdir($lock_file);
    exit(0);
}

#=======================================================================


#
# 検索
#
sub searchKeyword {

    #
    # 複数のワードを分割する
    #
    @words = split(/ +/, $FORM{'WORD'});

    #
    # メタ文字を無効化する
    #
    for ($i = 0; $i <= $#words; $i++) {
        $words[$i] =~ s/([\+\*\.\?\^\$\[\-\]\|\(\)\\])/\\$1/g;
    }

    #
    # HTML文書を書き出す
    #
    print "<H3>Low Rider's ラウンジ(検索結果)</H3>\n";
    print "<HR>\n";
    if (defined($FORM{'WORD'})) {
        print "<DL>\n";
        &search1($target_dir);
        print "</DL>\n";
        print "<HR>\n";
        print "<B>検索が完了しました。</B>\n";
    }
    print "</BODY>\n";
    print "</HTML>\n";
}

#
# すべてのファイルをなめ回す
#
sub search1 {
    local(@filelist, $dir);
    $dir = $_[0];
    opendir(DIR, $dir);
    @filelist = readdir(DIR);
    closedir(DIR);
    foreach $file (@filelist) {
        if ($file eq ".") { next; }
        if ($file eq "..") { next; }
        $g_filename = "$dir/$file";
        if (-d $g_filename) {
            &search1($g_filename);
        } else {
            &search2($g_filename);
        }
    }
}

#
# ファイルの中身を検索する
#
sub search2 {
    local($target);
    $target = $_[0];
    undef %wordflag;
    undef %wordtext;
    $title = "";
    $match_count = 0;
    open(IN, $target);
    loop: while (<IN>) {
        chop($_);
        if (($title eq "") && ($_ =~ /^Subject:/)) {
            $title = substr($_, 9);
        }
        foreach $word (@words) {
            if ($wordflag{$word} == 1) { next; }
            if (!($_ =~ /$word/i)) { next; }
            $_ =~ s/<[^>]*>//g;
            $wordtext{$word} = $_;
            if (($FORM{'ANDOR'} eq "or") ||
                    (++$match_count == $#words + 1)) {
                if ($title eq "") {
                    $title = $target;
                }
                $target =~ s/wwwlng\///;
                print "<P>\n";
                print "<DT><A HREF='wwwlng.cgi?print+$target' TARGET=out>";
                print "$title</A>\n";
                print "<DD>";
                foreach $wd (@words) {
                    print "$wordtext{$wd} ";
                }
                print "\n";
                last loop;
            }
            $wordflag{$word} = 1;
        }
    }
    undef @lines;
    close(IN);
}