ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Michael Samanov                      2:550/5068.1515 01 Dec 2000  16:10:53
 To : danil@dapi.e-labs.ru
 Subject : Re: Apache::Registry + 404
 -------------------------------------------------------------------------------- 
 

 Hello, danil@dapi.e-labs.ru!
 
 At Fri, 01 Dec 00 12:28:11 +0300 danil@dapi.e-labs.ru wrote:
 
 >> При использовании Apache::Registry после того, как я пишу
 >> $r->status(404), апач очень долго тормозит перед выдачей
 >> результата. Если, скажем, 302, то отдается мгновенно.
 
 ddelr>         Просьба - скрипт в студию.
 
 Да, собственно, даже показывать нечего.
 
 ============================================================
 #!/usr/bin/perl
 
 use Apache;
 use HTML::Template;
 
 sub main {
   my $r = Apache->request;
 
   $r->uri =~ m!([^/]+)\.pl$!;
 
   my $tmpl = "$1.tmpl";
 
   unless(-e $r->lookup_uri($tmpl)->filename) {
     $r->status(404);
     $r->send_http_header;
     return;
   }
 
   $r->send_http_header;
 
   $tmpl = HTML::Template->new(filename => $tmpl);
 
   $r->print($tmpl->output);
 
 }
 
 main();
 ============================================================
 
 И заодно вопрос: нет ли какого стандартного модуля, чтоб
 воткнуть его как PerlHandler, и он бы только грузил скрипт и
 вызывал sub handler?
 
 Sincerely yours, Michael (mailto:mike@vlink.ru).
 --- ifmail v.2.14
  * Origin: Mike's home (2:550/5068.1515@fidonet)
 
 

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

Тема:    Автор:    Дата:    Re: Apache::Registry + 404   Danil V.Pismenny   01 Dec 2000 13:28:11   Re: Apache::Registry + 404   Michael Samanov   01 Dec 2000 16:10:53