#!/usr/local/bin/perl

# <xmp>

# IpHost #1.0 (last update : 2002/12/02)
#  |-- (C) Snow Materia : URL : http://www3.to/materia/
#						: Mail: mindream@anet.ne.jp

# IPとHOSTアドレスを取得してJavaScriptとして出力するCGIです.
 

##--> ソース書き方.
# パスワードを書くページのどこかに以下のようなタグを書けばいいでしょうー
#
# <script type="text/javascript" src="./iphost.cgi"></script>

# <script type="text/javascript"><!--
# document.write('あなたのIPは、' + addr + 'で、<br>');
# document.write('あなたのHOSTは、' + host + 'です。<br>');
# //--></script>


$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};

if(!$host && $addr){ $host = (gethostbyaddr(pack("C4",split(/\./,$addr)),2))[0]; }

print "Content-type: text/plain\n\n";
print "var host = '$host';\n";
print "var addr = '$addr';\n";


# </xmp>

exit;