/*********************************************************************
  簡単な掲示板プログラム webbbs.cc
  奥村晴彦 <okumura@edu.mie-u.ac.jp>

  コンパイルにはこのディレクトリにある util.cc と util.h が必要です。
  私は gcc-3.x で
       g++ -Wall webbbs.cc util.cc -o webbbs.cgi
  としていますが，gcc-2.95.2 + libstdc++-2.90.8 でも
       g++ -Wall -fhonor-std webbbs.cc util.cc -o webbbs.cgi
  でできると思います。いずれにしても，
       chmod 4511 webbbs.cgi
  しておきます。

  index.html にはたとえば次のように書いておきます。

  例: <form action="webbbs.cgi" method="post">
      お名前: <input type="text" name="name" size="40"><br>
      タイトル: <input type="text" name="subject" size="40"><br>
      メッセージ:<br>
      <textarea name="message" rows="8" cols="60"></textarea><br>
      <input type="submit" value="送る">
      <input type="reset" value="消去">
      </form>
      <h2>書き込み一覧</h2>
      <!-- BEGIN -->

  書き換えを要するかもしれないところは最終番号を入れるファイル名
  "count" だけだと思います。

  書き込み前に確認画面を出すには，webbbsx.cc をコンパイルしたものを
  webbbs.cgi とし，webbbs.cc をコンパイルしたものを webbbs2.cgi と
  します。

*********************************************************************/

#include <iostream>
#include <fstream>
#include <string>
#include <map>
#include <cstdio>               /* rename() */
#include <unistd.h>             /* unlink(), getpid() */

#include "util.h"

using namespace std;

/** テンポラリファイル名を生成 */

string tmpname()
{
    return to_str(getpid()) + ".tmp";
}

/** 行挿入，カウントを返す */

int insline(const string& subject, const string& name, const string& now)
{
    LockFile lck("count");
    int count = lck.getcount();
    if (count < 0) throw "カウントファイルが開きません";
    ++count;
    lck.setcount(count);

    ifstream in("index.html");
    if (!in) throw "index.html が開きません";
    string tmp = tmpname();
    ofstream out(tmp.c_str());
    if (!out) throw "テンポラリファイルが作れません";
    string s;
    while (getline(in, s)) {
        out << s << '\n';
        if (s == "<!-- BEGIN -->") break;
    }
    out << count << ": " << now
        << " <a href=\"" << count << ".html\">"
        << subject << "</a> "
        << name << "<br>\n";
    if (in)
        while (getline(in, s)) out << s << '\n';
    in.close();
    out.close();
    if (rename(tmp.c_str(), "index.html") < 0) { // rename が失敗したなら
        unlink("index.html.bak"); // index.html.bak があれば消してから
        if (rename("index.html", "index.html.bak") < 0) {
            error_html(tmp + "書き込みが失敗しました(1)");
        } else if (rename(tmp.c_str(), "index.html") < 0) {
            rename("index.html.bak", "index.html");
            error_html(tmp + "書き込みが失敗しました(2)");
        }
    }
    return count;
    // ここでロックが解除される
}

char* ipaddr()
{
    static char ip[18];
    char* p = getenv("REMOTE_ADDR");
    if (p == 0) return "";
    strncpy(ip, p, 15);
#ifndef FULLIP
    if ((p = strrchr(ip, '.')) != 0) {
        *(p + 1) = '*';
        *(p + 2) = 0;
    }
#endif
    return ip;
}

#ifdef REPLY
string deRe(string& s)          // 頭の Re: を外す
{
    string t;
    if (s.length() >= 3 && std::toupper(s[0]) == 'R' && std::toupper(s[1]) == 'E' && s[2] == ':') {
        size_t i = 3;
        while (i < s.length() && s[i] == ' ')
            i++;
        t = s.substr(i);
    } else {
        t = s;
    }
    if (t.empty()) t = "（無題）";
    return t;
}
#endif

void safarihack(string& s)
{
    for (string::iterator p = s.begin(); p != s.end(); ++p) {
        if (*p == '?') *p = '\\';
    }
}

/** メイン */

int main()
{
    map<string, string> post;
    parse_post(post);           // POST されたキー・値のペアを取得

    if (check_euc(post["message"]) < 10) error_html("本文の全角文字が少なすぎるか，不正な文字が入っています（スパム？）");
    if (post["message"].empty()) error_html("本文がありません");

    (void) check_euc(post["subject"]);
    if (post["subject"].empty()) error_html("題名がありません");

    (void) check_euc(post["name"]);
    if (post["name"].empty()) error_html("名前がありません");

    string message = to_html_a(post["message"]);
    string subject = to_html(post["subject"]);
    string name = to_html_a(post["name"]);

    if (!(post["safarihack"].empty())) {
        safarihack(subject);
        safarihack(message);
    }

    string now = timestr();
    int count = 0;
    try {
        count = insline(subject, name, now);
    } catch (const char* e) {
        error_html(e);
    }

    string countstr = to_str(count);
    string filename = countstr + ".html";

    ofstream outfile(filename.c_str());
    if (!outfile) error_html("メッセージファイルがオープンできません");
    outfile <<
        "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=EUC-JP\">\n"
#ifdef TEXQA
        "<title>[qa:" << countstr << "] " << subject << "</title>\n"
#else
        "<title>" << countstr << "</title>\n"
#endif
#ifdef STYLESHEET
        "<link rel=\"stylesheet\" type=\"text/css\" href=\"style.css\">\n"
#endif
        "<body>\n";
    outfile << "<h2>" << subject << "</h2>\n";
    outfile << "<pre>\n";
    outfile << "名前: " << name << '\n';
    outfile << "日時: " << now << '\n';
    outfile << "IPアドレス: " << ipaddr() << '\n';
    outfile << "<hr>\n";
    outfile << message << '\n';
    outfile << "</pre>\n";
#ifdef REPLY
    outfile << "<hr>\n";
    outfile << "<p>この書き込みへの返事：\n";
    outfile << "<form action=\"webbbs.cgi\" method=\"post\">\n";
    outfile << "お名前 <input type=\"text\" name=\"name\" size=\"20\"><br>\n";
    outfile << "題名　 <input type=\"text\" name=\"subject\" size=\"40\" value=\"Re: ";
    outfile << deRe(subject);
    outfile << "\"><br>\n";
    outfile << "メッセージ（タグは &lt;a href=\"...\"&gt;...&lt;/a&gt; だけ使えます。適宜改行を入れてください）<br>\n";
    outfile << "<textarea name=\"message\" rows=\"6\" cols=\"80\" wrap=\"off\">\n";
    outfile << "<a href=\"" << filename << "\">&gt;&gt;"
	    << countstr << "</a>\n";
    outfile << "</textarea>\n";
    outfile << "<br>\n";
    outfile << "<input type=\"submit\" value=\"送る\">\n";
    outfile << "<input type=\"reset\" value=\"リセット\">\n";
    outfile << "</form>\n";
#endif
    outfile.close();

    cout <<
        "Content-type: text/html\n\n"
        "<html><head>\n"
        "<meta name=\"robots\" content=\"noindex,nofollow\">\n"
        "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=EUC-JP\">\n"
        "<title>Thank you</title>\n"
#ifdef STYLESHEET
        "<link rel=\"stylesheet\" type=\"text/css\" href=\"style.css\">\n"
#endif
        "</head>\n"
        "<body>\n"
        "<h1>書き込みました</h1>\n"
        "<p>次のメッセージを書き込みました。<br>\n"
        "<a href=\"./\">［書き込み一覧に戻る］</a>\n"
        "<h2>" << subject << "</h2>\n"
        "<pre>\n"
        "名前: " << name << "\n"
        "日時: " << now << "\n"
        "IPアドレス: " << ipaddr() << "\n"
        "<hr>\n" << message << "\n"
        "</pre>\n<hr>\n<p><a href=\"./\">［書き込み一覧に戻る］</a>\n"
        "</body></html>\n";

#ifdef OKUMURA
    FILE *pipe = popen("/usr/sbin/sendmail -oi -t -f webbbs@oku.edu.mie-u.ac.jp", "w");
    if (pipe) {
        char buf[128];
        getcwd(buf, sizeof buf);
        string s;
        s  = "Content-Type: text/plain; charset=iso-2022-jp\n";
        s += "From: webbbs <webbbs@oku.edu.mie-u.ac.jp>\n";
        s += "Bcc: okumura@oku.edu.mie-u.ac.jp\n";
        s += "Subject: [" + string(buf) + ":" + countstr + "]\n "
            + enmime(euc2jis(post["subject"])) + "\n\n";
        s += "Subject: " + euc2jis(post["subject"]) + "\n";
        s += "Name: " + euc2jis(post["name"]) + "\n";
        s += "Date: " + now + "\n\n";
        s += euc2jis(post["message"]) + "\n";
        fputs(s.c_str(), pipe);
        pclose(pipe);
    }
#endif

#ifdef TEXQA
    FILE *pipe = popen("/usr/sbin/sendmail -oi -t -f tex-qa-admin@oku.edu.mie-u.ac.jp", "w");
    if (pipe) {
        string s;
        s  = "Content-Type: text/plain; charset=iso-2022-jp\n";
        s += "From: TeX Q & A <tex-qa-admin@oku.edu.mie-u.ac.jp>\n";
        s += "Bcc: tex-qa@oku.edu.mie-u.ac.jp\n";
        s += "Subject: [tex-qa:" + countstr + "] " + enmime(euc2jis(post["subject"])) + "\n\n";
        s += "Subject: " + euc2jis(subject) + "\n";
        s += "Name: " + euc2jis(name) + "\n";
        s += "Date: " + now + "\n\n";
        s += euc2jis(message) + "\n";
        fputs(s.c_str(), pipe);
        pclose(pipe);
    }
#endif
}