WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:YYCHATで常にホストの表示

さくや [WriteDate : Tue Apr 24 23:07:12 2001]

初めて利用させていただきます。

KENT WEBさんのYYCHATのことなんですが
荒らし対策のため発言時にもホストを表示させたいと思っています。
どなたかご存じのかた、ぜひ知恵を貸してください。


Nobu3 [MAIL] [URL] [WriteDate : Wed Apr 25 09:07:07 2001]

400行目あたり
($da,$na,$com,$clr,$ico) = split(/<>/);
の部分を
($da,$na,$com,$clr,$ico,$addr) = split(/<>/);
にすれば、(たぶん)$addrにリモートアドレスが格納されます。

チャットでホストを逆引きするのは、(なんとなく)お奨めできませんが、
$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
で、(時々)$hostにリモートホストが入ります。
入らない事もあるので、
$host or $host = $addr;
のような処理も必要でしょう。


ちゃいぱ  [WriteDate : Wed Apr 25 09:09:11 2001]

YY-CHAT v1.82の403行目の

print "<font color=$clr><b>$na</b> > $com</font> <small>($da)</small>\n";



print "<font color=$clr><b>$na</b> > $com</font> <small>($da $addr)</small>\n";

でどうですか?
試してはいませんが...。


andi [WriteDate : Wed Apr 25 09:14:07 2001]

荒らしのタイプによっては逆効果になることがあるので気を付けて下さいね。


ちゃいぱ [WriteDate : Wed Apr 25 09:17:49 2001]

かぶった!
Nobu3さん、いつもありがとうございます。

しかも、私のは、ホストアドレスだった...。
また、しかも、400行で$addrをゲットしていなかった...。退散します...。


Nobu3 [MAIL] [URL] [WriteDate : Wed Apr 25 09:26:55 2001]

ちなみに、Perl4のことは考えてないので、あしからず。

念のため、
($da,$na,$com,$clr,$ico,$addr) = split(/<>/);

my($da,$na,$com,$clr,$ico,$addr) = split(/<>/);
にしておくと変数の競合がなくなっていいかもしれません。

andiさん発:
>荒らしのタイプによっては逆効果になることがあるので気を付けて下さいね。
ですね。まずは、荒らしと無縁になるような発言、ページ作成にいそしむのがいいと思います。

ちゃいぱさん発:
>また、しかも、400行で$addrをゲットしていなかった...。退散します...。
僕も試してないので、抜けがあるかも。です(笑)


さくや [WriteDate : Wed Apr 25 23:45:05 2001]

みなさまありがとうございます。無事できました。
おすすめできない事などはみなさまの言うとおりにして
実行しない事にします。
私自身も勉強してここの役にたてるようにがんばりますので
その時はまた、よろしくおねがいいたします。

回答(必須): 状態:

お名前(必須):

e-mail:

URL:




[戻る]
ChaichanPAPA's World