А можно определить откуда пришел человек...

[NeoNox]

Хотя подожди, если эталон совпал с визитером то визитер уже не может быть \'\' Не прав?ИМХО прав!

Это я не прав. Не вник в смысл .

гм. а разве при инклуде скрипт не выдаёт страницу, в которую он инклудится?

именно так...

[alex007]

Да относится к CGI и Perlу

$ENV{\'HTTP_REFERER\'}

[ESE]

В общем скорее всего невыйдет ничего из этого ( а может и не кчему все это,ЛУЧШЕБЫ ВОДКИ ВЫПИЛИ)
 /глеб, приелось,но сейчас в тему :beer: /

[Unregistered]

В общем скорее всего невыйдет ничего из этого

Ну не совсем так. Можно выловить перловым скриптом $ENV, сгенерить фрейм, который будет скриптом с переданным значением. Через ж@пу, конечно, но работать будет...
(Это был NeoNox)

[ESE]

Ну я тоже об этом думал и мне тоже показалось это через ж
но всеже достигнуть цели любыми средствами !

ЗЫ: Помойму автор сабжа уже нашел выход на ПХП

if (strstr(getenv(\'HTTP_REFERER\'),\'yandex.ru\')) {
   include(\'yandex_pages.php\');
}else {
   include(\'not_yandex_pages.php\');
}
?>

[Eugene2001]

как раз собирался скинуть вам этот php код...

но может все-таки подскажите как это сделать на cgi "через ж@пу"?


Евгений

[glebushka]

Гм... Не знаю что именно имел в виду NeoNox,  предполагаю следующее:
сделать этот файл в виде фреймсета, один "невидимый фрейм" - размеры ноль (грузится пустая страничка, ну или твои философские размышления о сущности бытия, только в урезанном варианте, чтоб особо не тормозило, а большой фрейм будет ссылкой на скрипт, т.е. http://www.domen.ru/cgi-bin/script.cgi который как раз и будет анализировать $ENV{\'HTTP_REFERER\'} (как я помню он не будет возвращать файл фреймсета) и в зависимости от этого генерировать соответствующую страничку.
ЗЫ. Обожаю фреймы:-). Рулез фор эвер.
ЗЫЗЫ. Кстати эту трабл можно решить с помощью яваскрипта, в принципе даже без использования Перла... Но это уже история совсем другого форума:-)

[ESE]

NeoNox имел ввиду скорее всего такую конструкцию:
Генерится фрейм, ты прав глеб, только большой фрейм является уже прямо ссылкой на ок.htm или no_ok.htm
Но мне кажется автору сабжа показалось некрасивым то что страница, вернее адрес в броузере будет кривоват и поэтому он хочет, А давайте ка лучше его спросим, чего он хочет и почему простой редирект его не устраивает. Эй,

Eugene2001  

чего думаешь по этому поводу?

[Eugene2001]

простой редирект не устраивает только по одной причине... человек один раз попадет на страницу, а потом будет (и все, кому он даст ссылку) заходить спокойно сразу на нее...

[glebushka]

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

а почему не подходит вариант генерирования страницы скриптом, ведь это проще простого? И посторонние не пройдут:-).

[Eugene2001]

сорри... я прочитал переписку других участников ("В общем скорее всего невыйдет ничего из этого") и cтормозил...

подумал, что ваш способ, когда человек заходит на http://vasia.doma.net/cgi-bin/check.cgi тоже не работает...
----
вы предлагаете, чтобы посетитель заходил на http://vasia.doma.net/cgi-bin/check.cgi, где генерировалась бы нужная страница... и адрес бы не изменился, а так и остался бы... да?

подскажите пожалуйста, что мне написать в этом скрипте, чтобы подгрузить ok.htm или no.htm (в них будут грузиться и картинки и текст) - вариант, который предложил ESE (работающий в 99%) + исправления внесенные  NeoNox  и потом подправленные опять ESE?
 

Евгений

[Unregistered]

человек заходит на http://vasia.doma.net/cgi-bin/check.cgi тоже не работает...

работает!
Вот что надо написать в скрипте:
#!/usr/bin/perl
print "Content-type: text/html\\n\\n";
$etalon_url="http://vasia.doma.net";#Эталон url
$client_url=$ENV{\'HTTP_REFERER\'};# Откуда пришел
if (($etalon_url eq $client_url) or (!$client_url)){&ok}
else {&no_ok}
sub ok{
open C,"ok.htm";# ну вот тут надо правильно расчитать путь к ok.htm
print ;close C;
}
sub no_ok{
open C,"no_ok.htm";и соответственно к no_ok.htm
print ;close C;
}
Файлы могут называться и по-другому но находится в каталоге скрипта.

[Unregistered]

Это был glebushka:)

[Eugene2001]

СПАСИБО ОГРОМНОЕ ВСЕМ ЗА ПОМОЩЬ!!!

у вас очень полезный и дружелюбный для новичков форум!


с уважением,
Евгений