- get rid of 1001 strict-aliasing warnings
[m6w6/ext-http] / http_info_api.c
1 /*
2 +--------------------------------------------------------------------+
3 | PECL :: http |
4 +--------------------------------------------------------------------+
5 | Redistribution and use in source and binary forms, with or without |
6 | modification, are permitted provided that the conditions mentioned |
7 | in the accompanying LICENSE file are met. |
8 +--------------------------------------------------------------------+
9 | Copyright (c) 2004-2006, Michael Wallner <mike@php.net> |
10 +--------------------------------------------------------------------+
11 */
12
13 /* $Id$ */
14
15 #include "php_http.h"
16
17 #include "php_http_api.h"
18 #include "php_http_info_api.h"
19
20 PHP_HTTP_API void _http_info_default_callback(void **nothing, HashTable **headers, http_info *info TSRMLS_DC)
21 {
22 zval array;
23
24 INIT_ZARR(array, *headers);
25
26 switch (info->type)
27 {
28 case IS_HTTP_REQUEST:
29 add_assoc_string(&array, "Request Method", HTTP_INFO(info).request.method, 1);
30 add_assoc_string(&array, "Request Url", HTTP_INFO(info).request.url, 1);
31 break;
32
33 case IS_HTTP_RESPONSE:
34 add_assoc_long(&array, "Response Code", (long) HTTP_INFO(info).response.code);
35 add_assoc_string(&array, "Response Status", HTTP_INFO(info).response.status, 1);
36 break;
37 }
38 }
39
40 PHP_HTTP_API void _http_info_dtor(http_info *i)
41 {
42 switch (i->type)
43 {
44 case IS_HTTP_REQUEST:
45 STR_SET(HTTP_INFO(i).request.method, NULL);
46 STR_SET(HTTP_INFO(i).request.url, NULL);
47 break;
48
49 case IS_HTTP_RESPONSE:
50 STR_SET(HTTP_INFO(i).response.status, NULL);
51 break;
52
53 default:
54 break;
55 }
56 }
57
58 PHP_HTTP_API STATUS _http_info_parse_ex(const char *pre_header, http_info *info, zend_bool silent TSRMLS_DC)
59 {
60 const char *end, *http;
61
62 /* sane parameter */
63 if ((!pre_header) || (!*pre_header)) {
64 if (!silent) {
65 http_error(HE_WARNING, HTTP_E_MALFORMED_HEADERS, "Empty pre-header HTTP info");
66 }
67 return FAILURE;
68 }
69
70 /* where's the end of the line */
71 if (!(end = http_locate_eol(pre_header, NULL))) {
72 end = pre_header + strlen(pre_header);
73 }
74
75 /* there must be HTTP/1.x in the line
76 * and nothing than SPACE or NUL after HTTP/1.x
77 */
78 if ( (!(http = strstr(pre_header, "HTTP/1."))) ||
79 (!(http < end)) ||
80 (!isdigit(http[lenof("HTTP/1.")])) ||
81 (http[lenof("HTTP/1.1")] && (!isspace(http[lenof("HTTP/1.1")])))) {
82 if (!silent) {
83 http_error(HE_WARNING, HTTP_E_MALFORMED_HEADERS, "Invalid or missing HTTP/1.x protocol identification");
84 }
85 return FAILURE;
86 }
87
88 #if 0
89 {
90 char *line = estrndup(pre_header, end - pre_header);
91 fprintf(stderr, "http_parse_info('%s')\n", line);
92 efree(line);
93 }
94 #endif
95
96 info->http.version = atof(http + lenof("HTTP/"));
97
98 /* is response */
99 if (pre_header == http) {
100 char *status = NULL;
101 const char *code = http + sizeof("HTTP/1.1");
102
103 info->type = IS_HTTP_RESPONSE;
104 HTTP_INFO(info).response.code = (code && (end > code)) ? strtol(code, &status, 10) : 0;
105 HTTP_INFO(info).response.status = (status && (end > ++status)) ? estrndup(status, end - status) : ecalloc(1,1);
106
107 return SUCCESS;
108 }
109
110 /* is request */
111 else if (!http[lenof("HTTP/1.x")] || http[lenof("HTTP/1.x")] == '\r' || http[lenof("HTTP/1.x")] == '\n') {
112 const char *url = strchr(pre_header, ' ');
113
114 info->type = IS_HTTP_REQUEST;
115 if (url && http > url) {
116 HTTP_INFO(info).request.method = estrndup(pre_header, url - pre_header);
117 HTTP_INFO(info).request.url = estrndup(url + 1, http - url - 2);
118 } else {
119 HTTP_INFO(info).request.method = ecalloc(1,1);
120 HTTP_INFO(info).request.url = ecalloc(1,1);
121 }
122
123 return SUCCESS;
124 }
125
126 /* some darn header containing HTTP/1.x */
127 else {
128 return FAILURE;
129 }
130 }
131
132
133 /*
134 * Local variables:
135 * tab-width: 4
136 * c-basic-offset: 4
137 * End:
138 * vim600: noet sw=4 ts=4 fdm=marker
139 * vim<600: noet sw=4 ts=4
140 */
141