Mercurial > hg > nginx
comparison src/http/modules/perl/nginx.xs @ 915:28aa941811e6
$r->status
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Wed, 13 Dec 2006 13:49:56 +0000 |
parents | 7fa926a7926d |
children | 97489c43e755 |
comparison
equal
deleted
inserted
replaced
914:b10286697f8d | 915:28aa941811e6 |
---|---|
89 return ngx_http_output_filter(r, &out); | 89 return ngx_http_output_filter(r, &out); |
90 } | 90 } |
91 | 91 |
92 | 92 |
93 MODULE = nginx PACKAGE = nginx | 93 MODULE = nginx PACKAGE = nginx |
94 | |
95 | |
96 void | |
97 status(r, code) | |
98 CODE: | |
99 | |
100 ngx_http_request_t *r; | |
101 | |
102 ngx_http_perl_set_request(r); | |
103 | |
104 r->headers_out.status = SvIV(ST(1)); | |
105 | |
106 ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0, | |
107 "perl status: %d", r->headers_out.status); | |
108 | |
109 XSRETURN_UNDEF; | |
94 | 110 |
95 | 111 |
96 void | 112 void |
97 send_http_header(r, ...) | 113 send_http_header(r, ...) |
98 CODE: | 114 CODE: |