#┌─────────────────────────────────
#│ CLIP BOARD v1.9 (2003/10/23)
#│ Copyright (c) KentWeb
#│ webmaster@kent-web.com
#│ http://www.kent-web.com/
#└─────────────────────────────────

#┌─────────────────────────────────
#│Powered by Kent Lab
#｜[KentLab：KL00040]
#│http://kent-Lab.com/
#└─────────────────────────────────
#
# 戻り先のURL (index.htmlなど)
$home = "./petit.cgi";

#-------------------------------------------------
#  記事表示
#-------------------------------------------------
sub html {
	# クッキーを取得
	local($cnam,$cpref,$ceml,$curl,$cpwd,$ccol) = &get_cookie;

  local($no,$reno,$date,$name,$pref,$mail,$sub,$comment,$url,$host,$pw,$color);
  
  if ($page eq "") { $page = 0; }

	# 出力サイズ初期化
	$size = 0;

	# 投稿フォーム
	if ($in{'job'} eq "form") {

		local($resub,$recom);

		# レス
		if ($in{'no'}) {

			open(IN,"$logfile") || &error("Open Error: $logfile");
			while (<IN>) {
				($no,$reno,$date,$pref,$name,$mail,$sub,$comment) = split(/<>/);
				last if ($in{'no'} == $no);
			}
			close(IN);

			if ($sub =~ /^Re:/) {
				$resub = $sub;
			} else {
				$resub = "Re: $sub";
			}

			# 標準タイプは本文を引用
#			if ($bbstype == 1) {
				$recom = "&gt; $com";
				$recom =~ s/<br>/\n&gt; /ig;
#			}

			# 絵文字復元
			$resub =~ s/&lt;/</g;
			$resub =~ s/&gt;/>/g;
			$resub = &o2ije($resub);
			$recom = &o2ije($recom);
		}

		&data("<form action=\"$script\" method=\"$method\">\n");
		&data("<input type=\"hidden\" name=\"mode\" value=\"regist\">\n");
    &data("<input type=hidden name=reno value=\"$res_num\">\n");
    &data("<input type=hidden name=page value=\"$in{'page'}\">\n");

		if ($in{'no'} > 0) {
			&data("<input type=\"hidden\" name=\"res\" value=\"$in{'no'}\">\n");
		}

		&data("おなまえ<br><input type=\"text\" name=\"name\" size=\"12\"><br>\n");
		&data("Eメール<br><input type=\"text\" name=\"email\" size=\"12\"><br>\n");
    &data("URL<br><input type=\"text\" name=\"url\" size=\"12\" value=\"http://\"><br>\n");
		&data("ﾀｲﾄﾙ<br><input type=\"text\" name=\"sub\" size=\"12\" value=\"$resub\"><br>\n");
		&data("ｺﾒﾝﾄ<br><textarea name=\"comment\" cols=\"14\" rows=\"3\">$recom</textarea><br>\n");
    &data("<b>投稿地区</b><br>\n");
    &data("<select name=pref>\n");
    open(PREF,"$prefdat") || &error("Open Error : $prefdat");
    @pref = <PREF>;
    close(PREF);
    foreach $pref (@pref) {
      ($key,$val) = split(/:/,$pref);
      $val =~ s/\r\n//;
      if ($key==$cpref) { $slct="selected"; }
      else              { $slct=""; }
      &data("<option value=$key $slct>$val</option>\n");
    }
    &data("</select><br>\n");
		&data("削除ｷｰ<br><input type=\"password\" name=\"pwd\" size=\"6\"><br>\n");
		&data("<input type=\"submit\" value=\"投稿\"></form>\n");
		&data("<a href=\"$script?page=$page\">戻る</a>\n</body></html>\n");

		# 出力
		&header_tel($size);
		print @data;
		exit;

	# 返信フォーム
  }elsif ($in{'job'} eq "res_form") {
		local($no,$reno,$date,$name,$pref,$mail,$sub,$comment,$url,$host,$pw,$color);
    
    # ログ読込
    $f=0;
    open(IN,"$logfile") || &error("Open Error: $logfile");
    @line = <IN>;
    $line = shift(@line);
    close(IN);

    # 関連記事出力
		&data("<a href=\"$script?page=$page\">戻る</a><br>\n");
    &data("- 以下は、記事NO. <B>$in{'no'}</B> に関する<br>");
    &data(" <a href='#RES'>返信フォーム</a> です -<hr>\n");
    $flag=0;
    foreach (@line) {
		  ($no,$reno,$date,$name,$pref,$mail,$sub,$comment,$url,$host,$pw,$color) = split(/<>/);

		  if ($in{'no'} == $no) { last; }

	  }
   	if ($in{'no'} == $no && $reno) { $f++; }
	  if ($f) { &error("不正な返信要求です"); }

    # 投稿地区
    $prefnm=&get_prfname($pref);

    if (!$sub) { $sub = "無題"; }

    if (!$reno) { $com = "<blockquote>$comment</blockquote>"; }

    if ($in{'no'} == $no) { 
      $resub = $sub;
    }
		if ($url) { $url = "&lt;<a href=\"http://$url\">HOME</a>&gt;"; }
		if ($reno && !$flag) { &data("<blockquote>\n"); $flag=1; }

		&data("<font color=$sub_color><b>$resub</b></font><br> 投稿者：<b>$name</b><br>");
    &data("投稿地区：<b>$prefnm</b><br> 投稿日：$date<font color=$sub_color> No.$no</font><br><br>\n");

	  # タイトル名
	  if ($resub !~ /^Re\:/) { $resub = "Re\: $resub"; }

#	  &data("<a name=\"RES\"></a>\n");
    ($cnam,$cpref,$ceml,$curl,$cpwd,$ccol) = &get_cookie;
    
	  &data("<form action=\"$script\" method=\"post\">\n");
    &data("<input type=hidden name=mode value=\"regist\">\n");
    &data("<input type=hidden name=reno value=\"$in{'no'}\">\n");

    &data("<b>おなまえ</b><br>\n");
    &data("<input type=\"text\" name=\"name\" size=\"12\" value=\"$cnam\"><br>\n");
    
    &data("<b>Ｅメール</b><br>\n");
    &data("<input type=\"text\" name=\"email\" size=\"12\" value=\"$ceml\"><br>\n");
		&data("ｺﾒﾝﾄ<br><textarea name=\"comment\" cols=\"14\" rows=\"3\">$recom</textarea><br>\n");
		&data("暗証ｷｰ<br><input type=\"password\" name=\"pwd\" size=\"6\"><br>\n");
		&data("<input type=\"submit\" value=\"投稿\"></form>\n");
		&data("<a href=\"$script?page=$page\">戻る</a>\n</body></html>\n");

		# 出力
		&header_tel($size);
		print @data;

	  exit;

  # メールマガジンフォーム
	} elsif ($in{'job'} eq "maga") {

    local($mno)=0;
    open(IN,"$memfile") || &error("Open Error : $memfile");
    ++$mno while(<IN>);
    close(IN);
    
		&data("<a href=\"$script?page=$page\">戻る</a><br>\n");
    &data("<font color=\"$t_color\">メールアドレス登録</font><br>\n");
    &data("<h3>>講読の登録・解除・変更</h3><br>\n");
    &data("<font color=\"$t_color\">▼新着投稿メールマガジンの「登録」</font><br><br>\n");
    
    # 登録件数をチェック
    if ($no >= $mem_max){
      &data("<b>- 現在メールアドレスの登録はできません -</b>\n");
    }else{
      &data("<form action=\"$script\" method=\"$method\">\n");
      &data("<input type=hidden name=mode value=\"join_in\">\n");
      &data("メールアドレス（半角）：<br>\n");
      &data("<input type=text name=email size=12>\n");
      &data("<input type=submit value=\"登録\"></form>\n");
    }

    &data("<P><font color=\"$t_color\">▼新着投稿メールマガジンの「解除」</font><br><br>\n");
    &data("<form action=\"$script\" method=\"$method\">\n");
    &data("<input type=hidden name=mode value=\"join_out\">\n");
    &data("メールアドレス（半角）：<br>\n");
    &data("<input type=text name=email size=12>\n");
    &data("<input type=submit value=\"解除\"></form><br><br>\n");
    &data("*1 : 登録したアドレスを「変更」する場合は、一旦「解除」した後、新規に「登録」して下さい。<br>\n");
#    &data("*2 : セキュリティ上、同一ホストからの連続登録はできません。\n");

		&data("</body></html>\n");

		# 出力
		&header_tel($size);
		print @data;
		exit;
  }

	&data("<font color=\"$t_color\">$title</font><hr>\n");
	&data("$emo1<a href=\"$home\" $button=\"1\">戻る</a><br>\n");
	&data("$emo2<a href=\"$script?job=form\" $button=\"2\">投稿</a><br>\n");
#	&data("$emo3<a href=\"$script?job=maga\" $button=\"3\">メールマガジン</a><br>\n");
#	&data("$emo4<a href=\"$script?job=enter\" $button=\"4\">管理</a>\n");

	if ($page eq "") { $page = 0; }

	$i=0;
	$flag=0;
	$rf_flag=0;
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		$rf_flag=1;
		($no,$reno,$date,$name,$pref,$mail,$sub,$comment,$url,$host,$pw,$color) = split(/<>/);

		if ($reno eq "") { $i++; }

		if ($tno) {
      if ($tno!=$no) { next; }
    }
    
		if ($i < $page + 1) { next; }
		if ($i > $page + $p_log2) { next; }

		push(@view,$_);

		if ($tno){
      if ($tno==$no) { last; }
    }
	}
	close(IN);

	foreach (@view) {
		($no,$reno,$date,$name,$pref,$mail,$sub,$comment,$url,$host,$pw,$color) = split(/<>/);

    if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
		if ($autolink) { &auto_link($comment); }

		if ($type eq 'j') {
			$sub = &i2j($sub);
			$name = &i2j($name);
			$comment = &i2j($comment);
			$sub = &e2j($sub);
			$name = &e2j($name);
			$comment = &e2j($comment);

		} elsif ($type eq 'i') {
			$sub = &j2i($sub);
			$name = &j2i($name);
			$comment = &j2i($comment);
			$sub = &e2i($sub);
			$name = &e2i($name);
			$comment = &e2i($comment);

		} elsif ($type eq 'e') {
			$sub = &j2e($sub, $model);
			$name = &j2e($name, $model);
			$comment = &j2e($comment, $model);
			$sub = &i2e($sub, $model);
			$name = &i2e($name, $model);
			$comment = &i2e($comment, $model);
		}
		$sub = &o2ije($sub);
		$name = &o2ije($name);
		$comment = &o2ije($comment);

##
    if (!$reno) { $flag=1; }
    
    if ($reno && !$res_flag){
      &data("<hr>\n");
      $res_flag=0;
    }elsif (!$reno && $res_flag){
      $res_flag=0;
    }

    if (!$reno){
      $prefnm = &get_prfname($pref);
      $res_num = $no;
		  &data("<hr><font color=\"$sub_color\">$sub</font><br>\n");
		  &data("$name<br>$prefnm<br>$date ");
      &data("No\.$no\n");
		  $url =~ s/^http\:\/\///;
      if ($url ne "") { &data("<a href=\"$url\">URL</a>"); }
		  &data("<br>$comment<br>");
      # 返信フォーム
      &data("<a href=\"$script?job=res_form&no=$no\">返信</a>\n");
      $flag=1;
    }else{
      &data("<font color=\"$color\"><b>$name</b> ＞ $comment ($date)</font>");
      &data("<font color=\"$sub_color\">No\.$no</font><br>\n");
    }
    
##
	}
	close(IN);
  
#  if ($reno && $flag){
    # 返信フォーム
#    &data("<a href=\"$script?job=res_form&no=$no\">返信</a>\n");
#	}
  &data("<hr>\n");

	$next = $page + $p_log2;
	$back = $page - $p_log2;

	if ($back >= 0) {
		&data("$emo4<a href=\"$script?page=$back\" $button=\"4\">前</a><br>");
	}
	if ($next < $i) {
		&data("$emo5<a href=\"$script?page=$next\" $button=\"5\">次</a>\n");
	}

	# 著作権表記（削除不可）
	&data("<div align=\"right\">");
	&data("<a href=\"http://www.kent-web.com/i/\">PetitBoard</a></div>\n");
	&data("</body></html>\n");

	# 出力
	&header_tel($size);
	print @data;
	exit;
}

#-------------------------------------------------
#  HTMLヘッダ
#-------------------------------------------------
sub header_tel {
	local($len) = @_;
	if ($headflag) { return; }

	local($head) = "<html><head>\n$meta\n";
	$head .= "<title>$title</title></head>\n";

  $head .= "<body>\n";

	print "Content-Type: text/html\n\n";

	if ($cont_len && $len > 0) {
		$len += length($head);

		print "Content-Length: $len\n";
	}

	print "\n";
	print $head;
  
	$headflag=1;
}

#-------------------------------------------------
#  出力データ
#-------------------------------------------------
sub data {
	$size += length($_[0]);

	push(@data,$_[0]);
}

#-------------------------------------------------
#  フォームデコード
#-------------------------------------------------
sub decode_tel {
	local($buf,$key,$val);

	$post_flag=0;
  if ($ENV{'REQUEST_METHOD'} eq "POST") {
		$post_flag=1;
		if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量超過"); }
		read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
	} else {
		$buf = $ENV{'QUERY_STRING'};
	}

	undef(%in);
	foreach ( split(/&/, $buf) ) {
		($key, $val) = split(/=/);
		$val =~ tr/+/ /;
		$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;

		# PCは文字コード変換
		&jcode'convert(*val, 'sjis') if ($type eq 'p');

		# エスケープ
		$val =~ s/&/&amp;/g;
		$val =~ s/"/&quot;/g;
		$val =~ s/</&lt;/g;
		$val =~ s/>/&gt;/g;
		$val =~ s/\r\n/<br>/g;
		$val =~ s/\r/<br>/g;
		$val =~ s/\n/<br>/g;
#		$val =~ s/[\x00-\x20]+/ /g;

		$in{$key} .= "\0" if (defined($in{$key}));
		$in{$key} .= $val;
	}
	$page = $in{'page'};
	$mode = $in{'mode'};
  $in{'url'} =~ s/^http\:\/\///;
  $tno = $in{'tno'};
	$headflag=0;

	# タイムゾーン設定
	$ENV{'TZ'} = "JST-9";
}

#-------------------------------------------------
#  絵文字 j → 独自
#-------------------------------------------------
sub j2o {
	local($_) = @_;

	# タグ復元
	s/&amp;/&/g;
	s/&quot;/"/g;
	s/&lt;/</g;
	s/&gt;/>/g;

	s/\x1B\x24[E-GO-Q]([^\x0F]+)\x0F/$1/;
	s/\x1B\x24([E-GO-Q])([\x21-\x7A]+)/&j2o2($1,$2)/eg;
	$_;
}
sub j2o2 {
	local($f1, $f2) = @_;

	$f2 =~ s/([\x21-\x7A])/'<j'.$f1.unpack('H2',$1).'>'/eg;
	$f2;
}

#-------------------------------------------------
#  絵文字 独自 → i,j,e
#-------------------------------------------------
sub o2ije {
	local($_) = @_;

	# i-mode
	s/<i(f)([89])(..)>/pack('H2H2', "$1$2", $3)/eg;

	# vodafone
	s/<j([E-GO-Q])(..)>/pack('H2H2','1B','24').$1.pack('H2',$2).pack('H2','0F')/eg;

	# EZweb
	s/<e(f)(.)(..)>/pack('H2H2', "$1$2", $3)/eg;

	$_;
}

#-------------------------------------------------
#  絵文字 独自 → PC
#-------------------------------------------------
sub o2p {
	local($_) = @_;

	# vodafone
	s|<j([E-GO-Q])(..)>|<img src=\"$img_j/$1$2\.gif\" align=top>|g;

	# i-mode
	s|<i(f)([89])(..)>|<img src=\"$img_i/$1$2$3\.gif\" align=top>|g;

	# EZweb
	s|<e(f)(...)>|<img src=\"$img_e/$1$2$3\.gif\" align=top>|g;

	$_;
}

#-------------------------------------------------
#  絵文字 i → j
#-------------------------------------------------
sub i2j {
	local($_) = @_;

	s/<i(f)([89])(..)>/&i2j2("$1$2$3")/eg;
	$_;
}
sub i2j2 {
	local($_) = @_;

	if (defined($i2j{$_})) {
		$e = $i2j{$_};
		$e =~ s/(.)(..)/pack('H2H2','1B','24').$1.pack('H2',$2).pack('H2','0F')/eg;
		$e;
	} else {
		return "<img src=\"$img_i/$_\.png\">";
	}
}

#-------------------------------------------------
#  絵文字 i → e
#-------------------------------------------------
sub i2e {
	local($_) = @_;

	s/<i(f)([89])(..)>/&i2e2("$1$2$3")/eg;
	$_;
}
sub i2e2 {
	local($_) = @_;

	if (defined($i2e{$_})) {
		return "<img localsrc=\"$i2e{$_}\">";
	} else {
		return "<img src=\"$img_i/$_\.gif\">";
	}
}

#-------------------------------------------------
#  絵文字 j → i
#-------------------------------------------------
sub j2i {
	local($_) = @_;

	s/<j([E-GO-Q])(..)>/&j2i2($1,$2)/eg;
	$_;
}
sub j2i2 {
	local($f1, $f2) = @_;

	if (defined($j2i{"$f1$f2"})) {
		local($e) = $j2i{"$f1$f2"};
		$e =~ s/(..)(..)/pack('H2H2', $1, $2)/e;
		return $e;
	} else {
		return "<img src=\"$img_j/$f1$f2\.gif\">";
	}
}

#-------------------------------------------------
#  絵文字 j → e
#-------------------------------------------------
sub j2e {
	local($_) = @_;

	s|<j([E-GO-Q])(..)>|&j2e2("$1$2")|eg;
	$_;
}
sub j2e2 {
	local($_) = @_;

	if (defined($j2e{$_})) {
		return "<img localsrc=\"$j2e{$_}\">";
	} else {
		return "<img src=\"$img_j/$_\.gif\">";
	}
}

#-------------------------------------------------
#  絵文字 e → i
#-------------------------------------------------
sub e2i {
	local($_) = @_;

	s|<e(f)(...)>|&e2i2("$1$2")|eg;
	$_;
}
sub e2i2 {
	local($_) = @_;

	if (defined($e2i2{$_})) {
		local($e) = $e2i2{$_};
		$e =~ s/(..)(..)/pack('H2H2', $1, $2)/e;
		return $e;
	} else {
		return "<img src=\"$img_e/$_\.gif\">";
	}
}

#-------------------------------------------------
#  絵文字 e → j
#-------------------------------------------------
sub e2j {
	local($_) = @_;

	s|<e(f)(...)>|&e2j2("$1$2")|eg;
	$_;
}
sub e2j2 {
	local($_) = @_;

	if (defined($e2j2{$_})) {
		$e = $e2j2{$_};
		$e =~ s/(.)(..)/pack('H2H2','1B','24').$1.pack('H2',$2).pack('H2','0F')/eg;
		$e;
	} else {
		return "<img src=\"$img_e/$_\.png\">";
	}
}

#-------------------------------------------------
#  エラー処理
#-------------------------------------------------
sub error {
	if ($lockflag) { &unlock; }

	&data("Error<br>\n");
	&data("$_[0]</body></html>\n");

	&header_tel($size);
	print @data;
	exit;
}


1;


__END__