Написал простейший скрипт:
#!/usr/local/bin/perl -w
use strict;
use Apache::Request();
use Apache::Constants qw(OK REDIRECT);
my $r=Apache->request();
use Apache::Constants qw(REDIRECT OK);
$r->headers_out->set(Location => '');
$r->status(REDIRECT);
$r->send_http_header;
return OK;
А если убрать $r->send_http_header; ?
По-моему, вообще можно обойтись так:
use Apache::Constants qw(REDIRECT);
$r->headers_out->set(Location => '');
return REDIRECT;
--
Maxim Zakharov
Sochi, Russia