nginx-vendor-current: src/http/modules/perl/nginx.xs comparison

comparison src/http/modules/perl/nginx.xs @ 216:fa32d59d9a15 NGINX_0_3_55

nginx 0.3.55 *) Feature: the "stub" parameter in the "include" SSI command. *) Feature: the "block" SSI command. *) Feature: the unicode2nginx script was added to contrib. *) Bugfix: if a "root" was specified by variable only, then the root was relative to a server prefix. *) Bugfix: if the request contained "//" or "/./" and escaped symbols after them, then the proxied request was sent unescaped. *) Bugfix: the $r->headers_in("Cookie") of the ngx_http_perl_module now returns all "Cookie" header lines. *) Bugfix: a segmentation fault occurred if "client_body_in_file_only on" was used and nginx switched to a next upstream. *) Bugfix: on some condition while reconfiguration character codes inside the "charset_map" may be treated invalid; bug appeared in 0.3.50.

author	Igor Sysoev <http://sysoev.ru>
date	Fri, 28 Jul 2006 00:00:00 +0400
parents	13710a1813ad
children	dd6c66b5b0e2

comparison

equal deleted inserted replaced

-:84a7f4bc1133
+:fa32d59d9a15
 void
 header_in(r, key)
 CODE:
 dXSTARG;
-ngx_http_request_t  *r;
+ngx_http_request_t         *r;
-SV                  *key;
+SV                         *key;
-u_char              *p;
+u_char                     *p, *lowcase_key, *cookie;
-STRLEN               len;
+STRLEN                      len;
-ngx_uint_t           i;
+ssize_t                     size;
-ngx_list_part_t     *part;
+ngx_uint_t                  i, n, hash;
-ngx_table_elt_t     *header;
+ngx_list_part_t            *part;
+ngx_table_elt_t            *h, **ph;
+ngx_http_header_t          *hh;
+ngx_http_core_main_conf_t  *cmcf;
 ngx_http_perl_set_request(r);
 key = ST(1);
 key = SvRV(key);
 }
 p = (u_char *) SvPV(key, len);
+/* look up hashed headers */
+lowcase_key = ngx_palloc(r->pool, len);
+if (lowcase_key == NULL) {
+XSRETURN_UNDEF;
+}
+hash = 0;
+for (i = 0; i < len; i++) {
+lowcase_key[i] = ngx_tolower(p[i]);
+hash = ngx_hash(hash, lowcase_key[i]);
+}
+cmcf = ngx_http_get_module_main_conf(r, ngx_http_core_module);
+hh = ngx_hash_find(&cmcf->headers_in_hash, hash, lowcase_key, len);
+if (hh) {
+if (hh->offset) {
+ph = (ngx_table_elt_t **) ((char *) &r->headers_in + hh->offset);
+if (*ph) {
+ngx_http_perl_set_targ((*ph)->value.data, (*ph)->value.len, 0);
+goto done;
+}
+XSRETURN_UNDEF;
+}
+/* Cookie */
+n = r->headers_in.cookies.nelts;
+if (n == 0) {
+XSRETURN_UNDEF;
+}
+ph = r->headers_in.cookies.elts;
+if (n == 1) {
+ngx_http_perl_set_targ((*ph)->value.data, (*ph)->value.len, 0);
+goto done;
+}
+size = - (ssize_t) (sizeof("; ") - 1);
+for (i = 0; i < n; i++) {
+size += ph[i]->value.len + sizeof("; ") - 1;
+}
+cookie = ngx_palloc(r->pool, size);
+if (cookie == NULL) {
+XSRETURN_UNDEF;
+}
+p = cookie;
+for (i = 0; /* void */ ; i++) {
+p = ngx_copy(p, ph[i]->value.data, ph[i]->value.len);
+if (i == n - 1) {
+break;
+}
+*p++ = ';'; *p++ = ' ';
+}
+ngx_http_perl_set_targ(cookie, size, 0);
+goto done;
+}
+/* iterate over all headers */
 part = &r->headers_in.headers.part;
-header = part->elts;
+h = part->elts;
 for (i = 0; /* void */ ; i++) {
 if (i >= part->nelts) {
 if (part->next == NULL) {
 break;
 }
 part = part->next;
-header = part->elts;
+h = part->elts;
 i = 0;
 }
-if (len != header[i].key.len
+if (len != h[i].key.len
-|| ngx_strcasecmp(p, header[i].key.data) != 0)
+|| ngx_strcasecmp(p, h[i].key.data) != 0)
 {
 continue;
 }
-ngx_http_perl_set_targ(header[i].value.data, header[i].value.len, 0);
+ngx_http_perl_set_targ(h[i].value.data, h[i].value.len, 0);
 goto done;
 }
 XSRETURN_UNDEF;

Mercurial > hg > nginx-vendor-current

comparison src/http/modules/perl/nginx.xs @ 216:fa32d59d9a15 NGINX_0_3_55