[Moscow.pm] request headers in apache1.3 + mod_perl

[Anton Yuzhaninov]

On 16.10.2008 16:22, Alex Povolotsky wrote:
> Anton Yuzhaninov wrote:
>> Кто нибуть знает способ получить в приложении работающем под первым 
>> апачем и mod_perl
>> заголовки http-запроса в том порядке, в каком их послал клиент?
>>
>> Такой код:
>>
>> use Apache;
>> my $h = Apache->request->headers_in;
>>
>> ... keys %{$h};
>>
>> Возвращает заголовки в неправильном порядке, хотя этот хэш "is tied to 
>> Apache::Table"
>>
> Очевидный вариант разбирать Apache->request->as_string ?
> 

К сожалению он тоже не сохраняет исходный порядок заголовков.

В скрипте:

warn Apache->request->as_string . "\n";

Тестирую телнетом:
Escape character is '^]'.
GET /cgi-bin-perl/id/test.cgi HTTP/1.0
Connection: close
ccc: xxx
bbb: aaa
xxx: yyy

HTTP/1.1 200 OK
Date: Thu, 16 Oct 2008 13:05:10 GMT
Server: Apache/1.3.39 (Unix) mod_perl/1.30
Connection: close
Content-Type: text/html; charset=windows-1251

В логе:

GET /cgi-bin-perl/id/test.cgi HTTP/1.0
bbb: aaa
ccc: xxx
Connection: close
xxx: yyy

HTTP/1.0 (null)

Скорее всего request->as_string сам берет заголовки из хэша.

-- 
WBR,
  Anton Yuzhaninov
  Rambler Mail