ラウンジでＩＰアドレスを表示するには?

ななえ 1998/11/26(木) 19:25:17
ＨＰでラウンジを設置しているのですが、
ごくまれに悪質ないたずらが入ってきて困っています。

ほとんどはみんなの情報交換で仲良く使っているのですが、
ある特定の人だと思いますが誹謗中傷発言が入ってきます。

そこで、ＩＰが出れば少しはなくなるかな？と思いまして。
閉鎖だけはしたくないので何かいい案があったら教えてください。
お願いします。
ちなみに環境はｃｇｉはＯＫです。ｔｅｌｎｅｔは使えません。
というか技術がそれほどないのでどうせ使えないだろうと思って
契約していません。
パーミッションの変更程度はＦＴＰでできます。

mura 1998/11/26(木) 20:10:12
ラウンジはわからないですしPerlもいまひとつ詳しくないですが、
これでできると思います。

ホスト名
print "$ENV{'REMOTE_HOST'}";
IPアドレス
print "$ENV{'REMOTE_ADDR'}";

ホスト名の場合、自分のホスト名が出るのを好まない
一般の人もいるので一長一短ですが、
防止効果のメリットの方が勝ると私は思います。
これでいたずらが減ってきたらIPアドレス表示に変えてもいいですし。

ななえ 1998/11/26(木) 21:17:24
muraさん。ありがとうごさいます。
でも、どこに書けばいいのでしょうか？分かる方いらっしゃいませんか？
お願いします。助けてください。

B-Cus 1998/11/27(金) 01:16:56
まずは
　http://www.tohoho-web.com/cgi-bin/wwwlng.txt
と
　../199811/98110112.htm
をよーく見て、どこにどういう形で記録すればいいのか
ご自分で考えてみてはいかがでしょうか。

例えば

ななえ 1998/11/26(木) 19:25:17
IP: hoge.fuga.com

とするのも一つの手です。

記録するときは、sub createSubjectとsub writeMessageの中の
適当なところに、
　print OUT "IP: $ENV{$REMOTE_HOST}\n";
を入れとけばいいでしょう。

表示は、sub printSubjectの while (<IN>)ループの中で、
　} elsif ($head && $_ =~ /^IP: /) {
　　ごにょごにょ
　}
と書けばいいと思います。

B-Cus 1998/11/27(金) 01:19:43
> print OUT "IP: $ENV{$REMOTE_HOST}\n";

print OUT "IP: $ENV{REMOTE_HOST}\n"; の間違いですね。失礼。

そういえば、======とかFrom:とか書いちゃまずかったんでしたっけ？
でも一見大丈夫みたいですが。

スラきち [HomePage] 1998/11/27(金) 02:13:39
ラウンジでIPアドレスを表示させるのは逆に危険な場合もあります。

詳細は :
http://family.millto.net/~alice/guess/kiken.htm

なんでも、IPアドレスが分かればそのユーザーのコンピュータをダウンさせたりすることが出来るとか。したがって管理者用のログに残すのがベストだとこのページは言っています。

B-Cus 1998/11/27(金) 02:40:16
昔のSEGA BBSでは、「192.168.1.*」とか「*.hogehoge.ne.jp」とか
表記して、完全には特定できないようにしてましたね。

個人的には、
　「IPアドレスはできる限り公表する。それが発言者の最低限の責任。
　　DOSアタック(ping floodとかping of deathとかWinNukeとか)に対しては
　　パッチが出てるんだから素直にそれを当てるべき。」
という考えなんですが、もちろんそうでない考え方も
あることは理解しております。

[上に] [前に] [次に]