Мне была предоставлена виртуальная машина в моей компании для установки веб-программного обеспечения. Но я столкнулся с довольно странной проблемой, когда переменные PHP будут перезаписаны (переписаны) сервером, если они соответствуют определенному шаблону. Что можно переписать переменные PHP, как это?
Ниже приведен полный сценарий.
<?php $foo = 'b.domain.com'; echo $foo; // 'dev01.sandbox.b.domain.com' $bar = 'dev01.sandbox.domain.com'; echo $bar; // 'dev01.sandbox.sandbox.domain.com' $var = 'b.domainfoo.com'; echo $var; // 'b.domainfoo.com' (not overwritten because it didn't match whatever RegEx has been set) ?> По существу, любая переменная, которая содержит субдомен и совпадает с именем домена, будет переписана. Это не то, что mod_rewrite мог бы коснуться, поэтому он должен быть чем-то на уровне сервера, который разбирает PHP и переписывает строку, если она соответствует RegEx.
В Apache можно выполнить перезапись вывода, используя mod_perl: PerlOutputFilterHandler.
Для установки фильтра вывода можно добавить в apache.conf следующее:
<FilesMatch "\.(html?|php|xml|css)$"> PerlSetVar Filter On PerlHandler MyApache2::FilterDomain PerlOutputFilterHandler MyApache2::FilterDomain </FilesMatch>
Пример кода обработчика фильтра:
#file:MyApache2/FilterDomain.pm #-------------------------------- package MyApache2::FilterDomain; use strict; use warnings; use Apache2::Filter(); use Apache2::RequestRec(); use APR::Table(); use Apache2::Const -compile => qw(OK); use constant BUFF_LEN => 1024; sub handler { my $f = shift; my @hostname = split(/\./, $f->r->hostname); my $new_hostname = $hostname[0].".".$hostname[1]; unless ($f->ctx) { $f->r->headers_out->unset('Content-Length'); $f->ctx(1); } while ($f->read(my $buffer, BUFF_LEN)) { $buffer =~ s/([a-z0-9]+)+\.domain\./$new_hostname\.$1.domain\./g; $f->print($buffer); } return Apache2::Const::OK; } 1;с#file:MyApache2/FilterDomain.pm #-------------------------------- package MyApache2::FilterDomain; use strict; use warnings; use Apache2::Filter(); use Apache2::RequestRec(); use APR::Table(); use Apache2::Const -compile => qw(OK); use constant BUFF_LEN => 1024; sub handler { my $f = shift; my @hostname = split(/\./, $f->r->hostname); my $new_hostname = $hostname[0].".".$hostname[1]; unless ($f->ctx) { $f->r->headers_out->unset('Content-Length'); $f->ctx(1); } while ($f->read(my $buffer, BUFF_LEN)) { $buffer =~ s/([a-z0-9]+)+\.domain\./$new_hostname\.$1.domain\./g; $f->print($buffer); } return Apache2::Const::OK; } 1;
Подробнее о фильтрах Apache mod_perl можно найти здесь: mod_perl: Фильтры ввода и вывода