Получить домен

[verfaa]

Необходимо в скрипте получить домен.
Проблема в том, что зона домена может быть как .com .net .org так и .in.net или .com.ua
Также в домене может присутствовать субдомен, т.е. он может прийти в виде:
sub.domen.com
subkey.domen.net
subsl.domen.in.net
domen.ru
domen.com.ua

Доменные зоны могут быть самые разные, могут присутствовать или отсутствовать субдомены.
Есть ли простое решение этой задачи?

В коде вида:

$host = str_replace(array("http://", "www."), "", strtolower($_SERVER['HTTP_HOST']));
$domain = implode(".", array_slice(explode(".", $host), -2, 2));

возникают проблемы с доменами вида domen.in.net

 

[ykpon]

Для просмотра ссылки Войди или Зарегистрируйся

 

[latteo]

возникают проблемы с доменами вида domen.in.net

Крайне сложно с этим что-то сделать.
Нужно составить базу всех возможных доменов 2-3 уровня, которые имеют свой whois или позволяют регистрироваться типа ucoz.ru
Но автоматизировать это не очень просто + местами нужно вручную модерировать

UPD:
Ага, что-то типа такого, как в файле data\public-suffix-list.php

Для просмотра ссылки Войди или Зарегистрируйся