#!/usr/local/bin/perl
require 'jcode.pl';

#========================================================
#                      keiji.cgi
#          日本語検索機能付き掲示板プログラム
#          email: kakihana@seikeigeka.or.jp
#          URL: http://www.kakihana.com/
#
#          1997/08/19 Ver. 1.0 (C)Takeshi KAKIHANA
#          1997/12/07 Ver. 1.1 Minor change
#========================================================

#========================================================
#-----------------　ファイルを設置する　-----------------
#--------------------------------------------------------
#
#  Webページのホームディレクトリ（~/public_htmlなど）に
#  次の３つのファイルを設置し、パーミッションを()内の
#  数値に設定する。
#
#  keiji.cgi(755)  ・・・このプログラムファイル
#  jcode.pl (755)  ・・・漢字コード変換用プログラムファイル
#  keiji.new(666)  ・・・最初は空のファイル、メッセージが追加される
#  keiji.old(666)  ・・・最初は空のファイル、keiji.newから古いメッセージを移動する
#
#========================================================

#========================================================
#----------------　パラメータを設定する　----------------
#--------------------------------------------------------
#このプログラムの最初の行にはperlの置き場所を書く（telnetして'$which perl'で調べる）
$tail      ="/bin/tail";               # tailの置き場所（telnetして'$which tail'で調べる）

$title     ="カメレオン掲示板";        # タイトル文字
$wallpaper ="no";                      # 背景に壁紙使用(yes/no)
$bg_paper  ="image/back.gif";          # 壁紙のファイル名
$c_bg      ="#ffffee";                 # 色コード：背景
$c_text    ="#000000";                 # 色コード：文字
$c_title   ="#e20072";                 # 色コード：タイトル文字
$c_name    ="#007700";                 # 色コード：名前
$c_email   ="#000088";                 # 色コード：emailアドレス
$c_time    ="#884400";                 # 色コード：日付け・時刻
$c_ip      ="#000000";                 # 色コード：IPアドレス
$c_namebg  ="#b9ffdc";                 # 色コード：メッセージ名前部分の背景
$c_msgbg   ="#f2fff8";                 # 色コード：メッセージ本体の背景
$c_msg     ="#000000";                 # 色コード：メッセージ本体の文字
$c_key     ="#ff0000";                 # 色コード：検索キーワード
$c_warnbg  ="#ffffdd";                 # 色コード：入力ミス背景
$c_warntxt ="#ff0000";                 # 色コード：入力ミス文字

# 背景色のデータ=(赤,緑,水,黄,紫,橙,桃)
@c_namebg  =("#ffc3c3","#b9ffdc","#a8eeff","#fffb9f","#c6c6ff","#ffd9ab","#ffc6f6");
@c_msgbg   =("#fff0f0","#f2fff8","#e1f9ff","#fffef5","#ebebff","#fff9f2","#fff8fd");

$max       =30;                        # 標準表示メッセージ数
$new_date  ="1997/08/27";              # 新メッセージファイル開始日
$tablewidth=600;                       # メッセージ表示欄の横幅（ドット数）

$keijicgi  ="keiji.cgi";               # このプログラムのファイル名
$keijinew  ="keiji.new";               # 新メッセージファイル名
$keijiold  ="keiji.old";               # 旧メッセージファイル名
$url       ="http://www.kakihana.com/$keijicgi";   # このプログラムのURL
#--------------------------------------------------------
#----------------------　ここまで　----------------------
#========================================================

#========== 現在時間(JST)を取得 ==========
@youbi_j=("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon++;
$jst=sprintf("%02d/%02d/%02d(%s) %02d:%02d:%02d JST",$year,$mon,$mday,$youbi_j[$wday],$hour,$min,$sec);

#========== パラメータの解析 ==========
if ($ENV{'REQUEST_METHOD'} eq "POST"){
  read(STDIN, $str, $ENV{'CONTENT_LENGTH'});
} else {
  $str = $ENV{'QUERY_STRING'};
}

@pairs=split('&', $str);
$i=0;
foreach $pair (@pairs){
  ($item, $value)=split('=', $pair);
  # 半角スペースの復元とデコード
  $value=~ tr/+/ /;
  $value=~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
  # 改行コードの統一
  $value=~ s/\r\n/\n/g;
  $value=~ s/\r/\n/g;
  # 末尾の改行コードの除去
  $value=~ s/\n$//;
  # 半角カナの変換と漢字コードの統一
  &jcode'h2z_sjis(*value);
  &jcode'convert(*value, 'sjis');
  # 特殊文字の変換
  $value=~ s/&/&/g;
  $value=~ s/</&lt;/g;
  $value=~ s/>/&gt;/g;

  $item[$i]=$value;
  $i++;
}

$command=$item[0];  # コマンド
$name   =$item[1];  # 名前
$email  =$item[2];  # emailアドレス
$message=$item[3];  # メッセージ

# messageのみ、途中の改行コードを<br>に変換
$message=~ s/\n/<br>/g;

#==================================
#========== 掲示板の表示 ==========
#==================================
if(($command eq "") || ($command eq "all") || ($command eq "old") || ($command eq "search")){

#-----  HTMLファイル出力開始  -----
  print "Content-type: text/html\n\n";

#-----  検索時のキーワード入力もれ  -----
  if(($command eq "search") && ($message eq "")){

    print <<EOF;
<html>
<title>入力ミスです！</title>
<body background="image/bk9.gif" bgcolor="#ddffdd">
<basefont size=4>
<h1><font color="$c_warntxt">入力ミスです！</font></h1>
<hr>
キーワードが入力されていません。<p>
[←戻る]ボタンで戻ってください。<p>
<hr>
</body></html>
EOF

    exit;
  }

#-----  掲示板表示開始  -----
  print <<EOF;
<html>
<title>$title</title>
EOF

  if($wallpaper eq "yes"){
    print "<body background=\"$bg_paper\" bgcolor=\"$c_bg\">";
  }else{
    print "<body bgcolor=\"$c_bg\">";
  }

  print <<EOF;
<basefont size=3>

<center>
<font size=7><font color=\"$c_title\">$title</font></font>
<p>
<hr>

<font color=\"$c_text\">
<a href="$keijicgi">最新の$maxメッセージを表\示</a>
　<a href="$keijicgi?command=all">$new_date以降のすべてを表\示</a>
　<a href="$keijicgi?command=old">$new_dateより前のすべてを表\示</a><p>

<form action="$keijicgi" method="post">
<input type="hidden" name="command" value="search">
<b>過去のメッセージに対する検索ができます。</b>
<font size="2">キーワードを入力してボタンを押してください。</font><p>
<input type="radio" name="file" value="new" checked>$new_date以降のメッセージから
　　<input type="radio" name="file" value="old">$new_dateより前のメッセージから<p>
<input type="hidden" name="dummy" value="dummy">
キーワード：<input type="text" name="message" size="40"></textarea>
<input type="submit" value="検索する">
</form>
<hr>

<form action="$keijicgi" method="post">
<b>あなたもメッセージを送ってください。</b><p>
背景の色：
<input type="radio" name="command" value="send_r" checked>ランダム　
<input type="radio" name="command" value="send_0">赤　
<input type="radio" name="command" value="send_1">緑　
<input type="radio" name="command" value="send_2">青　
<input type="radio" name="command" value="send_3">黄　
<input type="radio" name="command" value="send_4">紫　
<input type="radio" name="command" value="send_5">橙　
<input type="radio" name="command" value="send_6">桃<p>
<font size="4">お名前：</font><input type="text" name="name" size="20">
　 email：<input type="text" name="email" size="40">
<input type="submit" value="送信する">
<br>
<textarea name="message" cols="120" rows="3"></textarea>
</form>
<hr>
EOF

#-----  通常/all/old/search処理  -----
  if($command eq "all"){
    $openfile=$keijinew;
    $line_max=99999;
    print "$new_date以降のすべてのメッセージが表\示されています。";
  }elsif($command eq "old"){
    $openfile=$keijiold;
    $line_max=99999;
    print "$new_dateより前のすべてのメッセージが表\示されています。";
  }elsif($command eq "search"){
    if($name eq "new"){$openfile=$keijinew;}else{$openfile=$keijiold;}
    $line_max=99999;
    if($name eq "new"){
      print "$new_date以降";
    }else{
      print "$new_dateより前";
    }
    print "のすべてのメッセージに対するキーワード《<font color=\"$c_key\"><b>$message</b></font>》の検索結果が表\示されています。";
  }else{
    $openfile=$keijinew;
    $line_max=$max;
    print "最新の$line_maxメッセージが表\示されています。";
  }
  print "新しいメッセージが上です。</center></font><p>\n";

#-----  ファイルからline_max行だけ逆順に読み出し  -----
  unless(open(DATA, "$tail -r $openfile |")){print"Can't open $openfile for input.\n"; exit(1);}
  $line_no=0;
  while(($one_line=<DATA>) && ($line_no<$line_max)){
    if($command eq "search"){
#-----  検索結果表示  -----
      $from=0;
      while(($match=index($one_line, $message, $from))>=0){
        $new_line1=substr($one_line, 0, $match);
        $new_line2="<font color=\"$c_key\"><b>" . $message . "</b></font>";
        $new_line3=substr($one_line, $match+length($message));
        $from=$match+length($new_line2);
        $one_line=$new_line1 . $new_line2 . $new_line3;
      }
      if($from>0){print "$one_line";}
    }else{
#-----  単純表示  -----
      print "$one_line";
    }
    $line_no++;
  }
  close(DATA);

print <<EOF;
<hr>
</body></html>
EOF

  exit;
}

#======================================
#==========  メッセージ送信  ==========
#======================================
if(index($command,"send")>=0){
#-----  名前・メッセージの入力もれ  -----
  if(($name eq "") || ($message eq "")){
    print "Content-type: text/html\n\n";

    print <<EOF;
<html>
<title>入力ミスです！</title>
<body bgcolor="$c_warnbg">
<basefont size=4>
<h1><font color="$c_warntxt">入力ミスです！</font></h1>
<hr>
お名前とメッセージは必ず入力してください。<p>
[←戻る]ボタンで戻ってください。<p>
<hr>
</body></html>
EOF

    exit;
  }

#-----  正しい入力の場合ファイルに追加  -----
  $command=~ s/send_//g;
  if($command eq "r"){
    srand;
    $col=rand(7);
  }else{
    $col=$command;
  }

  unless(open(DATA, ">>$keijinew")){print"Can't open $keijinew for append."; exit(1);}
  print DATA "<center><table border=1 width=$tablewidth cellspacing=0 cellpadding=5><tr bgcolor=\"$c_namebg[$col]\">";
  print DATA "<td><font size=\"4\"><font color=\"$c_name\">$name</font></font>／";
  print DATA "<font color=\"$c_email\">$email</font>／<font color=\"$c_time\">$jst</font>／";
  print DATA "<font color=\"$c_ip\">[$ENV{'REMOTE_ADDR'}]</font></td></tr>";
  print DATA "<tr bgcolor=\"$c_msgbg[$col]\"><td><font color=\"$c_msg\">$message</font></td></tr></table></center><p>\n";
  close(DATA);

#----- 掲示板のreload -----
  print "Location: $url" . '?' . "\n\n";

  exit;
}