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


#-----------------------------------------------------------------------------------------
#                                        変数定義 hensuu teigi
#-----------------------------------------------------------------------------------------

#$EDIT_DISP_check = FALSE;    # 編集機能を表示
$EDIT_DISP_check = TRUE;

#$REMOTE_ADDR_check = FALSE;  # イントラネットの外から見せない
$REMOTE_ADDR_check = TRUE;

#$DEBUG = TRUE;                #デバッグモード

$GOOGLE = TRUE;               #グーグル表示

$scriptname = "umihoshi.cgi";       #スクリプト名リロードに使用

$user1       = "shinjix";
$user2       = "yoshiko";

$bbsName     = "s-bbs";


$TITLE       = "海☆彡";
$TITLE2      = '<table bgcolor="ccccff" border=0 cellspacing=1 cellpadding=0 width=300><tr><td align=center><font><b>　海☆彡</b></font><font size=-1 color=yellow><b>　 the starfish </b></font></td></TR></TABLE></td></tr></table>';


$softversion = "0.19";



####太腿ブルースキーム
#
$col_BG      = "002233";  #背景色
$col_TEXT    = "ffffff";  #テキスト
$col_LINK    = "4477ff";  #リンク
$col_VLINK   = "3366ee";  #訪問済みリンク
$col_TABLEBG = "003355";  #書き込み用テーブルの背景色
$col_TABLETX = "FFFFFF";  #書き込み用テーブルの文字
$col_DARK    = "003355";  #暗くなった色
$col_TITLE1  = "55ccff";  #発言タイトルの色１ 番号
$col_TITLE2  = "44aadd";  #発言タイトルの色２ 日付
$col_TITLE3  = "3388cc";  #発言タイトルの色３ 名前
$col_TITLE4  = "ddddff";  #発言タイトルの色４ タイトル

####ブルーにピンク
#
$col_BG      = "003355";  #背景色
$col_TEXT    = "ffffff";  #テキスト
$col_LINK    = "FF7700";  #リンク
$col_VLINK   = "FF5500";  #訪問済みリンク
$col_TABLEBG = "FFD0c0";  #書き込み用テーブルの背景色
$col_TABLETX = "443333";  #書き込み用テーブルの文字
$col_DARK    = "003355";  #暗くなった色
$col_TITLE1  = "55ccff";  #発言タイトルの色１ 番号
$col_TITLE2  = "44aadd";  #発言タイトルの色２ 日付
$col_TITLE3  = "3388cc";  #発言タイトルの色３ 名前
$col_TITLE4  = "ddddff";  #発言タイトルの色４ タイトル

####ダイナシティー　ブルーにオレンジ
#
$col_BG      = "002233";  #背景色
$col_TEXT    = "ffeeee";  #テキスト
$col_LINK    = "FF7700";  #リンク
$col_VLINK   = "FF5500";  #訪問済みリンク
$col_TABLEBG = "FFa020";  #書き込み用テーブルの背景色
$col_TABLETX = "443333";  #書き込み用テーブルの文字
$col_DARK    = "003355";  #暗くなった色
$col_TITLE1  = "55ccff";  #発言タイトルの色１ 番号
$col_TITLE2  = "44aadd";  #発言タイトルの色２ 日付
$col_TITLE3  = "3388cc";  #発言タイトルの色３ 名前
$col_TITLE4  = "ddddff";  #発言タイトルの色４ タイトル

####ソフト管理　茶色にピンク
#
$col_BG      = "331111";  #背景色
$col_TEXT    = "ffffff";  #テキスト
$col_LINK    = "FF7700";  #リンク
$col_VLINK   = "FF5500";  #訪問済みリンク
$col_TABLEBG = "FFD0c0";  #書き込み用テーブルの背景色
$col_TABLETX = "443333";  #書き込み用テーブルの文字
$col_DARK    = "003355";  #暗くなった色
$col_TITLE1  = "55ccff";  #発言タイトルの色１ 番号
$col_TITLE2  = "44aadd";  #発言タイトルの色２ 日付
$col_TITLE3  = "3388cc";  #発言タイトルの色３ 名前
$col_TITLE4  = "ddddff";  #発言タイトルの色４ タイトル

#### linux ブルー地に白
#
$col_BG      = "003355";  #背景色
$col_TEXT    = "ffffff";  #テキスト
$col_LINK    = "FF7700";  #リンク
$col_VLINK   = "FF5500";  #訪問済みリンク
$col_TABLEBG = "FFffff";  #書き込み用テーブルの背景色
$col_TABLETX = "000055";  #書き込み用テーブルの文字
$col_DARK    = "003355";  #暗くなった色
$col_TITLE1  = "55ccff";  #発言タイトルの色１ 番号
$col_TITLE2  = "44aadd";  #発言タイトルの色２ 日付
$col_TITLE3  = "3388cc";  #発言タイトルの色３ 名前
$col_TITLE4  = "ddddff";  #発言タイトルの色４ タイトル


#### 個人事業 ピンク
#
$col_BG      = "ffcccc";  #背景色
$col_TEXT    = "220000";  #テキスト
$col_LINK    = "cc3333";  #リンク
$col_VLINK   = "993333";  #訪問済みリンク
$col_TABLEBG = "ff9999";  #書き込み用テーブルの背景色
$col_TABLETX = "ffdddd";  #書き込み用テーブルの文字
$col_DARK    = "003355";  #暗くなった色
$col_TITLE1  = "993333";  #発言タイトルの色１ 番号
$col_TITLE2  = "cc3333";  #発言タイトルの色２ 日付
$col_TITLE3  = "ff3333";  #発言タイトルの色３ 名前
$col_TITLE4  = "993333";  #発言タイトルの色４ タイトル

#### bbs-cg
#
$col_BG      = "001133";  #背景色
$col_TEXT    = "ffffff";  #テキスト
$col_LINK    = "cc5522";  #リンク
$col_VLINK   = "ee4411";  #訪問済みリンク
$col_TABLEBG = "ddccaa";  #書き込み用テーブルの背景色
$col_TABLETX = "001133";  #書き込み用テーブルの文字色
$col_DARK    = "003355";  #暗くなった色
$col_TITLE1  = "ff5500";  #発言タイトルの色１ 番号
$col_TITLE2  = "dd4400";  #発言タイトルの色２ 日付
$col_TITLE3  = "aa2200";  #発言タイトルの色３ 名前
$col_TITLE4  = "ffdddd";  #発言タイトルの色４ タイトル

#### COOLWEB オレンジに緑
$col_BG      = "ffd012";  #背景色
$col_TEXT    = "000033";  #テキスト
$col_LINK    = "0066ee";  #リンク
$col_VLINK   = "FF4400";  #訪問済みリンク
$col_TABLEBG = "008899";  #書き込み用テーブルの背景色
$col_TABLETX = "ffffff";  #書き込み用テーブルの文字
$col_DARK    = "ffd455";  #暗くなった色
$col_TITLE1  = "006699";  #発言タイトルの色１ 番号
$col_TITLE2  = "0055aa";  #発言タイトルの色２ 日付
$col_TITLE3  = "004488";  #発言タイトルの色３ 名前
$col_TITLE4  = "003377";  #発言タイトルの色４ タイトル


#### COOLWEB オレンジに緑 テスト中
$col_BG      = "ffaa11";  #背景色
$col_TEXT    = "223322";  #テキスト
$col_LINK    = "0066ee";  #リンク
$col_VLINK   = "FF4400";  #訪問済みリンク
$col_TABLEBG = "008899";  #書き込み用テーブルの背景色
$col_TABLETX = "ffffff";  #書き込み用テーブルの文字
$col_DARK    = "ffd455";  #暗くなった色
$col_TITLE1  = "006699";  #発言タイトルの色１ 番号
$col_TITLE2  = "0055aa";  #発言タイトルの色２ 日付
$col_TITLE3  = "004488";  #発言タイトルの色３ 名前
$col_TITLE4  = "003377";  #発言タイトルの色４ タイトル

####海星トップスキーム スカイブルー
$col_BG      = "eeeeff";  #背景色
$col_TEXT    = "000033";  #テキスト
$col_LINK    = "000055";  #リンク
$col_VLINK   = "000077";  #訪問済みリンク
#$col_TABLEBG = "f9f9ff";  #書き込み用テーブルの背景色
$col_TABLEBG = "d0d0ff";  #書き込み用テーブルの背景色
$col_TABLETX = "443333";  #書き込み用テーブルの文字
$col_DARK    = "003355";  #暗くなった色
$col_TITLE1  = "55ccff";  #発言タイトルの色１ 番号
$col_TITLE2  = "44aadd";  #発言タイトルの色２ 日付
$col_TITLE3  = "3388cc";  #発言タイトルの色３ 名前
$col_TITLE4  = "111155";  #発言タイトルの色４ タイトル
#$col_TITLE4  = "ddddff";  #発言タイトルの色４ タイトル




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


#$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);

foreach $pair (@pairs)
{
    ($valuename, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$valuename} = $value;
}

#-----------------------------------------------------------------------------------------
#                                        クッキー cookie teigi
#-----------------------------------------------------------------------------------------

################## 抽出

@pairs = split(/;/,$ENV{'HTTP_COOKIE'});
foreach $pair (@pairs) {

    ($key,$val) = split(/=/,$pair,2);
    $key =~ s/ //g;
#    if ($key eq $ENV{'SCRIPT_NAME'}) {
    if ($key eq $bbsName) {

	@pairs = split(/,/,$val);
	foreach $pair (@pairs) {

	    ($key,$val) = split(/:/,$pair,2);
	    $COOKIE{$key} = $val;
	}
	last;
    }
}

####################### フォームがセットされてない場合


#if ($admin_passwd =~ /^\$1\$/) { $salt = 5; } else { $salt = 2; }
#if (crypt($in{'passwd'},substr($admin_passwd,0,$salt)) eq $admin_passwd) { $level = "[システム管理者]"; $MASTER = 1; }

#if ($in{'_action'} eq "regist") { &regist; }
#elsif ($in{'_edit'}) { &edit; exit; }
#elsif ($in{'_resp'}) {

if ($FORM{'user'} eq "") { $FORM{'user'} = $COOKIE{'user'}; }
if ($FORM{'email'} eq "") { $FORM{'email'} = $COOKIE{'email'}; }
if ($FORM{'tm'} eq "") { $FORM{'tm'} = $COOKIE{'tm'}; }
if ($FORM{'passwd'} eq "") { $FORM{'passwd'} = $COOKIE{'passwd'}; }

#    &form2;
#    exit;
#}


##################　フォームがセットされている場合クッキー定義してセット

$COOKIE_CHECK = $FORM{'user'};

($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 80*24*60*60);
$y0="Sunday"; $y1="Monday"; $y2="Tuesday"; $y3="Wednesday"; $y4="Thursday"; $y5="Friday"; $y6="Saturday";
$m0="Jan"; $m1="Feb"; $m2="Mar"; $m3="Apr"; $m4="May"; $m5="Jun"; $m6="Jul"; $m7="Aug"; $m8="Sep"; $m9="Oct"; $m10="Nov"; $m11="Dec";
@youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6);
@monthg = ($m0,$m1,$m2,$m3,$m4,$m5,$m6,$m7,$m8,$m9,$m10,$m11);
$date_gmt = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT",$youbi[$wdayg],$mdayg,$monthg[$mong],$yearg +1903,$hourg,$ming,$secg);


if ($COOKIE_CHECK) {

#                print "Set-Cookie: $ENV{'SCRIPT_NAME'}=user:$FORM{'user'}\,email:$FORM{'email'}\,tm:$FORM{'tm'}\,passwd:$FORM{'passwd'}; path=$path; expires=$date_gmt\n";
#                print "Set-Cookie: user:$FORM{'user'}\,email:$FORM{'email'}\,tm:$FORM{'tm'}\,passwd:$FORM{'passwd'}; expires=$date_gmt\n";
#                print "Set-Cookie: $bbsName=user:$FORM{'user'}\,email:$FORM{'email'}\,tm:$FORM{'tm'}\,passwd:$FORM{'passwd'}; path=$path; expires=$date_gmt\n";
                print "Set-Cookie: $bbsName=user:$FORM{'user'}\,email:$FORM{'email'}\,tm:$FORM{'tm'}\,passwd:$FORM{'passwd'}; expires=$date_gmt\n";

                $COOKIE{'user'} = $FORM{'user'};
                $COOKIE{'email'} = $FORM{'email'};
                $COOKIE{'passwd'} = $FORM{'passwd'};
                $COOKIE{'tm'} = $FORM{'tm'};
	    }
    else {
	;
	print "Set-Cookie: $bbsName=user:\,email:\,tm:\,passwd:; path=$path; expires=$date_gmt\n";
	$COOKIE{'user'} = "";
	$COOKIE{'email'} = "";
	$COOKIE{'passwd'} = "";
	$COOKIE{'tm'} = "";
    }


#----------------------------------------------------------------------------------------
#                                       スヌーパー snooper
#----------------------------------------------------------------------------------------
open (SNF,">>snoop.dat");
$date = `date "+%y/%m/%d/%a %H:%M"`;
chop $date;
if (!(($ENV{'REMOTE_HOST'} =~ /^catfish/)||($ENV{'REMOTE_HOST'} =~ /^manta/)))
    {
	print SNF ("$date,$COOKIE{'user'},$ENV{'REMOTE_HOST'},$ENV{'REMOTE_ADDR'},$ENV{'HTTP_REFERER'},$ENV{'HTTP_USER_AGENT'},$ENV{'HTTP_UA_OS'}\n");
    }
close(SNF);


#-----------------------------------------------------------------------------------------
#                                        コンテントタイプ書き出し
#-----------------------------------------------------------------------------------------

print("Content-type: text/html\n\n");


#-----------------------------------------------------------------------------------------
#                                        HTMLヘッダー部分表示 header hyouji
#-----------------------------------------------------------------------------------------
print << "EOF";
<html><head>
<meta name="robots" content="noindex,nofollow">
<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html;CHARSET=Shift_JIS">
EOF
print("<title>$TITLE</title>");

print("<style type=\"text/css\">");
print("<!--");
print("    .formA {");
print("      width: 500px;");
print("    }");
print("    .kaigyou {");
print("      line-height: 120%;");
print("    }");
print("}");
print("-->");
print("</style>");

###############JAVA SCRIPT
print('<SCRIPT language="JavaScript" SRC="/JavaScript.js"></SCRIPT>');
###############JAVA SCRIPT
print("<form method=\"post\" action=\"$scriptname\">");
print("<input type=\"hidden\" name=\"run\" value=\"go\">");
print("</head>\n");

#----------------------------------------------------------------------------------------
#　　　　　　　　　　　　　　　          ボディー表示開始 body hyouji kaishi
#----------------------------------------------------------------------------------------

print("<body link=\"$col_LINK\" vlink=\"$col_VLINK\" text =\"$col_TEXT\" bgcolor=\"$col_BG\" topmargin=8 marginheight=8>");
print("<center>");
print("$TITLE2\n");

#----------------------------------------------------------------------------------------
#　　　　　　　　　　　　　　　          掲示板リンクデータ読み込み表示 link data yomikomi
#----------------------------------------------------------------------------------------
open(LINKFP,"link.dat");

while(<LINKFP>){
    &Jcode'convert($FORM{'new'},sjis); #'
    $_ =~ s/\r\n\n/\n/g;                      #改行コード処理
    $_ =~ s/\r\n/\n/g;
#    unless (($_ =~ /^\#.*$/) && ($_ =~ //)) {
    unless ($_ =~ /^\#.*$/) {
	if ($_ =~ /^\+inside/ ){                     #イントラネットより内側の場合
	    if($ENV{'REMOTE_ADDR'} =~ /^192\.168\.1\./){
		@alink = split(/\,/,$_);
		$back_URL = "<b><a href=\"".$alink[2]."\">[▲".$alink[1]."]</a></b>";
		print "$back_URL";
	    }
	}elsif ($_ =~ /^\+outside/ ){                 #イントラネットより外側の場合
	    unless($ENV{'REMOTE_ADDR'} =~ /^192\.168\.1\./){
		@alink = split(/\,/,$_);
		$back_URL = "<b><a href=\"".$alink[2]."\">[▼".$alink[1]."]</a></b>";
		print "$back_URL";
	    }
	}elsif ($_ =~ /^\+all/ ){                 #両方表示
	    @alink = split(/,/);
	    print "<b>";
	    print '<a href="';
	    print $alink[2];
	    print '">[';
	    print $alink[1];
	    print "]</a></b>";
	}else{
	    print $_;
	}
    }
}
close(NFP);


#----------------------------------------------------------------------------------------
#                                        書き込み追加 kakikomi tsuika
#
#----------------------------------------------------------------------------------------
open(NFP,"NO.log");
while(<NFP>){
    $LastNum = $_   if ($_ =~ /^[0-9]/);
}
close(NFP);

if ($FORM{run} eq 'go'){
    if(lstat("lock")){
	print "<H1><a href=\"mailto:shinji\@am.il24.net\">ただいまbbsは混雑しております。も少しあと出ね。</a></h1>";
	exit 0;
    }
    symlink ("bbs.log","lock");
#    $date = `date "+%a %b %e %H:%M:%S %Z %Y"`;
    $date = `date "+%y/%m/%d/%a %H:%M"`;

#    $bak = `date "+%y%m%d%a"`;
    $bak = `date "+%y%m"`;
    
    $ren = rename("bbs.log","bbs.log.old");
    #system ("cp bbs.log.old store/bbs.log.$bak");


    open(WFP,">bbs.log");
    select WFP;
    $| = 1;
    if($FORM{'add'}){
	open(NFP,">NO.log");
	$LastNum++;
	print NFP $LastNum;
	close(NFP);
	&Jcode'convert($FORM{'new'},sjis); #'
	$FORM{'new'} =~ s/\r\n\n/\n/g;                      #改行コード処理
	$FORM{'new'} =~ s/\r\n/\n/g;
	$FORM{'new'} =~ s/\n/<br>/g;
#######fromはっちー
        if ($FORM{'new'} !~ /(<a .*http:\/\/[\w.]*.*<\/a>)/i){
            $FORM{'new'} =~ s/(http:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%]+)/<A HREF=\"$1\">$1<\/A>/ig;
        }
        if ($FORM{'new'} !~ /(<a .*https:\/\/[\w.]*.*<\/a>)/i){
            $FORM{'new'} =~ s/(https:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%]+)/<A HREF=\"$1\">$1<\/A>/ig;
        }
#######

	chop($date);
	print WFP "<!--$ENV{'REMOTE_HOST'},$ENV{'REMOTE_ADDR'}-->,<b><font color=\"$col_TITLE1\">番号：$LastNum ）</font><font color=\"$col_TITLE2\"> $date </font>";

	print WFP "<font color=\"$col_TITLE3\">発言者：$FORM{'user'} </font></b>";
	if ($FORM{'email'}){print WFP "<a href=\"mailto:$FORM{'email'}\"><font color=\"red\">[〒]</font>";}
	if ($FORM{'email'}){print WFP "</a>";}

	print WFP "<blockquote><b><font color=$col_TITLE4>[$FORM{'title'}]<br></font></b>$FORM{'new'}</blockquote>";
	print WFP "\n";

    }
    $i = 0;
    open(FP,"bbs.log.old");	# ip_listファイルオープン（削除、追加）
    while(<FP>){
	$i++;
	print WFP $_;
    }
    close(FP);
    close(WFP);
}

#----------------------------------------------------------------------------------------
#                                        データ修正　shuusei
#
#----------------------------------------------------------------------------------------
if ($FORM{run} eq 'edit'){
    if(lstat("lock")){
	print "<H1><a href=\"mailto:wahaha\@twics.com\">ただいまbbsは混雑しております。も少しあと出ね。</a></h1>";
	exit 0;
    }
    symlink ("bbs.log","lock");
    $ren = rename("bbs.log","bbs.log.old");
    open(FP,"bbs.log.old");
    open(WFP,">bbs.log");
    while (<FP>){
	$e_nox = $_;
	$e_nox =~ s/^.*番号：//; 
	$e_nox =~ s/ ）.*$//;
	if ($e_nox == $FORM{'e_no'}){
	    if($FORM{'action'} eq "del"){
		print WFP "+<!--$ENV{'REMOTE_HOST'}-->";
		print WFP $_;
	    }elsif($FORM{'action'} eq "dark"){
		chop;
		$_ =~ s/^<font.*><!/<!/;
		$_ =~ s/<\/font>$>//;
		print WFP "<font color=\"$col_DARK\">$_</font>\n";
	    }elsif($FORM{'action'} eq "big"){
		chop;
		$_ =~ s/^<font.*><!/<!/;
		$_ =~ s/<\/font>$>//;
		print WFP "<font size=\"+2\">$_</font>\n";
	    }elsif($FORM{'action'} eq "regular"){
		chop;
		$_ =~ s/^<font.*><!/<!/;
		$_ =~ s/<\/font>$>//;
		print WFP "$_\n";
	    }elsif($FORM{'action'} eq "small"){
		chop;
		$_ =~ s/^<font.*><!/<!/;
		$_ =~ s/<\/font>$>//;
		print WFP "<font size=\"-5\">$_</font>\n";
	    }
	}else{
	    print WFP $_;
	}
    }
    close(WFP);
    close(FP);
}    


#----------------------------------------------------------------------------------------
#                                        HTML表示 hyouji
#
#----------------------------------------------------------------------------------------

select STDOUT;
# 新規メッセージ追加


########################cookie クッキー デバッグ表示
if ($DEBUG) {
print <<"EOF";
cookie=';
$ENV{'HTTP_COOKIE'}
$DEBUG
EOF
}
########################

print("<table border=2 width=690 bgcolor=\"$col_TABLEBG\">");


$FORM{'user'} =~ s/\"//g;;

print("<td align=\"right\" valign=\"top\" nowrap><font color=\"$col_TABLETX\">\n<b>発言者：</b></font></td>");


########################cookie クッキー　ユーザー名表示

print <<"EOF";
<td><input type="text" name="user" size=60 value="$COOKIE{'user'}" class="formA"></td>
<td width="25" rowspan="5" valign="top"><iframe src="http://rcm-jp.amazon.co.jp/e/cm?t=ielements-22&o=9&p=27&l=qs1&f=ifr" width="180" height="150" frameborder="0" scrolling="no"></iframe></td>
</tr>
<tr><td align="right"  valign="top" nowrap><font color="443333">
<b>メール：</b></font></td><td><input type="text" name="email" size=60 class="formA"></td>
</tr><tr><td align="right" valign="top" nowrap>
<b><font color="443333">タイトル：</font></b></td>
<td><input type="text" name="title" size=60 class="formA"></td>
</tr><tr><td align="right" valign="top" nowrap>
<font color="443333"><b>メッセージ：</b></font></td><td>
<textarea rows=4 cols=70 name="new" class="formA"></textarea>
</td>
</tr><tr>
  <td width=10 halign="right"></td>
  <td width=11 halign="right"><table width="400">
  <td width="400" nowrap></td>
      <td valign="top"><input type="submit" name="add" value="書き込む"></td>
    <td valign="top"><input name="reset" type="reset" value="消去"></form>
      </td>
  </tr>
  </table></td>
  </tr></table>
EOF
########################


#print("<tr><td>\n");
print("<b><font size=+1>\n");
#print("<center>注意事項<br>\n");
print("</b>\n");
print("</font>\n");
print("<font size=-2 color=\"\#FF5555\">\n");
print("下のリロードボタンでリロードできます。過去のログを見てるときはトップにリロードされます;-)");
print("</font>\n");
print("<a href=\"mailto:shinji\@am.il24.net\">バグレポートはこちらへ</a>");


#----------------------------------------------------------------------------------------------------
#-----------------------------------------------google検索
#----------------------------------------------------------------------------------------------------
if (0){
print('<table border=0 cellspacing=0 cellpadding=0> <tr><td align=center>');
print(' <TABLE bgcolor=FFFFFF  border=0 cellspacing=0 cellpadding=0>');
print('  <FORM METHOD=GET ACTION="http://www.google.co.jp/search">');
print('                  <TR> ');
print('                    <TD nowrap> <A HREF="http://www.google.co.jp/"> <IMG SRC="/images/google.gif"');
print('BORDER="0" ALT="Google" ALIGN="absmiddle" WIDTH="60" HEIGHT="20"></A> ');
print('                      <INPUT TYPE=text NAME=q SIZE=50 MAXLENGTH=255 VALUE="">');
print('                      <INPUT TYPE=hidden NAME=hl VALUE="ja">');
print('                      <INPUT TYPE=hidden NAME=ie VALUE="s-jis">');
print('                      <INPUT TYPE=image SRC="/images/glogin.gif" NAME=btnG VALUE="Google 検索" BORDER=0>');
print('                    </TD>');
print('                  </TR>');
print('                </FORM>');
print('              </TABLE> ');
print("</td></tr></table>");



}

if ($GOOGLE){
print <<"EOF";
<TABLE bgcolor=FFFFFF  border=0 cellspacing=0 cellpadding=0>
<tr>
<td valign = "top">
<A HREF="http://www.google.co.jp/">
   <IMG SRC="/images/google.gif" BORDER="0" ALT="Google" ALIGN="absmiddle" WIDTH="60" HEIGHT="20"></A>
</td>

  <td valign=top style="padding-top:0px">
<table border="0" cellpadding="0" cellspacing="0">
<form name=gs method=GET action="http://www.google.com/custom">
    <tr>
      <td>
　　　　　<input type="hidden" name="hl" value="ja" >
          <input type="hidden" name="domains" value="ja.wikipedia.org" >
          <input type="text" name="q" size="41" maxlength="2048" value="" title="Google 検索" >
          <input type="submit" name="btnG" value="Google 検索" >
  </td>
    </tr>
</table>

<table cellpadding=0 cellspacing=0 border=0>
  <tr><td>
   <font size=-1>
   <INPUT id=www type=radio name=sitesearch value="" checked>
   <label for=www> ウェブ全体から検索 </label>
   <INPUT id=site1 type=radio name=sitesearch value="ja.wikipedia.org">
   <label for=site1> ja.wikipedia.orgを検索 </label> </font>
  </td></tr>
</table>
</td>
</form>
</tr></table>
EOF
}


#----------------------------------------------------------------------------------------------------

$date = `date "+%y%m%e%a%H%M%S"`;
chop($date);

$dated =  $date;
$dated =~ s/ //;
$dated =~ s/\n//;

#print("<br><a href=\"$scriptname?user=$FORM{'user'}&$dated\"\">[リロード]</a></center>\n");
print("<a href=\"$scriptname?$dated\"\">[リロード]</a></center>\n");
#print("</td></tr>\n");

#----------------------------------------------------------------------------------------------------
#-----------------------------------------------発言表示 hatugen hyouji
#----------------------------------------------------------------------------------------------------

$i = 0;
$start = 0;
$hyoujiNo = 40;
$start = $FORM{'startNo'};
#printf ("startNo =  %i", $FORM{'startNo'});
$end   = $start+$hyoujiNo;

#if(($ENV{'REMOTE_ADDR'} =~ /^192\.168\.1\./) && ($REMOTE_ADDR_check = TRUE)){
printf($ENV{'REMOTE_ADDR'} ." ". ($ENV{'REMOTE_ADDR'} =~ /^192\.168\./) . " " . true);
if(($REMOTE_ADDR_check eq FALSE) || ($ENV{'REMOTE_ADDR'} =~ /^192\.168\.1\./) || ($FORM{'user'} eq $user1 ) || ($FORM{'user'} eq $user2 )){

open(FP,"bbs.log");		# ログファイルオープン
while(<FP>){
    $i++;
    chop;
    # メッセージ表示
    if ($start < $i){
	unless ($_ =~ /^\+.*/){	# 追加
	    print("<hr>");
	    print("<table width=\"100%\">");
	    print("<tr>");
	    print("<td class=\"kaigyou\">");
	    $_ =~ s/<!--.*-->,//;

	    if ($FORM{'inside'}){
		$_ =~ s/203.141.145.139/starfish/g;
	    };
	    print($_);
	    ######## 追加
	    $e_no = $_;
	    $e_no =~ s/^.*番号：//; 
	    $e_no =~ s/ ）.*$//;
	if ($EDIT_DISP_check  eq TRUE){
	    print("<a href=$scriptname?e_no=$e_no&run=edit&action=del>[削除]<a>");
	    print("<a href=$scriptname?e_no=$e_no&run=edit&action=dark>[暗くなる]<a>");

	    print("<a href=$scriptname?e_no=$e_no&run=edit&action=big>[拡大]<a>");
	    print("<a href=$scriptname?e_no=$e_no&run=edit&action=regular>[戻る]<a>");
	    print("<a href=$scriptname?e_no=$e_no&run=edit&action=small>[縮小]<a>");
	}
	    ######## 追加
	    print("</td>");
	    print("</tr>");
	    print("</table>");
	    if ($i > $end-1){ last;}
	    print "\n";
	}
    }
}
close(FP);

}
#---------------------------------
$nextStart = $FORM{'startNo'}+$hyoujiNo;
if ($i > $end-1){
    print("<hr><center><a href=\"$scriptname?user=$FORM{'user'}&startNo=$nextStart&$dated\"\">[過去 $hyoujiNo 件表\示]</a></center>\n");
}else{
    print("<hr><center><font color=\"red\">[表\示終了]</font></center>");
#    print("<a href=\"../goto.cgi?cgi=bbs-futomomo/oldbbs.cgi\"><b>[もっと昔に行って見る]</b></a>\n");
}
print("<hr>\n");
print $back_URL;
print("<br><a href=\"versions.cgi\">Copy right (C) Silly-BBS V-$softversion shinji kubo All rights Reserved</a>\n");
print("</center>\n");
print("</form>\n");



#----------------------------------------------------------------------------------------
#                                        HTML終了
#
#----------------------------------------------------------------------------------------
print("</body>\n");
print("</html>\n");
if ($FORM{'run'} eq go && $FORM{'user'} eq "shinji"){$dummy = `./nkfsd bbs.log`;}
if ($FORM{run} eq 'go'){
    unlink("lock");
}
if ($FORM{run} eq 'edit'){
    unlink("lock");
}
system ("chmod 660 *.log *.log*");