2 +----------------------------------------------------------------------+
4 +----------------------------------------------------------------------+
5 | This source file is subject to version 3.0 of the PHP license, that |
6 | is bundled with this package in the file LICENSE, and is available |
7 | through the world-wide-web at http://www.php.net/license/3_0.txt. |
8 | If you did not receive a copy of the PHP license and are unable to |
9 | obtain it through the world-wide-web, please send a note to |
10 | license@php.net so we can mail you a copy immediately. |
11 +----------------------------------------------------------------------+
12 | Copyright (c) 2004-2005 Michael Wallner <mike@php.net> |
13 +----------------------------------------------------------------------+
23 # include <winsock2.h>
26 #include <curl/curl.h>
28 #include "phpstr/phpstr.h"
32 #include "php_http_std_defs.h"
33 #include "php_http_api.h"
34 #include "php_http_curl_api.h"
35 #include "php_http_url_api.h"
37 ZEND_EXTERN_MODULE_GLOBALS(http
)
39 #if LIBCURL_VERSION_NUM >= 0x070c01
40 # define http_curl_reset(ch) curl_easy_reset(ch)
42 # define http_curl_reset(ch)
45 #if LIBCURL_VERSION_NUM < 0x070c00
46 # define http_curl_error(dummy) HTTP_G(curlerr)
47 # define curl_easy_strerror(code) "unkown error"
49 # define http_curl_error(code) curl_easy_strerror(code)
52 #define http_curl_startup(ch, clean_curl, URL, options, response) \
54 if (!(ch = curl_easy_init())) { \
55 http_error(E_WARNING, HTTP_E_CURL, "Could not initialize curl"); \
60 http_curl_reset(ch); \
62 http_curl_setopts(ch, URL, options, response);
64 #define http_curl_perform(ch, clean_curl, response) \
67 if (CURLE_OK != (result = curl_easy_perform(ch))) { \
68 http_error_ex(E_WARNING, HTTP_E_CURL, "Could not perform request: %s", curl_easy_strerror(result)); \
69 http_curl_cleanup(ch, clean_curl, response); \
74 #define http_curl_cleanup(ch, clean_curl, response) \
75 zend_llist_clean(&HTTP_G(to_free)); \
77 curl_easy_cleanup(ch); \
80 phpstr_fix(PHPSTR(response))
82 #define http_curl_copystr(s) _http_curl_copystr((s) TSRMLS_CC)
83 static inline char *_http_curl_copystr(const char *str TSRMLS_DC
);
85 #define http_curl_setopts(c, u, o, r) _http_curl_setopts((c), (u), (o), (r) TSRMLS_CC)
86 static void _http_curl_setopts(CURL
*ch
, const char *url
, HashTable
*options
, phpstr
*response TSRMLS_DC
);
88 #define http_curl_getopt(o, k, t) _http_curl_getopt_ex((o), (k), sizeof(k), (t) TSRMLS_CC)
89 #define http_curl_getopt_ex(o, k, l, t) _http_curl_getopt_ex((o), (k), (l), (t) TSRMLS_CC)
90 static inline zval
*_http_curl_getopt_ex(HashTable
*options
, char *key
, size_t keylen
, int type TSRMLS_DC
);
92 static size_t http_curl_callback(char *, size_t, size_t, void *);
93 static int http_curl_progress(void *, double, double, double, double);
95 #define http_curl_getinfo(c, h) _http_curl_getinfo((c), (h) TSRMLS_CC)
96 static inline void _http_curl_getinfo(CURL
*ch
, HashTable
*info TSRMLS_DC
);
98 /* {{{ static inline char *http_curl_copystr(char *) */
99 static inline char *_http_curl_copystr(const char *str TSRMLS_DC
)
101 char *new_str
= estrdup(str
);
102 zend_llist_add_element(&HTTP_G(to_free
), &new_str
);
107 /* {{{ static size_t http_curl_callback(char *, size_t, size_t, void *) */
108 static size_t http_curl_callback(char *buf
, size_t len
, size_t n
, void *s
)
110 return s
? phpstr_append(PHPSTR(s
), buf
, len
* n
) : len
* n
;
114 /* {{{ static int http_curl_progress(void *, double, double, double, double) */
115 static int http_curl_progress(void *data
, double dltotal
, double dlnow
, double ultotal
, double ulnow
)
118 zval
*params_pass
[4], params_local
[4], retval
, *func
= (zval
*) data
;
121 for (i
= 0; i
< 5; ++i
) {
122 params_pass
[i
] = ¶ms_local
[i
];
125 ZVAL_DOUBLE(params_pass
[0], dltotal
);
126 ZVAL_DOUBLE(params_pass
[1], dlnow
);
127 ZVAL_DOUBLE(params_pass
[2], ultotal
);
128 ZVAL_DOUBLE(params_pass
[3], ulnow
);
130 return call_user_function(EG(function_table
), NULL
, func
, &retval
, 4, params_pass TSRMLS_CC
);
134 /* {{{ static inline zval *http_curl_getopt(HashTable *, char *, size_t, int) */
135 static inline zval
*_http_curl_getopt_ex(HashTable
*options
, char *key
, size_t keylen
, int type TSRMLS_DC
)
139 if (!options
|| (SUCCESS
!= zend_hash_find(options
, key
, keylen
, (void **) &zoption
))) {
143 if (Z_TYPE_PP(zoption
) != type
) {
146 case IS_BOOL
: convert_to_boolean_ex(zoption
); break;
147 case IS_LONG
: convert_to_long_ex(zoption
); break;
148 case IS_DOUBLE
: convert_to_double_ex(zoption
); break;
149 case IS_STRING
: convert_to_string_ex(zoption
); break;
150 case IS_ARRAY
: convert_to_array_ex(zoption
); break;
151 case IS_OBJECT
: convert_to_object_ex(zoption
); break;
161 /* {{{ static void http_curl_setopts(CURL *, char *, HashTable *, phpstr *) */
162 static void _http_curl_setopts(CURL
*ch
, const char *url
, HashTable
*options
, phpstr
*response TSRMLS_DC
)
165 zend_bool range_req
= 0;
167 #define HTTP_CURL_OPT(OPTION, p) curl_easy_setopt(ch, CURLOPT_##OPTION, (p))
169 /* standard options */
171 HTTP_CURL_OPT(URL
, url
);
174 HTTP_CURL_OPT(HEADER
, 0);
175 HTTP_CURL_OPT(FILETIME
, 1);
176 HTTP_CURL_OPT(NOPROGRESS
, 1);
177 HTTP_CURL_OPT(AUTOREFERER
, 1);
178 HTTP_CURL_OPT(WRITEFUNCTION
, http_curl_callback
);
179 HTTP_CURL_OPT(HEADERFUNCTION
, http_curl_callback
);
182 HTTP_CURL_OPT(WRITEDATA
, response
);
183 HTTP_CURL_OPT(WRITEHEADER
, response
);
186 #if defined(ZTS) && (LIBCURL_VERSION_NUM >= 0x070a00)
187 HTTP_CURL_OPT(NOSIGNAL
, 1);
189 #if LIBCURL_VERSION_NUM < 0x070c00
190 HTTP_CURL_OPT(ERRORBUFFER
, HTTP_G(curlerr
));
193 /* progress callback */
194 if (zoption
= http_curl_getopt(options
, "onprogress", 0)) {
195 HTTP_CURL_OPT(NOPROGRESS
, 0);
196 HTTP_CURL_OPT(PROGRESSFUNCTION
, http_curl_progress
);
197 HTTP_CURL_OPT(PROGRESSDATA
, zoption
);
199 HTTP_CURL_OPT(NOPROGRESS
, 1);
203 if (zoption
= http_curl_getopt(options
, "proxyhost", IS_STRING
)) {
204 HTTP_CURL_OPT(PROXY
, http_curl_copystr(Z_STRVAL_P(zoption
)));
206 if (zoption
= http_curl_getopt(options
, "proxyport", IS_LONG
)) {
207 HTTP_CURL_OPT(PROXYPORT
, Z_LVAL_P(zoption
));
210 if (zoption
= http_curl_getopt(options
, "proxyauth", IS_STRING
)) {
211 HTTP_CURL_OPT(PROXYUSERPWD
, http_curl_copystr(Z_STRVAL_P(zoption
)));
213 #if LIBCURL_VERSION_NUM >= 0x070a07
215 if (zoption
= http_curl_getopt(options
, "proxyauthtype", IS_LONG
)) {
216 HTTP_CURL_OPT(PROXYAUTH
, Z_LVAL_P(zoption
));
221 /* outgoing interface */
222 if (zoption
= http_curl_getopt(options
, "interface", IS_STRING
)) {
223 HTTP_CURL_OPT(INTERFACE
, http_curl_copystr(Z_STRVAL_P(zoption
)));
227 if (zoption
= http_curl_getopt(options
, "port", IS_LONG
)) {
228 HTTP_CURL_OPT(PORT
, Z_LVAL_P(zoption
));
232 if (zoption
= http_curl_getopt(options
, "httpauth", IS_STRING
)) {
233 HTTP_CURL_OPT(USERPWD
, http_curl_copystr(Z_STRVAL_P(zoption
)));
235 #if LIBCURL_VERSION_NUM >= 0x070a06
236 if (zoption
= http_curl_getopt(options
, "httpauthtype", IS_LONG
)) {
237 HTTP_CURL_OPT(HTTPAUTH
, Z_LVAL_P(zoption
));
241 /* compress, empty string enables deflate and gzip */
242 if (zoption
= http_curl_getopt(options
, "compress", IS_BOOL
)) {
243 if (Z_LVAL_P(zoption
)) {
244 HTTP_CURL_OPT(ENCODING
, http_curl_copystr(""));
248 /* redirects, defaults to 0 */
249 if (zoption
= http_curl_getopt(options
, "redirect", IS_LONG
)) {
250 HTTP_CURL_OPT(FOLLOWLOCATION
, Z_LVAL_P(zoption
) ? 1 : 0);
251 HTTP_CURL_OPT(MAXREDIRS
, Z_LVAL_P(zoption
));
252 if (zoption
= http_curl_getopt(options
, "unrestrictedauth", IS_BOOL
)) {
253 HTTP_CURL_OPT(UNRESTRICTED_AUTH
, Z_LVAL_P(zoption
));
256 HTTP_CURL_OPT(FOLLOWLOCATION
, 0);
260 if (zoption
= http_curl_getopt(options
, "referer", IS_STRING
)) {
261 HTTP_CURL_OPT(REFERER
, http_curl_copystr(Z_STRVAL_P(zoption
)));
264 /* useragent, default "PECL::HTTP/version (PHP/version)" */
265 if (zoption
= http_curl_getopt(options
, "useragent", IS_STRING
)) {
266 HTTP_CURL_OPT(USERAGENT
, http_curl_copystr(Z_STRVAL_P(zoption
)));
268 HTTP_CURL_OPT(USERAGENT
,
269 "PECL::HTTP/" HTTP_PEXT_VERSION
" (PHP/" PHP_VERSION
")");
272 /* additional headers, array('name' => 'value') */
273 if (zoption
= http_curl_getopt(options
, "headers", IS_ARRAY
)) {
276 struct curl_slist
*headers
= NULL
;
278 FOREACH_KEY(zoption
, header_key
, header_idx
) {
281 if (SUCCESS
== zend_hash_get_current_data(Z_ARRVAL_P(zoption
), (void **) &header_val
)) {
282 char header
[1024] = {0};
283 snprintf(header
, 1023, "%s: %s", header_key
, Z_STRVAL_PP(header_val
));
284 headers
= curl_slist_append(headers
, http_curl_copystr(header
));
293 HTTP_CURL_OPT(HTTPHEADER
, headers
);
297 /* cookies, array('name' => 'value') */
298 if (zoption
= http_curl_getopt(options
, "cookies", IS_ARRAY
)) {
299 char *cookie_key
= NULL
;
301 phpstr
*qstr
= phpstr_new();
303 FOREACH_KEY(zoption
, cookie_key
, cookie_idx
) {
306 if (SUCCESS
== zend_hash_get_current_data(Z_ARRVAL_P(zoption
), (void **) &cookie_val
)) {
307 phpstr_appendf(qstr
, "%s=%s; ", cookie_key
, Z_STRVAL_PP(cookie_val
));
317 HTTP_CURL_OPT(COOKIE
, http_curl_copystr(qstr
->data
));
323 if (zoption
= http_curl_getopt(options
, "cookiestore", IS_STRING
)) {
324 HTTP_CURL_OPT(COOKIEFILE
, http_curl_copystr(Z_STRVAL_P(zoption
)));
325 HTTP_CURL_OPT(COOKIEJAR
, http_curl_copystr(Z_STRVAL_P(zoption
)));
329 if (zoption
= http_curl_getopt(options
, "resume", IS_LONG
)) {
331 HTTP_CURL_OPT(RESUME_FROM
, Z_LVAL_P(zoption
));
335 if (zoption
= http_curl_getopt(options
, "maxfilesize", IS_LONG
)) {
336 HTTP_CURL_OPT(MAXFILESIZE
, Z_LVAL_P(zoption
));
340 if (zoption
= http_curl_getopt(options
, "lastmodified", IS_LONG
)) {
341 HTTP_CURL_OPT(TIMECONDITION
, range_req
? CURL_TIMECOND_IFUNMODSINCE
: CURL_TIMECOND_IFMODSINCE
);
342 HTTP_CURL_OPT(TIMEVALUE
, Z_LVAL_P(zoption
));
346 if (zoption
= http_curl_getopt(options
, "timeout", IS_LONG
)) {
347 HTTP_CURL_OPT(TIMEOUT
, Z_LVAL_P(zoption
));
350 /* connecttimeout, defaults to 1 */
351 if (zoption
= http_curl_getopt(options
, "connecttimeout", IS_LONG
)) {
352 HTTP_CURL_OPT(CONNECTTIMEOUT
, Z_LVAL_P(zoption
));
354 HTTP_CURL_OPT(CONNECTTIMEOUT
, 1);
358 if (zoption
= http_curl_getopt(options
, "ssl", IS_ARRAY
)) {
359 #define HTTP_CURL_OPT_STRING(keyname) HTTP_CURL_OPT_STRING_EX(keyname, keyname)
360 #define HTTP_CURL_OPT_SSL_STRING(keyname) HTTP_CURL_OPT_STRING_EX(keyname, SSL##keyname)
361 #define HTTP_CURL_OPT_SSL_STRING_(keyname) HTTP_CURL_OPT_STRING_EX(keyname, SSL_##keyname)
362 #define HTTP_CURL_OPT_STRING_EX(keyname, optname) \
363 if (!strcasecmp(key, #keyname)) { \
364 convert_to_string_ex(param); \
365 HTTP_CURL_OPT(optname, http_curl_copystr(Z_STRVAL_PP(param))); \
369 #define HTTP_CURL_OPT_LONG(keyname) HTTP_OPT_SSL_LONG_EX(keyname, keyname)
370 #define HTTP_CURL_OPT_SSL_LONG(keyname) HTTP_CURL_OPT_LONG_EX(keyname, SSL##keyname)
371 #define HTTP_CURL_OPT_SSL_LONG_(keyname) HTTP_CURL_OPT_LONG_EX(keyname, SSL_##keyname)
372 #define HTTP_CURL_OPT_LONG_EX(keyname, optname) \
373 if (!strcasecmp(key, #keyname)) { \
374 convert_to_long_ex(param); \
375 HTTP_CURL_OPT(optname, Z_LVAL_PP(param)); \
384 FOREACH_KEYVAL(zoption
, key
, idx
, param
) {
385 if (key
) {fprintf(stderr
, "%s\n", key
);
386 HTTP_CURL_OPT_SSL_STRING(CERT
);
387 #if LIBCURL_VERSION_NUM >= 0x070903
388 HTTP_CURL_OPT_SSL_STRING(CERTTYPE
);
390 HTTP_CURL_OPT_SSL_STRING(CERTPASSWD
);
392 HTTP_CURL_OPT_SSL_STRING(KEY
);
393 HTTP_CURL_OPT_SSL_STRING(KEYTYPE
);
394 HTTP_CURL_OPT_SSL_STRING(KEYPASSWD
);
396 HTTP_CURL_OPT_SSL_STRING(ENGINE
);
397 HTTP_CURL_OPT_SSL_LONG(VERSION
);
399 HTTP_CURL_OPT_SSL_LONG_(VERIFYPEER
);
400 HTTP_CURL_OPT_SSL_LONG_(VERIFYHOST
);
401 HTTP_CURL_OPT_SSL_STRING_(CIPHER_LIST
);
404 HTTP_CURL_OPT_STRING(CAINFO
);
405 #if LIBCURL_VERSION_NUM >= 0x070908
406 HTTP_CURL_OPT_STRING(CAPATH
);
408 HTTP_CURL_OPT_STRING(RANDOM_FILE
);
409 HTTP_CURL_OPT_STRING(EGDSOCKET
);
416 /* disable SSL verification by default */
417 HTTP_CURL_OPT(SSL_VERIFYPEER
, 0);
418 HTTP_CURL_OPT(SSL_VERIFYHOST
, 0);
423 /* {{{ static inline http_curl_getinfo(CURL, HashTable *) */
424 static inline void _http_curl_getinfo(CURL
*ch
, HashTable
*info TSRMLS_DC
)
427 Z_ARRVAL(array
) = info
;
429 #define HTTP_CURL_INFO(I) HTTP_CURL_INFO_EX(I, I)
430 #define HTTP_CURL_INFO_EX(I, X) \
431 switch (CURLINFO_ ##I & ~CURLINFO_MASK) \
433 case CURLINFO_STRING: \
436 if (CURLE_OK == curl_easy_getinfo(ch, CURLINFO_ ##I, &c)) { \
437 add_assoc_string(&array, pretty_key(http_curl_copystr(#X), sizeof(#X)-1, 0, 0), c ? c : "", 1); \
442 case CURLINFO_DOUBLE: \
445 if (CURLE_OK == curl_easy_getinfo(ch, CURLINFO_ ##I, &d)) { \
446 add_assoc_double(&array, pretty_key(http_curl_copystr(#X), sizeof(#X)-1, 0, 0), d); \
451 case CURLINFO_LONG: \
454 if (CURLE_OK == curl_easy_getinfo(ch, CURLINFO_ ##I, &l)) { \
455 add_assoc_long(&array, pretty_key(http_curl_copystr(#X), sizeof(#X)-1, 0, 0), l); \
461 HTTP_CURL_INFO(EFFECTIVE_URL
);
463 #if LIBCURL_VERSION_NUM >= 0x070a07
464 HTTP_CURL_INFO(RESPONSE_CODE
);
466 HTTP_CURL_INFO_EX(HTTP_CODE
, RESPONSE_CODE
);
468 HTTP_CURL_INFO(HTTP_CONNECTCODE
);
470 #if LIBCURL_VERSION_NUM >= 0x070500
471 HTTP_CURL_INFO(FILETIME
);
473 HTTP_CURL_INFO(TOTAL_TIME
);
474 HTTP_CURL_INFO(NAMELOOKUP_TIME
);
475 HTTP_CURL_INFO(CONNECT_TIME
);
476 HTTP_CURL_INFO(PRETRANSFER_TIME
);
477 HTTP_CURL_INFO(STARTTRANSFER_TIME
);
478 #if LIBCURL_VERSION_NUM >= 0x070907
479 HTTP_CURL_INFO(REDIRECT_TIME
);
480 HTTP_CURL_INFO(REDIRECT_COUNT
);
483 HTTP_CURL_INFO(SIZE_UPLOAD
);
484 HTTP_CURL_INFO(SIZE_DOWNLOAD
);
485 HTTP_CURL_INFO(SPEED_DOWNLOAD
);
486 HTTP_CURL_INFO(SPEED_UPLOAD
);
488 HTTP_CURL_INFO(HEADER_SIZE
);
489 HTTP_CURL_INFO(REQUEST_SIZE
);
491 HTTP_CURL_INFO(SSL_VERIFYRESULT
);
492 #if LIBCURL_VERSION_NUM >= 0x070c03
493 /*HTTP_CURL_INFO(SSL_ENGINES);
494 todo: CURLINFO_SLIST */
497 HTTP_CURL_INFO(CONTENT_LENGTH_DOWNLOAD
);
498 HTTP_CURL_INFO(CONTENT_LENGTH_UPLOAD
);
499 HTTP_CURL_INFO(CONTENT_TYPE
);
501 #if LIBCURL_VERSION_NUM >= 0x070a03
502 /*HTTP_CURL_INFO(PRIVATE);*/
505 #if LIBCURL_VERSION_NUM >= 0x070a08
506 HTTP_CURL_INFO(HTTPAUTH_AVAIL
);
507 HTTP_CURL_INFO(PROXYAUTH_AVAIL
);
510 #if LIBCURL_VERSION_NUM >= 0x070c02
511 /*HTTP_CURL_INFO(OS_ERRNO);*/
514 #if LIBCURL_VERSION_NUM >= 0x070c03
515 HTTP_CURL_INFO(NUM_CONNECTS
);
520 /* {{{ STATUS http_get_ex(CURL *, char *, HashTable *, HashTable *, phpstr *) */
521 PHP_HTTP_API STATUS
_http_get_ex(CURL
*ch
, const char *URL
, HashTable
*options
, HashTable
*info
, phpstr
*response TSRMLS_DC
)
523 zend_bool clean_curl
= 0;
525 http_curl_startup(ch
, clean_curl
, URL
, options
, response
);
526 curl_easy_setopt(ch
, CURLOPT_HTTPGET
, 1);
527 http_curl_perform(ch
, clean_curl
, response
);
530 http_curl_getinfo(ch
, info
);
533 http_curl_cleanup(ch
, clean_curl
, response
);
538 /* {{{ STATUS http_head_ex(CURL *, char *, HashTable *, HashTable *, phpstr *) */
539 PHP_HTTP_API STATUS
_http_head_ex(CURL
*ch
, const char *URL
, HashTable
*options
,HashTable
*info
, phpstr
*response TSRMLS_DC
)
541 zend_bool clean_curl
= 0;
543 http_curl_startup(ch
, clean_curl
, URL
, options
, response
);
544 curl_easy_setopt(ch
, CURLOPT_NOBODY
, 1);
545 http_curl_perform(ch
, clean_curl
, response
);
548 http_curl_getinfo(ch
, info
);
551 http_curl_cleanup(ch
, clean_curl
, response
);
556 /* {{{ STATUS http_post_data_ex(CURL *, char *, char *, size_t, HashTable *, HashTable *, phpstr *) */
557 PHP_HTTP_API STATUS
_http_post_data_ex(CURL
*ch
, const char *URL
, char *postdata
,
558 size_t postdata_len
, HashTable
*options
, HashTable
*info
, phpstr
*response TSRMLS_DC
)
560 zend_bool clean_curl
= 0;
562 http_curl_startup(ch
, clean_curl
, URL
, options
, response
);
563 curl_easy_setopt(ch
, CURLOPT_POST
, 1);
564 curl_easy_setopt(ch
, CURLOPT_POSTFIELDS
, postdata
);
565 curl_easy_setopt(ch
, CURLOPT_POSTFIELDSIZE
, postdata_len
);
566 http_curl_perform(ch
, clean_curl
, response
);
569 http_curl_getinfo(ch
, info
);
572 http_curl_cleanup(ch
, clean_curl
, response
);
578 /* {{{ STATUS http_post_array_ex(CURL *, char *, HashTable *, HashTable *, HashTable *, phpstr *) */
579 PHP_HTTP_API STATUS
_http_post_array_ex(CURL
*ch
, const char *URL
, HashTable
*postarray
,
580 HashTable
*options
, HashTable
*info
, phpstr
*response TSRMLS_DC
)
586 if (SUCCESS
!= http_urlencode_hash_ex(postarray
, 1, NULL
, 0, &encoded
, &encoded_len
)) {
587 http_error(E_WARNING
, HTTP_E_ENCODE
, "Could not encode post data");
591 status
= http_post_data_ex(ch
, URL
, encoded
, encoded_len
, options
, info
, response
);
598 /* {{{ STATUS http_post_curldata_ex(CURL *, char *, curl_httppost *, HashTable *, HashTable *, phpstr *) */
599 PHP_HTTP_API STATUS
_http_post_curldata_ex(CURL
*ch
, const char *URL
, struct curl_httppost
*curldata
,
600 HashTable
*options
, HashTable
*info
, phpstr
*response TSRMLS_DC
)
602 zend_bool clean_curl
= 0;
604 http_curl_startup(ch
, clean_curl
, URL
, options
, response
);
605 curl_easy_setopt(ch
, CURLOPT_POST
, 1);
606 curl_easy_setopt(ch
, CURLOPT_HTTPPOST
, curldata
);
607 http_curl_perform(ch
, clean_curl
, response
);
610 http_curl_getinfo(ch
, info
);
613 http_curl_cleanup(ch
, clean_curl
, response
);
624 * vim600: noet sw=4 ts=4 fdm=marker
625 * vim<600: noet sw=4 ts=4