ホームに戻る > スレッド一覧 > 記事閲覧

[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のソースコードを活かして、必要な機能だけ絞り込んで実装した方がいいのかな、 なんて思っています。

Page: 1 | 2 | 全部表示 スレッド一覧 新規スレッド作成

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 まあ、これらは改造しないと思うので、そのまま差し替えでいいんじゃないかと。

Page: 1 | 2 | 全部表示 スレッド一覧 新規スレッド作成

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