#!/usr/bin/perl
$\ = "\n";
#平成18年2月23日(木)版
#
#入力を整理。なければショートカットして表示へいくす。
#each bbs rev allを統合する
require './bbssub.pl';
$flag = &blacklist;
if($flag == 1){
    &i_love_you;
    exit;
}
unless($ENV{QUERY_STRING} eq ""){
    @arg1 = split /&/,$ENV{QUERY_STRING};
    foreach(@arg1){
	($key,$val) = split /=/;
	$arg{$key} = $val;
    }
}
$val = "";
unless($ENV{CONTENT_LENGTH}== 0){
    read(STDIN,$_,$ENV{CONTENT_LENGTH}) ;

    @argv = split /&/;
    foreach(@argv){
	($key,$val) = split /=/;
	$arg{$key} = $val;
    }
    unless($arg{text} eq ""){
# リロード対策。
	$chk ="";
	open(CHK,"chk");
	while(<CHK>){
	    chop;
	    $chk = $chk.$_ ; 
	}
	close(CHK);
	$ref = $arg{name}.$arg{text};
	chop $ref ;
	if( $chk eq $ref){
	    $arg{name} = "";
	    $arg{text} = "";
	} else{
	    open(CHK,">chk");
	    print CHK $ref ;
	    close(CHK);
	}


	$arg{name} =~ s/%(..)/pack("C",hex($1))/eg ;
	$arg{text} =~ s/%(..)/pack("C",hex($1))/eg ;
	$name = $arg{name};
	$val = $arg{text};
#
#SJIS,JIS,EUC -> SJIS
	use Jcode ;
	foreach("name","text"){
	$arg{$_} = jcode($arg{$_})->h2z->sjis;
	
	$arg{$_} =~ s/<!--[^<>]*-->//g;
	$arg{$_} =~ s/\+/ /g;

	$arg{$_} =~ s/\t//g;
	$arg{$_} =~ s/\r\n/\n/g; # Win→Unix
	$arg{$_} =~ s/\r/\n/g; # Mac→Unix
	if($arg{type} ne "ari"){
	    $arg{$_} =~ s/&/&amp;/g;
	    $arg{$_} =~ s/\"/&quot;/g;
	    $arg{$_} =~ s/</&lt;/g;
	    $arg{$_} =~ s/>/&gt;/g;
	    	}
	}
    }
}
###########################################################
######最新ログナンバーを取得。上位15件を表示する準備。#####
###########################################################
#!/usr/bin/perl
opendir DIR ,".";
@dir = readdir DIR ;
@list = grep {/^[0-9]+.log$/} @dir;
@list = sort @list;
$big = pop @list;
$big =~ s/^(....).*/\1/;
$big = $big-0;
##################################################################
#typeがallだったら、いっぺんに全部みせる。jskyだったら1記事ずつ。#
#その他は15記事ずつ。   ##########################################
##################################################################
if($arg{type} eq "all"){
    $turn=$big;
}elsif($arg{type} eq "jsky"){
    $turn = 1;
}else{
    $turn=15;
}
###############################################
#typeがjskyなら小さいフォームでメソッドはget、#
#その他は大きいフォームでメソッドはputにする。#
###############################################
if($arg{type} eq "jsky"){
    $formsize ="rows=\"3\" cols=\"20\" ";
    $method = "get";
    $hidden = "<input type=\"hidden\" name=\"type\" value=\"jsky\">";
}else{
    $formsize ="rows=\"10\" cols=\"76\"";
    $method = "post";
}
################################
#次のページと前のページの指定。#
################################
$page = $arg{page};
if($page < 0){
    $page = 0;
}
$prevpage = $page + $turn;
if($big - $page < $turn){
    $page = $big - $turn;
    $prevpage = $page ;
}
$nextpage = $page - $turn;
if($page < 1){
    $nextpage = 0;
}

##########################################################
#メッセージを残す。#つきは過去の遺物とデバッグ用。########
##########################################################
$\ = "\n";
$date = localtime;
$_ = $arg{text};
if ( $_ ne ""){
    $big++ ;
    $log = sprintf("%04d.log",$big);
    open( LOG ,">".$log);
#    print LOG  ' ';
    print LOG  '<span style="font-size:smaller">おなまえ</span><br>',$arg{name};
    print LOG  '--------';
    print LOG  '<span style="font-size:smaller">メッセージ</span><br>',$_;
    print LOG  '<br><span style="font-size:smaller">日付</span>',$date;
    close(LOG);

   open( LOG2 ,">>secret.log");
    print LOG2  ' ';
    print LOG2  "name=$arg{name}  IPadress_port=$ENV{REMOTE_ADDR}:$ENV{REMOTE_PORT}  browser_and_os= $ENV{HTTP_USER_AGENT}  proxy= $ENV{HTTP_X_FORWARDED_FOR} date=$date";
    close(LOG2);



    $\ = "\n";
}
#####################
#ああミーハー色替エ##
#####################
   $c = int(rand(5));

if($c == 0){
$color = "#ffffcc";
}elsif($c == 1){
$color = "#ffccff";
}elsif($c == 2){
$color = "#ccffff";
}elsif($c == 3){
$color = "#ffffff";
}elsif($c == 4){
$color = "#ffff66";
}else{
$color = "#ffcc33";
}
#############
#タイトル決定。
#############
if($arg{type} eq "ari"){
    $subtitle = "ありあり版";
}
elsif($arg{type} eq "rev"){
    $subtitle = "昇順版";
}
elsif($arg{type} eq "all"){
    $subtitle = "全部いっぺん版";
}
elsif($arg{type} eq "jsky"){
    $subtitle = "jsky版";
}
else{
    $subtitle = "ノーマル版";
}
############
#出力する。#
############
print <<END ;
Content-type: text/html

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML lang="ja" >
<HEAD>
   <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=Shift_JIS">
   <META HTTP-EQUIV="Content-Style-Type" CONTENT="text/css">
   <link href="../../micmic.css" type="text/css"  rel="stylesheet">
   <META NAME="Author" CONTENT="micmic">
   <LINK REL="NEXT" HREF="http://www.satani.org/index.html">
   <LINK REV="MADE" HREF="mailto://micmic\@osk.3web.ne.jp"> 
  <META HTTP-EQUIV="Content-Style-Type" CONTENT="text/css">
<STYLE type="text/css">
<!--
body { line-height :1.4;
     color :#000000 ;
     background-color: $color ; 
	margin: 2em
     }
a:link { color: #0000EE } 
a:visited { color: #551A8B } 
a:active { color: #FF0000 }
div.center { text-align: center }
div.pad { padding : 1em;
	  font-family : monospace
	}     
-->
</STYLE> 

  <TITLE>はげましのお声、ないしは罵詈雑言$subtitle</TITLE>
</HEAD>
<BODY>
<h1>はげましのお声、ないしは罵詈雑言$subtitle</h1>
  

<form action="bbs2.cgi?type=$arg{type}" method="$method"> 
<h2>御芳名</h2>
<input name="name" type="text" value="名無しの権兵衛" tabindex="1" ><br>
<h2>おことば</h2>
<textarea $formsize name="text" tabindex="2" ></textarea>
<p>準備はいいですね
$hidden
<input type="submit" value="書き込み" tabindex="3">
</form>
<hr>
END

$big = $big - $page ;
    if($arg{type} eq "rev"){
	$startnum = $big-$turn;
	print "昇順掲示板 from $startnum to $big";
    for($i = $big-$turn ;$i <= $big ; $i++){
	print "<h3>";
	print $i;
	print "</h3>";
	$mes = "";
	$log = sprintf("%04d.log",$i);
	open(LOG,$log); 
	while(<LOG>){
	    $mes = $mes.$_;
	}
	close(LOG);

	$_ = $mes;
	s/�@/(1)/g;
	s/�A/(2)/g;
	s/�B/(3)/g;
	s/�C/(4)/g;
	s/�D/(5)/g;
	s/�E/(6)/g;
	s/�F/(7)/g;
	s/�G/(8)/g;
	s/�H/(9)/g;
	s/�I/(10)/g;
	s/�J/(11)/g;
	s/�K/(12)/g;
	s/�L/(13)/g;
	s/�M/(14)/g;
	s/�N/(15)/g;
	s/�O/(16)/g;
	s/�P/(17)/g;
	s/�Q/(18)/g;
	s/�R/(19)/g;
	s/�S/(20)/g;

	s/\n/<br>/g;

	print $_;
	print "<hr>";
    }

    }else{
    for( $i = $big ; $i > $big-$turn ; $i--){
	print "<h3>";
	print $i;
	print "</h3>";
	$mes = "";
	$log = sprintf("%04d.log",$i);
	open(LOG,$log); 
	while(<LOG>){
	    $mes = $mes.$_;
	}
	close(LOG);

	$_ = $mes;
	s/�@/(1)/g;
	s/�A/(2)/g;
	s/�B/(3)/g;
	s/�C/(4)/g;
	s/�D/(5)/g;
	s/�E/(6)/g;
	s/�F/(7)/g;
	s/�G/(8)/g;
	s/�H/(9)/g;
	s/�I/(10)/g;
	s/�J/(11)/g;
	s/�K/(12)/g;
	s/�L/(13)/g;
	s/�M/(14)/g;
	s/�N/(15)/g;
	s/�O/(16)/g;
	s/�P/(17)/g;
	s/�Q/(18)/g;
	s/�R/(19)/g;
	s/�S/(20)/g;

	s/\n/<br>/g;

	print $_;
	print "<hr>";
    }
}
    if($arg{type} ne "all"){
	print <<PRE_NEXT;
<div class="center"><A HREF="bbs2.cgi?type=$arg{type}&page=$prevpage">より古い $turn メッセージを読む。</A></div>
<div class="center"><A HREF="bbs2.cgi?type=$arg{type}&page=$nextpage">より新しい $turn メッセージを読む。</A></div>
<div class="center"><A HREF="bbs2.cgi?type=all">すべてのメッセージを読む。</A></div>

PRE_NEXT
}
print <<END2;

<div class="center"><A HREF="../../index.html">[Home]</A> <A HREF="../../tobyo/index.html">[目次]</A></div>


</BODY>
</HTML>
END2