ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     21 May 2002  08:48:55
 To : Alan Long
 Subject : Re: cgi-script and SSI
 -------------------------------------------------------------------------------- 
 

 Alan Long <Alan.Long@p72.f1082.n5030.z2.fidonet.org> wrote:
 
 > * Created: at Tue, 21-May-2002 18:12 by Alan Long using timEd 1.10+.
 > 
 > Hello All!
 > 
 > Есть скрипт script.cgi, его могут вызвать либо напрямую из броузера (
 > http://www.sonehost.ru/cgi-bin/script.cgi ) , либо через <!--#include
 > virtual="/cgi-bin/script.cgi" --> из .shtml/.html документа на этом-же
 > сервере. Как мне в этом скрипте определить откуда вызвали этот скрипт ?
 
 "... вариантов здесь может быть множество ..." (с) Машина Времени.
 
 1). print $ENV{'SERVER_PROTOCOL'} eq 'INCLUDED' ? 'included' : 'standalone';
 
 2). my($uri) = $ENV{'REQUEST_URI'} =~ m|([^/]+)$|;
     my($name) = $ENV{'SCRIPT_NAME'} =~ m|([^/]+)$|;
     print $uri eq $name ? 'standalone' : 'included';
 
 P.S. второй вариант представляет чисто академический интерес по причине
 своей неэффективности сравнительно с первым.
 
 > -- 
 > With best,
 >     Ъ-·    Ъ
 >     Е-ЧLaі\і <alan@x-rays.eu.org>
 > 
 
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    cgi-script and SSI   Alan Long   21 May 2002 18:15:19   Re: cgi-script and SSI   Vladimir Podgorny   21 May 2002 08:48:55   cgi-script and SSI   Mitya Gladishev   21 May 2002 20:14:30