annotate src/http/modules/perl/nginx.xs @ 7525:575480d3fd01

Perl: propagate errors. When an error happens, the ctx->error bit is now set, and croak() is called to terminate further processing. The ctx->error bit is checked in ngx_http_perl_call_handler() to cancel further processing, and is also checked in various output functions - to make sure these won't be called if croak() was handled by an eval{} in perl code. In particular, this ensures that output chain won't be called after errors, as filters might not expect this to happen. This fixes some segmentation faults under low memory conditions. Also this stops request processing after filter finalization or request body reading errors. For cases where an HTTP error status can be additionally returned (for example, 416 (Requested Range Not Satisfiable) from the range filter), the ctx->status field is also added.
author Maxim Dounin <mdounin@mdounin.ru>
date Fri, 12 Jul 2019 13:56:21 +0300
parents deebe988cbd7
children 8125552a10ca
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
1
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
2 /*
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
3 * Copyright (C) Igor Sysoev
4412
d620f497c50f Copyright updated.
Maxim Konovalov <maxim@nginx.com>
parents: 4196
diff changeset
4 * Copyright (C) Nginx, Inc.
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
5 */
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
6
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
7
882
26c3e48b9996 the PERL_NO_GET_CONTEXT is actually required, see perlguts
Igor Sysoev <igor@sysoev.ru>
parents: 869
diff changeset
8 #define PERL_NO_GET_CONTEXT
26c3e48b9996 the PERL_NO_GET_CONTEXT is actually required, see perlguts
Igor Sysoev <igor@sysoev.ru>
parents: 869
diff changeset
9
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
10 #include <ngx_config.h>
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
11 #include <ngx_core.h>
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
12 #include <ngx_http.h>
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
13 #include <ngx_http_perl_module.h>
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
14
603
858700ae46b4 nginx-0.3.23-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 601
diff changeset
15 #include "XSUB.h"
858700ae46b4 nginx-0.3.23-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 601
diff changeset
16
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
17
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
18 #define ngx_http_perl_set_request(r, ctx) \
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
19 \
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
20 ctx = INT2PTR(ngx_http_perl_ctx_t *, SvIV((SV *) SvRV(ST(0)))); \
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
21 r = ctx->request
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
22
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
23
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
24 #define ngx_http_perl_set_targ(p, len) \
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
25 \
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
26 SvUPGRADE(TARG, SVt_PV); \
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
27 SvPOK_on(TARG); \
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
28 sv_setpvn(TARG, (char *) p, len)
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
29
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
30
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
31 static ngx_int_t
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
32 ngx_http_perl_sv2str(pTHX_ ngx_http_request_t *r, ngx_str_t *s, SV *sv)
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
33 {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
34 u_char *p;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
35 STRLEN len;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
36
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
37 if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PV) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
38 sv = SvRV(sv);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
39 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
40
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
41 p = (u_char *) SvPV(sv, len);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
42
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
43 s->len = len;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
44
1703
43747661804d *) copy regex captures $1, $2, etc.
Igor Sysoev <igor@sysoev.ru>
parents: 1565
diff changeset
45 if (SvREADONLY(sv) && SvPOK(sv)) {
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
46 s->data = p;
1703
43747661804d *) copy regex captures $1, $2, etc.
Igor Sysoev <igor@sysoev.ru>
parents: 1565
diff changeset
47
43747661804d *) copy regex captures $1, $2, etc.
Igor Sysoev <igor@sysoev.ru>
parents: 1565
diff changeset
48 ngx_log_debug2(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
43747661804d *) copy regex captures $1, $2, etc.
Igor Sysoev <igor@sysoev.ru>
parents: 1565
diff changeset
49 "perl sv2str: %08XD \"%V\"", sv->sv_flags, s);
43747661804d *) copy regex captures $1, $2, etc.
Igor Sysoev <igor@sysoev.ru>
parents: 1565
diff changeset
50
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
51 return NGX_OK;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
52 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
53
2049
2a92804f4109 *) back out r2040
Igor Sysoev <igor@sysoev.ru>
parents: 1898
diff changeset
54 s->data = ngx_pnalloc(r->pool, len);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
55 if (s->data == NULL) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
56 return NGX_ERROR;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
57 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
58
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
59 ngx_memcpy(s->data, p, len);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
60
1703
43747661804d *) copy regex captures $1, $2, etc.
Igor Sysoev <igor@sysoev.ru>
parents: 1565
diff changeset
61 ngx_log_debug2(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
43747661804d *) copy regex captures $1, $2, etc.
Igor Sysoev <igor@sysoev.ru>
parents: 1565
diff changeset
62 "perl sv2str: %08XD \"%V\"", sv->sv_flags, s);
43747661804d *) copy regex captures $1, $2, etc.
Igor Sysoev <igor@sysoev.ru>
parents: 1565
diff changeset
63
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
64 return NGX_OK;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
65 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
66
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
67
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
68 static ngx_int_t
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
69 ngx_http_perl_output(ngx_http_request_t *r, ngx_http_perl_ctx_t *ctx,
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
70 ngx_buf_t *b)
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
71 {
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
72 ngx_chain_t out;
617
51b27717f140 nginx-0.3.30-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 613
diff changeset
73 #if (NGX_HTTP_SSI)
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
74 ngx_chain_t *cl;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
75
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
76 if (ctx->ssi) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
77 cl = ngx_alloc_chain_link(r->pool);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
78 if (cl == NULL) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
79 return NGX_ERROR;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
80 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
81
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
82 cl->buf = b;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
83 cl->next = NULL;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
84 *ctx->ssi->last_out = cl;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
85 ctx->ssi->last_out = &cl->next;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
86
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
87 return NGX_OK;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
88 }
617
51b27717f140 nginx-0.3.30-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 613
diff changeset
89 #endif
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
90
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
91 out.buf = b;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
92 out.next = NULL;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
93
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
94 return ngx_http_output_filter(r, &out);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
95 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
96
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
97
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
98 MODULE = nginx PACKAGE = nginx
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
99
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
100
6233
c6cc0b79a43d Perl: prototyping behavior explicitly specified.
Maxim Dounin <mdounin@mdounin.ru>
parents: 6232
diff changeset
101 PROTOTYPES: DISABLE
c6cc0b79a43d Perl: prototyping behavior explicitly specified.
Maxim Dounin <mdounin@mdounin.ru>
parents: 6232
diff changeset
102
c6cc0b79a43d Perl: prototyping behavior explicitly specified.
Maxim Dounin <mdounin@mdounin.ru>
parents: 6232
diff changeset
103
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
104 void
915
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
105 status(r, code)
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
106 CODE:
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
107
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
108 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
109 ngx_http_perl_ctx_t *ctx;
915
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
110
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
111 ngx_http_perl_set_request(r, ctx);
915
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
112
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
113 r->headers_out.status = SvIV(ST(1));
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
114
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
115 ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
116 "perl status: %d", r->headers_out.status);
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
117
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
118 XSRETURN_UNDEF;
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
119
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
120
28aa941811e6 $r->status
Igor Sysoev <igor@sysoev.ru>
parents: 912
diff changeset
121 void
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
122 send_http_header(r, ...)
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
123 CODE:
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
124
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
125 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
126 ngx_http_perl_ctx_t *ctx;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
127 SV *sv;
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
128 ngx_int_t rc;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
129
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
130 ngx_http_perl_set_request(r, ctx);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
131
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
132 if (ctx->error) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
133 croak("send_http_header(): called after error");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
134 }
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
135
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
136 if (r->headers_out.status == 0) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
137 r->headers_out.status = NGX_HTTP_OK;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
138 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
139
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
140 if (items != 1) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
141 sv = ST(1);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
142
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
143 if (ngx_http_perl_sv2str(aTHX_ r, &r->headers_out.content_type, sv)
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
144 != NGX_OK)
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
145 {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
146 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
147 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
148
1444
37938e68910b allow to append charset to the "Content-Type" header
Igor Sysoev <igor@sysoev.ru>
parents: 1372
diff changeset
149 r->headers_out.content_type_len = r->headers_out.content_type.len;
37938e68910b allow to append charset to the "Content-Type" header
Igor Sysoev <igor@sysoev.ru>
parents: 1372
diff changeset
150
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
151 } else {
673
b80f94fa2197 nginx-0.3.58-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 667
diff changeset
152 if (ngx_http_set_content_type(r) != NGX_OK) {
b80f94fa2197 nginx-0.3.58-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 667
diff changeset
153 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
154 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
155 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
156
7516
36c52a0f6ded Perl: disabled not_modified filter (ticket #1786).
Maxim Dounin <mdounin@mdounin.ru>
parents: 6986
diff changeset
157 r->disable_not_modified = 1;
36c52a0f6ded Perl: disabled not_modified filter (ticket #1786).
Maxim Dounin <mdounin@mdounin.ru>
parents: 6986
diff changeset
158
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
159 rc = ngx_http_send_header(r);
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
160
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
161 if (rc == NGX_ERROR || rc > NGX_OK) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
162 ctx->error = 1;
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
163 ctx->status = rc;
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
164 croak("ngx_http_send_header() failed");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
165 }
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
166
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
167
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
168 void
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
169 header_only(r)
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
170 CODE:
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
171
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
172 dXSTARG;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
173 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
174 ngx_http_perl_ctx_t *ctx;
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
175
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
176 ngx_http_perl_set_request(r, ctx);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
177
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
178 sv_upgrade(TARG, SVt_IV);
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
179 sv_setiv(TARG, r->header_only);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
180
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
181 ST(0) = TARG;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
182
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
183
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
184 void
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
185 uri(r)
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
186 CODE:
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
187
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
188 dXSTARG;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
189 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
190 ngx_http_perl_ctx_t *ctx;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
191
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
192 ngx_http_perl_set_request(r, ctx);
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
193 ngx_http_perl_set_targ(r->uri.data, r->uri.len);
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
194
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
195 ST(0) = TARG;
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
196
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
197
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
198 void
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
199 args(r)
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
200 CODE:
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
201
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
202 dXSTARG;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
203 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
204 ngx_http_perl_ctx_t *ctx;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
205
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
206 ngx_http_perl_set_request(r, ctx);
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
207 ngx_http_perl_set_targ(r->args.data, r->args.len);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
208
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
209 ST(0) = TARG;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
210
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
211
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
212 void
629
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
213 request_method(r)
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
214 CODE:
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
215
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
216 dXSTARG;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
217 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
218 ngx_http_perl_ctx_t *ctx;
629
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
219
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
220 ngx_http_perl_set_request(r, ctx);
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
221 ngx_http_perl_set_targ(r->method_name.data, r->method_name.len);
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
222
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
223 ST(0) = TARG;
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
224
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
225
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
226 void
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
227 remote_addr(r)
629
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
228 CODE:
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
229
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
230 dXSTARG;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
231 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
232 ngx_http_perl_ctx_t *ctx;
629
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
233
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
234 ngx_http_perl_set_request(r, ctx);
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
235 ngx_http_perl_set_targ(r->connection->addr_text.data,
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
236 r->connection->addr_text.len);
629
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
237
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
238 ST(0) = TARG;
629
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
239
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
240
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
241 void
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
242 header_in(r, key)
629
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
243 CODE:
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
244
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
245 dXSTARG;
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
246 ngx_http_request_t *r;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
247 ngx_http_perl_ctx_t *ctx;
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
248 SV *key;
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
249 u_char *p, *lowcase_key, *value, sep;
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
250 STRLEN len;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
251 ssize_t size;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
252 ngx_uint_t i, n, hash;
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
253 ngx_array_t *a;
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
254 ngx_list_part_t *part;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
255 ngx_table_elt_t *h, **ph;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
256 ngx_http_header_t *hh;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
257 ngx_http_core_main_conf_t *cmcf;
629
65bf042c0b4f nginx-0.3.36-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 617
diff changeset
258
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
259 ngx_http_perl_set_request(r, ctx);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
260
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
261 key = ST(1);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
262
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
263 if (SvROK(key) && SvTYPE(SvRV(key)) == SVt_PV) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
264 key = SvRV(key);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
265 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
266
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
267 p = (u_char *) SvPV(key, len);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
268
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
269 /* look up hashed headers */
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
270
2049
2a92804f4109 *) back out r2040
Igor Sysoev <igor@sysoev.ru>
parents: 1898
diff changeset
271 lowcase_key = ngx_pnalloc(r->pool, len);
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
272 if (lowcase_key == NULL) {
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
273 XSRETURN_UNDEF;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
274 }
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
275
2136
7a7c9e9024dd ngx_hash_strlow()
Igor Sysoev <igor@sysoev.ru>
parents: 2129
diff changeset
276 hash = ngx_hash_strlow(lowcase_key, p, len);
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
277
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
278 cmcf = ngx_http_get_module_main_conf(r, ngx_http_core_module);
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
279
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
280 hh = ngx_hash_find(&cmcf->headers_in_hash, hash, lowcase_key, len);
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
281
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
282 if (hh) {
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
283
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
284 if (hh->offset == offsetof(ngx_http_headers_in_t, cookies)) {
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
285 sep = ';';
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
286 goto multi;
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
287 }
5306
43900b822890 Perl: fixed syntax usage for C preprocessor directives.
Sergey Kandaurov <pluknet@nginx.com>
parents: 5248
diff changeset
288 #if (NGX_HTTP_X_FORWARDED_FOR)
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
289 if (hh->offset == offsetof(ngx_http_headers_in_t, x_forwarded_for)) {
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
290 sep = ',';
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
291 goto multi;
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
292 }
5306
43900b822890 Perl: fixed syntax usage for C preprocessor directives.
Sergey Kandaurov <pluknet@nginx.com>
parents: 5248
diff changeset
293 #endif
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
294
6232
5f2a0739da19 Perl: fixed warning about "sep" may be used uninitialized.
Maxim Dounin <mdounin@mdounin.ru>
parents: 5306
diff changeset
295 ph = (ngx_table_elt_t **) ((char *) &r->headers_in + hh->offset);
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
296
6232
5f2a0739da19 Perl: fixed warning about "sep" may be used uninitialized.
Maxim Dounin <mdounin@mdounin.ru>
parents: 5306
diff changeset
297 if (*ph) {
5f2a0739da19 Perl: fixed warning about "sep" may be used uninitialized.
Maxim Dounin <mdounin@mdounin.ru>
parents: 5306
diff changeset
298 ngx_http_perl_set_targ((*ph)->value.data, (*ph)->value.len);
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
299
6232
5f2a0739da19 Perl: fixed warning about "sep" may be used uninitialized.
Maxim Dounin <mdounin@mdounin.ru>
parents: 5306
diff changeset
300 goto done;
5f2a0739da19 Perl: fixed warning about "sep" may be used uninitialized.
Maxim Dounin <mdounin@mdounin.ru>
parents: 5306
diff changeset
301 }
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
302
6232
5f2a0739da19 Perl: fixed warning about "sep" may be used uninitialized.
Maxim Dounin <mdounin@mdounin.ru>
parents: 5306
diff changeset
303 XSRETURN_UNDEF;
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
304
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
305 multi:
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
306
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
307 /* Cookie, X-Forwarded-For */
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
308
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
309 a = (ngx_array_t *) ((char *) &r->headers_in + hh->offset);
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
310
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
311 n = a->nelts;
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
312
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
313 if (n == 0) {
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
314 XSRETURN_UNDEF;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
315 }
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
316
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
317 ph = a->elts;
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
318
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
319 if (n == 1) {
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
320 ngx_http_perl_set_targ((*ph)->value.data, (*ph)->value.len);
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
321
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
322 goto done;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
323 }
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
324
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
325 size = - (ssize_t) (sizeof("; ") - 1);
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
326
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
327 for (i = 0; i < n; i++) {
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
328 size += ph[i]->value.len + sizeof("; ") - 1;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
329 }
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
330
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
331 value = ngx_pnalloc(r->pool, size);
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
332 if (value == NULL) {
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
333 XSRETURN_UNDEF;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
334 }
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
335
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
336 p = value;
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
337
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
338 for (i = 0; /* void */ ; i++) {
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
339 p = ngx_copy(p, ph[i]->value.data, ph[i]->value.len);
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
340
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
341 if (i == n - 1) {
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
342 break;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
343 }
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
344
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
345 *p++ = sep; *p++ = ' ';
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
346 }
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
347
5248
f5626ab8cb87 Perl: fixed r->header_in("Cookie") (ticket #351).
Maxim Dounin <mdounin@mdounin.ru>
parents: 5198
diff changeset
348 ngx_http_perl_set_targ(value, size);
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
349
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
350 goto done;
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
351 }
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
352
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
353 /* iterate over all headers */
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
354
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
355 part = &r->headers_in.headers.part;
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
356 h = part->elts;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
357
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
358 for (i = 0; /* void */ ; i++) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
359
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
360 if (i >= part->nelts) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
361 if (part->next == NULL) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
362 break;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
363 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
364
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
365 part = part->next;
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
366 h = part->elts;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
367 i = 0;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
368 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
369
667
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
370 if (len != h[i].key.len
63a820b0bc6c nginx-0.3.55-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 633
diff changeset
371 || ngx_strcasecmp(p, h[i].key.data) != 0)
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
372 {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
373 continue;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
374 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
375
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
376 ngx_http_perl_set_targ(h[i].value.data, h[i].value.len);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
377
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
378 goto done;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
379 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
380
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
381 XSRETURN_UNDEF;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
382
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
383 done:
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
384
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
385 ST(0) = TARG;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
386
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
387
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
388 void
681
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
389 has_request_body(r, next)
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
390 CODE:
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
391
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
392 dXSTARG;
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
393 ngx_http_request_t *r;
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
394 ngx_http_perl_ctx_t *ctx;
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
395 ngx_int_t rc;
681
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
396
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
397 ngx_http_perl_set_request(r, ctx);
681
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
398
5181
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
399 if (r->headers_in.content_length_n <= 0 && !r->headers_in.chunked) {
681
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
400 XSRETURN_UNDEF;
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
401 }
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
402
909
f01e6664f9be fix $r->has_request_body()
Igor Sysoev <igor@sysoev.ru>
parents: 907
diff changeset
403 ctx->next = SvRV(ST(1));
681
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
404
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
405 r->request_body_in_single_buf = 1;
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
406 r->request_body_in_persistent_file = 1;
1075
4d203f76b757 undo "client_body_in_file_only any"
Igor Sysoev <igor@sysoev.ru>
parents: 1056
diff changeset
407 r->request_body_in_clean_file = 1;
681
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
408
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
409 if (r->request_body_in_file_only) {
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
410 r->request_body_file_log_level = 0;
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
411 }
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
412
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
413 rc = ngx_http_read_client_request_body(r, ngx_http_perl_handle_request);
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
414
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
415 if (rc >= NGX_HTTP_SPECIAL_RESPONSE) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
416 ctx->error = 1;
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
417 ctx->status = rc;
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
418 ctx->next = NULL;
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
419 croak("ngx_http_read_client_request_body() failed");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
420 }
681
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
421
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
422 sv_upgrade(TARG, SVt_IV);
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
423 sv_setiv(TARG, 1);
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
424
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
425 ST(0) = TARG;
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
426
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
427
7e24168b0853 nginx-0.4.0-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 673
diff changeset
428 void
631
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
429 request_body(r)
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
430 CODE:
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
431
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
432 dXSTARG;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
433 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
434 ngx_http_perl_ctx_t *ctx;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
435 u_char *p, *data;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
436 size_t len;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
437 ngx_buf_t *buf;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
438 ngx_chain_t *cl;
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
439
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
440 ngx_http_perl_set_request(r, ctx);
631
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
441
941
97489c43e755 fix segfault
Igor Sysoev <igor@sysoev.ru>
parents: 915
diff changeset
442 if (r->request_body == NULL
97489c43e755 fix segfault
Igor Sysoev <igor@sysoev.ru>
parents: 915
diff changeset
443 || r->request_body->temp_file
97489c43e755 fix segfault
Igor Sysoev <igor@sysoev.ru>
parents: 915
diff changeset
444 || r->request_body->bufs == NULL)
97489c43e755 fix segfault
Igor Sysoev <igor@sysoev.ru>
parents: 915
diff changeset
445 {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
446 XSRETURN_UNDEF;
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
447 }
631
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
448
5181
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
449 cl = r->request_body->bufs;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
450 buf = cl->buf;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
451
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
452 if (cl->next == NULL) {
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
453 len = buf->last - buf->pos;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
454 data = buf->pos;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
455 goto done;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
456 }
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
457
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
458 len = buf->last - buf->pos;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
459 cl = cl->next;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
460
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
461 for ( /* void */ ; cl; cl = cl->next) {
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
462 buf = cl->buf;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
463 len += buf->last - buf->pos;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
464 }
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
465
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
466 p = ngx_pnalloc(r->pool, len);
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
467 if (p == NULL) {
5198
e530b88b088b Perl: extra "return" removed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 5181
diff changeset
468 XSRETURN_UNDEF;
5181
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
469 }
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
470
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
471 data = p;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
472 cl = r->request_body->bufs;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
473
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
474 for ( /* void */ ; cl; cl = cl->next) {
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
475 buf = cl->buf;
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
476 p = ngx_cpymem(p, buf->pos, buf->last - buf->pos);
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
477 }
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
478
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
479 done:
631
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
480
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
481 if (len == 0) {
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
482 XSRETURN_UNDEF;
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
483 }
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
484
5181
4d0ac175f6e4 Perl: request body handling fixed.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4644
diff changeset
485 ngx_http_perl_set_targ(data, len);
631
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
486
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
487 ST(0) = TARG;
631
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
488
5d2b8078c1c2 nginx-0.3.37-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 629
diff changeset
489
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
490 void
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
491 request_body_file(r)
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
492 CODE:
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
493
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
494 dXSTARG;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
495 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
496 ngx_http_perl_ctx_t *ctx;
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
497
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
498 ngx_http_perl_set_request(r, ctx);
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
499
941
97489c43e755 fix segfault
Igor Sysoev <igor@sysoev.ru>
parents: 915
diff changeset
500 if (r->request_body == NULL || r->request_body->temp_file == NULL) {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
501 XSRETURN_UNDEF;
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
502 }
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
503
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
504 ngx_http_perl_set_targ(r->request_body->temp_file->file.name.data,
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
505 r->request_body->temp_file->file.name.len);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
506
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
507 ST(0) = TARG;
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
508
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
509
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
510 void
1371
7dbdf47cdcba $r->discard_request_body
Igor Sysoev <igor@sysoev.ru>
parents: 1178
diff changeset
511 discard_request_body(r)
7dbdf47cdcba $r->discard_request_body
Igor Sysoev <igor@sysoev.ru>
parents: 1178
diff changeset
512 CODE:
7dbdf47cdcba $r->discard_request_body
Igor Sysoev <igor@sysoev.ru>
parents: 1178
diff changeset
513
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
514 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
515 ngx_http_perl_ctx_t *ctx;
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
516 ngx_int_t rc;
1371
7dbdf47cdcba $r->discard_request_body
Igor Sysoev <igor@sysoev.ru>
parents: 1178
diff changeset
517
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
518 ngx_http_perl_set_request(r, ctx);
1371
7dbdf47cdcba $r->discard_request_body
Igor Sysoev <igor@sysoev.ru>
parents: 1178
diff changeset
519
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
520 rc = ngx_http_discard_request_body(r);
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
521
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
522 if (rc != NGX_OK) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
523 ctx->error = 1;
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
524 ctx->status = rc;
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
525 croak("ngx_http_discard_request_body() failed");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
526 }
1371
7dbdf47cdcba $r->discard_request_body
Igor Sysoev <igor@sysoev.ru>
parents: 1178
diff changeset
527
7dbdf47cdcba $r->discard_request_body
Igor Sysoev <igor@sysoev.ru>
parents: 1178
diff changeset
528
7dbdf47cdcba $r->discard_request_body
Igor Sysoev <igor@sysoev.ru>
parents: 1178
diff changeset
529 void
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
530 header_out(r, key, value)
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
531 CODE:
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
532
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
533 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
534 ngx_http_perl_ctx_t *ctx;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
535 SV *key;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
536 SV *value;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
537 ngx_table_elt_t *header;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
538
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
539 ngx_http_perl_set_request(r, ctx);
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
540
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
541 if (ctx->error) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
542 croak("header_out(): called after error");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
543 }
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
544
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
545 key = ST(1);
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
546 value = ST(2);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
547
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
548 header = ngx_list_push(&r->headers_out.headers);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
549 if (header == NULL) {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
550 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
551 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
552
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
553 header->hash = 1;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
554
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
555 if (ngx_http_perl_sv2str(aTHX_ r, &header->key, key) != NGX_OK) {
6986
0cdee26605f3 Cleaned up r->headers_out.headers allocation error handling.
Sergey Kandaurov <pluknet@nginx.com>
parents: 6960
diff changeset
556 header->hash = 0;
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
557 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
558 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
559
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
560 if (ngx_http_perl_sv2str(aTHX_ r, &header->value, value) != NGX_OK) {
6986
0cdee26605f3 Cleaned up r->headers_out.headers allocation error handling.
Sergey Kandaurov <pluknet@nginx.com>
parents: 6960
diff changeset
561 header->hash = 0;
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
562 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
563 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
564
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
565 if (header->key.len == sizeof("Content-Length") - 1
3870
8cd7594916ec fix warnings
Igor Sysoev <igor@sysoev.ru>
parents: 3500
diff changeset
566 && ngx_strncasecmp(header->key.data, (u_char *) "Content-Length",
741
63a08390a8a2 $r->headers_out("Content-Length", "NNN") did not work
Igor Sysoev <igor@sysoev.ru>
parents: 681
diff changeset
567 sizeof("Content-Length") - 1) == 0)
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
568 {
741
63a08390a8a2 $r->headers_out("Content-Length", "NNN") did not work
Igor Sysoev <igor@sysoev.ru>
parents: 681
diff changeset
569 r->headers_out.content_length_n = (off_t) SvIV(value);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
570 r->headers_out.content_length = header;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
571 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
572
4196
190ae1a7f917 Handling of Content-Encoding set from perl.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4188
diff changeset
573 if (header->key.len == sizeof("Content-Encoding") - 1
4644
95763fce86a8 Fixed warning during nginx.xs compilation.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4494
diff changeset
574 && ngx_strncasecmp(header->key.data, (u_char *) "Content-Encoding",
4196
190ae1a7f917 Handling of Content-Encoding set from perl.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4188
diff changeset
575 sizeof("Content-Encoding") - 1) == 0)
190ae1a7f917 Handling of Content-Encoding set from perl.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4188
diff changeset
576 {
190ae1a7f917 Handling of Content-Encoding set from perl.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4188
diff changeset
577 r->headers_out.content_encoding = header;
190ae1a7f917 Handling of Content-Encoding set from perl.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4188
diff changeset
578 }
190ae1a7f917 Handling of Content-Encoding set from perl.
Maxim Dounin <mdounin@mdounin.ru>
parents: 4188
diff changeset
579
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
580
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
581 void
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
582 filename(r)
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
583 CODE:
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
584
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
585 dXSTARG;
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
586 ngx_http_request_t *r;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
587 ngx_http_perl_ctx_t *ctx;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
588 size_t root;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
589
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
590 ngx_http_perl_set_request(r, ctx);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
591
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
592 if (ctx->filename.data) {
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
593 goto done;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
594 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
595
774
589841f06b87 previous commit broke two modules
Igor Sysoev <igor@sysoev.ru>
parents: 741
diff changeset
596 if (ngx_http_map_uri_to_path(r, &ctx->filename, &root, 0) == NULL) {
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
597 XSRETURN_UNDEF;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
598 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
599
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
600 ctx->filename.len--;
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
601 sv_setpv(PL_statname, (char *) ctx->filename.data);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
602
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
603 done:
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
604
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
605 ngx_http_perl_set_targ(ctx->filename.data, ctx->filename.len);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
606
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
607 ST(0) = TARG;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
608
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
609
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
610 void
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
611 print(r, ...)
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
612 CODE:
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
613
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
614 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
615 ngx_http_perl_ctx_t *ctx;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
616 SV *sv;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
617 int i;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
618 u_char *p;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
619 size_t size;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
620 STRLEN len;
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
621 ngx_int_t rc;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
622 ngx_buf_t *b;
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
623
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
624 ngx_http_perl_set_request(r, ctx);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
625
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
626 if (ctx->error) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
627 croak("print(): called after error");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
628 }
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
629
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
630 if (items == 2) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
631
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
632 /*
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
633 * do zero copy for prolate single read-only SV:
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
634 * $r->print("some text\n");
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
635 */
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
636
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
637 sv = ST(1);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
638
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
639 if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PV) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
640 sv = SvRV(sv);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
641 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
642
1703
43747661804d *) copy regex captures $1, $2, etc.
Igor Sysoev <igor@sysoev.ru>
parents: 1565
diff changeset
643 if (SvREADONLY(sv) && SvPOK(sv)) {
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
644
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
645 p = (u_char *) SvPV(sv, len);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
646
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
647 if (len == 0) {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
648 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
649 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
650
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
651 b = ngx_calloc_buf(r->pool);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
652 if (b == NULL) {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
653 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
654 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
655
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
656 b->memory = 1;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
657 b->pos = p;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
658 b->last = p + len;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
659 b->start = p;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
660 b->end = b->last;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
661
601
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
662 ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
663 "$r->print: read-only SV: %z", len);
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
664
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
665 goto out;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
666 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
667 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
668
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
669 size = 0;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
670
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
671 for (i = 1; i < items; i++) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
672
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
673 sv = ST(i);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
674
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
675 if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PV) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
676 sv = SvRV(sv);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
677 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
678
601
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
679 (void) SvPV(sv, len);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
680
601
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
681 ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
682 "$r->print: copy SV: %z", len);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
683
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
684 size += len;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
685 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
686
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
687 if (size == 0) {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
688 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
689 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
690
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
691 b = ngx_create_temp_buf(r->pool, size);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
692 if (b == NULL) {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
693 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
694 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
695
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
696 for (i = 1; i < items; i++) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
697 sv = ST(i);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
698
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
699 if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PV) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
700 sv = SvRV(sv);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
701 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
702
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
703 p = (u_char *) SvPV(sv, len);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
704 b->last = ngx_cpymem(b->last, p, len);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
705 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
706
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
707 out:
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
708
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
709 rc = ngx_http_perl_output(r, ctx, b);
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
710
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
711 if (rc == NGX_ERROR) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
712 ctx->error = 1;
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
713 croak("ngx_http_perl_output() failed");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
714 }
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
715
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
716
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
717 void
613
c73c5c58c619 nginx-0.3.28-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 603
diff changeset
718 sendfile(r, filename, offset = -1, bytes = 0)
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
719 CODE:
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
720
1454
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
721 ngx_http_request_t *r;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
722 ngx_http_perl_ctx_t *ctx;
1454
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
723 char *filename;
2794
92bd6afe8d9c use off_t in $r->sendfile(), this allows to use 64-bit off_t on platforms
Igor Sysoev <igor@sysoev.ru>
parents: 2756
diff changeset
724 off_t offset;
1454
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
725 size_t bytes;
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
726 ngx_int_t rc;
1454
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
727 ngx_str_t path;
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
728 ngx_buf_t *b;
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
729 ngx_open_file_info_t of;
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
730 ngx_http_core_loc_conf_t *clcf;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
731
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
732 ngx_http_perl_set_request(r, ctx);
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
733
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
734 if (ctx->error) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
735 croak("sendfile(): called after error");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
736 }
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
737
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
738 filename = SvPV_nolen(ST(1));
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
739
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
740 if (filename == NULL) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
741 croak("sendfile(): NULL filename");
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
742 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
743
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
744 offset = items < 3 ? -1 : SvIV(ST(2));
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
745 bytes = items < 4 ? 0 : SvIV(ST(3));
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
746
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
747 b = ngx_calloc_buf(r->pool);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
748 if (b == NULL) {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
749 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
750 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
751
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
752 b->file = ngx_pcalloc(r->pool, sizeof(ngx_file_t));
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
753 if (b->file == NULL) {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
754 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
755 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
756
1454
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
757 path.len = ngx_strlen(filename);
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
758
2061
b0a1c84725cf change useless ngx_pcalloc() to ngx_pnalloc()
Igor Sysoev <igor@sysoev.ru>
parents: 2049
diff changeset
759 path.data = ngx_pnalloc(r->pool, path.len + 1);
1454
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
760 if (path.data == NULL) {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
761 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
762 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
763
3870
8cd7594916ec fix warnings
Igor Sysoev <igor@sysoev.ru>
parents: 3500
diff changeset
764 (void) ngx_cpystrn(path.data, (u_char *) filename, path.len + 1);
1560
25ee6eee7573 style fix: remove trailing spaces
Igor Sysoev <igor@sysoev.ru>
parents: 1457
diff changeset
765
2063
67a29af877ed initialize of.uniq in ngx_open_cached_file()
Igor Sysoev <igor@sysoev.ru>
parents: 2061
diff changeset
766 clcf = ngx_http_get_module_loc_conf(r, ngx_http_core_module);
67a29af877ed initialize of.uniq in ngx_open_cached_file()
Igor Sysoev <igor@sysoev.ru>
parents: 2061
diff changeset
767
2068
75a8d34459c5 ngx_memzero() ngx_open_file_info_t
Igor Sysoev <igor@sysoev.ru>
parents: 2063
diff changeset
768 ngx_memzero(&of, sizeof(ngx_open_file_info_t));
75a8d34459c5 ngx_memzero() ngx_open_file_info_t
Igor Sysoev <igor@sysoev.ru>
parents: 2063
diff changeset
769
3178
975f0558aab3 read_ahead
Igor Sysoev <igor@sysoev.ru>
parents: 2794
diff changeset
770 of.read_ahead = clcf->read_ahead;
2129
25add486e7aa directio
Igor Sysoev <igor@sysoev.ru>
parents: 2068
diff changeset
771 of.directio = clcf->directio;
2063
67a29af877ed initialize of.uniq in ngx_open_cached_file()
Igor Sysoev <igor@sysoev.ru>
parents: 2061
diff changeset
772 of.valid = clcf->open_file_cache_valid;
67a29af877ed initialize of.uniq in ngx_open_cached_file()
Igor Sysoev <igor@sysoev.ru>
parents: 2061
diff changeset
773 of.min_uses = clcf->open_file_cache_min_uses;
67a29af877ed initialize of.uniq in ngx_open_cached_file()
Igor Sysoev <igor@sysoev.ru>
parents: 2061
diff changeset
774 of.errors = clcf->open_file_cache_errors;
67a29af877ed initialize of.uniq in ngx_open_cached_file()
Igor Sysoev <igor@sysoev.ru>
parents: 2061
diff changeset
775 of.events = clcf->open_file_cache_events;
4494
13e09cf11d4e Disable symlinks: initialization of the "disable_symlinks" field in
Valentin Bartenev <vbart@nginx.com>
parents: 4478
diff changeset
776
13e09cf11d4e Disable symlinks: initialization of the "disable_symlinks" field in
Valentin Bartenev <vbart@nginx.com>
parents: 4478
diff changeset
777 if (ngx_http_set_disable_symlinks(r, clcf, &path, &of) != NGX_OK) {
13e09cf11d4e Disable symlinks: initialization of the "disable_symlinks" field in
Valentin Bartenev <vbart@nginx.com>
parents: 4478
diff changeset
778 XSRETURN_EMPTY;
13e09cf11d4e Disable symlinks: initialization of the "disable_symlinks" field in
Valentin Bartenev <vbart@nginx.com>
parents: 4478
diff changeset
779 }
2063
67a29af877ed initialize of.uniq in ngx_open_cached_file()
Igor Sysoev <igor@sysoev.ru>
parents: 2061
diff changeset
780
1799
0b5b94805d26 optimization
Igor Sysoev <igor@sysoev.ru>
parents: 1772
diff changeset
781 if (ngx_open_cached_file(clcf->open_file_cache, &path, &of, r->pool)
0b5b94805d26 optimization
Igor Sysoev <igor@sysoev.ru>
parents: 1772
diff changeset
782 != NGX_OK)
0b5b94805d26 optimization
Igor Sysoev <igor@sysoev.ru>
parents: 1772
diff changeset
783 {
1454
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
784 if (of.err == 0) {
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
785 XSRETURN_EMPTY;
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
786 }
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
787
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
788 ngx_log_error(NGX_LOG_CRIT, r->connection->log, ngx_errno,
2756
09cab3f8d92e *) of.test_only to not open file if only stat() is enough
Igor Sysoev <igor@sysoev.ru>
parents: 2231
diff changeset
789 "%s \"%s\" failed", of.failed, filename);
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
790 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
791 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
792
613
c73c5c58c619 nginx-0.3.28-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 603
diff changeset
793 if (offset == -1) {
c73c5c58c619 nginx-0.3.28-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 603
diff changeset
794 offset = 0;
c73c5c58c619 nginx-0.3.28-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 603
diff changeset
795 }
c73c5c58c619 nginx-0.3.28-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 603
diff changeset
796
c73c5c58c619 nginx-0.3.28-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 603
diff changeset
797 if (bytes == 0) {
1454
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
798 bytes = of.size - offset;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
799 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
800
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
801 b->in_file = 1;
613
c73c5c58c619 nginx-0.3.28-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 603
diff changeset
802
c73c5c58c619 nginx-0.3.28-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 603
diff changeset
803 b->file_pos = offset;
c73c5c58c619 nginx-0.3.28-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 603
diff changeset
804 b->file_last = offset + bytes;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
805
1454
f497ed7682a7 open_file_cache in HTTP
Igor Sysoev <igor@sysoev.ru>
parents: 1444
diff changeset
806 b->file->fd = of.fd;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
807 b->file->log = r->connection->log;
2231
8564129d49b6 *) handle unaligned file part for directio
Igor Sysoev <igor@sysoev.ru>
parents: 2136
diff changeset
808 b->file->directio = of.is_directio;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
809
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
810 rc = ngx_http_perl_output(r, ctx, b);
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
811
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
812 if (rc == NGX_ERROR) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
813 ctx->error = 1;
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
814 croak("ngx_http_perl_output() failed");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
815 }
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
816
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
817
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
818 void
1178
a77f6980de50 rename $r->rflush to $r->flush
Igor Sysoev <igor@sysoev.ru>
parents: 1075
diff changeset
819 flush(r)
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
820 CODE:
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
821
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
822 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
823 ngx_http_perl_ctx_t *ctx;
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
824 ngx_int_t rc;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
825 ngx_buf_t *b;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
826
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
827 ngx_http_perl_set_request(r, ctx);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
828
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
829 if (ctx->error) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
830 croak("flush(): called after error");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
831 }
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
832
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
833 b = ngx_calloc_buf(r->pool);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
834 if (b == NULL) {
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
835 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
836 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
837
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
838 b->flush = 1;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
839
1178
a77f6980de50 rename $r->rflush to $r->flush
Igor Sysoev <igor@sysoev.ru>
parents: 1075
diff changeset
840 ngx_log_debug0(NGX_LOG_DEBUG_HTTP, r->connection->log, 0, "$r->flush");
601
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
841
7525
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
842 rc = ngx_http_perl_output(r, ctx, b);
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
843
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
844 if (rc == NGX_ERROR) {
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
845 ctx->error = 1;
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
846 croak("ngx_http_perl_output() failed");
575480d3fd01 Perl: propagate errors.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7524
diff changeset
847 }
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
848
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
849 XSRETURN_EMPTY;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
850
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
851
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
852 void
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
853 internal_redirect(r, uri)
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
854 CODE:
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
855
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
856 ngx_http_request_t *r;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
857 ngx_http_perl_ctx_t *ctx;
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
858 SV *uri;
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
859 ngx_uint_t i;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
860
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
861 ngx_http_perl_set_request(r, ctx);
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
862
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
863 uri = ST(1);
599
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
864
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
865 if (ngx_http_perl_sv2str(aTHX_ r, &ctx->redirect_uri, uri) != NGX_OK) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
866 XSRETURN_EMPTY;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
867 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
868
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
869 for (i = 0; i < ctx->redirect_uri.len; i++) {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
870 if (ctx->redirect_uri.data[i] == '?') {
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
871
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
872 ctx->redirect_args.len = ctx->redirect_uri.len - (i + 1);
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
873 ctx->redirect_args.data = &ctx->redirect_uri.data[i + 1];
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
874 ctx->redirect_uri.len = i;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
875
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
876 XSRETURN_EMPTY;
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
877 }
869b6444d234 nginx-0.3.21-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents:
diff changeset
878 }
601
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
879
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
880
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
881 void
811
35454083769f $r->allow_ranges
Igor Sysoev <igor@sysoev.ru>
parents: 774
diff changeset
882 allow_ranges(r)
35454083769f $r->allow_ranges
Igor Sysoev <igor@sysoev.ru>
parents: 774
diff changeset
883 CODE:
35454083769f $r->allow_ranges
Igor Sysoev <igor@sysoev.ru>
parents: 774
diff changeset
884
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
885 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
886 ngx_http_perl_ctx_t *ctx;
811
35454083769f $r->allow_ranges
Igor Sysoev <igor@sysoev.ru>
parents: 774
diff changeset
887
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
888 ngx_http_perl_set_request(r, ctx);
811
35454083769f $r->allow_ranges
Igor Sysoev <igor@sysoev.ru>
parents: 774
diff changeset
889
35454083769f $r->allow_ranges
Igor Sysoev <igor@sysoev.ru>
parents: 774
diff changeset
890 r->allow_ranges = 1;
35454083769f $r->allow_ranges
Igor Sysoev <igor@sysoev.ru>
parents: 774
diff changeset
891
35454083769f $r->allow_ranges
Igor Sysoev <igor@sysoev.ru>
parents: 774
diff changeset
892
35454083769f $r->allow_ranges
Igor Sysoev <igor@sysoev.ru>
parents: 774
diff changeset
893 void
601
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
894 unescape(r, text, type = 0)
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
895 CODE:
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
896
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
897 dXSTARG;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
898 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
899 ngx_http_perl_ctx_t *ctx;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
900 SV *text;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
901 int type;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
902 u_char *p, *dst, *src;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
903 STRLEN len;
601
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
904
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
905 ngx_http_perl_set_request(r, ctx);
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
906
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
907 text = ST(1);
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
908
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
909 src = (u_char *) SvPV(text, len);
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
910
2049
2a92804f4109 *) back out r2040
Igor Sysoev <igor@sysoev.ru>
parents: 1898
diff changeset
911 p = ngx_pnalloc(r->pool, len + 1);
601
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
912 if (p == NULL) {
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
913 XSRETURN_UNDEF;
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
914 }
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
915
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
916 dst = p;
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
917
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
918 type = items < 3 ? 0 : SvIV(ST(2));
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
919
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
920 ngx_unescape_uri(&dst, &src, len, (ngx_uint_t) type);
601
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
921 *dst = '\0';
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
922
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
923 ngx_http_perl_set_targ(p, dst - p);
601
77f77f53214a nginx-0.3.22-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 599
diff changeset
924
633
f971949ffb58 nginx-0.3.38-RELEASE import
Igor Sysoev <igor@sysoev.ru>
parents: 631
diff changeset
925 ST(0) = TARG;
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
926
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
927
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
928 void
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
929 variable(r, name, value = NULL)
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
930 CODE:
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
931
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
932 dXSTARG;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
933 ngx_http_request_t *r;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
934 ngx_http_perl_ctx_t *ctx;
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
935 SV *name, *value;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
936 u_char *p, *lowcase;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
937 STRLEN len;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
938 ngx_str_t var, val;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
939 ngx_uint_t i, hash;
912
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
940 ngx_http_perl_var_t *v;
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
941 ngx_http_variable_value_t *vv;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
942
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
943 ngx_http_perl_set_request(r, ctx);
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
944
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
945 name = ST(1);
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
946
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
947 if (SvROK(name) && SvTYPE(SvRV(name)) == SVt_PV) {
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
948 name = SvRV(name);
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
949 }
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
950
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
951 if (items == 2) {
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
952 value = NULL;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
953
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
954 } else {
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
955 value = ST(2);
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
956
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
957 if (SvROK(value) && SvTYPE(SvRV(value)) == SVt_PV) {
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
958 value = SvRV(value);
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
959 }
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
960
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
961 if (ngx_http_perl_sv2str(aTHX_ r, &val, value) != NGX_OK) {
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
962 XSRETURN_UNDEF;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
963 }
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
964 }
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
965
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
966 p = (u_char *) SvPV(name, len);
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
967
2049
2a92804f4109 *) back out r2040
Igor Sysoev <igor@sysoev.ru>
parents: 1898
diff changeset
968 lowcase = ngx_pnalloc(r->pool, len);
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
969 if (lowcase == NULL) {
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
970 XSRETURN_UNDEF;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
971 }
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
972
2136
7a7c9e9024dd ngx_hash_strlow()
Igor Sysoev <igor@sysoev.ru>
parents: 2129
diff changeset
973 hash = ngx_hash_strlow(lowcase, p, len);
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
974
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
975 var.len = len;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
976 var.data = lowcase;
5306
43900b822890 Perl: fixed syntax usage for C preprocessor directives.
Sergey Kandaurov <pluknet@nginx.com>
parents: 5248
diff changeset
977 #if (NGX_DEBUG)
912
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
978
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
979 if (value) {
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
980 ngx_log_debug2(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
981 "perl variable: \"%V\"=\"%V\"", &var, &val);
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
982 } else {
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
983 ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
984 "perl variable: \"%V\"", &var);
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
985 }
5306
43900b822890 Perl: fixed syntax usage for C preprocessor directives.
Sergey Kandaurov <pluknet@nginx.com>
parents: 5248
diff changeset
986 #endif
912
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
987
3500
0eb46e3c5c02 change processing variables accessed by SSI and perl module:
Igor Sysoev <igor@sysoev.ru>
parents: 3447
diff changeset
988 vv = ngx_http_get_variable(r, &var, hash);
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
989 if (vv == NULL) {
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
990 XSRETURN_UNDEF;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
991 }
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
992
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
993 if (vv->not_found) {
912
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
994
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
995 if (ctx->variables) {
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
996
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
997 v = ctx->variables->elts;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
998 for (i = 0; i < ctx->variables->nelts; i++) {
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
999
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1000 if (hash != v[i].hash
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1001 || len != v[i].name.len
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1002 || ngx_strncmp(lowcase, v[i].name.data, len) != 0)
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1003 {
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1004 continue;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1005 }
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1006
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1007 if (value) {
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1008 v[i].value = val;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1009 XSRETURN_UNDEF;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1010 }
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1011
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
1012 ngx_http_perl_set_targ(v[i].value.data, v[i].value.len);
912
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1013
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1014 goto done;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1015 }
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1016 }
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1017
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1018 if (value) {
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1019 if (ctx->variables == NULL) {
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1020 ctx->variables = ngx_array_create(r->pool, 1,
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1021 sizeof(ngx_http_perl_var_t));
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1022 if (ctx->variables == NULL) {
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1023 XSRETURN_UNDEF;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1024 }
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1025 }
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1026
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1027 v = ngx_array_push(ctx->variables);
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1028 if (v == NULL) {
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1029 XSRETURN_UNDEF;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1030 }
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1031
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1032 v->hash = hash;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1033 v->name.len = len;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1034 v->name.data = lowcase;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1035 v->value = val;
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1036
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1037 XSRETURN_UNDEF;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1038 }
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1039
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1040 XSRETURN_UNDEF;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1041 }
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1042
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1043 if (value) {
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1044 vv->len = val.len;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1045 vv->valid = 1;
1565
4c43e25d11ea fix English grammar
Igor Sysoev <igor@sysoev.ru>
parents: 1560
diff changeset
1046 vv->no_cacheable = 0;
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1047 vv->not_found = 0;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1048 vv->data = val.data;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1049
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1050 XSRETURN_UNDEF;
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1051 }
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1052
1739
5b7baef2e11e copy return values to perl's allocated memory
Igor Sysoev <igor@sysoev.ru>
parents: 1703
diff changeset
1053 ngx_http_perl_set_targ(vv->data, vv->len);
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1054
912
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1055 done:
7fa926a7926d $r->variable() supports perl only variables
Igor Sysoev <igor@sysoev.ru>
parents: 911
diff changeset
1056
833
dbc6819acfcc $r->variable
Igor Sysoev <igor@sysoev.ru>
parents: 811
diff changeset
1057 ST(0) = TARG;
907
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1058
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1059
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1060 void
911
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1061 sleep(r, sleep, next)
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1062 CODE:
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1063
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1064 ngx_http_request_t *r;
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
1065 ngx_http_perl_ctx_t *ctx;
1897
b43f244d0430 optimize $r->sleep
Igor Sysoev <igor@sysoev.ru>
parents: 1895
diff changeset
1066 ngx_msec_t sleep;
911
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1067
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
1068 ngx_http_perl_set_request(r, ctx);
911
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1069
1898
9a73235ce453 fix previous commit
Igor Sysoev <igor@sysoev.ru>
parents: 1897
diff changeset
1070 sleep = (ngx_msec_t) SvIV(ST(1));
1897
b43f244d0430 optimize $r->sleep
Igor Sysoev <igor@sysoev.ru>
parents: 1895
diff changeset
1071
b43f244d0430 optimize $r->sleep
Igor Sysoev <igor@sysoev.ru>
parents: 1895
diff changeset
1072 ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
b43f244d0430 optimize $r->sleep
Igor Sysoev <igor@sysoev.ru>
parents: 1895
diff changeset
1073 "perl sleep: %M", sleep);
b43f244d0430 optimize $r->sleep
Igor Sysoev <igor@sysoev.ru>
parents: 1895
diff changeset
1074
911
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1075 ctx->next = SvRV(ST(2));
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1076
6960
1c5e5e5b008d Perl: fixed delaying subrequests.
Maxim Dounin <mdounin@mdounin.ru>
parents: 6233
diff changeset
1077 r->connection->write->delayed = 1;
1897
b43f244d0430 optimize $r->sleep
Igor Sysoev <igor@sysoev.ru>
parents: 1895
diff changeset
1078 ngx_add_timer(r->connection->write, sleep);
b43f244d0430 optimize $r->sleep
Igor Sysoev <igor@sysoev.ru>
parents: 1895
diff changeset
1079
b43f244d0430 optimize $r->sleep
Igor Sysoev <igor@sysoev.ru>
parents: 1895
diff changeset
1080 r->write_event_handler = ngx_http_perl_sleep_handler;
3447
de70f912ad58 fix request counter for $r->sleep(), the bug was introduced in r3050
Igor Sysoev <igor@sysoev.ru>
parents: 3317
diff changeset
1081 r->main->count++;
911
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1082
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1083
73c66ed9a9cd $r->sleep()
Igor Sysoev <igor@sysoev.ru>
parents: 910
diff changeset
1084 void
907
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1085 log_error(r, err, msg)
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1086 CODE:
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1087
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
1088 ngx_http_request_t *r;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
1089 ngx_http_perl_ctx_t *ctx;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
1090 SV *err, *msg;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
1091 u_char *p;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
1092 STRLEN len;
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
1093 ngx_err_t e;
907
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1094
7524
deebe988cbd7 Perl: reworked perl module to pass ctx instead of request.
Maxim Dounin <mdounin@mdounin.ru>
parents: 7516
diff changeset
1095 ngx_http_perl_set_request(r, ctx);
907
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1096
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1097 err = ST(1);
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1098
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1099 if (SvROK(err) && SvTYPE(SvRV(err)) == SVt_PV) {
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1100 err = SvRV(err);
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1101 }
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1102
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1103 e = SvIV(err);
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1104
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1105 msg = ST(2);
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1106
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1107 if (SvROK(msg) && SvTYPE(SvRV(msg)) == SVt_PV) {
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1108 msg = SvRV(msg);
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1109 }
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1110
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1111 p = (u_char *) SvPV(msg, len);
424636f52f44 $r->log_error()
Igor Sysoev <igor@sysoev.ru>
parents: 882
diff changeset
1112
910
918e19c51a65 style fix
Igor Sysoev <igor@sysoev.ru>
parents: 909
diff changeset
1113 ngx_log_error(NGX_LOG_ERR, r->connection->log, e, "perl: %s", p);