Subject: Re: [LINUX:9972] perl de ip no
From: Cenk Hasirlioglu (cenkh@gau.edu.tr)
Date: Mon 01 Nov 1999 - 16:53:01 EET
Abdullah BAYKAL wrote:
>
> Selamlar,
> gerci konu ile alakali degil ama, perl le ilgli bir liste bulamdim.
> perl'le hazirladigimiz bir cgi icinden baglanan makinanin ip numarasini
> nasil elde edebiliriz.
> perl de bu $ENV(REMOTEHOST) ile elde edilebiliyor ama, bunu web
> uzerinden cgi olarak calistirinca elde edilemiyor.
> iyi calismalar,
$ENV{'REMOTE_HOST'} remote hostname; $ENV{'REMOTE_ADDR'} ise remote ip yi verir
fakat http.conf ta 'HostnameLookups off' dediyseniz $ENV{'REMOTE_HOST'} apache
bu ip yi resolve etmeyeceginden calismayacaktir. HostnameLookups off kalmak
zorundaysa asagidaki sekilde perl scripti ile lookup yapabilirsiniz.
-----8<-----
use Socket;
@ip = split(/\./, $ENV{'REMOTE_ADDR'});
$addr = pack('C4', @ip);
($name,$alias,$adrtype,$len,@address) = gethostbyaddr($addr, AF_INET);
-----8<-----
CH...
Listeden cikmak icin:
unsub linux
mesajini listeci@bilkent.edu.tr'a gonderiniz.
Lutfen Listeci icin MIME / HTML / Turkce Aksan kullanmayin.
Liste arsivinin adresi: http://listweb.bilkent.edu.tr/