| 記事No | ： 2667 |
| 投稿日 | ： 2008/01/20(Sun) 14:58:11 |
| タイトル | ： ブログ風日記のセキュリティー |
| ID情報 | ： nazoyaba |
| 投稿者 | ： zippo |
| URL | ： http://pasokonn.mad.buttobi.net/ |
お久しぶりです。今、「KENTと作るワンランク上のPerl/CGIプログラミング」に付属の、「ブログ風日記」を利用していますが最近外国からのイタズラコメントに困っています。英文だけのコメントを受け付けない機能をつけたいのですがCGIは設置しかわかりません。どうプログラミングしたらいいのか教えてください。ちなみに借りているレンタルサーバによりトップしかいけないので所在を書いておきます。
「トップ」→「ブログ」から行けます。
| 記事No | ： 2671 |
| 投稿日 | ： 2008/01/22(Tue) 12:51:33 |
| タイトル | ： Re: ブログ風日記のセキュリティー |
| ID情報 | ： kent |
| 投稿者 | ： KENT |
> お久しぶりです。今、「KENTと作るワンランク上のPerl/CGIプログラミング」に付属の、「ブログ風日記」を利用していますが最近外国からのイタズラコメントに困っています。英文だけのコメントを受け付けない機能をつけたいのですがCGIは設置しかわかりません。どうプログラミングしたらいいのか教えてください。ちなみに借りているレンタルサーバによりトップしかいけないので所在を書いておきます。
> 「トップ」→「ブログ」から行けます。
以下の内容でいいと思います。
postcgi 22行目付近
■変更前
sub post_data {
# 入力チェック
my $err;
if ($in{'name'} eq "") { $err .= "名前が未入力です。<br>"; }
if ($in{'comment'} eq "") { $err .= "コメントが未入力です。<br>"; }
■変更後
sub post_data {
# 入力チェック
my $err;
if ($in{'name'} eq "") { $err .= "名前が未入力です。<br>"; }
if ($in{'comment'} eq "") { $err .= "コメントが未入力です。<br>"; }
if ($in{'comment'} !~ /[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]/) { $err .= "コメントに日本語が含まれていません<br>"; }
| 記事No | ： 2690 |
| 投稿日 | ： 2008/01/24(Thu) 21:41:41 |
| タイトル | ： Re^2: ブログ風日記のセキュリティー |
| ID情報 | ： nazoyaba |
| 投稿者 | ： zippo |
| URL | ： http://pasokonn.mad.buttobi.net/ |
> > お久しぶりです。今、「KENTと作るワンランク上のPerl/CGIプログラミング」に付属の、「ブログ風日記」を利用していますが最近外国からのイタズラコメントに困っています。英文だけのコメントを受け付けない機能をつけたいのですがCGIは設置しかわかりません。どうプログラミングしたらいいのか教えてください。ちなみに借りているレンタルサーバによりトップしかいけないので所在を書いておきます。
> > 「トップ」→「ブログ」から行けます。
>
> 以下の内容でいいと思います。
> postcgi 22行目付近
>
> ■変更前
> sub post_data {
> # 入力チェック
> my $err;
> if ($in{'name'} eq "") { $err .= "名前が未入力です。<br>"; }
> if ($in{'comment'} eq "") { $err .= "コメントが未入力です。<br>"; }
>
> ■変更後
> sub post_data {
> # 入力チェック
> my $err;
> if ($in{'name'} eq "") { $err .= "名前が未入力です。<br>"; }
> if ($in{'comment'} eq "") { $err .= "コメントが未入力です。<br>"; }
> if ($in{'comment'} !~ /[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]/) { $err .= "コメントに日本語が含まれていません<br>"; }
これを追記するとサーバーエラーしてしまいます。試行錯誤してみましたがやはりエラーしてしまいます。
| 記事No | ： 2705 |
| 投稿日 | ： 2008/01/25(Fri) 14:14:00 |
| タイトル | ： Re^3: ブログ風日記のセキュリティー |
| ID情報 | ： pachira |
| 投稿者 | ： pachira |
| URL | ： http://www5e.biglobe.ne.jp/~pachira/ |
> > > お久しぶりです。今、「KENTと作るワンランク上のPerl/CGIプログラミング」に付属の、「ブログ風日記」を利用していますが最近外国からのイタズラコメントに困っています。英文だけのコメントを受け付けない機能をつけたいのですがCGIは設置しかわかりません。どうプログラミングしたらいいのか教えてください。ちなみに借りているレンタルサーバによりトップしかいけないので所在を書いておきます。
> > > 「トップ」→「ブログ」から行けます。
> >
> > 以下の内容でいいと思います。
> > postcgi 22行目付近
> >
> > ■変更前
> > sub post_data {
> > # 入力チェック
> > my $err;
> > if ($in{'name'} eq "") { $err .= "名前が未入力です。<br>"; }
> > if ($in{'comment'} eq "") { $err .= "コメントが未入力です。<br>"; }
> >
> > ■変更後
> > sub post_data {
> > # 入力チェック
> > my $err;
> > if ($in{'name'} eq "") { $err .= "名前が未入力です。<br>"; }
> > if ($in{'comment'} eq "") { $err .= "コメントが未入力です。<br>"; }
> > if ($in{'comment'} !~ /[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]/) { $err .= "コメントに日本語が含まれていません<br>"; }
>
>
> これを追記するとサーバーエラーしてしまいます。試行錯誤してみましたがやはりエラーしてしまいます。
私の環境でテストしましたが、エラーも出ず正常に機能しますね。
あなたの何らかのミスでしょう。
| 記事No | ： 2714 |
| 投稿日 | ： 2008/01/25(Fri) 21:34:43 |
| タイトル | ： Re^4: ブログ風日記のセキュリティー |
| ID情報 | ： nazoyaba |
| 投稿者 | ： zippo |
| URL | ： http://pasokonn.mad.buttobi.net/ |
> > > > お久しぶりです。今、「KENTと作るワンランク上のPerl/CGIプログラミング」に付属の、「ブログ風日記」を利用していますが最近外国からのイタズラコメントに困っています。英文だけのコメントを受け付けない機能をつけたいのですがCGIは設置しかわかりません。どうプログラミングしたらいいのか教えてください。ちなみに借りているレンタルサーバによりトップしかいけないので所在を書いておきます。
> > > > 「トップ」→「ブログ」から行けます。
> > >
> > > 以下の内容でいいと思います。
> > > postcgi 22行目付近
> > >
> > > ■変更前
> > > sub post_data {
> > > # 入力チェック
> > > my $err;
> > > if ($in{'name'} eq "") { $err .= "名前が未入力です。<br>"; }
> > > if ($in{'comment'} eq "") { $err .= "コメントが未入力です。<br>"; }
> > >
> > > ■変更後
> > > sub post_data {
> > > # 入力チェック
> > > my $err;
> > > if ($in{'name'} eq "") { $err .= "名前が未入力です。<br>"; }
> > > if ($in{'comment'} eq "") { $err .= "コメントが未入力です。<br>"; }
> > > if ($in{'comment'} !~ /[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]/) { $err .= "コメントに日本語が含まれていません<br>"; }
> >
> >
> > これを追記するとサーバーエラーしてしまいます。試行錯誤してみましたがやはりエラーしてしまいます。
>
> 私の環境でテストしましたが、エラーも出ず正常に機能しますね。
> あなたの何らかのミスでしょう。
22行目からどこの行までというのがわかりません。よければ教えてください。
| 記事No | ： 2718 |
| 投稿日 | ： 2008/01/26(Sat) 09:53:10 |
| タイトル | ： Re^5: ブログ風日記のセキュリティー |
| ID情報 | ： pachira |
| 投稿者 | ： pachira |
| URL | ： http://www5e.biglobe.ne.jp/~pachira/ |
> 22行目からどこの行までというのがわかりません。よければ教えてください。
どの行までとは？
入力チェック部分に以下の１行を足すだけですけど。
if ($in{'comment'} !~ /[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]/) { $err .= "コメントに日本語が含まれていません<br>"; }
| 記事No | ： 2723 |
| 投稿日 | ： 2008/01/26(Sat) 17:54:55 |
| タイトル | ： Re^6: ブログ風日記のセキュリティー |
| ID情報 | ： nazoyaba |
| 投稿者 | ： zippo |
| URL | ： http://pasokonn.mad.buttobi.net/ |
> > 22行目からどこの行までというのがわかりません。よければ教えてください。
>
> どの行までとは？
> 入力チェック部分に以下の１行を足すだけですけど。
>
> if ($in{'comment'} !~ /[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]/) { $err .= "コメントに日本語が含まれていません<br>"; }
何回しても500 Internal Server Errorがでてしまうので、地道にスパム投稿と戦ってみます。今まで、ありがとうございました。これからもKENTWEBさんのCGIを使い続けて行きたいと思います。
| 記事No | ： 3142 |
| 投稿日 | ： 2008/03/10(Mon) 12:29:28 |
| タイトル | ： できました… |
| ID情報 | ： nazoyaba |
| 投稿者 | ： zippo |
| URL | ： http://pasokonn.mad.buttobi.net/ |
一時はあきらめたのですが、再度掲示板を見ながらしてみたらできました。単なる僕のミスでした。KENTさん，pachiraさんご協力ありがとうございました。