Fijxu/nginx-quic
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

$r->status

Browse source
This commit is contained in:
Igor Sysoev 2006-12-13 13:49:56 +00:00
parent 2142f717bc
commit 014278757d
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
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: