Klaus Demo nginx / b6ef94f
$r->status Igor Sysoev 15 years ago
1 changed file(s) with 16 addition(s) and 0 deletion(s). Raw diff Collapse all Expand all
9090
9191
9292 MODULE = nginx PACKAGE = nginx
93
94
95 void
96 status(r, code)
97 CODE:
98
99 ngx_http_request_t *r;
100
101 ngx_http_perl_set_request(r);
102
103 r->headers_out.status = SvIV(ST(1));
104
105 ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
106 "perl status: %d", r->headers_out.status);
107
108 XSRETURN_UNDEF;
93109
94110
95111 void