mirror/nginx
1
0
Fork 0
mirror of https://github.com/nginx/nginx.git synced 2025-06-11 12:22:41 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

$r->status

Browse Source
This commit is contained in:
Igor Sysoev 2006-12-13 13:49:56 +00:00
parent 5a4344f5f8
commit b6ef94f49b
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/http/modules/perl/nginx.xs
View File

@ -93,6 +93,22 @@ ngx_http_perl_output(ngx_http_request_t *r, ngx_buf_t *b)
MODULE = nginx PACKAGE = nginx 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 void
send_http_header(r, ...) send_http_header(r, ...)
CODE: CODE: