200X/00/12
昨日までは、HTMLを呼び出してからPOSTで送ってCGIを起動させ、HTMLを書きなおした後に また送信元HTMLに戻るって事をしてたけど、今日はCGIをいきなり呼びだして、データだけを 書きなおすって方法の掲示板を作成。
まぁPOSTで呼ばれたら、データ書きなおして、GETで呼ばれてるならそのまま過去のデータを表示？ ちゃんと出来てるのか？どうかは？疑問？なのですが？
ちゃんと動くからねぇ〜、たぶんちゃんと動いてるんでしょう(＾0^*オッホホ
if ($ENV{'REQUEST_METHOD'} eq "POST") もし？POSTなら次の処理って感じ(*^^*ゞ
HTML吐き出し部分にopenでログデータを読み込み緑の部分を追加(データを過去５件表示）
#!/usr/local/bin/perl
require './jcode.pl';

if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $naka, $ENV{"CONTENT_LENGTH"});

@nakami = split('&', $naka);

foreach(@nakami) {
($hidari, $migi) = split("=");
$migi =~ tr/+/ /;
$migi =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$migi =~ s/<;/＆lt;/g;
$migi =~ s/>;/＆gt;/g;
上2行は改行の制御部分ですが＆が全角です。
$migi =~ s/\r?\n/<BR>/gi;
$kaku{$hidari} = $migi;
}

( $byou, $hun, $ji, $hi, $tuki, $toshi, $you ) = localtime( time );
$hyouji = sprintf( "%04d年%02d月%02d日",$toshi + 1900, $tuki + 1, $hi );
$youbi = sprintf( "(%s)", ( "日", "月", "火", "水", "木", "金", "土")[$you] );
$jikan = sprintf( "%02d時%02d分%02d秒", $ji, $hun, $byou );

$name = $kaku{'name'};
$memo = $kaku{'memo'};

$ip = $ENV{'REMOTE_ADDR'};
$reurl = $ENV{'HTTP_REFERER'};
$host = $ENV{'REMOTE_HOST'};
$bura = $ENV{'HTTP_USER_AGENT'};


$logfile = "./logfile.txt";
$kanrifile = "./kanrifile.txt";

foreach( 1..5) {
if( mkdir($lock, 0755 ) ){
last;
}
else{
sleep( 1 );
}
}

open(LOGFILE, "+<$logfile");
@logs = <LOGFILE>;
$ban = $logs[0] +1;
$memo =~ s/\r?\n/<BR>/g;
$logdata = $ban."<table><tr><td><b>$name</b>[ $hyouji$youbi$jikan ]</td></tr><td>$memo</td></tr></table><hr>"."\n";
unshift( @logs, $logdata );
seek( LOGFILE, 0, 0 );
print LOGFILE @logs;
truncate( LOGFILE, tell( LOGFILE ));
close( LOGFILE );

open(KANRIFILE, "+<$kanrifile");
@kanri = <KANRIFILE>;
$nan = $kanri[0] +1;
$kanridata = $nan."\t".$name."\t".$hyouji."\t".$youbi."\t".$jikan."\t".$ip."\t".$reurl."\t".$host."\t".$bura."\n";
unshift( @kanri, $kanridata );
seek( KANRIFILE, 0, 0 );
print KANRIFILE @kanri;
truncate( KANRIFILE, tell( KANRIFILE ));
close( KANRIFILE );

rmdir( $lock );

}

print "Content-type: text/html\n\n";
print <<MAMA;
<META HTTP-EQUIV="Content-type"CONTENT="text/html"CHARSET="Shift_JIS">
<HTML>
<HEAD><TITLE>TESTBBS</TITLE></HEAD>
<BODY LINK="#000000" VLINK="#000000">
<FORM METHOD="POST" ACTION=\"****.cgi\">\n
name<INPUT NAME="name"><P>
message<TEXTAREA NAME="memo" ROWS="4" COLS="60">
</TEXTAREA><P>
<INPUT TYPE="submit" VALUE="submit">
<INPUT TYPE="reset" VALUE="reset">
<HR>
MAMA
$logfile = "./logfile.txt";
open(LOGFILE, "+<$logfile");
@logs = <LOGFILE>;
print $logs[0];
print $logs[1];
print $logs[2];
print $logs[3];
print $logs[4];
close( LOGFILE );
print "</form>";
print "</html>";

exit;
だんだんプログラムが長くなってきたなぁ(*^^*ゞ
よくネットに転がってるフリーの掲示板CGIなんか、説明文や関数名変更部分やエラーの処理なんかが多くて やたらめったら大きなプログラムみたいですが・・・たぶんやってることは私と同じような処理？？だと？？ 思います？？・・・たぶん(*^^*ゞ