Mercurial > hg > nginx
changeset 915:28aa941811e6
$r->status
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Wed, 13 Dec 2006 13:49:56 +0000 |
parents | b10286697f8d |
children | 327aef5c6ac4 |
files | src/http/modules/perl/nginx.xs |
diffstat | 1 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/http/modules/perl/nginx.xs +++ b/src/http/modules/perl/nginx.xs @@ -94,6 +94,22 @@ MODULE = nginx PACKAGE = nginx void +status(r, code) + CODE: + + ngx_http_request_t *r; + + ngx_http_perl_set_request(r); + + r->headers_out.status = SvIV(ST(1)); + + ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0, + "perl status: %d", r->headers_out.status); + + XSRETURN_UNDEF; + + +void send_http_header(r, ...) CODE: