Mercurial > hg > nginx-quic

comparison src/http/modules/perl/nginx.xs @ 915:28aa941811e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
$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: