ホームに戻る > スレッド一覧 > 記事閲覧
[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);
メンテ

(全部表示中) もどる スレッド一覧 新規スレッド作成

大きな違いはないような ( No.1 )
日時: 2011/07/06 11:34
名前: きりしま◆.CzKQna1OU ID:bLKues.2 メールを送信する

ざっと見た感じでは、
記法が変わっているだけで、
等価のような気がします。
メンテ
検索が正常動作しない ( No.2 )
日時: 2011/07/22 07:04
名前: イニュイト ID:VwAcqeBI メールを送信する
参照: http://kamyu.net/

きりしま式 Web Patio v3.4 k1.00についてですが
ワード検索が正常に動作しないのですが・・・
これは確認済みでしょうか?

それとも自分の環境がいけないのかな?

動作する方居れば報告お願いいたします
メンテ
「検索」に関して ( No.3 )
日時: 2011/07/27 18:30
名前: よしむら ID:Hlm6l/oQ

確かに「検索」で500エラーが発生しますね。

本家3.4では正常に動作しています。
きりしま式の動作確認用でも500エラーが発生しているので、
イニュイトさんの環境ではなさげです。
メンテ
find.pl にバグがありました。 ( No.4 )
日時: 2011/07/29 22:22
名前: きりしま◆.CzKQna1OU ID:SnUfVYCU メールを送信する

lib/find.pl

147行目が

$enwd = &url_enc($in{'word'}); フォーム用に先に退避

となっていて、コメントアウトできていないのが原因です。

$enwd = &url_enc($in{'word'}); # フォーム用に先に退避

としてください。

この部分をいじったのは、0.98の時なので、それ以降は存在していたようです。

いちおう、修正したファイルをアップしました。
http://kirishima.it/patio/find_34k101.zip
メンテ
ありがとぉ ( No.5 )
日時: 2011/08/08 19:05
名前: イニュイト ID:.YuUd3Ls メールを送信する
参照: http://kamyu.net/

お早い修正対応ありがとうございます。

質問板などに活用さしていただいております。
作っていただきありがとうございました。
メンテ

(全部表示中) もどる スレッド一覧 新規スレッド作成

題名 タイトルは次の画面で設定してください
名前  「名前#任意の文字列」でトリップ生成
E-Mail 入力すると メールを送信する からメールを受け取れます(アドレス非表示)
URL
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存