Re: [apache-talk] Apache::Registry+REDIRECT

[Михаил Монашёв <postmaster@xxxxxxxxxxxxx>]

Здравствуйте Глеб,

Вот скрипт для редиректа.

#!/usr/local/bin/perl -w

use strict;
use POSIX qw(locale_h);
use locale;
setlocale(LC_CTYPE, "ru_SU.WINDOWS-1251");

use Apache::Constants qw(OK REDIRECT);
use Apache::Request;
use Apache::Cookie;

my $r=Apache->request();
$r->no_cache(1);

$r->headers_out->set(Location => 'http://mindmix.ru/');

$r->status(REDIRECT);
$r->send_http_header;

return OK;

С уважением,
Михаил Монашёв, SoftSearch.ru
Member of Independent Software Developers Forum (ISDEF)
mailto:postmaster@xxxxxxxxxxxxx
ICQ# 166233339
http://softsearch.ru/
Без бэкапа по жизни.