diff options
| author | Igor Sysoev <igor@sysoev.ru> | 2006-12-13 13:49:56 +0000 |
|---|---|---|
| committer | Igor Sysoev <igor@sysoev.ru> | 2006-12-13 13:49:56 +0000 |
| commit | b6ef94f49b2073d21a511eaadf11c5ef076f9f87 (patch) | |
| tree | 3a88f8de6385a948d2b6b1364dbeb3c710adbb98 /src | |
| parent | 5a4344f5f8fc76397d0bc3ea7abf8e3dd3814ee1 (diff) | |
| download | nginx-b6ef94f49b2073d21a511eaadf11c5ef076f9f87.tar.gz nginx-b6ef94f49b2073d21a511eaadf11c5ef076f9f87.zip | |
$r->status
Diffstat (limited to 'src')
| -rw-r--r-- | src/http/modules/perl/nginx.xs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/http/modules/perl/nginx.xs b/src/http/modules/perl/nginx.xs index 06bc9435e..558922c38 100644 --- 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: |