Re: [Problem] Can't return Content-type with SERVER_ERROR

2001-07-30 Thread Paul Kulchenko
Hi, Stas! i think you want to use err_headers_out() instead. http://www.modperl.com/book/chapters/ch9.html#Server_Response_Methods Thanks for the help, but it seems like I'm using it already: $self-response-headers-scan(sub { $r-err_header_out(@_) }); #

RE: [Problem] Can't return Content-type with SERVER_ERROR

2001-07-30 Thread Geoffrey Young
-Original Message- From: Paul Kulchenko [mailto:[EMAIL PROTECTED]] Sent: Monday, July 30, 2001 2:53 AM To: Stas Bekman Cc: [EMAIL PROTECTED] Subject: Re: [Problem] Can't return Content-type with SERVER_ERROR [snip] it's the same as to use err_headers_out as far as I

RE: [Problem] Can't return Content-type with SERVER_ERROR

2001-07-30 Thread Paul Kulchenko
wishes, Paul. --- Geoffrey Young [EMAIL PROTECTED] wrote: -Original Message- From: Paul Kulchenko [mailto:[EMAIL PROTECTED]] Sent: Monday, July 30, 2001 2:53 AM To: Stas Bekman Cc: [EMAIL PROTECTED] Subject: Re: [Problem] Can't return Content-type with SERVER_ERROR [snip

RE: [Problem] Can't return Content-type with SERVER_ERROR

2001-07-30 Thread Stas Bekman
On Mon, 30 Jul 2001, Paul Kulchenko wrote: Hi, Geoffrey! your procedure is correct. well, except that you can't do what you want :) take a look at http_protocol.c - 'r-content_type = text/html; charset=iso-8859-1;' is hardcoded in ap_send_error_response(), so it's an apache

[Problem] Can't return Content-type with SERVER_ERROR

2001-07-29 Thread Paul Kulchenko
Hi, All! Code is simple, but I can't return custom content-type with SERVER_ERROR: sub handler { . $self-response is HTTP::Response object if ($self-response-is_success) { $self-response-headers-scan(sub { $r-header_out(@_) }); $r-send_http_header(join '; ',

Re: [Problem] Can't return Content-type with SERVER_ERROR

2001-07-29 Thread Stas Bekman
On Sun, 29 Jul 2001, Paul Kulchenko wrote: Hi, All! Code is simple, but I can't return custom content-type with SERVER_ERROR: sub handler { . $self-response is HTTP::Response object if ($self-response-is_success) { $self-response-headers-scan(sub { $r-header_out(@_) });