1 /*
2 +----------------------------------------------------------------------+
3 | phar:// stream wrapper support |
4 +----------------------------------------------------------------------+
5 | Copyright (c) 2005-2013 The PHP Group |
6 +----------------------------------------------------------------------+
7 | This source file is subject to version 3.01 of the PHP license, |
8 | that is bundled with this package in the file LICENSE, and is |
9 | available through the world-wide-web at the following url: |
10 | http://www.php.net/license/3_01.txt. |
11 | If you did not receive a copy of the PHP license and are unable to |
12 | obtain it through the world-wide-web, please send a note to |
13 | license@php.net so we can mail you a copy immediately. |
14 +----------------------------------------------------------------------+
15 | Authors: Gregory Beaver <cellog@php.net> |
16 | Marcus Boerger <helly@php.net> |
17 +----------------------------------------------------------------------+
18 */
19
20 #define PHAR_DIRSTREAM 1
21 #include "phar_internal.h"
22 #include "dirstream.h"
23
24 BEGIN_EXTERN_C()
25 void phar_dostat(phar_archive_data *phar, phar_entry_info *data, php_stream_statbuf *ssb, zend_bool is_dir TSRMLS_DC);
26 END_EXTERN_C()
27
28 php_stream_ops phar_dir_ops = {
29 phar_dir_write, /* write */
30 phar_dir_read, /* read */
31 phar_dir_close, /* close */
32 phar_dir_flush, /* flush */
33 "phar dir",
34 phar_dir_seek, /* seek */
35 NULL, /* cast */
36 NULL, /* stat */
37 NULL, /* set option */
38 };
39
40 /**
41 * Used for closedir($fp) where $fp is an opendir('phar://...') directory handle
42 */
phar_dir_close(php_stream * stream,int close_handle TSRMLS_DC)43 static int phar_dir_close(php_stream *stream, int close_handle TSRMLS_DC) /* {{{ */
44 {
45 HashTable *data = (HashTable *)stream->abstract;
46
47 if (data && data->arBuckets) {
48 zend_hash_destroy(data);
49 data->arBuckets = 0;
50 FREE_HASHTABLE(data);
51 stream->abstract = NULL;
52 }
53
54 return 0;
55 }
56 /* }}} */
57
58 /**
59 * Used for seeking on a phar directory handle
60 */
phar_dir_seek(php_stream * stream,off_t offset,int whence,off_t * newoffset TSRMLS_DC)61 static int phar_dir_seek(php_stream *stream, off_t offset, int whence, off_t *newoffset TSRMLS_DC) /* {{{ */
62 {
63 HashTable *data = (HashTable *)stream->abstract;
64
65 if (!data) {
66 return -1;
67 }
68
69 if (whence == SEEK_END) {
70 whence = SEEK_SET;
71 offset = zend_hash_num_elements(data) + offset;
72 }
73
74 if (whence == SEEK_SET) {
75 zend_hash_internal_pointer_reset(data);
76 }
77
78 if (offset < 0) {
79 return -1;
80 } else {
81 *newoffset = 0;
82 while (*newoffset < offset && zend_hash_move_forward(data) == SUCCESS) {
83 ++(*newoffset);
84 }
85 return 0;
86 }
87 }
88 /* }}} */
89
90 /**
91 * Used for readdir() on an opendir()ed phar directory handle
92 */
phar_dir_read(php_stream * stream,char * buf,size_t count TSRMLS_DC)93 static size_t phar_dir_read(php_stream *stream, char *buf, size_t count TSRMLS_DC) /* {{{ */
94 {
95 size_t to_read;
96 HashTable *data = (HashTable *)stream->abstract;
97 phar_zstr key;
98 char *str_key;
99 uint keylen;
100 ulong unused;
101
102 if (FAILURE == zend_hash_has_more_elements(data)) {
103 return 0;
104 }
105
106 if (HASH_KEY_NON_EXISTANT == zend_hash_get_current_key_ex(data, &key, &keylen, &unused, 0, NULL)) {
107 return 0;
108 }
109
110 PHAR_STR(key, str_key);
111 zend_hash_move_forward(data);
112 to_read = MIN(keylen, count);
113
114 if (to_read == 0 || count < keylen) {
115 PHAR_STR_FREE(str_key);
116 return 0;
117 }
118
119 memset(buf, 0, sizeof(php_stream_dirent));
120 memcpy(((php_stream_dirent *) buf)->d_name, str_key, to_read);
121 PHAR_STR_FREE(str_key);
122 ((php_stream_dirent *) buf)->d_name[to_read + 1] = '\0';
123
124 return sizeof(php_stream_dirent);
125 }
126 /* }}} */
127
128 /**
129 * Dummy: Used for writing to a phar directory (i.e. not used)
130 */
phar_dir_write(php_stream * stream,const char * buf,size_t count TSRMLS_DC)131 static size_t phar_dir_write(php_stream *stream, const char *buf, size_t count TSRMLS_DC) /* {{{ */
132 {
133 return 0;
134 }
135 /* }}} */
136
137 /**
138 * Dummy: Used for flushing writes to a phar directory (i.e. not used)
139 */
phar_dir_flush(php_stream * stream TSRMLS_DC)140 static int phar_dir_flush(php_stream *stream TSRMLS_DC) /* {{{ */
141 {
142 return EOF;
143 }
144 /* }}} */
145
146 /**
147 * add an empty element with a char * key to a hash table, avoiding duplicates
148 *
149 * This is used to get a unique listing of virtual directories within a phar,
150 * for iterating over opendir()ed phar directories.
151 */
phar_add_empty(HashTable * ht,char * arKey,uint nKeyLength)152 static int phar_add_empty(HashTable *ht, char *arKey, uint nKeyLength) /* {{{ */
153 {
154 void *dummy = (char *) 1;
155
156 return zend_hash_update(ht, arKey, nKeyLength, (void *) &dummy, sizeof(void *), NULL);
157 }
158 /* }}} */
159
160 /**
161 * Used for sorting directories alphabetically
162 */
phar_compare_dir_name(const void * a,const void * b TSRMLS_DC)163 static int phar_compare_dir_name(const void *a, const void *b TSRMLS_DC) /* {{{ */
164 {
165 Bucket *f;
166 Bucket *s;
167 int result;
168
169 f = *((Bucket **) a);
170 s = *((Bucket **) b);
171 #if (PHP_MAJOR_VERSION < 6)
172 result = zend_binary_strcmp(f->arKey, f->nKeyLength, s->arKey, s->nKeyLength);
173 #else
174 result = zend_binary_strcmp(f->key.arKey.s, f->nKeyLength, s->key.arKey.s, s->nKeyLength);
175 #endif
176
177 if (result < 0) {
178 return -1;
179 } else if (result > 0) {
180 return 1;
181 } else {
182 return 0;
183 }
184 }
185 /* }}} */
186
187 /**
188 * Create a opendir() directory stream handle by iterating over each of the
189 * files in a phar and retrieving its relative path. From this, construct
190 * a list of files/directories that are "in" the directory represented by dir
191 */
phar_make_dirstream(char * dir,HashTable * manifest TSRMLS_DC)192 static php_stream *phar_make_dirstream(char *dir, HashTable *manifest TSRMLS_DC) /* {{{ */
193 {
194 HashTable *data;
195 int dirlen = strlen(dir);
196 phar_zstr key;
197 char *entry, *found, *save, *str_key;
198 uint keylen;
199 ulong unused;
200
201 ALLOC_HASHTABLE(data);
202 zend_hash_init(data, 64, zend_get_hash_value, NULL, 0);
203
204 if ((*dir == '/' && dirlen == 1 && (manifest->nNumOfElements == 0)) || (dirlen >= sizeof(".phar")-1 && !memcmp(dir, ".phar", sizeof(".phar")-1))) {
205 /* make empty root directory for empty phar */
206 /* make empty directory for .phar magic directory */
207 efree(dir);
208 return php_stream_alloc(&phar_dir_ops, data, NULL, "r");
209 }
210
211 zend_hash_internal_pointer_reset(manifest);
212
213 while (FAILURE != zend_hash_has_more_elements(manifest)) {
214 if (HASH_KEY_NON_EXISTANT == zend_hash_get_current_key_ex(manifest, &key, &keylen, &unused, 0, NULL)) {
215 break;
216 }
217
218 PHAR_STR(key, str_key);
219
220 if (keylen <= (uint)dirlen) {
221 if (keylen < (uint)dirlen || !strncmp(str_key, dir, dirlen)) {
222 PHAR_STR_FREE(str_key);
223 if (SUCCESS != zend_hash_move_forward(manifest)) {
224 break;
225 }
226 continue;
227 }
228 }
229
230 if (*dir == '/') {
231 /* root directory */
232 if (keylen >= sizeof(".phar")-1 && !memcmp(str_key, ".phar", sizeof(".phar")-1)) {
233 PHAR_STR_FREE(str_key);
234 /* do not add any magic entries to this directory */
235 if (SUCCESS != zend_hash_move_forward(manifest)) {
236 break;
237 }
238 continue;
239 }
240
241 if (NULL != (found = (char *) memchr(str_key, '/', keylen))) {
242 /* the entry has a path separator and is a subdirectory */
243 entry = (char *) safe_emalloc(found - str_key, 1, 1);
244 memcpy(entry, str_key, found - str_key);
245 keylen = found - str_key;
246 entry[keylen] = '\0';
247 } else {
248 entry = (char *) safe_emalloc(keylen, 1, 1);
249 memcpy(entry, str_key, keylen);
250 entry[keylen] = '\0';
251 }
252
253 PHAR_STR_FREE(str_key);
254 goto PHAR_ADD_ENTRY;
255 } else {
256 if (0 != memcmp(str_key, dir, dirlen)) {
257 /* entry in directory not found */
258 PHAR_STR_FREE(str_key);
259 if (SUCCESS != zend_hash_move_forward(manifest)) {
260 break;
261 }
262 continue;
263 } else {
264 if (str_key[dirlen] != '/') {
265 PHAR_STR_FREE(str_key);
266 if (SUCCESS != zend_hash_move_forward(manifest)) {
267 break;
268 }
269 continue;
270 }
271 }
272 }
273
274 save = str_key;
275 save += dirlen + 1; /* seek to just past the path separator */
276
277 if (NULL != (found = (char *) memchr(save, '/', keylen - dirlen - 1))) {
278 /* is subdirectory */
279 save -= dirlen + 1;
280 entry = (char *) safe_emalloc(found - save + dirlen, 1, 1);
281 memcpy(entry, save + dirlen + 1, found - save - dirlen - 1);
282 keylen = found - save - dirlen - 1;
283 entry[keylen] = '\0';
284 } else {
285 /* is file */
286 save -= dirlen + 1;
287 entry = (char *) safe_emalloc(keylen - dirlen, 1, 1);
288 memcpy(entry, save + dirlen + 1, keylen - dirlen - 1);
289 entry[keylen - dirlen - 1] = '\0';
290 keylen = keylen - dirlen - 1;
291 }
292 PHAR_STR_FREE(str_key);
293 PHAR_ADD_ENTRY:
294 if (keylen) {
295 phar_add_empty(data, entry, keylen);
296 }
297
298 efree(entry);
299
300 if (SUCCESS != zend_hash_move_forward(manifest)) {
301 break;
302 }
303 }
304
305 if (FAILURE != zend_hash_has_more_elements(data)) {
306 efree(dir);
307 if (zend_hash_sort(data, zend_qsort, phar_compare_dir_name, 0 TSRMLS_CC) == FAILURE) {
308 FREE_HASHTABLE(data);
309 return NULL;
310 }
311 return php_stream_alloc(&phar_dir_ops, data, NULL, "r");
312 } else {
313 efree(dir);
314 return php_stream_alloc(&phar_dir_ops, data, NULL, "r");
315 }
316 }
317 /* }}}*/
318
319 /**
320 * Open a directory handle within a phar archive
321 */
phar_wrapper_open_dir(php_stream_wrapper * wrapper,char * path,char * mode,int options,char ** opened_path,php_stream_context * context STREAMS_DC TSRMLS_DC)322 php_stream *phar_wrapper_open_dir(php_stream_wrapper *wrapper, char *path, char *mode, int options, char **opened_path, php_stream_context *context STREAMS_DC TSRMLS_DC) /* {{{ */
323 {
324 php_url *resource = NULL;
325 php_stream *ret;
326 char *internal_file, *error, *str_key;
327 phar_zstr key;
328 uint keylen;
329 ulong unused;
330 phar_archive_data *phar;
331 phar_entry_info *entry = NULL;
332 uint host_len;
333
334 if ((resource = phar_parse_url(wrapper, path, mode, options TSRMLS_CC)) == NULL) {
335 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar url \"%s\" is unknown", path);
336 return NULL;
337 }
338
339 /* we must have at the very least phar://alias.phar/ */
340 if (!resource->scheme || !resource->host || !resource->path) {
341 if (resource->host && !resource->path) {
342 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: no directory in \"%s\", must have at least phar://%s/ for root directory (always use full path to a new phar)", path, resource->host);
343 php_url_free(resource);
344 return NULL;
345 }
346 php_url_free(resource);
347 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: invalid url \"%s\", must have at least phar://%s/", path, path);
348 return NULL;
349 }
350
351 if (strcasecmp("phar", resource->scheme)) {
352 php_url_free(resource);
353 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: not a phar url \"%s\"", path);
354 return NULL;
355 }
356
357 host_len = strlen(resource->host);
358 phar_request_initialize(TSRMLS_C);
359 internal_file = resource->path + 1; /* strip leading "/" */
360
361 if (FAILURE == phar_get_archive(&phar, resource->host, host_len, NULL, 0, &error TSRMLS_CC)) {
362 if (error) {
363 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "%s", error);
364 efree(error);
365 } else {
366 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar file \"%s\" is unknown", resource->host);
367 }
368 php_url_free(resource);
369 return NULL;
370 }
371
372 if (error) {
373 efree(error);
374 }
375
376 if (*internal_file == '\0') {
377 /* root directory requested */
378 internal_file = estrndup(internal_file - 1, 1);
379 ret = phar_make_dirstream(internal_file, &phar->manifest TSRMLS_CC);
380 php_url_free(resource);
381 return ret;
382 }
383
384 if (!phar->manifest.arBuckets) {
385 php_url_free(resource);
386 return NULL;
387 }
388
389 if (SUCCESS == zend_hash_find(&phar->manifest, internal_file, strlen(internal_file), (void**)&entry) && !entry->is_dir) {
390 php_url_free(resource);
391 return NULL;
392 } else if (entry && entry->is_dir) {
393 if (entry->is_mounted) {
394 php_url_free(resource);
395 return php_stream_opendir(entry->tmp, options, context);
396 }
397 internal_file = estrdup(internal_file);
398 php_url_free(resource);
399 return phar_make_dirstream(internal_file, &phar->manifest TSRMLS_CC);
400 } else {
401 int i_len = strlen(internal_file);
402
403 /* search for directory */
404 zend_hash_internal_pointer_reset(&phar->manifest);
405 while (FAILURE != zend_hash_has_more_elements(&phar->manifest)) {
406 if (HASH_KEY_NON_EXISTANT !=
407 zend_hash_get_current_key_ex(
408 &phar->manifest, &key, &keylen, &unused, 0, NULL)) {
409 PHAR_STR(key, str_key);
410 if (keylen > (uint)i_len && 0 == memcmp(str_key, internal_file, i_len)) {
411 PHAR_STR_FREE(str_key);
412 /* directory found */
413 internal_file = estrndup(internal_file,
414 i_len);
415 php_url_free(resource);
416 return phar_make_dirstream(internal_file, &phar->manifest TSRMLS_CC);
417 }
418 PHAR_STR_FREE(str_key);
419 }
420
421 if (SUCCESS != zend_hash_move_forward(&phar->manifest)) {
422 break;
423 }
424 }
425 }
426
427 php_url_free(resource);
428 return NULL;
429 }
430 /* }}} */
431
432 /**
433 * Make a new directory within a phar archive
434 */
phar_wrapper_mkdir(php_stream_wrapper * wrapper,char * url_from,int mode,int options,php_stream_context * context TSRMLS_DC)435 int phar_wrapper_mkdir(php_stream_wrapper *wrapper, char *url_from, int mode, int options, php_stream_context *context TSRMLS_DC) /* {{{ */
436 {
437 phar_entry_info entry, *e;
438 phar_archive_data *phar = NULL;
439 char *error, *arch, *entry2;
440 int arch_len, entry_len;
441 php_url *resource = NULL;
442 uint host_len;
443
444 /* pre-readonly check, we need to know if this is a data phar */
445 if (FAILURE == phar_split_fname(url_from, strlen(url_from), &arch, &arch_len, &entry2, &entry_len, 2, 2 TSRMLS_CC)) {
446 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot create directory \"%s\", no phar archive specified", url_from);
447 return 0;
448 }
449
450 if (FAILURE == phar_get_archive(&phar, arch, arch_len, NULL, 0, NULL TSRMLS_CC)) {
451 phar = NULL;
452 }
453
454 efree(arch);
455 efree(entry2);
456
457 if (PHAR_G(readonly) && (!phar || !phar->is_data)) {
458 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot create directory \"%s\", write operations disabled", url_from);
459 return 0;
460 }
461
462 if ((resource = phar_parse_url(wrapper, url_from, "w", options TSRMLS_CC)) == NULL) {
463 return 0;
464 }
465
466 /* we must have at the very least phar://alias.phar/internalfile.php */
467 if (!resource->scheme || !resource->host || !resource->path) {
468 php_url_free(resource);
469 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: invalid url \"%s\"", url_from);
470 return 0;
471 }
472
473 if (strcasecmp("phar", resource->scheme)) {
474 php_url_free(resource);
475 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: not a phar stream url \"%s\"", url_from);
476 return 0;
477 }
478
479 host_len = strlen(resource->host);
480
481 if (FAILURE == phar_get_archive(&phar, resource->host, host_len, NULL, 0, &error TSRMLS_CC)) {
482 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot create directory \"%s\" in phar \"%s\", error retrieving phar information: %s", resource->path+1, resource->host, error);
483 efree(error);
484 php_url_free(resource);
485 return 0;
486 }
487
488 if ((e = phar_get_entry_info_dir(phar, resource->path + 1, strlen(resource->path + 1), 2, &error, 1 TSRMLS_CC))) {
489 /* directory exists, or is a subdirectory of an existing file */
490 if (e->is_temp_dir) {
491 efree(e->filename);
492 efree(e);
493 }
494 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot create directory \"%s\" in phar \"%s\", directory already exists", resource->path+1, resource->host);
495 php_url_free(resource);
496 return 0;
497 }
498
499 if (error) {
500 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot create directory \"%s\" in phar \"%s\", %s", resource->path+1, resource->host, error);
501 efree(error);
502 php_url_free(resource);
503 return 0;
504 }
505
506 if (phar_get_entry_info_dir(phar, resource->path + 1, strlen(resource->path + 1), 0, &error, 1 TSRMLS_CC)) {
507 /* entry exists as a file */
508 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot create directory \"%s\" in phar \"%s\", file already exists", resource->path+1, resource->host);
509 php_url_free(resource);
510 return 0;
511 }
512
513 if (error) {
514 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot create directory \"%s\" in phar \"%s\", %s", resource->path+1, resource->host, error);
515 efree(error);
516 php_url_free(resource);
517 return 0;
518 }
519
520 memset((void *) &entry, 0, sizeof(phar_entry_info));
521
522 /* strip leading "/" */
523 if (phar->is_zip) {
524 entry.is_zip = 1;
525 }
526
527 entry.filename = estrdup(resource->path + 1);
528
529 if (phar->is_tar) {
530 entry.is_tar = 1;
531 entry.tar_type = TAR_DIR;
532 }
533
534 entry.filename_len = strlen(resource->path + 1);
535 php_url_free(resource);
536 entry.is_dir = 1;
537 entry.phar = phar;
538 entry.is_modified = 1;
539 entry.is_crc_checked = 1;
540 entry.flags = PHAR_ENT_PERM_DEF_DIR;
541 entry.old_flags = PHAR_ENT_PERM_DEF_DIR;
542
543 if (SUCCESS != zend_hash_add(&phar->manifest, entry.filename, entry.filename_len, (void*)&entry, sizeof(phar_entry_info), NULL)) {
544 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot create directory \"%s\" in phar \"%s\", adding to manifest failed", entry.filename, phar->fname);
545 efree(error);
546 efree(entry.filename);
547 return 0;
548 }
549
550 phar_flush(phar, 0, 0, 0, &error TSRMLS_CC);
551
552 if (error) {
553 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot create directory \"%s\" in phar \"%s\", %s", entry.filename, phar->fname, error);
554 zend_hash_del(&phar->manifest, entry.filename, entry.filename_len);
555 efree(error);
556 return 0;
557 }
558
559 phar_add_virtual_dirs(phar, entry.filename, entry.filename_len TSRMLS_CC);
560 return 1;
561 }
562 /* }}} */
563
564 /**
565 * Remove a directory within a phar archive
566 */
phar_wrapper_rmdir(php_stream_wrapper * wrapper,char * url,int options,php_stream_context * context TSRMLS_DC)567 int phar_wrapper_rmdir(php_stream_wrapper *wrapper, char *url, int options, php_stream_context *context TSRMLS_DC) /* {{{ */
568 {
569 phar_entry_info *entry;
570 phar_archive_data *phar = NULL;
571 char *error, *arch, *entry2;
572 int arch_len, entry_len;
573 php_url *resource = NULL;
574 uint host_len;
575 phar_zstr key;
576 char *str_key;
577 uint key_len;
578 ulong unused;
579 uint path_len;
580
581 /* pre-readonly check, we need to know if this is a data phar */
582 if (FAILURE == phar_split_fname(url, strlen(url), &arch, &arch_len, &entry2, &entry_len, 2, 2 TSRMLS_CC)) {
583 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot remove directory \"%s\", no phar archive specified, or phar archive does not exist", url);
584 return 0;
585 }
586
587 if (FAILURE == phar_get_archive(&phar, arch, arch_len, NULL, 0, NULL TSRMLS_CC)) {
588 phar = NULL;
589 }
590
591 efree(arch);
592 efree(entry2);
593
594 if (PHAR_G(readonly) && (!phar || !phar->is_data)) {
595 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot rmdir directory \"%s\", write operations disabled", url);
596 return 0;
597 }
598
599 if ((resource = phar_parse_url(wrapper, url, "w", options TSRMLS_CC)) == NULL) {
600 return 0;
601 }
602
603 /* we must have at the very least phar://alias.phar/internalfile.php */
604 if (!resource->scheme || !resource->host || !resource->path) {
605 php_url_free(resource);
606 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: invalid url \"%s\"", url);
607 return 0;
608 }
609
610 if (strcasecmp("phar", resource->scheme)) {
611 php_url_free(resource);
612 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: not a phar stream url \"%s\"", url);
613 return 0;
614 }
615
616 host_len = strlen(resource->host);
617
618 if (FAILURE == phar_get_archive(&phar, resource->host, host_len, NULL, 0, &error TSRMLS_CC)) {
619 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot remove directory \"%s\" in phar \"%s\", error retrieving phar information: %s", resource->path+1, resource->host, error);
620 efree(error);
621 php_url_free(resource);
622 return 0;
623 }
624
625 path_len = strlen(resource->path+1);
626
627 if (!(entry = phar_get_entry_info_dir(phar, resource->path + 1, path_len, 2, &error, 1 TSRMLS_CC))) {
628 if (error) {
629 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot remove directory \"%s\" in phar \"%s\", %s", resource->path+1, resource->host, error);
630 efree(error);
631 } else {
632 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot remove directory \"%s\" in phar \"%s\", directory does not exist", resource->path+1, resource->host);
633 }
634 php_url_free(resource);
635 return 0;
636 }
637
638 if (!entry->is_deleted) {
639 for (zend_hash_internal_pointer_reset(&phar->manifest);
640 HASH_KEY_NON_EXISTANT != zend_hash_get_current_key_ex(&phar->manifest, &key, &key_len, &unused, 0, NULL);
641 zend_hash_move_forward(&phar->manifest)) {
642
643 PHAR_STR(key, str_key);
644
645 if (key_len > path_len &&
646 memcmp(str_key, resource->path+1, path_len) == 0 &&
647 IS_SLASH(str_key[path_len])) {
648 PHAR_STR_FREE(str_key);
649 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: Directory not empty");
650 if (entry->is_temp_dir) {
651 efree(entry->filename);
652 efree(entry);
653 }
654 php_url_free(resource);
655 return 0;
656 }
657 PHAR_STR_FREE(str_key);
658 }
659
660 for (zend_hash_internal_pointer_reset(&phar->virtual_dirs);
661 HASH_KEY_NON_EXISTANT != zend_hash_get_current_key_ex(&phar->virtual_dirs, &key, &key_len, &unused, 0, NULL);
662 zend_hash_move_forward(&phar->virtual_dirs)) {
663
664 PHAR_STR(key, str_key);
665
666 if (key_len > path_len &&
667 memcmp(str_key, resource->path+1, path_len) == 0 &&
668 IS_SLASH(str_key[path_len])) {
669 PHAR_STR_FREE(str_key);
670 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: Directory not empty");
671 if (entry->is_temp_dir) {
672 efree(entry->filename);
673 efree(entry);
674 }
675 php_url_free(resource);
676 return 0;
677 }
678 PHAR_STR_FREE(str_key);
679 }
680 }
681
682 if (entry->is_temp_dir) {
683 zend_hash_del(&phar->virtual_dirs, resource->path+1, path_len);
684 efree(entry->filename);
685 efree(entry);
686 } else {
687 entry->is_deleted = 1;
688 entry->is_modified = 1;
689 phar_flush(phar, 0, 0, 0, &error TSRMLS_CC);
690
691 if (error) {
692 php_stream_wrapper_log_error(wrapper, options TSRMLS_CC, "phar error: cannot remove directory \"%s\" in phar \"%s\", %s", entry->filename, phar->fname, error);
693 php_url_free(resource);
694 efree(error);
695 return 0;
696 }
697 }
698
699 php_url_free(resource);
700 return 1;
701 }
702 /* }}} */
703
704 /*
705 * Local variables:
706 * tab-width: 4
707 * c-basic-offset: 4
708 * End:
709 * vim600: noet sw=4 ts=4 fdm=marker
710 * vim<600: noet sw=4 ts=4
711 */
712
