|
 |
Besucher IP --> HOST
Manchmal möchte man gerne aus der IP-Adresse den Hostname ermitteln, so dass z.B. in Gästebüchern oder Statistiken das Land abgeleitet werden kann. Die IP 194.230.229.90 sollte dann also z.B. nach pop-ls-14-2-2-dialup-90.freesurf.ch aufgelöst werden.
Bekanntermassen speichert Perl die IP in der Umgebungsvariable REMOTE_ADDR. Um diese IP in den Hostname aufzulö:sen sind folgende Zeilen notwendig:
$iaddr = inet_aton("$ENV{'REMOTE_ADDR'}");
$HOST = gethostbyaddr($iaddr, AF_INET);
Damit dies funktioniert muss im Script noch use Socket; eingetragen werden. Der Hostname der aktuellen IP des Besuchert steht nun in der Variable $HOST. Natürlich kann auch eine x-beliebige andere IP nach dem Hostnamen aufgelöst werden. Dazu muss sie einfach an der Stelle von $ENV{'REMOTE_ADDR'} eingetragen werden.
Dieser Artikel wurde zugesandt von: Jürg Sommer, knowledge@cgicorner.ch
Weiterführende Links:
- /cgi-bin/tools/iptohost.cgi Beispiel-Script, das die aktuelle IP in den Hostname umwandelt. Auf Wunsch kann auf der Antwortseite auch eine andere IP eingegeben werden, die aufgelöst werden soll.
 Diese Seite ist ein Teil von http://www.cgicorner.ch |
URL dieser Seite: http://www.cgicorner.ch/cgi-bin/kb/kb.cgi?file=iptohost.kb Letzte Änderung: 12. September 2001 |