[32] 本家 3.4 リリース
|
- 日時： 2011/07/06 10:47
- 名前： きりしま◆.CzKQna1OU
ID:bLKues.2
- 本家WebPatioが3.4になりました。
3.31からの違いをWinMergeで調べてみたところ、
3.31-3.4
*init.cgi
L.71
$authkey = 0;
よく考えたら、アクセス制限がデフォルトになっていました。
*regist.cgi
L.70
elsif ($in{url} && $in{url} !~ /^https?:\/\/[\w-.!~*'();\/?:\@&=+\$,%#]+$/) {
&error("URL情報が不正です");
}
L.98
# パスワード暗号化
if ($in{'pwd'} eq "") { $pwd = ""; }
else { $pwd = &encrypt($in{'pwd'}); }
↓
# パスワード暗号化
my $pwd;
if ($in{'pwd'} ne "") { $pwd = &encrypt($in{'pwd'}); }
L.115
# index展開
while(<DAT>) {
local($sub,$key) = (split(/<>/))[1,6];
$i++;
if ($sub eq $in{'sub'}) { $flg++; last; }
elsif ($key == 2) { push(@top,$_); next; }
if ($i >= $i_max) { push(@tmp,$_); }
else { push(@new,$_); }
}
# スレッド名重複チェック
↓
# index展開
while(<DAT>) {
local($sub,$key) = (split(/<>/))[1,6];
$i++;
# スレッド名重複
if ($sub eq $in{'sub'}) {
$flg++;
last;
} elsif ($key == 2) {
push(@top,$_);
next;
}
# 規定数オーバーは@tmp代入
if ($i >= $i_max) {
push(@tmp,$_);
# 規定数内は@new代入
} else {
push(@new,$_);
}
}
# スレッド名重複はエラー
L.186
# スレッド更新
open(OUT,">$logdir/$new.cgi") || &error("Write Error: $new.cgi");
print OUT "$new<>$i_sub<>0<>1<>\n";
print OUT "0<>$in{'sub'}<>$i_nam2<>$in{'email'}<>$i_com<>$date<>$host<>$pwd<>$in{'url'}<>$in{'mvw'}<>$my_id<>$time<>$ex{1},$w{1},$h{1}<>$ex{2},$w{2},$h{2}<>$ex{3},$w{3},$h{3}<>\n";
close(OUT);
# 参照ファイル生成
open(NO,">$logdir/$new.dat") || &error("Write Error: $new.dat");
print NO "0:";
close(NO);
↓
# スレッド更新
open(OUT,"+> $logdir/$new.cgi") || &error("Write Error: $new.cgi");
print OUT "$new<>$i_sub<>0<>1<>\n";
print OUT "0<>$in{'sub'}<>$i_nam2<>$in{'email'}<>$i_com<>$date<>$host<>$pwd<>$in{'url'}<>$in{'mvw'}<>$my_id<>$time<>$ex{1},$w{1},$h{1}<>$ex{2},$w{2},$h{2}<>$ex{3},$w{3},$h{3}<>\n";
close(OUT);
# 参照ファイル生成
open(NO,"+> $logdir/$new.dat") || &error("Write Error: $new.dat");
print NO "0:";
close(NO);
 |
|
