Помогите плиз

Всем привет....
Ребята будте добры подскажите как можно определить провайдера посетителя и операционную систему на его компе.
Заранее очень благодарен

[glebushka]

А ты у кого хостишься?
провайдер сугубо по IP - в Инете поищи списки, там по сочетаниям цифр определяется провайдер (не помню толи по первым трём, то ли ещё как).
Операционную систему - в лог-файле, (от туда же берёшь и IP:).

[glebushka]

Вот только причём здесь CGI-скрипты?

Честно говоря ничего не понял....
Я думал, что программно можно определить ОС и провайдера. Ведь в мире их десятки тысяч, и я думаю информация о них постоянно меняется, одни появляются, другие исчезают...
Просто я как-то раз наткнулся на пагу где обо мне дали всю такую инфу и вот себе такую же хочу.
to glebushka, сенкс за ответ
Может кто-нибудь знает другое решение данного вопроса?
З.Ы. Страничка 100% генерировалась cgi скриптом.

[Lion]

Unregistered

Просто я как-то раз наткнулся на пагу где обо мне дали всю такую инфу и вот себе такую же хочу.

юрл скажешь ?

to Lion
Честно, не помню, но щас попробую найти.

[Green Kakadu]

print qq~
Операционная система: $^O\\n
Ваш ip: $ENV{\'REMOTE_ADDR\'}\\n
Вы пришли: $ENV{\'HTTP_REFERER\'}\\n
Версия Perl: $]\\n
~;

Green Kakadu сенкс

print qq~
Операционная система: $^O\\n
~;

Вот только выдает ОС сервера, а мне нужно клиента, я посмотрел ОС есть в HTTP_USER_AGENT, но вот не знаю как ее от туда вытянуть???
А с провайдером есть у кого-нибудь решение?
Спасибо

[Green Kakadu]

А с провайдером есть у кого-нибудь решение?

Есть - тебе надо узнать какой хост соотв. данному ip (тут был где-то неподалеку топик, где NeoNox ответил)

HTTP_USER_AGENT

есть решение + узнать броузер:
http://forums.webscript.ru/showthread.php?s=&threadid=3594
топик называется "Анализ строки \'USER_AGENT\'"

[NeoNox]

тут был где-то неподалеку топик, где NeoNox ответил

Еще раз:

#!/usr/bin/perl

use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);

print header;


$ip = $ENV{\'REMOTE_ADDR\'};
@digits = split (/\\./, $ip);
$address = pack ("C4", @digits);
$host = gethostbyaddr ($address, 2);

print "$host";

to NeoNox ОГРОМНОЕ СПАСИБО, ВЫРУЧИЛ

[Green Kakadu]

use CGI qw(:all);

ведь также оставят... ты бы убрал что ли.

тогда уж:

use CGI qw(:html2);
И он же исключительно для вывода header,
т.е. можно вместо него вписать:

print "Content-Type: text/html\\n\\n";

и выкинуть use CGI

[NeoNox]

ведь также оставят... ты бы убрал что ли.

Дык это же пример. %)
В сыром виде его употреблять сложно...

Самое главное все работает!
Ребята, еще раз биг сенкс!!!