";
}
#--------- ログファイルの書き込み -------------------------------#
sub write_log {
if ($pcheck_flag != 1) { # 変数の取得 アクセス時にログを取っていなかった場合
$via = $ENV{'HTTP_VIA'};
$xfor = $ENV{'HTTP_X_FORWARDED_FOR'};
$for = $ENV{'HTTP_FORWARDED'};
$agent = $ENV{'HTTP_USER_AGENT'};
}
if ($alog != 1) {
$value_size = length($via);
if ( $value_size > 150) { &error('x'); }
$value_size = length($for);
if ( $value_size > 150) { &error('x'); }
$value_size = length($agent);
if ( $value_size > 150) { &error('x'); }
}
if ( ($kyoka eq "") && ($proxy == 1) ) {
&proxy;
} elsif ( ($host !~ /$kyoka/) && ($proxy == 1) ) {
&proxy;
}
&code_check;
if ($FORM{'spwd'} =~ /\W/ || length($FORM{'spwd'}) > 8) {
&errorz('入力ミス','削除パスワード欄は8文字以内の半角英数字で記入して下さい。
これは記事の削除時に利用するものです。');
}
# 書き込み内容の容量チェック
if ($max_s) {
$value_size = length($FORM{'subject'});
if ($value_size > $max_s) {
&errorz('タイトルが長過ぎます（＾＾；',"タイトルが最大記録サイズ$max_sを超えています。現在$value_sizeサイズです。");
}
}
if ($max_n) {
$value_size = length($FORM{'name'});
if ($value_size > $max_n) {
&errorz('お名前が長過ぎます（＾＾；',"お名前が最大記録サイズ$max_nを超えています。現在$value_sizeサイズです。");
}
}
if ($max_v) {
$value_size = length($FORM{'value'});
if ($value_size > $max_v) {
&errorz('内容が長過ぎます（＾＾；',"書き込み内容が最大記録サイズ$max_vを超えています。現在$value_sizeサイズです。");
}
}
if ($max_line) {
$value_size = ($FORM{'value'} =~ tr/\r/\r/) + 1; # \r の数を数える
if ($value_size > $max_line) {
&errorz('行数が多過ぎです（＾＾；',"書き込み内容の行数が最大行数$max_lineを超えています。現在$value_sizeサイズです。");
}
}
# 行数チェック後にタグへ置換する
$FORM{'value'} =~ s/\r/
/g;
if ($max_mail) {
$value_size = length($FORM{'email'});
if ($value_size > $max_mail) {
&errorz('メールアドレスが長過ぎます（＾＾；',"メールアドレスが最大記録サイズ$max_mail文字を超えています。現在$value_sizeサイズです。");
}
}
if ($max_home) {
$value_size = length($FORM{'website'});
if ($value_size > $max_home) {
&errorz('ホームページアドレスが長過ぎます（＾＾；',"ホームページアドレスが最大記録サイズ$max_home文字を超えています。現在$value_sizeサイズです。");
}
}
# 偽名拒否の処理
if ($gimei) {
if ($g_length == 1) {
if (crypt($FORM{'spwd'}, substr($password,$salt,2)) ne $password) {
@adminword = split(/\s+/ , $admin);
foreach $admin (@adminword) {
if ($FORM{'name'} =~ /$admin/i) {
&jump;
}
}
}
}
else {
$idflag = 0;
if (($FORM{'name'} =~ /\W/) || ($master =~ /\W/)) { $idflag = 1; }
if (crypt($FORM{'spwd'}, substr($password,$salt,2)) ne $password) {
@adminword = split(/\s+/ , $admin);
foreach $admin (@adminword) {
if (($idflag == 1) && ($FORM{'name'} eq "$admin")) {
&jump;
}
elsif (($idflag == 0) && ($FORM{'name'} =~ /^$admin$/i)) {
&jump;
}
}
}
}
}
if (($d_check) || ($p_check)) {
&dp_check;
}
$agent =~ s/,/./g;
$via =~ s/,/./g;
$for =~ s/,/./g;
$trueip =~ s/,/./g;
$idflag = 0;
if (($FORM{'name'} =~ /\W/) || ($master =~ /\W/)) { $idflag = 1; }
if ((crypt($FORM{'spwd'}, substr($password,$salt,2)) eq $password ) && ($idflag == 1) && ($FORM{'name'} eq "$master")) {
$spwd = "$master_id";
} elsif ((crypt($FORM{'spwd'}, substr($password,$salt,2)) eq $password ) && ($idflag == 0) && ($FORM{'name'} =~ /^$master$/i)) {
$spwd = "$master_id";
}
elsif (($use_id == 1) && ($FORM{'spwd'})) {
$idpwd = crypt($FORM{'spwd'}, &mkSalt($FORM{'name'}.$FORM{'spwd'}.$idps) );
open(ID,"$idlist") || die "Can't Open ID List: $!\n";
while (
) {
($number0, $id, $date0, $idpass0, $name0, $host0, $addr0, $via0, $for0, $trueip0, $agent0, $checkcode) = split(/\,/,);
if (($FORM{'name'} =~ /\W/) || ($name0 =~ /\W/)) {
if (($FORM{'name'} eq $name0) && ($idpwd eq $idpass0)) {
$spwd = "$id\:$idpwd";
last;
}
}
elsif (($FORM{'name'} =~ /^$name0$/i) && ($idpwd eq $idpass0)) {
$spwd = "$id\:$idpwd";
last;
}
}
close(ID);
if ($spwd eq "") {
if ($FORM{'spwd'}) {
$spwd = crypt($FORM{'spwd'}, &mkSalt($FORM{'name'}.$FORM{'spwd'}.$idps) );
} else {
$spwd = '';
}
}
} elsif ($FORM{'spwd'}) {
$spwd = crypt($FORM{'spwd'}, &mkSalt($FORM{'name'}.$FORM{'spwd'}.$idps) );
} else {
$spwd = '';
}
if (($FORM{'subject'} eq '') || ($FORM{'subject'} eq ' ') || ($FORM{'subject'} eq ' ')) { $FORM{'subject'} = "(No Subject)"; }
#追加した部分（色変更）
if (($FORM{'color'} =~ /\D/) || ($FORM{'color'} < 0) || ($FORM{'color'} > @colors)) {
&error('x');
}
$postcolor = $colors[$FORM{'color'}];
if ($postcolor) { $FORM{'value'} = "$FORM{'value'}"; }
#####
if ($FORM{'mode'} eq 'res') {
$res_num = $FORM{'res'};
$res_code = $FORM{'res_code'};
&write_log2;
}
# ログファイル読み込み
if ( !open(DB,"$file") ) { &error('0'); }
@lines = ;
close(DB);
$k = 1;
$delete = 0;
foreach $line (@lines) {
#$i++;
($number, $spwd_d, $date, $name, $email, $value_d, $subject, $link, $host_d, $addr_d, $via_d, $for_d, $trueip_d, $agent_d, $website_d, $checkcode, $r_total) = split(/\,/,$line);
if ($r_total) {
$k++;
if ($k > $max) { $delete = 1; }
}
if ($delete == 1) { last; }
push(@new, $line);
}
$value = "$date_num\,$spwd\,$date_now\,$FORM{'name'}\,$FORM{'email'}\,$FORM{'value'}\,$FORM{'subject'}\,$FORM{'link'}\,$host\,$addr\,$via\,$for\,$trueip\,$agent\,$FORM{'website'}\,$dukecheck\,0\n";
unshift(@new, $value);
if ( !open(DB,">>$file") ) { &error('0'); }
if ($use_flock == 1) {
flock(DB, 2);
}
truncate(DB, 0);
print DB @new;
close(DB);
#投稿されたチェックコードを記録する
if ( !open(LOG,"$code_log") ) { &error('0'); }
@lines = ;
close(LOG);
unshift(@lines, "$dukecheck\n");
pop @lines while @lines > $maxline;
if ( !open(LOG,">$code_log") ) { &error('0'); }
print LOG @lines;
close(LOG);
}
#-------- レスの書き込み-----------#
sub write_log2 {
#
# ここでレス元サーチをしてその下にレスを入れる。
#
$data_num = 0;
# ログファイル読み込み
if ( !open(DB,"$file") ) { &error('0'); }
@lines = ;
close(DB);
foreach $lines (@lines) {
$data_num++;
($number, $spwd_d, $date, $name, $email, $value, $subject, $link, $host_d, $addr_d, $via_d, $for_d, $trueip_d, $agent_d, $website, $checkcode, $r_total) = split(/\,/,$lines);
if (($number eq $res_num) && ($checkcode eq $res_code)) {
if (($r_total > $max_res) && ($max_res)) { &errorz('返信数オーバー','返信が制限数を超えています。新しくスレッドを作成してください。'); }
$tdata_num = $data_num - 1;
$data_num = $data_num + $r_total;
$r_total++;
$lines = "$number\,$spwd_d\,$date\,$name\,$email\,$value\,$subject\,$link\,$host_d\,$addr_d\,$via_d\,$for_d\,$trueip_d\,$agent_d\,$website\,$checkcode\,$r_total\n";
if (($FORM{'subject'} eq '') || ($FORM{'subject'} eq ' ') || ($FORM{'subject'} eq ' ')) { $FORM{'subject'} = "(No Subject)"; }
$value = "$date_num\,$spwd\,$date_now\,$FORM{'name'}\,$FORM{'email'}\,$FORM{'value'}\,$FORM{'subject'}\,$FORM{'link'}\,$host\,$addr\,$via\,$for\,$trueip\,$agent\,$FORM{'website'}\,$dukecheck\,\,\n";
splice( @lines, $data_num, 0, "$value" );
if (($resup == 1) && ($data_num != 1)) {
$data_num++;
for ($l = $tdata_num; $l < $data_num; $l++) {
push(@uplist, $lines[$l]);
}
splice( @lines, $tdata_num, $data_num - $tdata_num );
@uplist = reverse( @uplist );
for ($l = 0; $l < @uplist; $l++) {
unshift( @lines, $uplist[$l]);
}
}
if ( !open(DB,">>$file") ) { &error('0'); }
if ($use_flock == 1) {
flock(DB, 2);
}
truncate(DB, 0);
print DB @lines;
close(DB);
#投稿されたチェックコードを記録する
if ( !open(LOG,"$code_log") ) { &error('0'); }
@lines = ;
close(LOG);
unshift(@lines, "$dukecheck\n");
pop @lines while @lines > $maxline;
if ( !open(LOG,">$code_log") ) { &error('0'); }
print LOG @lines;
close(LOG);
&html;
}
}
}
#--- 管理者モード ---------------------#
sub admin {
print <<"_HTML_";
Content-type: text/html
管理者モード
$body
$style
管理者モード
掲示板へ戻る ホームへ
_HTML_
exit;
}
#-------- 管理者パスワード登録＆暗号化 -----------------------#
sub password {
$psold = $FORM{'password_old'};
$pas1 = $FORM{'password'};
$pas2 = $FORM{'password2'};
print <<"_HTML_";
Content-type: text/html
$title
$style
$body
管理者パスワードの設定\／変更画面
_HTML_
if ($start == 1 && $pas1 eq '') {
print "管理者パスワードをこのページで設定\します。\n";
} elsif ($pas1 =~ /\W/) {
print "新パスワードに英数字以外の文字が含まれています。
\n";
} elsif ( $pas1 ne '' && $pas1 ne $pas2 ){
print "確認のために入力された新パスワードが一致しません。
\n";
} elsif ( $start != 1 && $psold eq '' ) {
print "旧パスワードも入力して下さい。
\n";
} elsif ( $start != 1 && (crypt($psold, substr($password, $salt, 2) ) ne $password) ){
print "旧パスワードが認証されませんでした。
\n";
} elsif ( ($start == 1) && ($FORM{'id_password'} eq '') || ($FORM{'id_password'} =~ /\W/) ){
print "ＩＤ暗号化用のパスワードが入力されていないか、英数字以外の文字が含まれています。
\n";
} else {
$now = time;
($p1, $p2) = unpack("C2", $now);
$wk = $now / (60 * 60 * 24 * 7) + $p1 + $p2 - 8;
@saltset = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
$nsalt = $saltset[$wk % 64] . $saltset[$now % 64];
$pwd = crypt($FORM{'password'}, $nsalt);
if ($FORM{'id_password'} eq '') {
$pwd2 = $idps;
} else {
$pwd2 = crypt($FORM{'id_password'}, $nsalt);
}
if ( !open(DB,">$pass") ) { &error('0'); }
print DB "crypt_password:$pwd\n";
print DB "id_password:$pwd2\n";
close(DB);
print "管理者パスワードが設定\されました。
[ＮＥＸＴ]←をクリックして下さい。
再度変更する場合は下記フォームで再入力しなおして下さい。
\n";
}
print "