- CS
[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 case IS_HTTP_REQUEST:
28 add_assoc_string(&array, "Request Method", HTTP_INFO(info).request.method, 1);
29 add_assoc_string(&array, "Request Url", HTTP_INFO(info).request.url, 1);
30 break;
31
32 case IS_HTTP_RESPONSE:
33 add_assoc_long(&array, "Response Code", (long) HTTP_INFO(info).response.code);
34 add_assoc_string(&array, "Response Status", HTTP_INFO(info).response.status, 1);
35 break;
36 }
37 }
38
39 PHP_HTTP_API void _http_info_dtor(http_info *i)
40 {
41 switch (i->type) {
42 case IS_HTTP_REQUEST:
43 STR_SET(HTTP_INFO(i).request.method, NULL);
44 STR_SET(HTTP_INFO(i).request.url, NULL);
45 break;
46
47 case IS_HTTP_RESPONSE:
48 STR_SET(HTTP_INFO(i).response.status, NULL);
49 break;
50
51 default:
52 break;
53 }
54 }
55
56 PHP_HTTP_API STATUS _http_info_parse_ex(const char *pre_header, http_info *info, zend_bool silent TSRMLS_DC)
57 {
58 const char *end, *http;
59
60 /* sane parameter */
61 if ((!pre_header) || (!*pre_header)) {
62 return FAILURE;
63 }
64
65 /* where's the end of the line */
66 if (!(end = http_locate_eol(pre_header, NULL))) {
67 end = pre_header + strlen(pre_header);
68 }
69
70 /* there must be HTTP/1.x in the line */
71 if (!(http = http_locate_str(pre_header, end - pre_header, "HTTP/1.", lenof("HTTP/1.")))) {
72 return FAILURE;
73 }
74
75 /* and nothing than SPACE or NUL after HTTP/1.x */
76 if ( (!HTTP_IS_CTYPE(digit, http[lenof("HTTP/1.")])) ||
77 (http[lenof("HTTP/1.1")] && (!HTTP_IS_CTYPE(space, http[lenof("HTTP/1.1")])))) {
78 if (!silent) {
79 http_error(HE_WARNING, HTTP_E_MALFORMED_HEADERS, "Invalid HTTP/1.x protocol identification");
80 }
81 return FAILURE;
82 }
83
84 #if 0
85 {
86 char *line = estrndup(pre_header, end - pre_header);
87 fprintf(stderr, "http_parse_info('%s')\n", line);
88 efree(line);
89 }
90 #endif
91
92 info->http.version = atof(http + lenof("HTTP/"));
93
94 /* is response */
95 if (pre_header == http) {
96 char *status = NULL;
97 const char *code = http + sizeof("HTTP/1.1");
98
99 info->type = IS_HTTP_RESPONSE;
100 HTTP_INFO(info).response.code = (code && (end > code)) ? strtol(code, &status, 10) : 0;
101 HTTP_INFO(info).response.status = (status && (end > ++status)) ? estrndup(status, end - status) : ecalloc(1,1);
102
103 return SUCCESS;
104 }
105
106 /* is request */
107 else if (!http[lenof("HTTP/1.x")] || http[lenof("HTTP/1.x")] == '\r' || http[lenof("HTTP/1.x")] == '\n') {
108 const char *url = strchr(pre_header, ' ');
109
110 info->type = IS_HTTP_REQUEST;
111 if (url && http > url) {
112 HTTP_INFO(info).request.method = estrndup(pre_header, url - pre_header);
113 HTTP_INFO(info).request.url = estrndup(url + 1, http - url - 2);
114 } else {
115 HTTP_INFO(info).request.method = ecalloc(1,1);
116 HTTP_INFO(info).request.url = ecalloc(1,1);
117 }
118
119 return SUCCESS;
120 }
121
122 /* some darn header containing HTTP/1.x */
123 else {
124 return FAILURE;
125 }
126 }
127
128
129 /*
130 * Local variables:
131 * tab-width: 4
132 * c-basic-offset: 4
133 * End:
134 * vim600: noet sw=4 ts=4 fdm=marker
135 * vim<600: noet sw=4 ts=4
136 */
137