KENT-WEB サポートコーナー 過去ログ [ 0219 ]


記事No: 7562
投稿日: 2010/06/19(Sat) 08:00:43
タイトルアクセス制限
ID情報: jackin
投稿者: ジャックのパパ
URLhttp://www.jackin.mydns.jp/

ジャックのパパです。

POST-MAIL v4.3 (2008/02/13)を使わせていただいています。

最近、迷惑メールが増えたのでアクセス制限をかけました。
しかし、ホスト名で設定しましたが投稿できてしまいました。


# アクセス制限(複数あれば半角スペースで区切る、アスタリスク可)
# → 拒否ホスト名又はIPアドレスの記述例
# (前方一致は先頭に ^ をつける)【例】^210.12.345.*
# (後方一致は末尾に $ をつける)【例】*.anonymizer.com$


下記がソースですがチェックは$host ではなく、$addr で
行われています。$hostに直したら、正常に動作しました。

if ($host eq "") { $host = $addr; }

# チェック
if ($denyhost) {
my $flg;
foreach ( split(/\s+/, $denyhost) ) {
s/\./\\\./g;
s/\*/\.\*/g;

if ($addr =~ /$_/i) { $flg = 1; last; }
}

以上。


記事No: 7587
投稿日: 2010/06/24(Thu) 22:22:23
タイトル了解>ジャックのパパさん
ID情報: kent
投稿者: KENT

> ジャックのパパです。
>
> POST-MAIL v4.3 (2008/02/13)を使わせていただいています。
>
> 最近、迷惑メールが増えたのでアクセス制限をかけました。
> しかし、ホスト名で設定しましたが投稿できてしまいました。
>
>
> # アクセス制限(複数あれば半角スペースで区切る、アスタリスク可)
> # → 拒否ホスト名又はIPアドレスの記述例
> # (前方一致は先頭に ^ をつける)【例】^210.12.345.*
> # (後方一致は末尾に $ をつける)【例】*.anonymizer.com$
>
>
> 下記がソースですがチェックは$host ではなく、$addr で
> 行われています。$hostに直したら、正常に動作しました。
>
> if ($host eq "") { $host = $addr; }
>
> # チェック
> if ($denyhost) {
> my $flg;
> foreach ( split(/\s+/, $denyhost) ) {
> s/\./\\\./g;
> s/\*/\.\*/g;
>
> if ($addr =~ /$_/i) { $flg = 1; last; }
> }
>
> 以上。

ご指摘をありがとうございました。
早めに修正しておくようにします。


[検索ページ]