ホームに戻る > スレッド一覧 > 記事閲覧
[35] 本家 4.0 リリース
日時： 2011/08/18 00:35
名前： きりしま◆.CzKQna1OU ID:EuAJDMw. メールを送信する

本家が4.0になりました。
http://www.kent-web.com/bbs/patio.html

■WEB PATIO v4.0
・全画面をテンプレート式に変更。
・検索機能の検索範囲を、本文まで含めるようにした。
・画像認証（投稿キー）機能を改良。PNG連結式のライブラリー版とPerlモジュール
　を使用した本格版（Imnage::Magick必須）の2種を用意。
・内部動作を、CGI.pmモジュール利用方式に変更。

とのこと。

画像アップロードがImage::Magickに対応するんじゃないかなという読みは外れました。
きりしま式は少し様子見てから対応方法を考えます。
たぶん、4.0のソースコードを活かして、必要な機能だけ絞り込んで実装した方がいいのかな、
なんて思っています。
メンテ

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

4.02になっていますね。 ( No.1 )
日時： 2011/08/18 23:46
名前： きりしま◆.CzKQna1OU ID:EuAJDMw. メールを送信する

4.02で何が変わったかは分かりませんが、
とりあえず、テスト用に設置してみました。

http://kirishima.it/patio4/
メンテ
v4.5 が来ました ( No.2 )
日時： 2011/10/02 23:20
名前： きりしま◆.CzKQna1OU ID:YT4l79lU メールを送信する

Date : 2011/10/02 (Sun)

■Web Patio v4.5
・Image::Magickを利用したサムネイル画像の自動作成を可能とした（設定で指定可）。
・レス記事にも画像アップロードを可能とした。
・データ受理モジュールをCGI.pmからCGI::Minimalに変更した（実行速度の改善）。

待望のImage::Magickを使用したサムネイル作成、
レス記事への画像アップロードの標準対応。

今度の休みに早速設置してみようと思います。
メンテ
4.51 ( No.3 )
日時： 2011/10/25 14:07
名前： きりしま◆.CzKQna1OU ID:eFGTVVMc メールを送信する

ちょこっとテンプレートが修正されています。

4.5->4.51

/tmpl/bbs.html

L.70
!ico:fld_nor.gif! 標準
!ico:fld_clip.gif! 添付あり
!ico:fld_lock.gif! ロック中
!ico:fld_up.gif! アラーム
!ico:fld_ex.gif! 管理者コメント

!ico:fld_nor.gif! 標準
!ico:fld_img.gif! 画像あり
!ico:fld_lock.gif! ロック中
!ico:fld_bell.gif! アラーム
!ico:fld_ex.gif! 管理者コメント



/tmpl/read.html

L.58
<form action="!regist_cgi!" method="post" name="bbsform">

<form action="!regist_cgi!" method="post" name="bbsform" enctype="multipart/form-data">


L.83
<th>URL</th>
<td><input type="text" name="url" size="45" value="!fm_url!"></td>
</tr><tr>
<th>暗証キー</th>

<th>URL</th>
<td><input type="text" name="url" size="45" value="!fm_url!"></td>
</tr><tr>
<th>画像添付</th>
<td>
<input type="file" name="upfile1" size="45"><br>
<input type="file" name="upfile2" size="45"><br>
<input type="file" name="upfile3" size="45"><br>
</td>
</tr><tr>
<th>暗証キー</th>

メンテ
4.52 ( No.4 )
日時： 2011/10/25 14:08
名前： きりしま◆.CzKQna1OU ID:eFGTVVMc メールを送信する

1ヵ所のみの模様です。

4.51->4.52
admin.cgi
L.603
if ($cf{image_upl}) {

if ($cf{image_upl} && $in{art} == 0) {

メンテ
4.6 ( No.5 )
日時： 2011/11/01 23:13
名前： きりしま◆.CzKQna1OU ID:ewWGWIdk メールを送信する

CGI::Minimal
からの戻り値のエラーに対処したのでしょうか？
よくわかりません。

admin.cgi

L.24
my $cgi = CGI::Minimal->new;
my %in = &parse_form($cgi);

my $cgi = CGI::Minimal->new;
&err('容量オーバー') if ($cgi->truncated);
my %in = &parse_form($cgi);


check.cgi

L.27
<ul>
EOM

<ul>
<li>Perlバージョン : $]
EOM


patio.cgi

L.22
my $cgi = CGI::Minimal->new;
my %in = &parse_form($cgi);

my $cgi = CGI::Minimal->new;
&error('容量オーバー') if ($cgi->truncated);
my %in = &parse_form($cgi);


regist.cgi

L.22
my $cgi = CGI::Minimal->new;
my %in = &parse_form($cgi);

my $cgi = CGI::Minimal->new;
&error('容量オーバー') if ($cgi->truncated);
my %in = &parse_form($cgi);


メンテ
4.62 ( No.6 )
日時： 2012/02/22 13:53
名前： きりしま◆.CzKQna1OU ID:WKZ9ct/Q メールを送信する
参照： http://kirishima.it/mt/

admin.cgiでのタイトルの扱いを修正しているようです。

4.62

admin.cgi

L.454
&edit_form($subject,$mode,$log,$data);
↓
# スレッドタイトル
my ($sub2) = (split(/<>/, $top))[1];

# 個別修正フォーム
&edit_form($subject,$mode,$log,$data,$sub2);

L.492の後に追加
# 親記事の場合
if ($in{art} == 0) {
my ($num,$sub2,$res,$key) = split(/<>/, $top);
$top = "$num<>$in{sub}<>$res<>$key<>\n";
}


L.497の後に追加
# 親記事の場合indexも更新する
if ($in{art} == 0) {
my $idx = $in{data_now} ? $cf{nowfile} : $cf{pastfile};

my @log;
open(DAT,"+< $idx") or &error("open err: $idx");
eval "flock(DAT, 2);";
my $top = <DAT> if ($in{data_now});
while(<DAT>) {
chomp;
my ($no,$sub,$res,$nam,$upd,$las,$key,$upl) = split(/<>/);

if ($in{no} == $no) {
$_ = "$no<>$in{sub}<>$res<>$nam<>$upd<>$las<>$key<>$upl<>";
}
push(@log,"$_\n");
}
unshift(@log,$top) if ($in{data_now});
seek(DAT, 0, 0);
print DAT @log;
truncate(DAT, tell(DAT));
close(DAT);
}

L.549
my ($subject,$mode,$log,$data) = @_;
↓
my ($subject,$mode,$log,$data,$sub2) = @_;

L.574
<p class="ttl">■データメンテ[現行ログ] &gt; 個別メンテ &gt; スレッド名「q」 &gt; 記事「$sub」</p>
↓
<p class="ttl">■データメンテ[現行ログ] &gt; 個別メンテ &gt; スレッド名「$sub2」 &gt; 記事「$sub」</p>


regist.cgi

L.1085
$com =~ s/<br>/\n/;
↓
$com =~ s/<br>/\n/g;
メンテ
4.63 ( No.7 )
日時： 2012/02/27 22:00
名前： きりしま◆.CzKQna1OU ID:tUUdnPag メールを送信する
参照： http://kirishima.it/mt/

regist.cgi
の修正です。

L.357
$_ = "$in{res}<>$sub<>$res<>$nam<>$date<>$in{name}<>1<>$upl<>";
↓
$_ = "$in{res}<>$sub<>$res<>$nam<>$date<>$name<>1<>$upl<>";

■Web Patio v4.63
・スレッドへのレス記事にて、「ソートなし」を選択し、トリップ機能を使用
　した場合、トリップが正常に保存されない不具合を修正。

KentWeb新着情報
http://www.kent-web.com/pubc/magmag/index.html
メンテ
4.7 ( No.8 )
日時： 2012/03/10 00:06
名前： きりしま◆.CzKQna1OU ID:zWPydoE2 メールを送信する

本文以外で送信された改行対応

init.cgi

L.270
open(IN,"$cf{tmpldir}/error.html") || die;
↓
open(IN,"$cf{tmpldir}/error.html") or die;


regist.cgi

L.828

#-----------------------------------------------------------
# フォーム入力チェック
#-----------------------------------------------------------
sub form_check {
# コード変換
↓
#-----------------------------------------------------------
# フォーム入力チェック
#-----------------------------------------------------------
sub form_check {
# 改行カット
$in{sub} =~ s/<br>//g;
$in{name} =~ s/<br>//g;
$in{pwd} =~ s/<br>//g;
$in{captcha} =~ s/<br>//g;
$in{comment} =~ s/(<br>)+$//g;

# コード変換


メンテ
4.8 ( No.9 )
日時： 2012/03/28 18:54
名前： きりしま◆.CzKQna1OU ID:YTQGYHnw メールを送信する

/lib/captcha.pl

v3.1->v3.2

captcha.cgi

v3.01->v3.1

まあ、これらは改造しないと思うので、そのまま差し替えでいいんじゃないかと。
メンテ

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

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

   クッキー保存