#!/usr/bin/perl
require './lib/jcode.pl';
#**************************************************************************
# 1.ファイル設定
#**************************************************************************
#スクリプト名
$cgi = 'kousin.cgi';
#ファイル名
$dat = 'kousin.txt';
#ロックファイル名
$lockfile = 'lock.lock';
#method
$meth = 'POST';
#**************************************************************************
# 3.外観設定
#**************************************************************************
#テーブルの色（管理画面）
$t_bg = '#ffd700';
#テーブル幅（管理画面）
$t_width = '80%';
#日付のフォント色
$f_color = '#000080';
#最大データ保存数
$d_max = '20';
#bodyタグ（ない場合でもは消さないで下さい）
$body = '';
#基本フォントサイズ。
$fonts = '3';
#cssファイルまでのパス。ない場合は''
$css = '';
#タイトル
$title = '最新情報';
#**************************************************************************
# 4.location設定
#**************************************************************************
#0/使用可能;1/使用不可能;location使用不可の場合（tok2やomosiro.comなど）は1にしてください。
$location = '0';
#----------------------------------日付取得
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = sprintf("%02d",$year + 1900);
$month = sprintf("%02d",$mon + 1);
$mday = sprintf("%02d",$mday);
$hour = sprintf("%02d",$hour);
$min = sprintf("%02d",$min);
if ( substr($month,0,1) == 0 ) { $month =~ s/0/ /; }
if ( substr($mday,0,1) == 0 ) { $mday =~ s/0/ /; }
$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];
$today = "$month/$mday($week) $hour:$min";
#----------------------------------処理開始
&decode;
&load;
if ( $FORM{'action'} eq "admin" ){
if ( $FORM{'pass'} ne $pass ) { &error("パスワードが違います"); }
&head;
&input;
&end_html;
exit;
}elsif( $FORM{'action'} eq "input" ){
&output;
exit;
}else {
&head;
&log;
&end_html;
exit;
}
#----------------------------------デコード
sub decode{
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\r\n/
/g;
$value =~ s/\n/
/g;
$value =~ s/\r/
/g;
&jcode'convert(*value,'sjis');
$FORM{$name} = $value;
}
}
#----------------------------------HTML書き出し
sub head{
print "Content-type: text/html\n\n";
print "\n";
print "$title\n";
print <<"EOF";
EOF
print "\n";
print "$body\n";
}
#----------------------------------html書き終わり
sub end_html{
print "\n";
}
#----------------------------------ログ表示
sub log{
$dm = @DAT;
for ( $i = $d ; ( $i < $dm ); $i++ ) {
chop $DAT[$i];
($day,$name,$url,$comment) = split(/,/,$DAT[$i]);
print "$comment
\n";
}
}
#----------------------------------入力画面
sub input{
print "\n";
}
#----------------------------------ファイル読み込み
sub load{
if ( !(open(IN,"$dat"))){ &error("ログファイル($dat)のオープンに失敗しました"); }
@DAT = ;
close (IN)
}
#----------------------------------ファイル書き出し
sub output {
if ( $FORM{'comment'} eq '') { &error("メッセージは省略出来ません。"); }
$dcnt = @DAT;
if ($dcnt >= $d_max) { pop(@DAT); }
$name = $FORM{'name'};
$url = $FORM{'url'};
$com = $FORM{'comment'};
unshift(@DAT,"$today,$name,$url,$com\n");
&filelock ; #ファイルロック
if ( !(open(OUT,">$dat"))) { &error("ログファイル($dat)のオープンに失敗しました"); }
print OUT @DAT;
close(OUT);
&fileunlock ; #ファイルロック解除
if ( $location == 0 ) { print "Location: $cgi?\n\n"; }
else {
&head;
print "書き込みが完了しました
\n";
print "モドル\n";
&end_html;
}
}
#----------------------------------エラー処理
sub error{
&head;
print "$_[0]\n";
print "$titleに戻る\n";
&end_html;
exit;
}
#----------------------------------ファイルロック
sub filelock {
$sw = 0;
foreach (1 .. 5) {
if (-e $lockfile) { sleep(1); }
else {
open(LOCK,">$lockfile");
close(LOCK);
$sw = 1;
return;
}
}
&error("只今他の方が書き込み中です。ブラウザの「戻る」で戻って再度登録を行って下さい。");
}
#----------------------------------ファイルロック解除
sub fileunlock {
if (-e $lockfile) { unlink($lockfile); }
}