mirror/nginx
1
0
Fork 0
mirror of https://github.com/nginx/nginx.git synced 2024-12-12 02:09:04 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

$r->log_error()

Browse Source
This commit is contained in:
Igor Sysoev 2006-12-12 19:33:13 +00:00
parent bf3aaac7ac
commit e8c5dc6ff4
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/http/modules/perl/nginx.xs
View File

@ -846,3 +846,37 @@ variable(r, name, value = NULL)
ngx_http_perl_set_targ(vv->data, vv->len, 0); ngx_http_perl_set_targ(vv->data, vv->len, 0);
ST(0) = TARG; ST(0) = TARG;
void
log_error(r, err, msg)
CODE:
ngx_http_request_t *r;
SV *err, *msg;
u_char *p;
STRLEN len;
ngx_err_t e;
ngx_http_perl_set_request(r);
err = ST(1);
if (SvROK(err) && SvTYPE(SvRV(err)) == SVt_PV) {
err = SvRV(err);
}
e = SvIV(err);
msg = ST(2);
if (SvROK(msg) && SvTYPE(SvRV(msg)) == SVt_PV) {
msg = SvRV(msg);
}
p = (u_char *) SvPV(msg, len);
ngx_log_error(NGX_LOG_ERR, r->connection->log, e,
"perl: %s", p);
XSRETURN_EMPTY;