Annotation of embedaddon/php/ext/phar/phar.c, revision 1.1.1.4

1.1       misho       1: /*
                      2:   +----------------------------------------------------------------------+
                      3:   | phar php single-file executable PHP extension                        |
                      4:   +----------------------------------------------------------------------+
1.1.1.3   misho       5:   | Copyright (c) 2005-2013 The PHP Group                                |
1.1       misho       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: 
1.1.1.4 ! misho      20: /* $Id: c85687ef5cec51a63c41cffb9ec3972cb8c3f7f3 $ */
1.1       misho      21: 
                     22: #define PHAR_MAIN 1
                     23: #include "phar_internal.h"
                     24: #include "SAPI.h"
                     25: #include "func_interceptors.h"
                     26: 
                     27: static void destroy_phar_data(void *pDest);
                     28: 
                     29: ZEND_DECLARE_MODULE_GLOBALS(phar)
                     30: #if PHP_VERSION_ID >= 50300
                     31: char *(*phar_save_resolve_path)(const char *filename, int filename_len TSRMLS_DC);
                     32: #endif
                     33: 
                     34: /**
                     35:  * set's phar->is_writeable based on the current INI value
                     36:  */
                     37: static int phar_set_writeable_bit(void *pDest, void *argument TSRMLS_DC) /* {{{ */
                     38: {
                     39:        zend_bool keep = *(zend_bool *)argument;
                     40:        phar_archive_data *phar = *(phar_archive_data **)pDest;
                     41: 
                     42:        if (!phar->is_data) {
                     43:                phar->is_writeable = !keep;
                     44:        }
                     45: 
                     46:        return ZEND_HASH_APPLY_KEEP;
                     47: }
                     48: /* }}} */
                     49: 
                     50: /* if the original value is 0 (disabled), then allow setting/unsetting at will. Otherwise only allow 1 (enabled), and error on disabling */
                     51: ZEND_INI_MH(phar_ini_modify_handler) /* {{{ */
                     52: {
                     53:        zend_bool old, ini;
                     54: 
                     55:        if (entry->name_length == 14) {
                     56:                old = PHAR_G(readonly_orig);
                     57:        } else {
                     58:                old = PHAR_G(require_hash_orig);
                     59:        }
                     60: 
                     61:        if (new_value_length == 2 && !strcasecmp("on", new_value)) {
                     62:                ini = (zend_bool) 1;
                     63:        }
                     64:        else if (new_value_length == 3 && !strcasecmp("yes", new_value)) {
                     65:                ini = (zend_bool) 1;
                     66:        }
                     67:        else if (new_value_length == 4 && !strcasecmp("true", new_value)) {
                     68:                ini = (zend_bool) 1;
                     69:        }
                     70:        else {
                     71:                ini = (zend_bool) atoi(new_value);
                     72:        }
                     73: 
                     74:        /* do not allow unsetting in runtime */
                     75:        if (stage == ZEND_INI_STAGE_STARTUP) {
                     76:                if (entry->name_length == 14) {
                     77:                        PHAR_G(readonly_orig) = ini;
                     78:                } else {
                     79:                        PHAR_G(require_hash_orig) = ini;
                     80:                }
                     81:        } else if (old && !ini) {
                     82:                return FAILURE;
                     83:        }
                     84: 
                     85:        if (entry->name_length == 14) {
                     86:                PHAR_G(readonly) = ini;
                     87:                if (PHAR_GLOBALS->request_init && PHAR_GLOBALS->phar_fname_map.arBuckets) {
                     88:                        zend_hash_apply_with_argument(&(PHAR_GLOBALS->phar_fname_map), phar_set_writeable_bit, (void *)&ini TSRMLS_CC);
                     89:                }
                     90:        } else {
                     91:                PHAR_G(require_hash) = ini;
                     92:        }
                     93: 
                     94:        return SUCCESS;
                     95: }
                     96: /* }}}*/
                     97: 
                     98: /* this global stores the global cached pre-parsed manifests */
                     99: HashTable cached_phars;
                    100: HashTable cached_alias;
                    101: 
                    102: static void phar_split_cache_list(TSRMLS_D) /* {{{ */
                    103: {
                    104:        char *tmp;
                    105:        char *key, *lasts, *end;
                    106:        char ds[2];
                    107:        phar_archive_data *phar;
                    108:        uint i = 0;
                    109: 
                    110:        if (!PHAR_GLOBALS->cache_list || !(PHAR_GLOBALS->cache_list[0])) {
                    111:                return;
                    112:        }
                    113: 
                    114:        ds[0] = DEFAULT_DIR_SEPARATOR;
                    115:        ds[1] = '\0';
                    116:        tmp = estrdup(PHAR_GLOBALS->cache_list);
                    117: 
                    118:        /* fake request startup */
                    119:        PHAR_GLOBALS->request_init = 1;
                    120:        if (zend_hash_init(&EG(regular_list), 0, NULL, NULL, 0) == SUCCESS) {
                    121:                EG(regular_list).nNextFreeElement=1;    /* we don't want resource id 0 */
                    122:        }
                    123: 
                    124:        PHAR_G(has_bz2) = zend_hash_exists(&module_registry, "bz2", sizeof("bz2"));
                    125:        PHAR_G(has_zlib) = zend_hash_exists(&module_registry, "zlib", sizeof("zlib"));
                    126:        /* these two are dummies and will be destroyed later */
                    127:        zend_hash_init(&cached_phars, sizeof(phar_archive_data*), zend_get_hash_value, destroy_phar_data,  1);
                    128:        zend_hash_init(&cached_alias, sizeof(phar_archive_data*), zend_get_hash_value, NULL, 1);
                    129:        /* these two are real and will be copied over cached_phars/cached_alias later */
                    130:        zend_hash_init(&(PHAR_GLOBALS->phar_fname_map), sizeof(phar_archive_data*), zend_get_hash_value, destroy_phar_data,  1);
                    131:        zend_hash_init(&(PHAR_GLOBALS->phar_alias_map), sizeof(phar_archive_data*), zend_get_hash_value, NULL, 1);
                    132:        PHAR_GLOBALS->manifest_cached = 1;
                    133:        PHAR_GLOBALS->persist = 1;
                    134: 
                    135:        for (key = php_strtok_r(tmp, ds, &lasts);
                    136:                        key;
                    137:                        key = php_strtok_r(NULL, ds, &lasts)) {
                    138:                end = strchr(key, DEFAULT_DIR_SEPARATOR);
                    139: 
                    140:                if (end) {
                    141:                        if (SUCCESS == phar_open_from_filename(key, end - key, NULL, 0, 0, &phar, NULL TSRMLS_CC)) {
                    142: finish_up:
                    143:                                phar->phar_pos = i++;
                    144:                                php_stream_close(phar->fp);
                    145:                                phar->fp = NULL;
                    146:                        } else {
                    147: finish_error:
                    148:                                PHAR_GLOBALS->persist = 0;
                    149:                                PHAR_GLOBALS->manifest_cached = 0;
                    150:                                efree(tmp);
                    151:                                zend_hash_destroy(&(PHAR_G(phar_fname_map)));
                    152:                                PHAR_GLOBALS->phar_fname_map.arBuckets = 0;
                    153:                                zend_hash_destroy(&(PHAR_G(phar_alias_map)));
                    154:                                PHAR_GLOBALS->phar_alias_map.arBuckets = 0;
                    155:                                zend_hash_destroy(&cached_phars);
                    156:                                zend_hash_destroy(&cached_alias);
                    157:                                zend_hash_graceful_reverse_destroy(&EG(regular_list));
                    158:                                memset(&EG(regular_list), 0, sizeof(HashTable));
                    159:                                /* free cached manifests */
                    160:                                PHAR_GLOBALS->request_init = 0;
                    161:                                return;
                    162:                        }
                    163:                } else {
                    164:                        if (SUCCESS == phar_open_from_filename(key, strlen(key), NULL, 0, 0, &phar, NULL TSRMLS_CC)) {
                    165:                                goto finish_up;
                    166:                        } else {
                    167:                                goto finish_error;
                    168:                        }
                    169:                }
                    170:        }
                    171: 
                    172:        PHAR_GLOBALS->persist = 0;
                    173:        PHAR_GLOBALS->request_init = 0;
                    174:        /* destroy dummy values from before */
                    175:        zend_hash_destroy(&cached_phars);
                    176:        zend_hash_destroy(&cached_alias);
                    177:        cached_phars = PHAR_GLOBALS->phar_fname_map;
                    178:        cached_alias = PHAR_GLOBALS->phar_alias_map;
                    179:        PHAR_GLOBALS->phar_fname_map.arBuckets = 0;
                    180:        PHAR_GLOBALS->phar_alias_map.arBuckets = 0;
                    181:        zend_hash_graceful_reverse_destroy(&EG(regular_list));
                    182:        memset(&EG(regular_list), 0, sizeof(HashTable));
                    183:        efree(tmp);
                    184: }
                    185: /* }}} */
                    186: 
                    187: ZEND_INI_MH(phar_ini_cache_list) /* {{{ */
                    188: {
                    189:        PHAR_G(cache_list) = new_value;
                    190: 
                    191:        if (stage == ZEND_INI_STAGE_STARTUP) {
                    192:                phar_split_cache_list(TSRMLS_C);
                    193:        }
                    194: 
                    195:        return SUCCESS;
                    196: }
                    197: /* }}} */
                    198: 
                    199: PHP_INI_BEGIN()
                    200:        STD_PHP_INI_BOOLEAN( "phar.readonly", "1", PHP_INI_ALL, phar_ini_modify_handler, readonly, zend_phar_globals, phar_globals)
                    201:        STD_PHP_INI_BOOLEAN( "phar.require_hash", "1", PHP_INI_ALL, phar_ini_modify_handler, require_hash, zend_phar_globals, phar_globals)
                    202:        STD_PHP_INI_ENTRY("phar.cache_list", "", PHP_INI_SYSTEM, phar_ini_cache_list, cache_list, zend_phar_globals, phar_globals)
                    203: PHP_INI_END()
                    204: 
                    205: /**
                    206:  * When all uses of a phar have been concluded, this frees the manifest
                    207:  * and the phar slot
                    208:  */
                    209: void phar_destroy_phar_data(phar_archive_data *phar TSRMLS_DC) /* {{{ */
                    210: {
                    211:        if (phar->alias && phar->alias != phar->fname) {
                    212:                pefree(phar->alias, phar->is_persistent);
                    213:                phar->alias = NULL;
                    214:        }
                    215: 
                    216:        if (phar->fname) {
                    217:                pefree(phar->fname, phar->is_persistent);
                    218:                phar->fname = NULL;
                    219:        }
                    220: 
                    221:        if (phar->signature) {
                    222:                pefree(phar->signature, phar->is_persistent);
                    223:                phar->signature = NULL;
                    224:        }
                    225: 
                    226:        if (phar->manifest.arBuckets) {
                    227:                zend_hash_destroy(&phar->manifest);
                    228:                phar->manifest.arBuckets = NULL;
                    229:        }
                    230: 
                    231:        if (phar->mounted_dirs.arBuckets) {
                    232:                zend_hash_destroy(&phar->mounted_dirs);
                    233:                phar->mounted_dirs.arBuckets = NULL;
                    234:        }
                    235: 
                    236:        if (phar->virtual_dirs.arBuckets) {
                    237:                zend_hash_destroy(&phar->virtual_dirs);
                    238:                phar->virtual_dirs.arBuckets = NULL;
                    239:        }
                    240: 
                    241:        if (phar->metadata) {
                    242:                if (phar->is_persistent) {
                    243:                        if (phar->metadata_len) {
                    244:                                /* for zip comments that are strings */
                    245:                                free(phar->metadata);
                    246:                        } else {
                    247:                                zval_internal_ptr_dtor(&phar->metadata);
                    248:                        }
                    249:                } else {
                    250:                        zval_ptr_dtor(&phar->metadata);
                    251:                }
                    252:                phar->metadata_len = 0;
                    253:                phar->metadata = 0;
                    254:        }
                    255: 
                    256:        if (phar->fp) {
                    257:                php_stream_close(phar->fp);
                    258:                phar->fp = 0;
                    259:        }
                    260: 
                    261:        if (phar->ufp) {
                    262:                php_stream_close(phar->ufp);
                    263:                phar->ufp = 0;
                    264:        }
                    265: 
                    266:        pefree(phar, phar->is_persistent);
                    267: }
                    268: /* }}}*/
                    269: 
                    270: /**
                    271:  * Delete refcount and destruct if needed. On destruct return 1 else 0.
                    272:  */
                    273: int phar_archive_delref(phar_archive_data *phar TSRMLS_DC) /* {{{ */
                    274: {
                    275:        if (phar->is_persistent) {
                    276:                return 0;
                    277:        }
                    278: 
                    279:        if (--phar->refcount < 0) {
                    280:                if (PHAR_GLOBALS->request_done
                    281:                || zend_hash_del(&(PHAR_GLOBALS->phar_fname_map), phar->fname, phar->fname_len) != SUCCESS) {
                    282:                        phar_destroy_phar_data(phar TSRMLS_CC);
                    283:                }
                    284:                return 1;
                    285:        } else if (!phar->refcount) {
                    286:                /* invalidate phar cache */
                    287:                PHAR_G(last_phar) = NULL;
                    288:                PHAR_G(last_phar_name) = PHAR_G(last_alias) = NULL;
                    289: 
                    290:                if (phar->fp && !(phar->flags & PHAR_FILE_COMPRESSION_MASK)) {
                    291:                        /* close open file handle - allows removal or rename of
                    292:                        the file on windows, which has greedy locking
                    293:                        only close if the archive was not already compressed.  If it
                    294:                        was compressed, then the fp does not refer to the original file */
                    295:                        php_stream_close(phar->fp);
                    296:                        phar->fp = NULL;
                    297:                }
                    298: 
                    299:                if (!zend_hash_num_elements(&phar->manifest)) {
                    300:                        /* this is a new phar that has perhaps had an alias/metadata set, but has never
                    301:                        been flushed */
                    302:                        if (zend_hash_del(&(PHAR_GLOBALS->phar_fname_map), phar->fname, phar->fname_len) != SUCCESS) {
                    303:                                phar_destroy_phar_data(phar TSRMLS_CC);
                    304:                        }
                    305:                        return 1;
                    306:                }
                    307:        }
                    308:        return 0;
                    309: }
                    310: /* }}}*/
                    311: 
                    312: /**
                    313:  * Destroy phar's in shutdown, here we don't care about aliases
                    314:  */
                    315: static void destroy_phar_data_only(void *pDest) /* {{{ */
                    316: {
                    317:        phar_archive_data *phar_data = *(phar_archive_data **) pDest;
                    318:        TSRMLS_FETCH();
                    319: 
                    320:        if (EG(exception) || --phar_data->refcount < 0) {
                    321:                phar_destroy_phar_data(phar_data TSRMLS_CC);
                    322:        }
                    323: }
                    324: /* }}}*/
                    325: 
                    326: /**
                    327:  * Delete aliases to phar's that got kicked out of the global table
                    328:  */
                    329: static int phar_unalias_apply(void *pDest, void *argument TSRMLS_DC) /* {{{ */
                    330: {
                    331:        return *(void**)pDest == argument ? ZEND_HASH_APPLY_REMOVE : ZEND_HASH_APPLY_KEEP;
                    332: }
                    333: /* }}} */
                    334: 
                    335: /**
                    336:  * Delete aliases to phar's that got kicked out of the global table
                    337:  */
                    338: static int phar_tmpclose_apply(void *pDest TSRMLS_DC) /* {{{ */
                    339: {
                    340:        phar_entry_info *entry = (phar_entry_info *) pDest;
                    341: 
                    342:        if (entry->fp_type != PHAR_TMP) {
                    343:                return ZEND_HASH_APPLY_KEEP;
                    344:        }
                    345: 
                    346:        if (entry->fp && !entry->fp_refcount) {
                    347:                php_stream_close(entry->fp);
                    348:                entry->fp = NULL;
                    349:        }
                    350: 
                    351:        return ZEND_HASH_APPLY_KEEP;
                    352: }
                    353: /* }}} */
                    354: 
                    355: /**
                    356:  * Filename map destructor
                    357:  */
                    358: static void destroy_phar_data(void *pDest) /* {{{ */
                    359: {
                    360:        phar_archive_data *phar_data = *(phar_archive_data **) pDest;
                    361:        TSRMLS_FETCH();
                    362: 
                    363:        if (PHAR_GLOBALS->request_ends) {
                    364:                /* first, iterate over the manifest and close all PHAR_TMP entry fp handles,
                    365:                this prevents unnecessary unfreed stream resources */
                    366:                zend_hash_apply(&(phar_data->manifest), phar_tmpclose_apply TSRMLS_CC);
                    367:                destroy_phar_data_only(pDest);
                    368:                return;
                    369:        }
                    370: 
                    371:        zend_hash_apply_with_argument(&(PHAR_GLOBALS->phar_alias_map), phar_unalias_apply, phar_data TSRMLS_CC);
                    372: 
                    373:        if (--phar_data->refcount < 0) {
                    374:                phar_destroy_phar_data(phar_data TSRMLS_CC);
                    375:        }
                    376: }
                    377: /* }}}*/
                    378: 
                    379: /**
                    380:  * destructor for the manifest hash, frees each file's entry
                    381:  */
                    382: void destroy_phar_manifest_entry(void *pDest) /* {{{ */
                    383: {
                    384:        phar_entry_info *entry = (phar_entry_info *)pDest;
                    385:        TSRMLS_FETCH();
                    386: 
                    387:        if (entry->cfp) {
                    388:                php_stream_close(entry->cfp);
                    389:                entry->cfp = 0;
                    390:        }
                    391: 
                    392:        if (entry->fp) {
                    393:                php_stream_close(entry->fp);
                    394:                entry->fp = 0;
                    395:        }
                    396: 
                    397:        if (entry->metadata) {
                    398:                if (entry->is_persistent) {
                    399:                        if (entry->metadata_len) {
                    400:                                /* for zip comments that are strings */
                    401:                                free(entry->metadata);
                    402:                        } else {
                    403:                                zval_internal_ptr_dtor(&entry->metadata);
                    404:                        }
                    405:                } else {
                    406:                        zval_ptr_dtor(&entry->metadata);
                    407:                }
                    408:                entry->metadata_len = 0;
                    409:                entry->metadata = 0;
                    410:        }
                    411: 
                    412:        if (entry->metadata_str.c) {
                    413:                smart_str_free(&entry->metadata_str);
                    414:                entry->metadata_str.c = 0;
                    415:        }
                    416: 
                    417:        pefree(entry->filename, entry->is_persistent);
                    418: 
                    419:        if (entry->link) {
                    420:                pefree(entry->link, entry->is_persistent);
                    421:                entry->link = 0;
                    422:        }
                    423: 
                    424:        if (entry->tmp) {
                    425:                pefree(entry->tmp, entry->is_persistent);
                    426:                entry->tmp = 0;
                    427:        }
                    428: }
                    429: /* }}} */
                    430: 
                    431: int phar_entry_delref(phar_entry_data *idata TSRMLS_DC) /* {{{ */
                    432: {
                    433:        int ret = 0;
                    434: 
                    435:        if (idata->internal_file && !idata->internal_file->is_persistent) {
                    436:                if (--idata->internal_file->fp_refcount < 0) {
                    437:                        idata->internal_file->fp_refcount = 0;
                    438:                }
                    439: 
                    440:                if (idata->fp && idata->fp != idata->phar->fp && idata->fp != idata->phar->ufp && idata->fp != idata->internal_file->fp) {
                    441:                        php_stream_close(idata->fp);
                    442:                }
                    443:                /* if phar_get_or_create_entry_data returns a sub-directory, we have to free it */
                    444:                if (idata->internal_file->is_temp_dir) {
                    445:                        destroy_phar_manifest_entry((void *)idata->internal_file);
                    446:                        efree(idata->internal_file);
                    447:                }
                    448:        }
                    449: 
                    450:        phar_archive_delref(idata->phar TSRMLS_CC);
                    451:        efree(idata);
                    452:        return ret;
                    453: }
                    454: /* }}} */
                    455: 
                    456: /**
                    457:  * Removes an entry, either by actually removing it or by marking it.
                    458:  */
                    459: void phar_entry_remove(phar_entry_data *idata, char **error TSRMLS_DC) /* {{{ */
                    460: {
                    461:        phar_archive_data *phar;
                    462: 
                    463:        phar = idata->phar;
                    464: 
                    465:        if (idata->internal_file->fp_refcount < 2) {
                    466:                if (idata->fp && idata->fp != idata->phar->fp && idata->fp != idata->phar->ufp && idata->fp != idata->internal_file->fp) {
                    467:                        php_stream_close(idata->fp);
                    468:                }
                    469:                zend_hash_del(&idata->phar->manifest, idata->internal_file->filename, idata->internal_file->filename_len);
                    470:                idata->phar->refcount--;
                    471:                efree(idata);
                    472:        } else {
                    473:                idata->internal_file->is_deleted = 1;
                    474:                phar_entry_delref(idata TSRMLS_CC);
                    475:        }
                    476: 
                    477:        if (!phar->donotflush) {
                    478:                phar_flush(phar, 0, 0, 0, error TSRMLS_CC);
                    479:        }
                    480: }
                    481: /* }}} */
                    482: 
                    483: #define MAPPHAR_ALLOC_FAIL(msg) \
                    484:        if (fp) {\
                    485:                php_stream_close(fp);\
                    486:        }\
                    487:        if (error) {\
                    488:                spprintf(error, 0, msg, fname);\
                    489:        }\
                    490:        return FAILURE;
                    491: 
                    492: #define MAPPHAR_FAIL(msg) \
                    493:        efree(savebuf);\
                    494:        if (mydata) {\
                    495:                phar_destroy_phar_data(mydata TSRMLS_CC);\
                    496:        }\
                    497:        if (signature) {\
                    498:                pefree(signature, PHAR_G(persist));\
                    499:        }\
                    500:        MAPPHAR_ALLOC_FAIL(msg)
                    501: 
                    502: #ifdef WORDS_BIGENDIAN
                    503: # define PHAR_GET_32(buffer, var) \
                    504:        var = ((((unsigned char*)(buffer))[3]) << 24) \
                    505:                | ((((unsigned char*)(buffer))[2]) << 16) \
                    506:                | ((((unsigned char*)(buffer))[1]) <<  8) \
                    507:                | (((unsigned char*)(buffer))[0]); \
                    508:        (buffer) += 4
                    509: # define PHAR_GET_16(buffer, var) \
                    510:        var = ((((unsigned char*)(buffer))[1]) <<  8) \
                    511:                | (((unsigned char*)(buffer))[0]); \
                    512:        (buffer) += 2
                    513: #else
                    514: # define PHAR_GET_32(buffer, var) \
                    515:        memcpy(&var, buffer, sizeof(var)); \
                    516:        buffer += 4
                    517: # define PHAR_GET_16(buffer, var) \
                    518:        var = *(php_uint16*)(buffer); \
                    519:        buffer += 2
                    520: #endif
                    521: #define PHAR_ZIP_16(var) ((php_uint16)((((php_uint16)var[0]) & 0xff) | \
                    522:        (((php_uint16)var[1]) & 0xff) << 8))
                    523: #define PHAR_ZIP_32(var) ((php_uint32)((((php_uint32)var[0]) & 0xff) | \
                    524:        (((php_uint32)var[1]) & 0xff) << 8 | \
                    525:        (((php_uint32)var[2]) & 0xff) << 16 | \
                    526:        (((php_uint32)var[3]) & 0xff) << 24))
                    527: 
                    528: /**
                    529:  * Open an already loaded phar
                    530:  */
                    531: int phar_open_parsed_phar(char *fname, int fname_len, char *alias, int alias_len, int is_data, int options, phar_archive_data** pphar, char **error TSRMLS_DC) /* {{{ */
                    532: {
                    533:        phar_archive_data *phar;
                    534: #ifdef PHP_WIN32
                    535:        char *unixfname;
                    536: #endif
                    537: 
                    538:        if (error) {
                    539:                *error = NULL;
                    540:        }
                    541: #ifdef PHP_WIN32
                    542:        unixfname = estrndup(fname, fname_len);
                    543:        phar_unixify_path_separators(unixfname, fname_len);
                    544: 
                    545:        if (SUCCESS == phar_get_archive(&phar, unixfname, fname_len, alias, alias_len, error TSRMLS_CC)
                    546:                && ((alias && fname_len == phar->fname_len
                    547:                && !strncmp(unixfname, phar->fname, fname_len)) || !alias)
                    548:        ) {
                    549:                phar_entry_info *stub;
                    550:                efree(unixfname);
                    551: #else
                    552:        if (SUCCESS == phar_get_archive(&phar, fname, fname_len, alias, alias_len, error TSRMLS_CC)
                    553:                && ((alias && fname_len == phar->fname_len
                    554:                && !strncmp(fname, phar->fname, fname_len)) || !alias)
                    555:        ) {
                    556:                phar_entry_info *stub;
                    557: #endif
                    558:                /* logic above is as follows:
                    559:                   If an explicit alias was requested, ensure the filename passed in
                    560:                   matches the phar's filename.
                    561:                   If no alias was passed in, then it can match either and be valid
                    562:                 */
                    563: 
                    564:                if (!is_data) {
                    565:                        /* prevent any ".phar" without a stub getting through */
                    566:                        if (!phar->halt_offset && !phar->is_brandnew && (phar->is_tar || phar->is_zip)) {
                    567:                                if (PHAR_G(readonly) && FAILURE == zend_hash_find(&(phar->manifest), ".phar/stub.php", sizeof(".phar/stub.php")-1, (void **)&stub)) {
                    568:                                        if (error) {
                    569:                                                spprintf(error, 0, "'%s' is not a phar archive. Use PharData::__construct() for a standard zip or tar archive", fname);
                    570:                                        }
                    571:                                        return FAILURE;
                    572:                                }
                    573:                        }
                    574:                }
                    575: 
                    576:                if (pphar) {
                    577:                        *pphar = phar;
                    578:                }
                    579: 
                    580:                return SUCCESS;
                    581:        } else {
                    582: #ifdef PHP_WIN32
                    583:                efree(unixfname);
                    584: #endif
                    585:                if (pphar) {
                    586:                        *pphar = NULL;
                    587:                }
                    588: 
                    589:                if (phar && error && !(options & REPORT_ERRORS)) {
                    590:                        efree(error);
                    591:                }
                    592: 
                    593:                return FAILURE;
                    594:        }
                    595: }
                    596: /* }}}*/
                    597: 
                    598: /**
                    599:  * Parse out metadata from the manifest for a single file
                    600:  *
                    601:  * Meta-data is in this format:
                    602:  * [len32][data...]
                    603:  * 
                    604:  * data is the serialized zval
                    605:  */
                    606: int phar_parse_metadata(char **buffer, zval **metadata, int zip_metadata_len TSRMLS_DC) /* {{{ */
                    607: {
                    608:        const unsigned char *p;
                    609:        php_uint32 buf_len;
                    610:        php_unserialize_data_t var_hash;
                    611: 
                    612:        if (!zip_metadata_len) {
                    613:                PHAR_GET_32(*buffer, buf_len);
                    614:        } else {
                    615:                buf_len = zip_metadata_len;
                    616:        }
                    617: 
                    618:        if (buf_len) {
                    619:                ALLOC_ZVAL(*metadata);
                    620:                INIT_ZVAL(**metadata);
                    621:                p = (const unsigned char*) *buffer;
                    622:                PHP_VAR_UNSERIALIZE_INIT(var_hash);
                    623: 
                    624:                if (!php_var_unserialize(metadata, &p, p + buf_len, &var_hash TSRMLS_CC)) {
                    625:                        PHP_VAR_UNSERIALIZE_DESTROY(var_hash);
                    626:                        zval_ptr_dtor(metadata);
                    627:                        *metadata = NULL;
                    628:                        return FAILURE;
                    629:                }
                    630: 
                    631:                PHP_VAR_UNSERIALIZE_DESTROY(var_hash);
                    632: 
                    633:                if (PHAR_G(persist)) {
                    634:                        /* lazy init metadata */
                    635:                        zval_ptr_dtor(metadata);
                    636:                        *metadata = (zval *) pemalloc(buf_len, 1);
                    637:                        memcpy(*metadata, *buffer, buf_len);
                    638:                        *buffer += buf_len;
                    639:                        return SUCCESS;
                    640:                }
                    641:        } else {
                    642:                *metadata = NULL;
                    643:        }
                    644: 
                    645:        if (!zip_metadata_len) {
                    646:                *buffer += buf_len;
                    647:        }
                    648: 
                    649:        return SUCCESS;
                    650: }
                    651: /* }}}*/
                    652: 
                    653: /**
                    654:  * Does not check for a previously opened phar in the cache.
                    655:  *
                    656:  * Parse a new one and add it to the cache, returning either SUCCESS or
                    657:  * FAILURE, and setting pphar to the pointer to the manifest entry
                    658:  * 
                    659:  * This is used by phar_open_from_filename to process the manifest, but can be called
                    660:  * directly.
                    661:  */
                    662: static int phar_parse_pharfile(php_stream *fp, char *fname, int fname_len, char *alias, int alias_len, long halt_offset, phar_archive_data** pphar, php_uint32 compression, char **error TSRMLS_DC) /* {{{ */
                    663: {
                    664:        char b32[4], *buffer, *endbuffer, *savebuf;
                    665:        phar_archive_data *mydata = NULL;
                    666:        phar_entry_info entry;
                    667:        php_uint32 manifest_len, manifest_count, manifest_flags, manifest_index, tmp_len, sig_flags;
                    668:        php_uint16 manifest_ver;
                    669:        long offset;
                    670:        int sig_len, register_alias = 0, temp_alias = 0;
                    671:        char *signature = NULL;
                    672: 
                    673:        if (pphar) {
                    674:                *pphar = NULL;
                    675:        }
                    676: 
                    677:        if (error) {
                    678:                *error = NULL;
                    679:        }
                    680: 
                    681:        /* check for ?>\n and increment accordingly */
                    682:        if (-1 == php_stream_seek(fp, halt_offset, SEEK_SET)) {
                    683:                MAPPHAR_ALLOC_FAIL("cannot seek to __HALT_COMPILER(); location in phar \"%s\"")
                    684:        }
                    685: 
                    686:        buffer = b32;
                    687: 
                    688:        if (3 != php_stream_read(fp, buffer, 3)) {
                    689:                MAPPHAR_ALLOC_FAIL("internal corruption of phar \"%s\" (truncated manifest at stub end)")
                    690:        }
                    691: 
                    692:        if ((*buffer == ' ' || *buffer == '\n') && *(buffer + 1) == '?' && *(buffer + 2) == '>') {
                    693:                int nextchar;
                    694:                halt_offset += 3;
                    695:                if (EOF == (nextchar = php_stream_getc(fp))) {
                    696:                        MAPPHAR_ALLOC_FAIL("internal corruption of phar \"%s\" (truncated manifest at stub end)")
                    697:                }
                    698: 
                    699:                if ((char) nextchar == '\r') {
                    700:                        /* if we have an \r we require an \n as well */
                    701:                        if (EOF == (nextchar = php_stream_getc(fp)) || (char)nextchar != '\n') {
                    702:                                MAPPHAR_ALLOC_FAIL("internal corruption of phar \"%s\" (truncated manifest at stub end)")
                    703:                        }
                    704:                        ++halt_offset;
                    705:                }
                    706: 
                    707:                if ((char) nextchar == '\n') {
                    708:                        ++halt_offset;
                    709:                }
                    710:        }
                    711: 
                    712:        /* make sure we are at the right location to read the manifest */
                    713:        if (-1 == php_stream_seek(fp, halt_offset, SEEK_SET)) {
                    714:                MAPPHAR_ALLOC_FAIL("cannot seek to __HALT_COMPILER(); location in phar \"%s\"")
                    715:        }
                    716: 
                    717:        /* read in manifest */
                    718:        buffer = b32;
                    719: 
                    720:        if (4 != php_stream_read(fp, buffer, 4)) {
                    721:                MAPPHAR_ALLOC_FAIL("internal corruption of phar \"%s\" (truncated manifest at manifest length)")
                    722:        }
                    723: 
                    724:        PHAR_GET_32(buffer, manifest_len);
                    725: 
                    726:        if (manifest_len > 1048576 * 100) {
                    727:                /* prevent serious memory issues by limiting manifest to at most 100 MB in length */
                    728:                MAPPHAR_ALLOC_FAIL("manifest cannot be larger than 100 MB in phar \"%s\"")
                    729:        }
                    730: 
                    731:        buffer = (char *)emalloc(manifest_len);
                    732:        savebuf = buffer;
                    733:        endbuffer = buffer + manifest_len;
                    734: 
                    735:        if (manifest_len < 10 || manifest_len != php_stream_read(fp, buffer, manifest_len)) {
                    736:                MAPPHAR_FAIL("internal corruption of phar \"%s\" (truncated manifest header)")
                    737:        }
                    738: 
                    739:        /* extract the number of entries */
                    740:        PHAR_GET_32(buffer, manifest_count);
                    741: 
                    742:        if (manifest_count == 0) {
                    743:                MAPPHAR_FAIL("in phar \"%s\", manifest claims to have zero entries.  Phars must have at least 1 entry");
                    744:        }
                    745: 
                    746:        /* extract API version, lowest nibble currently unused */
                    747:        manifest_ver = (((unsigned char)buffer[0]) << 8)
                    748:                                 + ((unsigned char)buffer[1]);
                    749:        buffer += 2;
                    750: 
                    751:        if ((manifest_ver & PHAR_API_VER_MASK) < PHAR_API_MIN_READ) {
                    752:                efree(savebuf);
                    753:                php_stream_close(fp);
                    754:                if (error) {
                    755:                        spprintf(error, 0, "phar \"%s\" is API version %1.u.%1.u.%1.u, and cannot be processed", fname, manifest_ver >> 12, (manifest_ver >> 8) & 0xF, (manifest_ver >> 4) & 0x0F);
                    756:                }
                    757:                return FAILURE;
                    758:        }
                    759: 
                    760:        PHAR_GET_32(buffer, manifest_flags);
                    761: 
                    762:        manifest_flags &= ~PHAR_HDR_COMPRESSION_MASK;
                    763:        manifest_flags &= ~PHAR_FILE_COMPRESSION_MASK;
                    764:        /* remember whether this entire phar was compressed with gz/bzip2 */
                    765:        manifest_flags |= compression;
                    766: 
                    767:        /* The lowest nibble contains the phar wide flags. The compression flags can */
                    768:        /* be ignored on reading because it is being generated anyways. */
                    769:        if (manifest_flags & PHAR_HDR_SIGNATURE) {
                    770:                char sig_buf[8], *sig_ptr = sig_buf;
                    771:                off_t read_len;
                    772:                size_t end_of_phar;
                    773: 
                    774:                if (-1 == php_stream_seek(fp, -8, SEEK_END)
                    775:                || (read_len = php_stream_tell(fp)) < 20
                    776:                || 8 != php_stream_read(fp, sig_buf, 8)
                    777:                || memcmp(sig_buf+4, "GBMB", 4)) {
                    778:                        efree(savebuf);
                    779:                        php_stream_close(fp);
                    780:                        if (error) {
                    781:                                spprintf(error, 0, "phar \"%s\" has a broken signature", fname);
                    782:                        }
                    783:                        return FAILURE;
                    784:                }
                    785: 
                    786:                PHAR_GET_32(sig_ptr, sig_flags);
                    787: 
                    788:                switch(sig_flags) {
                    789:                        case PHAR_SIG_OPENSSL: {
                    790:                                php_uint32 signature_len;
                    791:                                char *sig;
                    792:                                off_t whence;
                    793: 
                    794:                                /* we store the signature followed by the signature length */
                    795:                                if (-1 == php_stream_seek(fp, -12, SEEK_CUR)
                    796:                                || 4 != php_stream_read(fp, sig_buf, 4)) {
                    797:                                        efree(savebuf);
                    798:                                        php_stream_close(fp);
                    799:                                        if (error) {
                    800:                                                spprintf(error, 0, "phar \"%s\" openssl signature length could not be read", fname);
                    801:                                        }
                    802:                                        return FAILURE;
                    803:                                }
                    804: 
                    805:                                sig_ptr = sig_buf;
                    806:                                PHAR_GET_32(sig_ptr, signature_len);
                    807:                                sig = (char *) emalloc(signature_len);
                    808:                                whence = signature_len + 4;
                    809:                                whence = -whence;
                    810: 
                    811:                                if (-1 == php_stream_seek(fp, whence, SEEK_CUR)
                    812:                                || !(end_of_phar = php_stream_tell(fp))
                    813:                                || signature_len != php_stream_read(fp, sig, signature_len)) {
                    814:                                        efree(savebuf);
                    815:                                        efree(sig);
                    816:                                        php_stream_close(fp);
                    817:                                        if (error) {
                    818:                                                spprintf(error, 0, "phar \"%s\" openssl signature could not be read", fname);
                    819:                                        }
                    820:                                        return FAILURE;
                    821:                                }
                    822: 
                    823:                                if (FAILURE == phar_verify_signature(fp, end_of_phar, PHAR_SIG_OPENSSL, sig, signature_len, fname, &signature, &sig_len, error TSRMLS_CC)) {
                    824:                                        efree(savebuf);
                    825:                                        efree(sig);
                    826:                                        php_stream_close(fp);
                    827:                                        if (error) {
                    828:                                                char *save = *error;
                    829:                                                spprintf(error, 0, "phar \"%s\" openssl signature could not be verified: %s", fname, *error);
                    830:                                                efree(save);
                    831:                                        }
                    832:                                        return FAILURE;
                    833:                                }
                    834:                                efree(sig);
                    835:                        }
                    836:                        break;
                    837: #if PHAR_HASH_OK
                    838:                        case PHAR_SIG_SHA512: {
                    839:                                unsigned char digest[64];
                    840: 
                    841:                                php_stream_seek(fp, -(8 + 64), SEEK_END);
                    842:                                read_len = php_stream_tell(fp);
                    843: 
                    844:                                if (php_stream_read(fp, (char*)digest, sizeof(digest)) != sizeof(digest)) {
                    845:                                        efree(savebuf);
                    846:                                        php_stream_close(fp);
                    847:                                        if (error) {
                    848:                                                spprintf(error, 0, "phar \"%s\" has a broken signature", fname);
                    849:                                        }
                    850:                                        return FAILURE;
                    851:                                }
                    852: 
                    853:                                if (FAILURE == phar_verify_signature(fp, read_len, PHAR_SIG_SHA512, (char *)digest, 64, fname, &signature, &sig_len, error TSRMLS_CC)) {
                    854:                                        efree(savebuf);
                    855:                                        php_stream_close(fp);
                    856:                                        if (error) {
                    857:                                                char *save = *error;
                    858:                                                spprintf(error, 0, "phar \"%s\" SHA512 signature could not be verified: %s", fname, *error);
                    859:                                                efree(save);
                    860:                                        }
                    861:                                        return FAILURE;
                    862:                                }
                    863:                                break;
                    864:                        }
                    865:                        case PHAR_SIG_SHA256: {
                    866:                                unsigned char digest[32];
                    867: 
                    868:                                php_stream_seek(fp, -(8 + 32), SEEK_END);
                    869:                                read_len = php_stream_tell(fp);
                    870: 
                    871:                                if (php_stream_read(fp, (char*)digest, sizeof(digest)) != sizeof(digest)) {
                    872:                                        efree(savebuf);
                    873:                                        php_stream_close(fp);
                    874:                                        if (error) {
                    875:                                                spprintf(error, 0, "phar \"%s\" has a broken signature", fname);
                    876:                                        }
                    877:                                        return FAILURE;
                    878:                                }
                    879: 
                    880:                                if (FAILURE == phar_verify_signature(fp, read_len, PHAR_SIG_SHA256, (char *)digest, 32, fname, &signature, &sig_len, error TSRMLS_CC)) {
                    881:                                        efree(savebuf);
                    882:                                        php_stream_close(fp);
                    883:                                        if (error) {
                    884:                                                char *save = *error;
                    885:                                                spprintf(error, 0, "phar \"%s\" SHA256 signature could not be verified: %s", fname, *error);
                    886:                                                efree(save);
                    887:                                        }
                    888:                                        return FAILURE;
                    889:                                }
                    890:                                break;
                    891:                        }
                    892: #else
                    893:                        case PHAR_SIG_SHA512:
                    894:                        case PHAR_SIG_SHA256:
                    895:                                efree(savebuf);
                    896:                                php_stream_close(fp);
                    897: 
                    898:                                if (error) {
                    899:                                        spprintf(error, 0, "phar \"%s\" has a unsupported signature", fname);
                    900:                                }
                    901:                                return FAILURE;
                    902: #endif
                    903:                        case PHAR_SIG_SHA1: {
                    904:                                unsigned char digest[20];
                    905: 
                    906:                                php_stream_seek(fp, -(8 + 20), SEEK_END);
                    907:                                read_len = php_stream_tell(fp);
                    908: 
                    909:                                if (php_stream_read(fp, (char*)digest, sizeof(digest)) != sizeof(digest)) {
                    910:                                        efree(savebuf);
                    911:                                        php_stream_close(fp);
                    912:                                        if (error) {
                    913:                                                spprintf(error, 0, "phar \"%s\" has a broken signature", fname);
                    914:                                        }
                    915:                                        return FAILURE;
                    916:                                }
                    917: 
                    918:                                if (FAILURE == phar_verify_signature(fp, read_len, PHAR_SIG_SHA1, (char *)digest, 20, fname, &signature, &sig_len, error TSRMLS_CC)) {
                    919:                                        efree(savebuf);
                    920:                                        php_stream_close(fp);
                    921:                                        if (error) {
                    922:                                                char *save = *error;
                    923:                                                spprintf(error, 0, "phar \"%s\" SHA1 signature could not be verified: %s", fname, *error);
                    924:                                                efree(save);
                    925:                                        }
                    926:                                        return FAILURE;
                    927:                                }
                    928:                                break;
                    929:                        }
                    930:                        case PHAR_SIG_MD5: {
                    931:                                unsigned char digest[16];
                    932: 
                    933:                                php_stream_seek(fp, -(8 + 16), SEEK_END);
                    934:                                read_len = php_stream_tell(fp);
                    935: 
                    936:                                if (php_stream_read(fp, (char*)digest, sizeof(digest)) != sizeof(digest)) {
                    937:                                        efree(savebuf);
                    938:                                        php_stream_close(fp);
                    939:                                        if (error) {
                    940:                                                spprintf(error, 0, "phar \"%s\" has a broken signature", fname);
                    941:                                        }
                    942:                                        return FAILURE;
                    943:                                }
                    944: 
                    945:                                if (FAILURE == phar_verify_signature(fp, read_len, PHAR_SIG_MD5, (char *)digest, 16, fname, &signature, &sig_len, error TSRMLS_CC)) {
                    946:                                        efree(savebuf);
                    947:                                        php_stream_close(fp);
                    948:                                        if (error) {
                    949:                                                char *save = *error;
                    950:                                                spprintf(error, 0, "phar \"%s\" MD5 signature could not be verified: %s", fname, *error);
                    951:                                                efree(save);
                    952:                                        }
                    953:                                        return FAILURE;
                    954:                                }
                    955:                                break;
                    956:                        }
                    957:                        default:
                    958:                                efree(savebuf);
                    959:                                php_stream_close(fp);
                    960: 
                    961:                                if (error) {
                    962:                                        spprintf(error, 0, "phar \"%s\" has a broken or unsupported signature", fname);
                    963:                                }
                    964:                                return FAILURE;
                    965:                }
                    966:        } else if (PHAR_G(require_hash)) {
                    967:                efree(savebuf);
                    968:                php_stream_close(fp);
                    969: 
                    970:                if (error) {
                    971:                        spprintf(error, 0, "phar \"%s\" does not have a signature", fname);
                    972:                }
                    973:                return FAILURE;
                    974:        } else {
                    975:                sig_flags = 0;
                    976:                sig_len = 0;
                    977:        }
                    978: 
                    979:        /* extract alias */
                    980:        PHAR_GET_32(buffer, tmp_len);
                    981: 
                    982:        if (buffer + tmp_len > endbuffer) {
                    983:                MAPPHAR_FAIL("internal corruption of phar \"%s\" (buffer overrun)");
                    984:        }
                    985: 
                    986:        if (manifest_len < 10 + tmp_len) {
                    987:                MAPPHAR_FAIL("internal corruption of phar \"%s\" (truncated manifest header)")
                    988:        }
                    989: 
                    990:        /* tmp_len = 0 says alias length is 0, which means the alias is not stored in the phar */
                    991:        if (tmp_len) {
                    992:                /* if the alias is stored we enforce it (implicit overrides explicit) */
                    993:                if (alias && alias_len && (alias_len != (int)tmp_len || strncmp(alias, buffer, tmp_len)))
                    994:                {
                    995:                        buffer[tmp_len] = '\0';
                    996:                        php_stream_close(fp);
                    997: 
                    998:                        if (signature) {
                    999:                                efree(signature);
                   1000:                        }
                   1001: 
                   1002:                        if (error) {
                   1003:                                spprintf(error, 0, "cannot load phar \"%s\" with implicit alias \"%s\" under different alias \"%s\"", fname, buffer, alias);
                   1004:                        }
                   1005: 
                   1006:                        efree(savebuf);
                   1007:                        return FAILURE;
                   1008:                }
                   1009: 
                   1010:                alias_len = tmp_len;
                   1011:                alias = buffer;
                   1012:                buffer += tmp_len;
                   1013:                register_alias = 1;
                   1014:        } else if (!alias_len || !alias) {
                   1015:                /* if we neither have an explicit nor an implicit alias, we use the filename */
                   1016:                alias = NULL;
                   1017:                alias_len = 0;
                   1018:                register_alias = 0;
                   1019:        } else if (alias_len) {
                   1020:                register_alias = 1;
                   1021:                temp_alias = 1;
                   1022:        }
                   1023: 
                   1024:        /* we have 5 32-bit items plus 1 byte at least */
                   1025:        if (manifest_count > ((manifest_len - 10 - tmp_len) / (5 * 4 + 1))) {
                   1026:                /* prevent serious memory issues */
                   1027:                MAPPHAR_FAIL("internal corruption of phar \"%s\" (too many manifest entries for size of manifest)")
                   1028:        }
                   1029: 
                   1030:        mydata = pecalloc(1, sizeof(phar_archive_data), PHAR_G(persist));
                   1031:        mydata->is_persistent = PHAR_G(persist);
                   1032: 
                   1033:        /* check whether we have meta data, zero check works regardless of byte order */
                   1034:        if (mydata->is_persistent) {
                   1035:                PHAR_GET_32(buffer, mydata->metadata_len);
                   1036:                if (phar_parse_metadata(&buffer, &mydata->metadata, mydata->metadata_len TSRMLS_CC) == FAILURE) {
                   1037:                        MAPPHAR_FAIL("unable to read phar metadata in .phar file \"%s\"");
                   1038:                }
                   1039:        } else {
                   1040:                if (phar_parse_metadata(&buffer, &mydata->metadata, 0 TSRMLS_CC) == FAILURE) {
                   1041:                        MAPPHAR_FAIL("unable to read phar metadata in .phar file \"%s\"");
                   1042:                }
                   1043:        }
                   1044: 
                   1045:        /* set up our manifest */
                   1046:        zend_hash_init(&mydata->manifest, manifest_count,
                   1047:                zend_get_hash_value, destroy_phar_manifest_entry, (zend_bool)mydata->is_persistent);
                   1048:        zend_hash_init(&mydata->mounted_dirs, 5,
                   1049:                zend_get_hash_value, NULL, (zend_bool)mydata->is_persistent);
                   1050:        zend_hash_init(&mydata->virtual_dirs, manifest_count * 2,
                   1051:                zend_get_hash_value, NULL, (zend_bool)mydata->is_persistent);
                   1052:        mydata->fname = pestrndup(fname, fname_len, mydata->is_persistent);
                   1053: #ifdef PHP_WIN32
                   1054:        phar_unixify_path_separators(mydata->fname, fname_len);
                   1055: #endif
                   1056:        mydata->fname_len = fname_len;
                   1057:        offset = halt_offset + manifest_len + 4;
                   1058:        memset(&entry, 0, sizeof(phar_entry_info));
                   1059:        entry.phar = mydata;
                   1060:        entry.fp_type = PHAR_FP;
                   1061:        entry.is_persistent = mydata->is_persistent;
                   1062: 
                   1063:        for (manifest_index = 0; manifest_index < manifest_count; ++manifest_index) {
                   1064:                if (buffer + 4 > endbuffer) {
                   1065:                        MAPPHAR_FAIL("internal corruption of phar \"%s\" (truncated manifest entry)")
                   1066:                }
                   1067: 
                   1068:                PHAR_GET_32(buffer, entry.filename_len);
                   1069: 
                   1070:                if (entry.filename_len == 0) {
                   1071:                        MAPPHAR_FAIL("zero-length filename encountered in phar \"%s\"");
                   1072:                }
                   1073: 
                   1074:                if (entry.is_persistent) {
                   1075:                        entry.manifest_pos = manifest_index;
                   1076:                }
                   1077: 
                   1078:                if (buffer + entry.filename_len + 20 > endbuffer) {
                   1079:                        MAPPHAR_FAIL("internal corruption of phar \"%s\" (truncated manifest entry)");
                   1080:                }
                   1081: 
                   1082:                if ((manifest_ver & PHAR_API_VER_MASK) >= PHAR_API_MIN_DIR && buffer[entry.filename_len - 1] == '/') {
                   1083:                        entry.is_dir = 1;
                   1084:                } else {
                   1085:                        entry.is_dir = 0;
                   1086:                }
                   1087: 
                   1088:                phar_add_virtual_dirs(mydata, buffer, entry.filename_len TSRMLS_CC);
                   1089:                entry.filename = pestrndup(buffer, entry.filename_len, entry.is_persistent);
                   1090:                buffer += entry.filename_len;
                   1091:                PHAR_GET_32(buffer, entry.uncompressed_filesize);
                   1092:                PHAR_GET_32(buffer, entry.timestamp);
                   1093: 
                   1094:                if (offset == halt_offset + (int)manifest_len + 4) {
                   1095:                        mydata->min_timestamp = entry.timestamp;
                   1096:                        mydata->max_timestamp = entry.timestamp;
                   1097:                } else {
                   1098:                        if (mydata->min_timestamp > entry.timestamp) {
                   1099:                                mydata->min_timestamp = entry.timestamp;
                   1100:                        } else if (mydata->max_timestamp < entry.timestamp) {
                   1101:                                mydata->max_timestamp = entry.timestamp;
                   1102:                        }
                   1103:                }
                   1104: 
                   1105:                PHAR_GET_32(buffer, entry.compressed_filesize);
                   1106:                PHAR_GET_32(buffer, entry.crc32);
                   1107:                PHAR_GET_32(buffer, entry.flags);
                   1108: 
                   1109:                if (entry.is_dir) {
                   1110:                        entry.filename_len--;
                   1111:                        entry.flags |= PHAR_ENT_PERM_DEF_DIR;
                   1112:                }
                   1113: 
                   1114:                if (entry.is_persistent) {
                   1115:                        PHAR_GET_32(buffer, entry.metadata_len);
                   1116:                        if (!entry.metadata_len) buffer -= 4;
                   1117:                        if (phar_parse_metadata(&buffer, &entry.metadata, entry.metadata_len TSRMLS_CC) == FAILURE) {
                   1118:                                pefree(entry.filename, entry.is_persistent);
                   1119:                                MAPPHAR_FAIL("unable to read file metadata in .phar file \"%s\"");
                   1120:                        }
                   1121:                } else {
                   1122:                        if (phar_parse_metadata(&buffer, &entry.metadata, 0 TSRMLS_CC) == FAILURE) {
                   1123:                                pefree(entry.filename, entry.is_persistent);
                   1124:                                MAPPHAR_FAIL("unable to read file metadata in .phar file \"%s\"");
                   1125:                        }
                   1126:                }
                   1127: 
                   1128:                entry.offset = entry.offset_abs = offset;
                   1129:                offset += entry.compressed_filesize;
                   1130: 
                   1131:                switch (entry.flags & PHAR_ENT_COMPRESSION_MASK) {
                   1132:                        case PHAR_ENT_COMPRESSED_GZ:
                   1133:                                if (!PHAR_G(has_zlib)) {
                   1134:                                        if (entry.metadata) {
                   1135:                                                if (entry.is_persistent) {
                   1136:                                                        free(entry.metadata);
                   1137:                                                } else {
                   1138:                                                        zval_ptr_dtor(&entry.metadata);
                   1139:                                                }
                   1140:                                        }
                   1141:                                        pefree(entry.filename, entry.is_persistent);
                   1142:                                        MAPPHAR_FAIL("zlib extension is required for gz compressed .phar file \"%s\"");
                   1143:                                }
                   1144:                                break;
                   1145:                        case PHAR_ENT_COMPRESSED_BZ2:
                   1146:                                if (!PHAR_G(has_bz2)) {
                   1147:                                        if (entry.metadata) {
                   1148:                                                if (entry.is_persistent) {
                   1149:                                                        free(entry.metadata);
                   1150:                                                } else {
                   1151:                                                        zval_ptr_dtor(&entry.metadata);
                   1152:                                                }
                   1153:                                        }
                   1154:                                        pefree(entry.filename, entry.is_persistent);
                   1155:                                        MAPPHAR_FAIL("bz2 extension is required for bzip2 compressed .phar file \"%s\"");
                   1156:                                }
                   1157:                                break;
                   1158:                        default:
                   1159:                                if (entry.uncompressed_filesize != entry.compressed_filesize) {
                   1160:                                        if (entry.metadata) {
                   1161:                                                if (entry.is_persistent) {
                   1162:                                                        free(entry.metadata);
                   1163:                                                } else {
                   1164:                                                        zval_ptr_dtor(&entry.metadata);
                   1165:                                                }
                   1166:                                        }
                   1167:                                        pefree(entry.filename, entry.is_persistent);
                   1168:                                        MAPPHAR_FAIL("internal corruption of phar \"%s\" (compressed and uncompressed size does not match for uncompressed entry)");
                   1169:                                }
                   1170:                                break;
                   1171:                }
                   1172: 
                   1173:                manifest_flags |= (entry.flags & PHAR_ENT_COMPRESSION_MASK);
                   1174:                /* if signature matched, no need to check CRC32 for each file */
                   1175:                entry.is_crc_checked = (manifest_flags & PHAR_HDR_SIGNATURE ? 1 : 0);
                   1176:                phar_set_inode(&entry TSRMLS_CC);
                   1177:                zend_hash_add(&mydata->manifest, entry.filename, entry.filename_len, (void*)&entry, sizeof(phar_entry_info), NULL);
                   1178:        }
                   1179: 
                   1180:        snprintf(mydata->version, sizeof(mydata->version), "%u.%u.%u", manifest_ver >> 12, (manifest_ver >> 8) & 0xF, (manifest_ver >> 4) & 0xF);
                   1181:        mydata->internal_file_start = halt_offset + manifest_len + 4;
                   1182:        mydata->halt_offset = halt_offset;
                   1183:        mydata->flags = manifest_flags;
                   1184:        endbuffer = strrchr(mydata->fname, '/');
                   1185: 
                   1186:        if (endbuffer) {
                   1187:                mydata->ext = memchr(endbuffer, '.', (mydata->fname + fname_len) - endbuffer);
                   1188:                if (mydata->ext == endbuffer) {
                   1189:                        mydata->ext = memchr(endbuffer + 1, '.', (mydata->fname + fname_len) - endbuffer - 1);
                   1190:                }
                   1191:                if (mydata->ext) {
                   1192:                        mydata->ext_len = (mydata->fname + mydata->fname_len) - mydata->ext;
                   1193:                }
                   1194:        }
                   1195: 
                   1196:        mydata->alias = alias ?
                   1197:                pestrndup(alias, alias_len, mydata->is_persistent) :
                   1198:                pestrndup(mydata->fname, fname_len, mydata->is_persistent);
                   1199:        mydata->alias_len = alias ? alias_len : fname_len;
                   1200:        mydata->sig_flags = sig_flags;
                   1201:        mydata->fp = fp;
                   1202:        mydata->sig_len = sig_len;
                   1203:        mydata->signature = signature;
                   1204:        phar_request_initialize(TSRMLS_C);
                   1205: 
                   1206:        if (register_alias) {
                   1207:                phar_archive_data **fd_ptr;
                   1208: 
                   1209:                mydata->is_temporary_alias = temp_alias;
                   1210: 
                   1211:                if (!phar_validate_alias(mydata->alias, mydata->alias_len)) {
                   1212:                        signature = NULL;
                   1213:                        fp = NULL;
                   1214:                        MAPPHAR_FAIL("Cannot open archive \"%s\", invalid alias");
                   1215:                }
                   1216: 
                   1217:                if (SUCCESS == zend_hash_find(&(PHAR_GLOBALS->phar_alias_map), alias, alias_len, (void **)&fd_ptr)) {
                   1218:                        if (SUCCESS != phar_free_alias(*fd_ptr, alias, alias_len TSRMLS_CC)) {
                   1219:                                signature = NULL;
                   1220:                                fp = NULL;
                   1221:                                MAPPHAR_FAIL("Cannot open archive \"%s\", alias is already in use by existing archive");
                   1222:                        }
                   1223:                }
                   1224: 
                   1225:                zend_hash_add(&(PHAR_GLOBALS->phar_alias_map), alias, alias_len, (void*)&mydata, sizeof(phar_archive_data*), NULL);
                   1226:        } else {
                   1227:                mydata->is_temporary_alias = 1;
                   1228:        }
                   1229: 
                   1230:        zend_hash_add(&(PHAR_GLOBALS->phar_fname_map), mydata->fname, fname_len, (void*)&mydata, sizeof(phar_archive_data*),  NULL);
                   1231:        efree(savebuf);
                   1232: 
                   1233:        if (pphar) {
                   1234:                *pphar = mydata;
                   1235:        }
                   1236: 
                   1237:        return SUCCESS;
                   1238: }
                   1239: /* }}} */
                   1240: 
                   1241: /**
                   1242:  * Create or open a phar for writing
                   1243:  */
                   1244: int phar_open_or_create_filename(char *fname, int fname_len, char *alias, int alias_len, int is_data, int options, phar_archive_data** pphar, char **error TSRMLS_DC) /* {{{ */
                   1245: {
                   1246:        const char *ext_str, *z;
                   1247:        char *my_error;
                   1248:        int ext_len;
                   1249:        phar_archive_data **test, *unused = NULL;
                   1250: 
                   1251:        test = &unused;
                   1252: 
                   1253:        if (error) {
                   1254:                *error = NULL;
                   1255:        }
                   1256: 
                   1257:        /* first try to open an existing file */
                   1258:        if (phar_detect_phar_fname_ext(fname, fname_len, &ext_str, &ext_len, !is_data, 0, 1 TSRMLS_CC) == SUCCESS) {
                   1259:                goto check_file;
                   1260:        }
                   1261: 
                   1262:        /* next try to create a new file */
                   1263:        if (FAILURE == phar_detect_phar_fname_ext(fname, fname_len, &ext_str, &ext_len, !is_data, 1, 1 TSRMLS_CC)) {
                   1264:                if (error) {
                   1265:                        if (ext_len == -2) {
                   1266:                                spprintf(error, 0, "Cannot create a phar archive from a URL like \"%s\". Phar objects can only be created from local files", fname);
                   1267:                        } else {
                   1268:                                spprintf(error, 0, "Cannot create phar '%s', file extension (or combination) not recognised or the directory does not exist", fname);
                   1269:                        }
                   1270:                }
                   1271:                return FAILURE;
                   1272:        }
                   1273: check_file:
                   1274:        if (phar_open_parsed_phar(fname, fname_len, alias, alias_len, is_data, options, test, &my_error TSRMLS_CC) == SUCCESS) {
                   1275:                if (pphar) {
                   1276:                        *pphar = *test;
                   1277:                }
                   1278: 
                   1279:                if ((*test)->is_data && !(*test)->is_tar && !(*test)->is_zip) {
                   1280:                        if (error) {
                   1281:                                spprintf(error, 0, "Cannot open '%s' as a PharData object. Use Phar::__construct() for executable archives", fname);
                   1282:                        }
                   1283:                        return FAILURE;
                   1284:                }
                   1285: 
                   1286:                if (PHAR_G(readonly) && !(*test)->is_data && ((*test)->is_tar || (*test)->is_zip)) {
                   1287:                        phar_entry_info *stub;
                   1288:                        if (FAILURE == zend_hash_find(&((*test)->manifest), ".phar/stub.php", sizeof(".phar/stub.php")-1, (void **)&stub)) {
                   1289:                                spprintf(error, 0, "'%s' is not a phar archive. Use PharData::__construct() for a standard zip or tar archive", fname);
                   1290:                                return FAILURE;
                   1291:                        }
                   1292:                }
                   1293: 
                   1294:                if (!PHAR_G(readonly) || (*test)->is_data) {
                   1295:                        (*test)->is_writeable = 1;
                   1296:                }
                   1297:                return SUCCESS;
                   1298:        } else if (my_error) {
                   1299:                if (error) {
                   1300:                        *error = my_error;
                   1301:                } else {
                   1302:                        efree(my_error);
                   1303:                }
                   1304:                return FAILURE;
                   1305:        }
                   1306: 
                   1307:        if (ext_len > 3 && (z = memchr(ext_str, 'z', ext_len)) && ((ext_str + ext_len) - z >= 2) && !memcmp(z + 1, "ip", 2)) {
                   1308:                /* assume zip-based phar */
                   1309:                return phar_open_or_create_zip(fname, fname_len, alias, alias_len, is_data, options, pphar, error TSRMLS_CC);
                   1310:        }
                   1311: 
                   1312:        if (ext_len > 3 && (z = memchr(ext_str, 't', ext_len)) && ((ext_str + ext_len) - z >= 2) && !memcmp(z + 1, "ar", 2)) {
                   1313:                /* assume tar-based phar */
                   1314:                return phar_open_or_create_tar(fname, fname_len, alias, alias_len, is_data, options, pphar, error TSRMLS_CC);
                   1315:        }
                   1316: 
                   1317:        return phar_create_or_parse_filename(fname, fname_len, alias, alias_len, is_data, options, pphar, error TSRMLS_CC);
                   1318: }
                   1319: /* }}} */
                   1320: 
                   1321: int phar_create_or_parse_filename(char *fname, int fname_len, char *alias, int alias_len, int is_data, int options, phar_archive_data** pphar, char **error TSRMLS_DC) /* {{{ */
                   1322: {
                   1323:        phar_archive_data *mydata;
                   1324:        php_stream *fp;
                   1325:        char *actual = NULL, *p;
                   1326: 
                   1327:        if (!pphar) {
                   1328:                pphar = &mydata;
                   1329:        }
                   1330: #if PHP_API_VERSION < 20100412
                   1331:        if (PG(safe_mode) && (!php_checkuid(fname, NULL, CHECKUID_ALLOW_ONLY_FILE))) {
                   1332:                return FAILURE;
                   1333:        }
                   1334: #endif
                   1335:        if (php_check_open_basedir(fname TSRMLS_CC)) {
                   1336:                return FAILURE;
                   1337:        }
                   1338: 
                   1339:        /* first open readonly so it won't be created if not present */
                   1340:        fp = php_stream_open_wrapper(fname, "rb", IGNORE_URL|STREAM_MUST_SEEK|0, &actual);
                   1341: 
                   1342:        if (actual) {
                   1343:                fname = actual;
                   1344:                fname_len = strlen(actual);
                   1345:        }
                   1346: 
                   1347:        if (fp) {
                   1348:                if (phar_open_from_fp(fp, fname, fname_len, alias, alias_len, options, pphar, is_data, error TSRMLS_CC) == SUCCESS) {
                   1349:                        if ((*pphar)->is_data || !PHAR_G(readonly)) {
                   1350:                                (*pphar)->is_writeable = 1;
                   1351:                        }
                   1352:                        if (actual) {
                   1353:                                efree(actual);
                   1354:                        }
                   1355:                        return SUCCESS;
                   1356:                } else {
                   1357:                        /* file exists, but is either corrupt or not a phar archive */
                   1358:                        if (actual) {
                   1359:                                efree(actual);
                   1360:                        }
                   1361:                        return FAILURE;
                   1362:                }
                   1363:        }
                   1364: 
                   1365:        if (actual) {
                   1366:                efree(actual);
                   1367:        }
                   1368: 
                   1369:        if (PHAR_G(readonly) && !is_data) {
                   1370:                if (options & REPORT_ERRORS) {
                   1371:                        if (error) {
                   1372:                                spprintf(error, 0, "creating archive \"%s\" disabled by the php.ini setting phar.readonly", fname);
                   1373:                        }
                   1374:                }
                   1375:                return FAILURE;
                   1376:        }
                   1377: 
                   1378:        /* set up our manifest */
                   1379:        mydata = ecalloc(1, sizeof(phar_archive_data));
                   1380:        mydata->fname = expand_filepath(fname, NULL TSRMLS_CC);
                   1381:        fname_len = strlen(mydata->fname);
                   1382: #ifdef PHP_WIN32
                   1383:        phar_unixify_path_separators(mydata->fname, fname_len);
                   1384: #endif
                   1385:        p = strrchr(mydata->fname, '/');
                   1386: 
                   1387:        if (p) {
                   1388:                mydata->ext = memchr(p, '.', (mydata->fname + fname_len) - p);
                   1389:                if (mydata->ext == p) {
                   1390:                        mydata->ext = memchr(p + 1, '.', (mydata->fname + fname_len) - p - 1);
                   1391:                }
                   1392:                if (mydata->ext) {
                   1393:                        mydata->ext_len = (mydata->fname + fname_len) - mydata->ext;
                   1394:                }
                   1395:        }
                   1396: 
                   1397:        if (pphar) {
                   1398:                *pphar = mydata;
                   1399:        }
                   1400: 
                   1401:        zend_hash_init(&mydata->manifest, sizeof(phar_entry_info),
                   1402:                zend_get_hash_value, destroy_phar_manifest_entry, 0);
                   1403:        zend_hash_init(&mydata->mounted_dirs, sizeof(char *),
                   1404:                zend_get_hash_value, NULL, 0);
                   1405:        zend_hash_init(&mydata->virtual_dirs, sizeof(char *),
                   1406:                zend_get_hash_value, NULL, (zend_bool)mydata->is_persistent);
                   1407:        mydata->fname_len = fname_len;
                   1408:        snprintf(mydata->version, sizeof(mydata->version), "%s", PHP_PHAR_API_VERSION);
                   1409:        mydata->is_temporary_alias = alias ? 0 : 1;
                   1410:        mydata->internal_file_start = -1;
                   1411:        mydata->fp = NULL;
                   1412:        mydata->is_writeable = 1;
                   1413:        mydata->is_brandnew = 1;
                   1414:        phar_request_initialize(TSRMLS_C);
                   1415:        zend_hash_add(&(PHAR_GLOBALS->phar_fname_map), mydata->fname, fname_len, (void*)&mydata, sizeof(phar_archive_data*),  NULL);
                   1416: 
                   1417:        if (is_data) {
                   1418:                alias = NULL;
                   1419:                alias_len = 0;
                   1420:                mydata->is_data = 1;
                   1421:                /* assume tar format, PharData can specify other */
                   1422:                mydata->is_tar = 1;
                   1423:        } else {
                   1424:                phar_archive_data **fd_ptr;
                   1425: 
                   1426:                if (alias && SUCCESS == zend_hash_find(&(PHAR_GLOBALS->phar_alias_map), alias, alias_len, (void **)&fd_ptr)) {
                   1427:                        if (SUCCESS != phar_free_alias(*fd_ptr, alias, alias_len TSRMLS_CC)) {
                   1428:                                if (error) {
                   1429:                                        spprintf(error, 4096, "phar error: phar \"%s\" cannot set alias \"%s\", already in use by another phar archive", mydata->fname, alias);
                   1430:                                }
                   1431: 
                   1432:                                zend_hash_del(&(PHAR_GLOBALS->phar_fname_map), mydata->fname, fname_len);
                   1433: 
                   1434:                                if (pphar) {
                   1435:                                        *pphar = NULL;
                   1436:                                }
                   1437: 
                   1438:                                return FAILURE;
                   1439:                        }
                   1440:                }
                   1441: 
                   1442:                mydata->alias = alias ? estrndup(alias, alias_len) : estrndup(mydata->fname, fname_len);
                   1443:                mydata->alias_len = alias ? alias_len : fname_len;
                   1444:        }
                   1445: 
                   1446:        if (alias_len && alias) {
                   1447:                if (FAILURE == zend_hash_add(&(PHAR_GLOBALS->phar_alias_map), alias, alias_len, (void*)&mydata, sizeof(phar_archive_data*), NULL)) {
                   1448:                        if (options & REPORT_ERRORS) {
                   1449:                                if (error) {
                   1450:                                        spprintf(error, 0, "archive \"%s\" cannot be associated with alias \"%s\", already in use", fname, alias);
                   1451:                                }
                   1452:                        }
                   1453: 
                   1454:                        zend_hash_del(&(PHAR_GLOBALS->phar_fname_map), mydata->fname, fname_len);
                   1455: 
                   1456:                        if (pphar) {
                   1457:                                *pphar = NULL;
                   1458:                        }
                   1459: 
                   1460:                        return FAILURE;
                   1461:                }
                   1462:        }
                   1463: 
                   1464:        return SUCCESS;
                   1465: }
                   1466: /* }}}*/
                   1467: 
                   1468: /**
                   1469:  * Return an already opened filename.
                   1470:  *
                   1471:  * Or scan a phar file for the required __HALT_COMPILER(); ?> token and verify
                   1472:  * that the manifest is proper, then pass it to phar_parse_pharfile().  SUCCESS
                   1473:  * or FAILURE is returned and pphar is set to a pointer to the phar's manifest
                   1474:  */
                   1475: int phar_open_from_filename(char *fname, int fname_len, char *alias, int alias_len, int options, phar_archive_data** pphar, char **error TSRMLS_DC) /* {{{ */
                   1476: {
                   1477:        php_stream *fp;
                   1478:        char *actual;
                   1479:        int ret, is_data = 0;
                   1480: 
                   1481:        if (error) {
                   1482:                *error = NULL;
                   1483:        }
                   1484: 
                   1485:        if (!strstr(fname, ".phar")) {
                   1486:                is_data = 1;
                   1487:        }
                   1488: 
                   1489:        if (phar_open_parsed_phar(fname, fname_len, alias, alias_len, is_data, options, pphar, error TSRMLS_CC) == SUCCESS) {
                   1490:                return SUCCESS;
                   1491:        } else if (error && *error) {
                   1492:                return FAILURE;
                   1493:        }
                   1494: #if PHP_API_VERSION < 20100412
                   1495:        if (PG(safe_mode) && (!php_checkuid(fname, NULL, CHECKUID_ALLOW_ONLY_FILE))) {
                   1496:                return FAILURE;
                   1497:        }
                   1498: #endif
                   1499:        if (php_check_open_basedir(fname TSRMLS_CC)) {
                   1500:                return FAILURE;
                   1501:        }
                   1502: 
                   1503:        fp = php_stream_open_wrapper(fname, "rb", IGNORE_URL|STREAM_MUST_SEEK, &actual);
                   1504: 
                   1505:        if (!fp) {
                   1506:                if (options & REPORT_ERRORS) {
                   1507:                        if (error) {
                   1508:                                spprintf(error, 0, "unable to open phar for reading \"%s\"", fname);
                   1509:                        }
                   1510:                }
                   1511:                if (actual) {
                   1512:                        efree(actual);
                   1513:                }
                   1514:                return FAILURE;
                   1515:        }
                   1516: 
                   1517:        if (actual) {
                   1518:                fname = actual;
                   1519:                fname_len = strlen(actual);
                   1520:        }
                   1521: 
                   1522:        ret =  phar_open_from_fp(fp, fname, fname_len, alias, alias_len, options, pphar, is_data, error TSRMLS_CC);
                   1523: 
                   1524:        if (actual) {
                   1525:                efree(actual);
                   1526:        }
                   1527: 
                   1528:        return ret;
                   1529: }
                   1530: /* }}}*/
                   1531: 
                   1532: static inline char *phar_strnstr(const char *buf, int buf_len, const char *search, int search_len) /* {{{ */
                   1533: {
                   1534:        const char *c;
                   1535:        int so_far = 0;
                   1536: 
                   1537:        if (buf_len < search_len) {
                   1538:                return NULL;
                   1539:        }
                   1540: 
                   1541:        c = buf - 1;
                   1542: 
                   1543:        do {
                   1544:                if (!(c = memchr(c + 1, search[0], buf_len - search_len - so_far))) {
                   1545:                        return (char *) NULL;
                   1546:                }
                   1547: 
                   1548:                so_far = c - buf;
                   1549: 
                   1550:                if (so_far >= (buf_len - search_len)) {
                   1551:                        return (char *) NULL;
                   1552:                }
                   1553: 
                   1554:                if (!memcmp(c, search, search_len)) {
                   1555:                        return (char *) c;
                   1556:                }
                   1557:        } while (1);
                   1558: }
                   1559: /* }}} */
                   1560: 
                   1561: /**
                   1562:  * Scan an open fp for the required __HALT_COMPILER(); ?> token and verify
                   1563:  * that the manifest is proper, then pass it to phar_parse_pharfile().  SUCCESS
                   1564:  * or FAILURE is returned and pphar is set to a pointer to the phar's manifest
                   1565:  */
                   1566: static int phar_open_from_fp(php_stream* fp, char *fname, int fname_len, char *alias, int alias_len, int options, phar_archive_data** pphar, int is_data, char **error TSRMLS_DC) /* {{{ */
                   1567: {
                   1568:        const char token[] = "__HALT_COMPILER();";
                   1569:        const char zip_magic[] = "PK\x03\x04";
                   1570:        const char gz_magic[] = "\x1f\x8b\x08";
                   1571:        const char bz_magic[] = "BZh";
                   1572:        char *pos, test = '\0';
                   1573:        const int window_size = 1024;
                   1574:        char buffer[1024 + sizeof(token)]; /* a 1024 byte window + the size of the halt_compiler token (moving window) */
                   1575:        const long readsize = sizeof(buffer) - sizeof(token);
                   1576:        const long tokenlen = sizeof(token) - 1;
                   1577:        long halt_offset;
                   1578:        size_t got;
                   1579:        php_uint32 compression = PHAR_FILE_COMPRESSED_NONE;
                   1580: 
                   1581:        if (error) {
                   1582:                *error = NULL;
                   1583:        }
                   1584: 
                   1585:        if (-1 == php_stream_rewind(fp)) {
                   1586:                MAPPHAR_ALLOC_FAIL("cannot rewind phar \"%s\"")
                   1587:        }
                   1588: 
                   1589:        buffer[sizeof(buffer)-1] = '\0';
                   1590:        memset(buffer, 32, sizeof(token));
                   1591:        halt_offset = 0;
                   1592: 
                   1593:        /* Maybe it's better to compile the file instead of just searching,  */
                   1594:        /* but we only want the offset. So we want a .re scanner to find it. */
                   1595:        while(!php_stream_eof(fp)) {
                   1596:                if ((got = php_stream_read(fp, buffer+tokenlen, readsize)) < (size_t) tokenlen) {
                   1597:                        MAPPHAR_ALLOC_FAIL("internal corruption of phar \"%s\" (truncated entry)")
                   1598:                }
                   1599: 
                   1600:                if (!test) {
                   1601:                        test = '\1';
                   1602:                        pos = buffer+tokenlen;
                   1603:                        if (!memcmp(pos, gz_magic, 3)) {
                   1604:                                char err = 0;
                   1605:                                php_stream_filter *filter;
                   1606:                                php_stream *temp;
                   1607:                                /* to properly decompress, we have to tell zlib to look for a zlib or gzip header */
                   1608:                                zval filterparams;
                   1609: 
                   1610:                                if (!PHAR_G(has_zlib)) {
                   1611:                                        MAPPHAR_ALLOC_FAIL("unable to decompress gzipped phar archive \"%s\" to temporary file, enable zlib extension in php.ini")
                   1612:                                }
                   1613:                                array_init(&filterparams);
                   1614: /* this is defined in zlib's zconf.h */
                   1615: #ifndef MAX_WBITS
                   1616: #define MAX_WBITS 15
                   1617: #endif
                   1618:                                add_assoc_long(&filterparams, "window", MAX_WBITS + 32);
                   1619: 
                   1620:                                /* entire file is gzip-compressed, uncompress to temporary file */
                   1621:                                if (!(temp = php_stream_fopen_tmpfile())) {
                   1622:                                        MAPPHAR_ALLOC_FAIL("unable to create temporary file for decompression of gzipped phar archive \"%s\"")
                   1623:                                }
                   1624: 
                   1625:                                php_stream_rewind(fp);
                   1626:                                filter = php_stream_filter_create("zlib.inflate", &filterparams, php_stream_is_persistent(fp) TSRMLS_CC);
                   1627: 
                   1628:                                if (!filter) {
                   1629:                                        err = 1;
                   1630:                                        add_assoc_long(&filterparams, "window", MAX_WBITS);
                   1631:                                        filter = php_stream_filter_create("zlib.inflate", &filterparams, php_stream_is_persistent(fp) TSRMLS_CC);
                   1632:                                        zval_dtor(&filterparams);
                   1633: 
                   1634:                                        if (!filter) {
                   1635:                                                php_stream_close(temp);
                   1636:                                                MAPPHAR_ALLOC_FAIL("unable to decompress gzipped phar archive \"%s\", ext/zlib is buggy in PHP versions older than 5.2.6")
                   1637:                                        }
                   1638:                                } else {
                   1639:                                        zval_dtor(&filterparams);
                   1640:                                }
                   1641: 
                   1642:                                php_stream_filter_append(&temp->writefilters, filter);
                   1643: 
                   1644:                                if (SUCCESS != phar_stream_copy_to_stream(fp, temp, PHP_STREAM_COPY_ALL, NULL)) {
                   1645:                                        if (err) {
                   1646:                                                php_stream_close(temp);
                   1647:                                                MAPPHAR_ALLOC_FAIL("unable to decompress gzipped phar archive \"%s\", ext/zlib is buggy in PHP versions older than 5.2.6")
                   1648:                                        }
                   1649:                                        php_stream_close(temp);
                   1650:                                        MAPPHAR_ALLOC_FAIL("unable to decompress gzipped phar archive \"%s\" to temporary file")
                   1651:                                }
                   1652: 
                   1653:                                php_stream_filter_flush(filter, 1);
                   1654:                                php_stream_filter_remove(filter, 1 TSRMLS_CC);
                   1655:                                php_stream_close(fp);
                   1656:                                fp = temp;
                   1657:                                php_stream_rewind(fp);
                   1658:                                compression = PHAR_FILE_COMPRESSED_GZ;
                   1659: 
                   1660:                                /* now, start over */
                   1661:                                test = '\0';
                   1662:                                continue;
                   1663:                        } else if (!memcmp(pos, bz_magic, 3)) {
                   1664:                                php_stream_filter *filter;
                   1665:                                php_stream *temp;
                   1666: 
                   1667:                                if (!PHAR_G(has_bz2)) {
                   1668:                                        MAPPHAR_ALLOC_FAIL("unable to decompress bzipped phar archive \"%s\" to temporary file, enable bz2 extension in php.ini")
                   1669:                                }
                   1670: 
                   1671:                                /* entire file is bzip-compressed, uncompress to temporary file */
                   1672:                                if (!(temp = php_stream_fopen_tmpfile())) {
                   1673:                                        MAPPHAR_ALLOC_FAIL("unable to create temporary file for decompression of bzipped phar archive \"%s\"")
                   1674:                                }
                   1675: 
                   1676:                                php_stream_rewind(fp);
                   1677:                                filter = php_stream_filter_create("bzip2.decompress", NULL, php_stream_is_persistent(fp) TSRMLS_CC);
                   1678: 
                   1679:                                if (!filter) {
                   1680:                                        php_stream_close(temp);
                   1681:                                        MAPPHAR_ALLOC_FAIL("unable to decompress bzipped phar archive \"%s\", filter creation failed")
                   1682:                                }
                   1683: 
                   1684:                                php_stream_filter_append(&temp->writefilters, filter);
                   1685: 
                   1686:                                if (SUCCESS != phar_stream_copy_to_stream(fp, temp, PHP_STREAM_COPY_ALL, NULL)) {
                   1687:                                        php_stream_close(temp);
                   1688:                                        MAPPHAR_ALLOC_FAIL("unable to decompress bzipped phar archive \"%s\" to temporary file")
                   1689:                                }
                   1690: 
                   1691:                                php_stream_filter_flush(filter, 1);
                   1692:                                php_stream_filter_remove(filter, 1 TSRMLS_CC);
                   1693:                                php_stream_close(fp);
                   1694:                                fp = temp;
                   1695:                                php_stream_rewind(fp);
                   1696:                                compression = PHAR_FILE_COMPRESSED_BZ2;
                   1697: 
                   1698:                                /* now, start over */
                   1699:                                test = '\0';
                   1700:                                continue;
                   1701:                        }
                   1702: 
                   1703:                        if (!memcmp(pos, zip_magic, 4)) {
                   1704:                                php_stream_seek(fp, 0, SEEK_END);
                   1705:                                return phar_parse_zipfile(fp, fname, fname_len, alias, alias_len, pphar, error TSRMLS_CC);
                   1706:                        }
                   1707: 
                   1708:                        if (got > 512) {
                   1709:                                if (phar_is_tar(pos, fname)) {
                   1710:                                        php_stream_rewind(fp);
                   1711:                                        return phar_parse_tarfile(fp, fname, fname_len, alias, alias_len, pphar, is_data, compression, error TSRMLS_CC);
                   1712:                                }
                   1713:                        }
                   1714:                }
                   1715: 
                   1716:                if (got > 0 && (pos = phar_strnstr(buffer, got + sizeof(token), token, sizeof(token)-1)) != NULL) {
                   1717:                        halt_offset += (pos - buffer); /* no -tokenlen+tokenlen here */
                   1718:                        return phar_parse_pharfile(fp, fname, fname_len, alias, alias_len, halt_offset, pphar, compression, error TSRMLS_CC);
                   1719:                }
                   1720: 
                   1721:                halt_offset += got;
                   1722:                memmove(buffer, buffer + window_size, tokenlen); /* move the memory buffer by the size of the window */
                   1723:        }
                   1724: 
                   1725:        MAPPHAR_ALLOC_FAIL("internal corruption of phar \"%s\" (__HALT_COMPILER(); not found)")
                   1726: }
                   1727: /* }}} */
                   1728: 
                   1729: /*
                   1730:  * given the location of the file extension and the start of the file path,
                   1731:  * determine the end of the portion of the path (i.e. /path/to/file.ext/blah
                   1732:  * grabs "/path/to/file.ext" as does the straight /path/to/file.ext),
                   1733:  * stat it to determine if it exists.
                   1734:  * if so, check to see if it is a directory and fail if so
                   1735:  * if not, check to see if its dirname() exists (i.e. "/path/to") and is a directory
                   1736:  * succeed if we are creating the file, otherwise fail.
                   1737:  */
                   1738: static int phar_analyze_path(const char *fname, const char *ext, int ext_len, int for_create TSRMLS_DC) /* {{{ */
                   1739: {
                   1740:        php_stream_statbuf ssb;
1.1.1.2   misho    1741:        char *realpath;
                   1742:        char *filename = estrndup(fname, (ext - fname) + ext_len);
1.1       misho    1743: 
1.1.1.2   misho    1744:        if ((realpath = expand_filepath(filename, NULL TSRMLS_CC))) {
1.1       misho    1745: #ifdef PHP_WIN32
                   1746:                phar_unixify_path_separators(realpath, strlen(realpath));
                   1747: #endif
                   1748:                if (zend_hash_exists(&(PHAR_GLOBALS->phar_fname_map), realpath, strlen(realpath))) {
                   1749:                        efree(realpath);
1.1.1.2   misho    1750:                        efree(filename);
1.1       misho    1751:                        return SUCCESS;
                   1752:                }
                   1753: 
                   1754:                if (PHAR_G(manifest_cached) && zend_hash_exists(&cached_phars, realpath, strlen(realpath))) {
                   1755:                        efree(realpath);
1.1.1.2   misho    1756:                        efree(filename);
1.1       misho    1757:                        return SUCCESS;
                   1758:                }
                   1759:                efree(realpath);
                   1760:        }
                   1761: 
1.1.1.2   misho    1762:        if (SUCCESS == php_stream_stat_path((char *) filename, &ssb)) {
                   1763: 
                   1764:                efree(filename);
1.1       misho    1765: 
                   1766:                if (ssb.sb.st_mode & S_IFDIR) {
                   1767:                        return FAILURE;
                   1768:                }
                   1769: 
                   1770:                if (for_create == 1) {
                   1771:                        return FAILURE;
                   1772:                }
                   1773: 
                   1774:                return SUCCESS;
                   1775:        } else {
                   1776:                char *slash;
                   1777: 
                   1778:                if (!for_create) {
1.1.1.2   misho    1779:                        efree(filename);
1.1       misho    1780:                        return FAILURE;
                   1781:                }
                   1782: 
1.1.1.2   misho    1783:                slash = (char *) strrchr(filename, '/');
1.1       misho    1784: 
                   1785:                if (slash) {
                   1786:                        *slash = '\0';
                   1787:                }
                   1788: 
1.1.1.2   misho    1789:                if (SUCCESS != php_stream_stat_path((char *) filename, &ssb)) {
                   1790:                        if (!slash) {
                   1791:                                if (!(realpath = expand_filepath(filename, NULL TSRMLS_CC))) {
                   1792:                                        efree(filename);
1.1       misho    1793:                                        return FAILURE;
                   1794:                                }
                   1795: #ifdef PHP_WIN32
                   1796:                                phar_unixify_path_separators(realpath, strlen(realpath));
                   1797: #endif
1.1.1.2   misho    1798:                                slash = strstr(realpath, filename) + ((ext - fname) + ext_len);
                   1799:                                *slash = '\0';
1.1       misho    1800:                                slash = strrchr(realpath, '/');
                   1801: 
                   1802:                                if (slash) {
                   1803:                                        *slash = '\0';
                   1804:                                } else {
                   1805:                                        efree(realpath);
1.1.1.2   misho    1806:                                        efree(filename);
1.1       misho    1807:                                        return FAILURE;
                   1808:                                }
                   1809: 
                   1810:                                if (SUCCESS != php_stream_stat_path(realpath, &ssb)) {
                   1811:                                        efree(realpath);
1.1.1.2   misho    1812:                                        efree(filename);
1.1       misho    1813:                                        return FAILURE;
                   1814:                                }
                   1815: 
                   1816:                                efree(realpath);
                   1817: 
                   1818:                                if (ssb.sb.st_mode & S_IFDIR) {
1.1.1.2   misho    1819:                                        efree(filename);
1.1       misho    1820:                                        return SUCCESS;
                   1821:                                }
                   1822:                        }
                   1823: 
1.1.1.2   misho    1824:                        efree(filename);
1.1       misho    1825:                        return FAILURE;
                   1826:                }
                   1827: 
1.1.1.2   misho    1828:                efree(filename);
1.1       misho    1829: 
                   1830:                if (ssb.sb.st_mode & S_IFDIR) {
                   1831:                        return SUCCESS;
                   1832:                }
                   1833: 
                   1834:                return FAILURE;
                   1835:        }
                   1836: }
                   1837: /* }}} */
                   1838: 
                   1839: /* check for ".phar" in extension */
                   1840: static int phar_check_str(const char *fname, const char *ext_str, int ext_len, int executable, int for_create TSRMLS_DC) /* {{{ */
                   1841: {
                   1842:        char test[51];
                   1843:        const char *pos;
                   1844: 
                   1845:        if (ext_len >= 50) {
                   1846:                return FAILURE;
                   1847:        }
                   1848: 
                   1849:        if (executable == 1) {
                   1850:                /* copy "." as well */
                   1851:                memcpy(test, ext_str - 1, ext_len + 1);
                   1852:                test[ext_len + 1] = '\0';
                   1853:                /* executable phars must contain ".phar" as a valid extension (phar://.pharmy/oops is invalid) */
                   1854:                /* (phar://hi/there/.phar/oops is also invalid) */
                   1855:                pos = strstr(test, ".phar");
                   1856: 
                   1857:                if (pos && (*(pos - 1) != '/')
                   1858:                                && (pos += 5) && (*pos == '\0' || *pos == '/' || *pos == '.')) {
                   1859:                        return phar_analyze_path(fname, ext_str, ext_len, for_create TSRMLS_CC);
                   1860:                } else {
                   1861:                        return FAILURE;
                   1862:                }
                   1863:        }
                   1864: 
                   1865:        /* data phars need only contain a single non-"." to be valid */
                   1866:        if (!executable) {
                   1867:                pos = strstr(ext_str, ".phar");
                   1868:                if (!(pos && (*(pos - 1) != '/')
                   1869:                                        && (pos += 5) && (*pos == '\0' || *pos == '/' || *pos == '.')) && *(ext_str + 1) != '.' && *(ext_str + 1) != '/' && *(ext_str + 1) != '\0') {
                   1870:                        return phar_analyze_path(fname, ext_str, ext_len, for_create TSRMLS_CC);
                   1871:                }
                   1872:        } else {
                   1873:                if (*(ext_str + 1) != '.' && *(ext_str + 1) != '/' && *(ext_str + 1) != '\0') {
                   1874:                        return phar_analyze_path(fname, ext_str, ext_len, for_create TSRMLS_CC);
                   1875:                }
                   1876:        }
                   1877: 
                   1878:        return FAILURE;
                   1879: }
                   1880: /* }}} */
                   1881: 
                   1882: /*
                   1883:  * if executable is 1, only returns SUCCESS if the extension is one of the tar/zip .phar extensions
                   1884:  * if executable is 0, it returns SUCCESS only if the filename does *not* contain ".phar" anywhere, and treats
                   1885:  * the first extension as the filename extension
                   1886:  *
                   1887:  * if an extension is found, it sets ext_str to the location of the file extension in filename,
                   1888:  * and ext_len to the length of the extension.
                   1889:  * for urls like "phar://alias/oops" it instead sets ext_len to -1 and returns FAILURE, which tells
                   1890:  * the calling function to use "alias" as the phar alias
                   1891:  *
                   1892:  * the last parameter should be set to tell the thing to assume that filename is the full path, and only to check the
                   1893:  * extension rules, not to iterate.
                   1894:  */
                   1895: int phar_detect_phar_fname_ext(const char *filename, int filename_len, const char **ext_str, int *ext_len, int executable, int for_create, int is_complete TSRMLS_DC) /* {{{ */
                   1896: {
                   1897:        const char *pos, *slash;
                   1898: 
                   1899:        *ext_str = NULL;
                   1900:        *ext_len = 0;
                   1901: 
                   1902:        if (!filename_len || filename_len == 1) {
                   1903:                return FAILURE;
                   1904:        }
                   1905: 
                   1906:        phar_request_initialize(TSRMLS_C);
                   1907:        /* first check for alias in first segment */
                   1908:        pos = memchr(filename, '/', filename_len);
                   1909: 
                   1910:        if (pos && pos != filename) {
                   1911:                /* check for url like http:// or phar:// */
                   1912:                if (*(pos - 1) == ':' && (pos - filename) < filename_len - 1 && *(pos + 1) == '/') {
                   1913:                        *ext_len = -2;
                   1914:                        *ext_str = NULL;
                   1915:                        return FAILURE;
                   1916:                }
                   1917:                if (zend_hash_exists(&(PHAR_GLOBALS->phar_alias_map), (char *) filename, pos - filename)) {
                   1918:                        *ext_str = pos;
                   1919:                        *ext_len = -1;
                   1920:                        return FAILURE;
                   1921:                }
                   1922: 
                   1923:                if (PHAR_G(manifest_cached) && zend_hash_exists(&cached_alias, (char *) filename, pos - filename)) {
                   1924:                        *ext_str = pos;
                   1925:                        *ext_len = -1;
                   1926:                        return FAILURE;
                   1927:                }
                   1928:        }
                   1929: 
                   1930:        if (zend_hash_num_elements(&(PHAR_GLOBALS->phar_fname_map)) || PHAR_G(manifest_cached)) {
                   1931:                phar_archive_data **pphar;
                   1932: 
                   1933:                if (is_complete) {
                   1934:                        if (SUCCESS == zend_hash_find(&(PHAR_GLOBALS->phar_fname_map), (char *) filename, filename_len, (void **)&pphar)) {
                   1935:                                *ext_str = filename + (filename_len - (*pphar)->ext_len);
                   1936: woohoo:
                   1937:                                *ext_len = (*pphar)->ext_len;
                   1938: 
                   1939:                                if (executable == 2) {
                   1940:                                        return SUCCESS;
                   1941:                                }
                   1942: 
                   1943:                                if (executable == 1 && !(*pphar)->is_data) {
                   1944:                                        return SUCCESS;
                   1945:                                }
                   1946: 
                   1947:                                if (!executable && (*pphar)->is_data) {
                   1948:                                        return SUCCESS;
                   1949:                                }
                   1950: 
                   1951:                                return FAILURE;
                   1952:                        }
                   1953: 
                   1954:                        if (PHAR_G(manifest_cached) && SUCCESS == zend_hash_find(&cached_phars, (char *) filename, filename_len, (void **)&pphar)) {
                   1955:                                *ext_str = filename + (filename_len - (*pphar)->ext_len);
                   1956:                                goto woohoo;
                   1957:                        }
                   1958:                } else {
                   1959:                        phar_zstr key;
                   1960:                        char *str_key;
                   1961:                        uint keylen;
                   1962:                        ulong unused;
                   1963: 
                   1964:                        zend_hash_internal_pointer_reset(&(PHAR_GLOBALS->phar_fname_map));
                   1965: 
                   1966:                        while (FAILURE != zend_hash_has_more_elements(&(PHAR_GLOBALS->phar_fname_map))) {
                   1967:                                if (HASH_KEY_NON_EXISTANT == zend_hash_get_current_key_ex(&(PHAR_GLOBALS->phar_fname_map), &key, &keylen, &unused, 0, NULL)) {
                   1968:                                        break;
                   1969:                                }
                   1970: 
                   1971:                                PHAR_STR(key, str_key);
                   1972: 
                   1973:                                if (keylen > (uint) filename_len) {
                   1974:                                        zend_hash_move_forward(&(PHAR_GLOBALS->phar_fname_map));
                   1975:                                        PHAR_STR_FREE(str_key);
                   1976:                                        continue;
                   1977:                                }
                   1978: 
                   1979:                                if (!memcmp(filename, str_key, keylen) && ((uint)filename_len == keylen
                   1980:                                        || filename[keylen] == '/' || filename[keylen] == '\0')) {
                   1981:                                        PHAR_STR_FREE(str_key);
                   1982:                                        if (FAILURE == zend_hash_get_current_data(&(PHAR_GLOBALS->phar_fname_map), (void **) &pphar)) {
                   1983:                                                break;
                   1984:                                        }
                   1985:                                        *ext_str = filename + (keylen - (*pphar)->ext_len);
                   1986:                                        goto woohoo;
                   1987:                                }
                   1988: 
                   1989:                                PHAR_STR_FREE(str_key);
                   1990:                                zend_hash_move_forward(&(PHAR_GLOBALS->phar_fname_map));
                   1991:                        }
                   1992: 
                   1993:                        if (PHAR_G(manifest_cached)) {
                   1994:                                zend_hash_internal_pointer_reset(&cached_phars);
                   1995: 
                   1996:                                while (FAILURE != zend_hash_has_more_elements(&cached_phars)) {
                   1997:                                        if (HASH_KEY_NON_EXISTANT == zend_hash_get_current_key_ex(&cached_phars, &key, &keylen, &unused, 0, NULL)) {
                   1998:                                                break;
                   1999:                                        }
                   2000: 
                   2001:                                        PHAR_STR(key, str_key);
                   2002: 
                   2003:                                        if (keylen > (uint) filename_len) {
                   2004:                                                zend_hash_move_forward(&cached_phars);
                   2005:                                                PHAR_STR_FREE(str_key);
                   2006:                                                continue;
                   2007:                                        }
                   2008: 
                   2009:                                        if (!memcmp(filename, str_key, keylen) && ((uint)filename_len == keylen
                   2010:                                                || filename[keylen] == '/' || filename[keylen] == '\0')) {
                   2011:                                                PHAR_STR_FREE(str_key);
                   2012:                                                if (FAILURE == zend_hash_get_current_data(&cached_phars, (void **) &pphar)) {
                   2013:                                                        break;
                   2014:                                                }
                   2015:                                                *ext_str = filename + (keylen - (*pphar)->ext_len);
                   2016:                                                goto woohoo;
                   2017:                                        }
                   2018:                                        PHAR_STR_FREE(str_key);
                   2019:                                        zend_hash_move_forward(&cached_phars);
                   2020:                                }
                   2021:                        }
                   2022:                }
                   2023:        }
                   2024: 
                   2025:        pos = memchr(filename + 1, '.', filename_len);
                   2026: next_extension:
                   2027:        if (!pos) {
                   2028:                return FAILURE;
                   2029:        }
                   2030: 
                   2031:        while (pos != filename && (*(pos - 1) == '/' || *(pos - 1) == '\0')) {
                   2032:                pos = memchr(pos + 1, '.', filename_len - (pos - filename) + 1);
                   2033:                if (!pos) {
                   2034:                        return FAILURE;
                   2035:                }
                   2036:        }
                   2037: 
                   2038:        slash = memchr(pos, '/', filename_len - (pos - filename));
                   2039: 
                   2040:        if (!slash) {
                   2041:                /* this is a url like "phar://blah.phar" with no directory */
                   2042:                *ext_str = pos;
                   2043:                *ext_len = strlen(pos);
                   2044: 
                   2045:                /* file extension must contain "phar" */
                   2046:                switch (phar_check_str(filename, *ext_str, *ext_len, executable, for_create TSRMLS_CC)) {
                   2047:                        case SUCCESS:
                   2048:                                return SUCCESS;
                   2049:                        case FAILURE:
                   2050:                                /* we are at the end of the string, so we fail */
                   2051:                                return FAILURE;
                   2052:                }
                   2053:        }
                   2054: 
                   2055:        /* we've found an extension that ends at a directory separator */
                   2056:        *ext_str = pos;
                   2057:        *ext_len = slash - pos;
                   2058: 
                   2059:        switch (phar_check_str(filename, *ext_str, *ext_len, executable, for_create TSRMLS_CC)) {
                   2060:                case SUCCESS:
                   2061:                        return SUCCESS;
                   2062:                case FAILURE:
                   2063:                        /* look for more extensions */
                   2064:                        pos = strchr(pos + 1, '.');
                   2065:                        if (pos) {
                   2066:                                *ext_str = NULL;
                   2067:                                *ext_len = 0;
                   2068:                        }
                   2069:                        goto next_extension;
                   2070:        }
                   2071: 
                   2072:        return FAILURE;
                   2073: }
                   2074: /* }}} */
                   2075: 
                   2076: static int php_check_dots(const char *element, int n) /* {{{ */
                   2077: {
                   2078:        for(n--; n >= 0; --n) {
                   2079:                if (element[n] != '.') {
                   2080:                        return 1;
                   2081:                }
                   2082:        }
                   2083:        return 0;
                   2084: }
                   2085: /* }}} */
                   2086: 
                   2087: #define IS_DIRECTORY_UP(element, len) \
                   2088:        (len >= 2 && !php_check_dots(element, len))
                   2089: 
                   2090: #define IS_DIRECTORY_CURRENT(element, len) \
                   2091:        (len == 1 && element[0] == '.')
                   2092: 
                   2093: #define IS_BACKSLASH(c) ((c) == '/')
                   2094: 
                   2095: #ifdef COMPILE_DL_PHAR
                   2096: /* stupid-ass non-extern declaration in tsrm_strtok.h breaks dumbass MS compiler */
                   2097: static inline int in_character_class(char ch, const char *delim) /* {{{ */
                   2098: {
                   2099:        while (*delim) {
                   2100:                if (*delim == ch) {
                   2101:                        return 1;
                   2102:                }
                   2103:                ++delim;
                   2104:        }
                   2105:        return 0;
                   2106: }
                   2107: /* }}} */
                   2108: 
                   2109: char *tsrm_strtok_r(char *s, const char *delim, char **last) /* {{{ */
                   2110: {
                   2111:        char *token;
                   2112: 
                   2113:        if (s == NULL) {
                   2114:                s = *last;
                   2115:        }
                   2116: 
                   2117:        while (*s && in_character_class(*s, delim)) {
                   2118:                ++s;
                   2119:        }
                   2120: 
                   2121:        if (!*s) {
                   2122:                return NULL;
                   2123:        }
                   2124: 
                   2125:        token = s;
                   2126: 
                   2127:        while (*s && !in_character_class(*s, delim)) {
                   2128:                ++s;
                   2129:        }
                   2130: 
                   2131:        if (!*s) {
                   2132:                *last = s;
                   2133:        } else {
                   2134:                *s = '\0';
                   2135:                *last = s + 1;
                   2136:        }
                   2137: 
                   2138:        return token;
                   2139: }
                   2140: /* }}} */
                   2141: #endif
                   2142: 
                   2143: /**
                   2144:  * Remove .. and . references within a phar filename
                   2145:  */
                   2146: char *phar_fix_filepath(char *path, int *new_len, int use_cwd TSRMLS_DC) /* {{{ */
                   2147: {
                   2148:        char newpath[MAXPATHLEN];
                   2149:        int newpath_len;
                   2150:        char *ptr;
                   2151:        char *tok;
                   2152:        int ptr_length, path_length = *new_len;
                   2153: 
                   2154:        if (PHAR_G(cwd_len) && use_cwd && path_length > 2 && path[0] == '.' && path[1] == '/') {
                   2155:                newpath_len = PHAR_G(cwd_len);
                   2156:                memcpy(newpath, PHAR_G(cwd), newpath_len);
                   2157:        } else {
                   2158:                newpath[0] = '/';
                   2159:                newpath_len = 1;
                   2160:        }
                   2161: 
                   2162:        ptr = path;
                   2163: 
                   2164:        if (*ptr == '/') {
                   2165:                ++ptr;
                   2166:        }
                   2167: 
                   2168:        tok = ptr;
                   2169: 
                   2170:        do {
                   2171:                ptr = memchr(ptr, '/', path_length - (ptr - path));
                   2172:        } while (ptr && ptr - tok == 0 && *ptr == '/' && ++ptr && ++tok);
                   2173: 
                   2174:        if (!ptr && (path_length - (tok - path))) {
                   2175:                switch (path_length - (tok - path)) {
                   2176:                        case 1:
                   2177:                                if (*tok == '.') {
                   2178:                                        efree(path);
                   2179:                                        *new_len = 1;
                   2180:                                        return estrndup("/", 1);
                   2181:                                }
                   2182:                                break;
                   2183:                        case 2:
                   2184:                                if (tok[0] == '.' && tok[1] == '.') {
                   2185:                                        efree(path);
                   2186:                                        *new_len = 1;
                   2187:                                        return estrndup("/", 1);
                   2188:                                }
                   2189:                }
                   2190:                return path;
                   2191:        }
                   2192: 
                   2193:        while (ptr) {
                   2194:                ptr_length = ptr - tok;
                   2195: last_time:
                   2196:                if (IS_DIRECTORY_UP(tok, ptr_length)) {
                   2197: #define PREVIOUS newpath[newpath_len - 1]
                   2198: 
                   2199:                        while (newpath_len > 1 && !IS_BACKSLASH(PREVIOUS)) {
                   2200:                                newpath_len--;
                   2201:                        }
                   2202: 
                   2203:                        if (newpath[0] != '/') {
                   2204:                                newpath[newpath_len] = '\0';
                   2205:                        } else if (newpath_len > 1) {
                   2206:                                --newpath_len;
                   2207:                        }
                   2208:                } else if (!IS_DIRECTORY_CURRENT(tok, ptr_length)) {
                   2209:                        if (newpath_len > 1) {
                   2210:                                newpath[newpath_len++] = '/';
                   2211:                                memcpy(newpath + newpath_len, tok, ptr_length+1);
                   2212:                        } else {
                   2213:                                memcpy(newpath + newpath_len, tok, ptr_length+1);
                   2214:                        }
                   2215: 
                   2216:                        newpath_len += ptr_length;
                   2217:                }
                   2218: 
                   2219:                if (ptr == path + path_length) {
                   2220:                        break;
                   2221:                }
                   2222: 
                   2223:                tok = ++ptr;
                   2224: 
                   2225:                do {
                   2226:                        ptr = memchr(ptr, '/', path_length - (ptr - path));
                   2227:                } while (ptr && ptr - tok == 0 && *ptr == '/' && ++ptr && ++tok);
                   2228: 
                   2229:                if (!ptr && (path_length - (tok - path))) {
                   2230:                        ptr_length = path_length - (tok - path);
                   2231:                        ptr = path + path_length;
                   2232:                        goto last_time;
                   2233:                }
                   2234:        }
                   2235: 
                   2236:        efree(path);
                   2237:        *new_len = newpath_len;
                   2238:        return estrndup(newpath, newpath_len);
                   2239: }
                   2240: /* }}} */
                   2241: 
                   2242: /**
                   2243:  * Process a phar stream name, ensuring we can handle any of:
                   2244:  * 
                   2245:  * - whatever.phar
                   2246:  * - whatever.phar.gz
                   2247:  * - whatever.phar.bz2
                   2248:  * - whatever.phar.php
                   2249:  *
                   2250:  * Optionally the name might start with 'phar://'
                   2251:  *
                   2252:  * This is used by phar_parse_url()
                   2253:  */
                   2254: int phar_split_fname(char *filename, int filename_len, char **arch, int *arch_len, char **entry, int *entry_len, int executable, int for_create TSRMLS_DC) /* {{{ */
                   2255: {
                   2256:        const char *ext_str;
                   2257: #ifdef PHP_WIN32
                   2258:        char *save;
                   2259: #endif
                   2260:        int ext_len, free_filename = 0;
                   2261: 
                   2262:        if (!strncasecmp(filename, "phar://", 7)) {
                   2263:                filename += 7;
                   2264:                filename_len -= 7;
                   2265:        }
                   2266: 
                   2267:        ext_len = 0;
                   2268: #ifdef PHP_WIN32
                   2269:        free_filename = 1;
                   2270:        save = filename;
                   2271:        filename = estrndup(filename, filename_len);
                   2272:        phar_unixify_path_separators(filename, filename_len);
                   2273: #endif
                   2274:        if (phar_detect_phar_fname_ext(filename, filename_len, &ext_str, &ext_len, executable, for_create, 0 TSRMLS_CC) == FAILURE) {
                   2275:                if (ext_len != -1) {
                   2276:                        if (!ext_str) {
                   2277:                                /* no / detected, restore arch for error message */
                   2278: #ifdef PHP_WIN32
                   2279:                                *arch = save;
                   2280: #else
                   2281:                                *arch = filename;
                   2282: #endif
                   2283:                        }
                   2284: 
                   2285:                        if (free_filename) {
                   2286:                                efree(filename);
                   2287:                        }
                   2288: 
                   2289:                        return FAILURE;
                   2290:                }
                   2291: 
                   2292:                ext_len = 0;
                   2293:                /* no extension detected - instead we are dealing with an alias */
                   2294:        }
                   2295: 
                   2296:        *arch_len = ext_str - filename + ext_len;
                   2297:        *arch = estrndup(filename, *arch_len);
                   2298: 
                   2299:        if (ext_str[ext_len]) {
                   2300:                *entry_len = filename_len - *arch_len;
                   2301:                *entry = estrndup(ext_str+ext_len, *entry_len);
                   2302: #ifdef PHP_WIN32
                   2303:                phar_unixify_path_separators(*entry, *entry_len);
                   2304: #endif
                   2305:                *entry = phar_fix_filepath(*entry, entry_len, 0 TSRMLS_CC);
                   2306:        } else {
                   2307:                *entry_len = 1;
                   2308:                *entry = estrndup("/", 1);
                   2309:        }
                   2310: 
                   2311:        if (free_filename) {
                   2312:                efree(filename);
                   2313:        }
                   2314: 
                   2315:        return SUCCESS;
                   2316: }
                   2317: /* }}} */
                   2318: 
                   2319: /**
                   2320:  * Invoked when a user calls Phar::mapPhar() from within an executing .phar
                   2321:  * to set up its manifest directly
                   2322:  */
                   2323: int phar_open_executed_filename(char *alias, int alias_len, char **error TSRMLS_DC) /* {{{ */
                   2324: {
                   2325:        char *fname;
                   2326:        zval *halt_constant;
                   2327:        php_stream *fp;
                   2328:        int fname_len;
                   2329:        char *actual = NULL;
                   2330:        int ret;
                   2331: 
                   2332:        if (error) {
                   2333:                *error = NULL;
                   2334:        }
                   2335: 
1.1.1.2   misho    2336:        fname = (char*)zend_get_executed_filename(TSRMLS_C);
1.1       misho    2337:        fname_len = strlen(fname);
                   2338: 
                   2339:        if (phar_open_parsed_phar(fname, fname_len, alias, alias_len, 0, REPORT_ERRORS, NULL, 0 TSRMLS_CC) == SUCCESS) {
                   2340:                return SUCCESS;
                   2341:        }
                   2342: 
                   2343:        if (!strcmp(fname, "[no active file]")) {
                   2344:                if (error) {
                   2345:                        spprintf(error, 0, "cannot initialize a phar outside of PHP execution");
                   2346:                }
                   2347:                return FAILURE;
                   2348:        }
                   2349: 
                   2350:        MAKE_STD_ZVAL(halt_constant);
                   2351: 
                   2352:        if (0 == zend_get_constant("__COMPILER_HALT_OFFSET__", 24, halt_constant TSRMLS_CC)) {
                   2353:                FREE_ZVAL(halt_constant);
                   2354:                if (error) {
                   2355:                        spprintf(error, 0, "__HALT_COMPILER(); must be declared in a phar");
                   2356:                }
                   2357:                return FAILURE;
                   2358:        }
                   2359: 
                   2360:        FREE_ZVAL(halt_constant);
                   2361: 
                   2362: #if PHP_API_VERSION < 20100412
                   2363:        if (PG(safe_mode) && (!php_checkuid(fname, NULL, CHECKUID_ALLOW_ONLY_FILE))) {
                   2364:                return FAILURE;
                   2365:        }
                   2366: #endif
                   2367: 
                   2368:        if (php_check_open_basedir(fname TSRMLS_CC)) {
                   2369:                return FAILURE;
                   2370:        }
                   2371: 
                   2372:        fp = php_stream_open_wrapper(fname, "rb", IGNORE_URL|STREAM_MUST_SEEK|REPORT_ERRORS, &actual);
                   2373: 
                   2374:        if (!fp) {
                   2375:                if (error) {
                   2376:                        spprintf(error, 0, "unable to open phar for reading \"%s\"", fname);
                   2377:                }
                   2378:                if (actual) {
                   2379:                        efree(actual);
                   2380:                }
                   2381:                return FAILURE;
                   2382:        }
                   2383: 
                   2384:        if (actual) {
                   2385:                fname = actual;
                   2386:                fname_len = strlen(actual);
                   2387:        }
                   2388: 
                   2389:        ret = phar_open_from_fp(fp, fname, fname_len, alias, alias_len, REPORT_ERRORS, NULL, 0, error TSRMLS_CC);
                   2390: 
                   2391:        if (actual) {
                   2392:                efree(actual);
                   2393:        }
                   2394: 
                   2395:        return ret;
                   2396: }
                   2397: /* }}} */
                   2398: 
                   2399: /**
                   2400:  * Validate the CRC32 of a file opened from within the phar
                   2401:  */
                   2402: int phar_postprocess_file(phar_entry_data *idata, php_uint32 crc32, char **error, int process_zip TSRMLS_DC) /* {{{ */
                   2403: {
                   2404:        php_uint32 crc = ~0;
                   2405:        int len = idata->internal_file->uncompressed_filesize;
                   2406:        php_stream *fp = idata->fp;
                   2407:        phar_entry_info *entry = idata->internal_file;
                   2408: 
                   2409:        if (error) {
                   2410:                *error = NULL;
                   2411:        }
                   2412: 
                   2413:        if (entry->is_zip && process_zip > 0) {
                   2414:                /* verify local file header */
                   2415:                phar_zip_file_header local;
                   2416:                phar_zip_data_desc desc;
                   2417: 
                   2418:                if (SUCCESS != phar_open_archive_fp(idata->phar TSRMLS_CC)) {
                   2419:                        spprintf(error, 0, "phar error: unable to open zip-based phar archive \"%s\" to verify local file header for file \"%s\"", idata->phar->fname, entry->filename);
                   2420:                        return FAILURE;
                   2421:                }
                   2422:                php_stream_seek(phar_get_entrypfp(idata->internal_file TSRMLS_CC), entry->header_offset, SEEK_SET);
                   2423: 
                   2424:                if (sizeof(local) != php_stream_read(phar_get_entrypfp(idata->internal_file TSRMLS_CC), (char *) &local, sizeof(local))) {
                   2425: 
                   2426:                        spprintf(error, 0, "phar error: internal corruption of zip-based phar \"%s\" (cannot read local file header for file \"%s\")", idata->phar->fname, entry->filename);
                   2427:                        return FAILURE;
                   2428:                }
                   2429: 
                   2430:                /* check for data descriptor */
                   2431:                if (((PHAR_ZIP_16(local.flags)) & 0x8) == 0x8) {
                   2432:                        php_stream_seek(phar_get_entrypfp(idata->internal_file TSRMLS_CC),
                   2433:                                        entry->header_offset + sizeof(local) +
                   2434:                                        PHAR_ZIP_16(local.filename_len) +
                   2435:                                        PHAR_ZIP_16(local.extra_len) +
                   2436:                                        entry->compressed_filesize, SEEK_SET);
                   2437:                        if (sizeof(desc) != php_stream_read(phar_get_entrypfp(idata->internal_file TSRMLS_CC),
                   2438:                                                            (char *) &desc, sizeof(desc))) {
                   2439:                                spprintf(error, 0, "phar error: internal corruption of zip-based phar \"%s\" (cannot read local data descriptor for file \"%s\")", idata->phar->fname, entry->filename);
                   2440:                                return FAILURE;
                   2441:                        }
                   2442:                        if (desc.signature[0] == 'P' && desc.signature[1] == 'K') {
                   2443:                                memcpy(&(local.crc32), &(desc.crc32), 12);
                   2444:                        } else {
                   2445:                                /* old data descriptors have no signature */
                   2446:                                memcpy(&(local.crc32), &desc, 12);
                   2447:                        }
                   2448:                }
                   2449:                /* verify local header */
                   2450:                if (entry->filename_len != PHAR_ZIP_16(local.filename_len) || entry->crc32 != PHAR_ZIP_32(local.crc32) || entry->uncompressed_filesize != PHAR_ZIP_32(local.uncompsize) || entry->compressed_filesize != PHAR_ZIP_32(local.compsize)) {
                   2451:                        spprintf(error, 0, "phar error: internal corruption of zip-based phar \"%s\" (local header of file \"%s\" does not match central directory)", idata->phar->fname, entry->filename);
                   2452:                        return FAILURE;
                   2453:                }
                   2454: 
                   2455:                /* construct actual offset to file start - local extra_len can be different from central extra_len */
                   2456:                entry->offset = entry->offset_abs =
                   2457:                        sizeof(local) + entry->header_offset + PHAR_ZIP_16(local.filename_len) + PHAR_ZIP_16(local.extra_len);
                   2458: 
                   2459:                if (idata->zero && idata->zero != entry->offset_abs) {
                   2460:                        idata->zero = entry->offset_abs;
                   2461:                }
                   2462:        }
                   2463: 
                   2464:        if (process_zip == 1) {
                   2465:                return SUCCESS;
                   2466:        }
                   2467: 
                   2468:        php_stream_seek(fp, idata->zero, SEEK_SET);
                   2469: 
                   2470:        while (len--) {
                   2471:                CRC32(crc, php_stream_getc(fp));
                   2472:        }
                   2473: 
                   2474:        php_stream_seek(fp, idata->zero, SEEK_SET);
                   2475: 
                   2476:        if (~crc == crc32) {
                   2477:                entry->is_crc_checked = 1;
                   2478:                return SUCCESS;
                   2479:        } else {
                   2480:                spprintf(error, 0, "phar error: internal corruption of phar \"%s\" (crc32 mismatch on file \"%s\")", idata->phar->fname, entry->filename);
                   2481:                return FAILURE;
                   2482:        }
                   2483: }
                   2484: /* }}} */
                   2485: 
                   2486: static inline void phar_set_32(char *buffer, int var) /* {{{ */
                   2487: {
                   2488: #ifdef WORDS_BIGENDIAN
                   2489:        *((buffer) + 3) = (unsigned char) (((var) >> 24) & 0xFF);
                   2490:        *((buffer) + 2) = (unsigned char) (((var) >> 16) & 0xFF);
                   2491:        *((buffer) + 1) = (unsigned char) (((var) >> 8) & 0xFF);
                   2492:        *((buffer) + 0) = (unsigned char) ((var) & 0xFF);
                   2493: #else
                   2494:         memcpy(buffer, &var, sizeof(var));
                   2495: #endif
                   2496: } /* }}} */
                   2497: 
                   2498: static int phar_flush_clean_deleted_apply(void *data TSRMLS_DC) /* {{{ */
                   2499: {
                   2500:        phar_entry_info *entry = (phar_entry_info *)data;
                   2501: 
                   2502:        if (entry->fp_refcount <= 0 && entry->is_deleted) {
                   2503:                return ZEND_HASH_APPLY_REMOVE;
                   2504:        } else {
                   2505:                return ZEND_HASH_APPLY_KEEP;
                   2506:        }
                   2507: }
                   2508: /* }}} */
                   2509: 
                   2510: #include "stub.h"
                   2511: 
                   2512: char *phar_create_default_stub(const char *index_php, const char *web_index, size_t *len, char **error TSRMLS_DC) /* {{{ */
                   2513: {
                   2514:        char *stub = NULL;
                   2515:        int index_len, web_len;
                   2516:        size_t dummy;
                   2517: 
                   2518:        if (!len) {
                   2519:                len = &dummy;
                   2520:        }
                   2521: 
                   2522:        if (error) {
                   2523:                *error = NULL;
                   2524:        }
                   2525: 
                   2526:        if (!index_php) {
                   2527:                index_php = "index.php";
                   2528:        }
                   2529: 
                   2530:        if (!web_index) {
                   2531:                web_index = "index.php";
                   2532:        }
                   2533: 
                   2534:        index_len = strlen(index_php);
                   2535:        web_len = strlen(web_index);
                   2536: 
                   2537:        if (index_len > 400) {
                   2538:                /* ridiculous size not allowed for index.php startup filename */
                   2539:                if (error) {
                   2540:                        spprintf(error, 0, "Illegal filename passed in for stub creation, was %d characters long, and only 400 or less is allowed", index_len);
                   2541:                        return NULL;
                   2542:                }
                   2543:        }
                   2544: 
                   2545:        if (web_len > 400) {
                   2546:                /* ridiculous size not allowed for index.php startup filename */
                   2547:                if (error) {
                   2548:                        spprintf(error, 0, "Illegal web filename passed in for stub creation, was %d characters long, and only 400 or less is allowed", web_len);
                   2549:                        return NULL;
                   2550:                }
                   2551:        }
                   2552: 
                   2553:        phar_get_stub(index_php, web_index, len, &stub, index_len+1, web_len+1 TSRMLS_CC);
                   2554:        return stub;
                   2555: }
                   2556: /* }}} */
                   2557: 
                   2558: /**
                   2559:  * Save phar contents to disk
                   2560:  *
                   2561:  * user_stub contains either a string, or a resource pointer, if len is a negative length.
                   2562:  * user_stub and len should be both 0 if the default or existing stub should be used
                   2563:  */
                   2564: int phar_flush(phar_archive_data *phar, char *user_stub, long len, int convert, char **error TSRMLS_DC) /* {{{ */
                   2565: {
                   2566:        char halt_stub[] = "__HALT_COMPILER();";
                   2567:        char *newstub, *tmp;
                   2568:        phar_entry_info *entry, *newentry;
                   2569:        int halt_offset, restore_alias_len, global_flags = 0, closeoldfile;
                   2570:        char *pos, has_dirs = 0;
                   2571:        char manifest[18], entry_buffer[24];
                   2572:        off_t manifest_ftell;
                   2573:        long offset;
                   2574:        size_t wrote;
                   2575:        php_uint32 manifest_len, mytime, loc, new_manifest_count;
                   2576:        php_uint32 newcrc32;
                   2577:        php_stream *file, *oldfile, *newfile, *stubfile;
                   2578:        php_stream_filter *filter;
                   2579:        php_serialize_data_t metadata_hash;
                   2580:        smart_str main_metadata_str = {0};
                   2581:        int free_user_stub, free_fp = 1, free_ufp = 1;
1.1.1.4 ! misho    2582:        int manifest_hack = 0;
1.1       misho    2583: 
                   2584:        if (phar->is_persistent) {
                   2585:                if (error) {
                   2586:                        spprintf(error, 0, "internal error: attempt to flush cached zip-based phar \"%s\"", phar->fname);
                   2587:                }
                   2588:                return EOF;
                   2589:        }
                   2590: 
                   2591:        if (error) {
                   2592:                *error = NULL;
                   2593:        }
                   2594: 
                   2595:        if (!zend_hash_num_elements(&phar->manifest) && !user_stub) {
                   2596:                return EOF;
                   2597:        }
                   2598: 
                   2599:        zend_hash_clean(&phar->virtual_dirs);
                   2600: 
                   2601:        if (phar->is_zip) {
                   2602:                return phar_zip_flush(phar, user_stub, len, convert, error TSRMLS_CC);
                   2603:        }
                   2604: 
                   2605:        if (phar->is_tar) {
                   2606:                return phar_tar_flush(phar, user_stub, len, convert, error TSRMLS_CC);
                   2607:        }
                   2608: 
                   2609:        if (PHAR_G(readonly)) {
                   2610:                return EOF;
                   2611:        }
                   2612: 
                   2613:        if (phar->fp && !phar->is_brandnew) {
                   2614:                oldfile = phar->fp;
                   2615:                closeoldfile = 0;
                   2616:                php_stream_rewind(oldfile);
                   2617:        } else {
                   2618:                oldfile = php_stream_open_wrapper(phar->fname, "rb", 0, NULL);
                   2619:                closeoldfile = oldfile != NULL;
                   2620:        }
                   2621:        newfile = php_stream_fopen_tmpfile();
                   2622:        if (!newfile) {
                   2623:                if (error) {
                   2624:                        spprintf(error, 0, "unable to create temporary file");
                   2625:                }
                   2626:                if (closeoldfile) {
                   2627:                        php_stream_close(oldfile);
                   2628:                }
                   2629:                return EOF;
                   2630:        }
                   2631: 
                   2632:        if (user_stub) {
                   2633:                if (len < 0) {
                   2634:                        /* resource passed in */
                   2635:                        if (!(php_stream_from_zval_no_verify(stubfile, (zval **)user_stub))) {
                   2636:                                if (closeoldfile) {
                   2637:                                        php_stream_close(oldfile);
                   2638:                                }
                   2639:                                php_stream_close(newfile);
                   2640:                                if (error) {
                   2641:                                        spprintf(error, 0, "unable to access resource to copy stub to new phar \"%s\"", phar->fname);
                   2642:                                }
                   2643:                                return EOF;
                   2644:                        }
                   2645:                        if (len == -1) {
                   2646:                                len = PHP_STREAM_COPY_ALL;
                   2647:                        } else {
                   2648:                                len = -len;
                   2649:                        }
                   2650:                        user_stub = 0;
1.1.1.3   misho    2651: 
1.1       misho    2652:                        if (!(len = php_stream_copy_to_mem(stubfile, &user_stub, len, 0)) || !user_stub) {
                   2653:                                if (closeoldfile) {
                   2654:                                        php_stream_close(oldfile);
                   2655:                                }
                   2656:                                php_stream_close(newfile);
                   2657:                                if (error) {
                   2658:                                        spprintf(error, 0, "unable to read resource to copy stub to new phar \"%s\"", phar->fname);
                   2659:                                }
                   2660:                                return EOF;
                   2661:                        }
                   2662:                        free_user_stub = 1;
                   2663:                } else {
                   2664:                        free_user_stub = 0;
                   2665:                }
                   2666:                tmp = estrndup(user_stub, len);
                   2667:                if ((pos = php_stristr(tmp, halt_stub, len, sizeof(halt_stub) - 1)) == NULL) {
                   2668:                        efree(tmp);
                   2669:                        if (closeoldfile) {
                   2670:                                php_stream_close(oldfile);
                   2671:                        }
                   2672:                        php_stream_close(newfile);
                   2673:                        if (error) {
                   2674:                                spprintf(error, 0, "illegal stub for phar \"%s\"", phar->fname);
                   2675:                        }
                   2676:                        if (free_user_stub) {
                   2677:                                efree(user_stub);
                   2678:                        }
                   2679:                        return EOF;
                   2680:                }
                   2681:                pos = user_stub + (pos - tmp);
                   2682:                efree(tmp);
                   2683:                len = pos - user_stub + 18;
                   2684:                if ((size_t)len != php_stream_write(newfile, user_stub, len)
                   2685:                ||                        5 != php_stream_write(newfile, " ?>\r\n", 5)) {
                   2686:                        if (closeoldfile) {
                   2687:                                php_stream_close(oldfile);
                   2688:                        }
                   2689:                        php_stream_close(newfile);
                   2690:                        if (error) {
                   2691:                                spprintf(error, 0, "unable to create stub from string in new phar \"%s\"", phar->fname);
                   2692:                        }
                   2693:                        if (free_user_stub) {
                   2694:                                efree(user_stub);
                   2695:                        }
                   2696:                        return EOF;
                   2697:                }
                   2698:                phar->halt_offset = len + 5;
                   2699:                if (free_user_stub) {
                   2700:                        efree(user_stub);
                   2701:                }
                   2702:        } else {
                   2703:                size_t written;
                   2704: 
                   2705:                if (!user_stub && phar->halt_offset && oldfile && !phar->is_brandnew) {
                   2706:                        phar_stream_copy_to_stream(oldfile, newfile, phar->halt_offset, &written);
                   2707:                        newstub = NULL;
                   2708:                } else {
                   2709:                        /* this is either a brand new phar or a default stub overwrite */
                   2710:                        newstub = phar_create_default_stub(NULL, NULL, &(phar->halt_offset), NULL TSRMLS_CC);
                   2711:                        written = php_stream_write(newfile, newstub, phar->halt_offset);
                   2712:                }
                   2713:                if (phar->halt_offset != written) {
                   2714:                        if (closeoldfile) {
                   2715:                                php_stream_close(oldfile);
                   2716:                        }
                   2717:                        php_stream_close(newfile);
                   2718:                        if (error) {
                   2719:                                if (newstub) {
                   2720:                                        spprintf(error, 0, "unable to create stub in new phar \"%s\"", phar->fname);
                   2721:                                } else {
                   2722:                                        spprintf(error, 0, "unable to copy stub of old phar to new phar \"%s\"", phar->fname);
                   2723:                                }
                   2724:                        }
                   2725:                        if (newstub) {
                   2726:                                efree(newstub);
                   2727:                        }
                   2728:                        return EOF;
                   2729:                }
                   2730:                if (newstub) {
                   2731:                        efree(newstub);
                   2732:                }
                   2733:        }
                   2734:        manifest_ftell = php_stream_tell(newfile);
                   2735:        halt_offset = manifest_ftell;
                   2736: 
                   2737:        /* Check whether we can get rid of some of the deleted entries which are
                   2738:         * unused. However some might still be in use so even after this clean-up
                   2739:         * we need to skip entries marked is_deleted. */
                   2740:        zend_hash_apply(&phar->manifest, phar_flush_clean_deleted_apply TSRMLS_CC);
                   2741: 
                   2742:        /* compress as necessary, calculate crcs, serialize meta-data, manifest size, and file sizes */
                   2743:        main_metadata_str.c = 0;
                   2744:        if (phar->metadata) {
                   2745:                PHP_VAR_SERIALIZE_INIT(metadata_hash);
                   2746:                php_var_serialize(&main_metadata_str, &phar->metadata, &metadata_hash TSRMLS_CC);
                   2747:                PHP_VAR_SERIALIZE_DESTROY(metadata_hash);
                   2748:        } else {
                   2749:                main_metadata_str.len = 0;
                   2750:        }
                   2751:        new_manifest_count = 0;
                   2752:        offset = 0;
                   2753:        for (zend_hash_internal_pointer_reset(&phar->manifest);
                   2754:                zend_hash_has_more_elements(&phar->manifest) == SUCCESS;
                   2755:                zend_hash_move_forward(&phar->manifest)) {
                   2756:                if (zend_hash_get_current_data(&phar->manifest, (void **)&entry) == FAILURE) {
                   2757:                        continue;
                   2758:                }
                   2759:                if (entry->cfp) {
                   2760:                        /* did we forget to get rid of cfp last time? */
                   2761:                        php_stream_close(entry->cfp);
                   2762:                        entry->cfp = 0;
                   2763:                }
                   2764:                if (entry->is_deleted || entry->is_mounted) {
                   2765:                        /* remove this from the new phar */
                   2766:                        continue;
                   2767:                }
                   2768:                if (!entry->is_modified && entry->fp_refcount) {
                   2769:                        /* open file pointers refer to this fp, do not free the stream */
                   2770:                        switch (entry->fp_type) {
                   2771:                                case PHAR_FP:
                   2772:                                        free_fp = 0;
                   2773:                                        break;
                   2774:                                case PHAR_UFP:
                   2775:                                        free_ufp = 0;
                   2776:                                default:
                   2777:                                        break;
                   2778:                        }
                   2779:                }
                   2780:                /* after excluding deleted files, calculate manifest size in bytes and number of entries */
                   2781:                ++new_manifest_count;
                   2782:                phar_add_virtual_dirs(phar, entry->filename, entry->filename_len TSRMLS_CC);
                   2783: 
                   2784:                if (entry->is_dir) {
                   2785:                        /* we use this to calculate API version, 1.1.1 is used for phars with directories */
                   2786:                        has_dirs = 1;
                   2787:                }
                   2788:                if (entry->metadata) {
                   2789:                        if (entry->metadata_str.c) {
                   2790:                                smart_str_free(&entry->metadata_str);
                   2791:                        }
                   2792:                        entry->metadata_str.c = 0;
                   2793:                        entry->metadata_str.len = 0;
                   2794:                        PHP_VAR_SERIALIZE_INIT(metadata_hash);
                   2795:                        php_var_serialize(&entry->metadata_str, &entry->metadata, &metadata_hash TSRMLS_CC);
                   2796:                        PHP_VAR_SERIALIZE_DESTROY(metadata_hash);
                   2797:                } else {
                   2798:                        if (entry->metadata_str.c) {
                   2799:                                smart_str_free(&entry->metadata_str);
                   2800:                        }
                   2801:                        entry->metadata_str.c = 0;
                   2802:                        entry->metadata_str.len = 0;
                   2803:                }
                   2804: 
                   2805:                /* 32 bits for filename length, length of filename, manifest + metadata, and add 1 for trailing / if a directory */
                   2806:                offset += 4 + entry->filename_len + sizeof(entry_buffer) + entry->metadata_str.len + (entry->is_dir ? 1 : 0);
                   2807: 
                   2808:                /* compress and rehash as necessary */
                   2809:                if ((oldfile && !entry->is_modified) || entry->is_dir) {
                   2810:                        if (entry->fp_type == PHAR_UFP) {
                   2811:                                /* reset so we can copy the compressed data over */
                   2812:                                entry->fp_type = PHAR_FP;
                   2813:                        }
                   2814:                        continue;
                   2815:                }
                   2816:                if (!phar_get_efp(entry, 0 TSRMLS_CC)) {
                   2817:                        /* re-open internal file pointer just-in-time */
                   2818:                        newentry = phar_open_jit(phar, entry, error TSRMLS_CC);
                   2819:                        if (!newentry) {
                   2820:                                /* major problem re-opening, so we ignore this file and the error */
                   2821:                                efree(*error);
                   2822:                                *error = NULL;
                   2823:                                continue;
                   2824:                        }
                   2825:                        entry = newentry;
                   2826:                }
                   2827:                file = phar_get_efp(entry, 0 TSRMLS_CC);
                   2828:                if (-1 == phar_seek_efp(entry, 0, SEEK_SET, 0, 1 TSRMLS_CC)) {
                   2829:                        if (closeoldfile) {
                   2830:                                php_stream_close(oldfile);
                   2831:                        }
                   2832:                        php_stream_close(newfile);
                   2833:                        if (error) {
                   2834:                                spprintf(error, 0, "unable to seek to start of file \"%s\" while creating new phar \"%s\"", entry->filename, phar->fname);
                   2835:                        }
                   2836:                        return EOF;
                   2837:                }
                   2838:                newcrc32 = ~0;
                   2839:                mytime = entry->uncompressed_filesize;
                   2840:                for (loc = 0;loc < mytime; ++loc) {
                   2841:                        CRC32(newcrc32, php_stream_getc(file));
                   2842:                }
                   2843:                entry->crc32 = ~newcrc32;
                   2844:                entry->is_crc_checked = 1;
                   2845:                if (!(entry->flags & PHAR_ENT_COMPRESSION_MASK)) {
                   2846:                        /* not compressed */
                   2847:                        entry->compressed_filesize = entry->uncompressed_filesize;
                   2848:                        continue;
                   2849:                }
                   2850:                filter = php_stream_filter_create(phar_compress_filter(entry, 0), NULL, 0 TSRMLS_CC);
                   2851:                if (!filter) {
                   2852:                        if (closeoldfile) {
                   2853:                                php_stream_close(oldfile);
                   2854:                        }
                   2855:                        php_stream_close(newfile);
                   2856:                        if (entry->flags & PHAR_ENT_COMPRESSED_GZ) {
                   2857:                                if (error) {
                   2858:                                        spprintf(error, 0, "unable to gzip compress file \"%s\" to new phar \"%s\"", entry->filename, phar->fname);
                   2859:                                }
                   2860:                        } else {
                   2861:                                if (error) {
                   2862:                                        spprintf(error, 0, "unable to bzip2 compress file \"%s\" to new phar \"%s\"", entry->filename, phar->fname);
                   2863:                                }
                   2864:                        }
                   2865:                        return EOF;
                   2866:                }
                   2867: 
                   2868:                /* create new file that holds the compressed version */
                   2869:                /* work around inability to specify freedom in write and strictness
                   2870:                in read count */
                   2871:                entry->cfp = php_stream_fopen_tmpfile();
                   2872:                if (!entry->cfp) {
                   2873:                        if (error) {
                   2874:                                spprintf(error, 0, "unable to create temporary file");
                   2875:                        }
                   2876:                        if (closeoldfile) {
                   2877:                                php_stream_close(oldfile);
                   2878:                        }
                   2879:                        php_stream_close(newfile);
                   2880:                        return EOF;
                   2881:                }
                   2882:                php_stream_flush(file);
                   2883:                if (-1 == phar_seek_efp(entry, 0, SEEK_SET, 0, 0 TSRMLS_CC)) {
                   2884:                        if (closeoldfile) {
                   2885:                                php_stream_close(oldfile);
                   2886:                        }
                   2887:                        php_stream_close(newfile);
                   2888:                        if (error) {
                   2889:                                spprintf(error, 0, "unable to seek to start of file \"%s\" while creating new phar \"%s\"", entry->filename, phar->fname);
                   2890:                        }
                   2891:                        return EOF;
                   2892:                }
                   2893:                php_stream_filter_append((&entry->cfp->writefilters), filter);
                   2894:                if (SUCCESS != phar_stream_copy_to_stream(file, entry->cfp, entry->uncompressed_filesize, NULL)) {
                   2895:                        if (closeoldfile) {
                   2896:                                php_stream_close(oldfile);
                   2897:                        }
                   2898:                        php_stream_close(newfile);
                   2899:                        if (error) {
                   2900:                                spprintf(error, 0, "unable to copy compressed file contents of file \"%s\" while creating new phar \"%s\"", entry->filename, phar->fname);
                   2901:                        }
                   2902:                        return EOF;
                   2903:                }
                   2904:                php_stream_filter_flush(filter, 1);
                   2905:                php_stream_flush(entry->cfp);
                   2906:                php_stream_filter_remove(filter, 1 TSRMLS_CC);
                   2907:                php_stream_seek(entry->cfp, 0, SEEK_END);
                   2908:                entry->compressed_filesize = (php_uint32) php_stream_tell(entry->cfp);
                   2909:                /* generate crc on compressed file */
                   2910:                php_stream_rewind(entry->cfp);
                   2911:                entry->old_flags = entry->flags;
                   2912:                entry->is_modified = 1;
                   2913:                global_flags |= (entry->flags & PHAR_ENT_COMPRESSION_MASK);
                   2914:        }
                   2915:        global_flags |= PHAR_HDR_SIGNATURE;
                   2916: 
                   2917:        /* write out manifest pre-header */
                   2918:        /*  4: manifest length
                   2919:         *  4: manifest entry count
                   2920:         *  2: phar version
                   2921:         *  4: phar global flags
                   2922:         *  4: alias length
                   2923:         *  ?: the alias itself
                   2924:         *  4: phar metadata length
                   2925:         *  ?: phar metadata
                   2926:         */
                   2927:        restore_alias_len = phar->alias_len;
                   2928:        if (phar->is_temporary_alias) {
                   2929:                phar->alias_len = 0;
                   2930:        }
                   2931: 
                   2932:        manifest_len = offset + phar->alias_len + sizeof(manifest) + main_metadata_str.len;
                   2933:        phar_set_32(manifest, manifest_len);
1.1.1.4 ! misho    2934:        /* Hack - see bug #65028, add padding byte to the end of the manifest */
        !          2935:        if(manifest[0] == '\r' || manifest[0] == '\n') {
        !          2936:                manifest_len++;
        !          2937:                phar_set_32(manifest, manifest_len);
        !          2938:                manifest_hack = 1;
        !          2939:        }
1.1       misho    2940:        phar_set_32(manifest+4, new_manifest_count);
                   2941:        if (has_dirs) {
                   2942:                *(manifest + 8) = (unsigned char) (((PHAR_API_VERSION) >> 8) & 0xFF);
                   2943:                *(manifest + 9) = (unsigned char) (((PHAR_API_VERSION) & 0xF0));
                   2944:        } else {
                   2945:                *(manifest + 8) = (unsigned char) (((PHAR_API_VERSION_NODIR) >> 8) & 0xFF);
                   2946:                *(manifest + 9) = (unsigned char) (((PHAR_API_VERSION_NODIR) & 0xF0));
                   2947:        }
                   2948:        phar_set_32(manifest+10, global_flags);
                   2949:        phar_set_32(manifest+14, phar->alias_len);
                   2950: 
                   2951:        /* write the manifest header */
                   2952:        if (sizeof(manifest) != php_stream_write(newfile, manifest, sizeof(manifest))
                   2953:        || (size_t)phar->alias_len != php_stream_write(newfile, phar->alias, phar->alias_len)) {
                   2954: 
                   2955:                if (closeoldfile) {
                   2956:                        php_stream_close(oldfile);
                   2957:                }
                   2958: 
                   2959:                php_stream_close(newfile);
                   2960:                phar->alias_len = restore_alias_len;
                   2961: 
                   2962:                if (error) {
                   2963:                        spprintf(error, 0, "unable to write manifest header of new phar \"%s\"", phar->fname);
                   2964:                }
                   2965: 
                   2966:                return EOF;
                   2967:        }
                   2968: 
                   2969:        phar->alias_len = restore_alias_len;
                   2970: 
                   2971:        phar_set_32(manifest, main_metadata_str.len);
                   2972:        if (4 != php_stream_write(newfile, manifest, 4) || (main_metadata_str.len
                   2973:        && main_metadata_str.len != php_stream_write(newfile, main_metadata_str.c, main_metadata_str.len))) {
                   2974:                smart_str_free(&main_metadata_str);
                   2975: 
                   2976:                if (closeoldfile) {
                   2977:                        php_stream_close(oldfile);
                   2978:                }
                   2979: 
                   2980:                php_stream_close(newfile);
                   2981:                phar->alias_len = restore_alias_len;
                   2982: 
                   2983:                if (error) {
                   2984:                        spprintf(error, 0, "unable to write manifest meta-data of new phar \"%s\"", phar->fname);
                   2985:                }
                   2986: 
                   2987:                return EOF;
                   2988:        }
                   2989:        smart_str_free(&main_metadata_str);
                   2990: 
                   2991:        /* re-calculate the manifest location to simplify later code */
                   2992:        manifest_ftell = php_stream_tell(newfile);
                   2993: 
                   2994:        /* now write the manifest */
                   2995:        for (zend_hash_internal_pointer_reset(&phar->manifest);
                   2996:                zend_hash_has_more_elements(&phar->manifest) == SUCCESS;
                   2997:                zend_hash_move_forward(&phar->manifest)) {
                   2998: 
                   2999:                if (zend_hash_get_current_data(&phar->manifest, (void **)&entry) == FAILURE) {
                   3000:                        continue;
                   3001:                }
                   3002: 
                   3003:                if (entry->is_deleted || entry->is_mounted) {
                   3004:                        /* remove this from the new phar if deleted, ignore if mounted */
                   3005:                        continue;
                   3006:                }
                   3007: 
                   3008:                if (entry->is_dir) {
                   3009:                        /* add 1 for trailing slash */
                   3010:                        phar_set_32(entry_buffer, entry->filename_len + 1);
                   3011:                } else {
                   3012:                        phar_set_32(entry_buffer, entry->filename_len);
                   3013:                }
                   3014: 
                   3015:                if (4 != php_stream_write(newfile, entry_buffer, 4)
                   3016:                || entry->filename_len != php_stream_write(newfile, entry->filename, entry->filename_len)
                   3017:                || (entry->is_dir && 1 != php_stream_write(newfile, "/", 1))) {
                   3018:                        if (closeoldfile) {
                   3019:                                php_stream_close(oldfile);
                   3020:                        }
                   3021:                        php_stream_close(newfile);
                   3022:                        if (error) {
                   3023:                                if (entry->is_dir) {
                   3024:                                        spprintf(error, 0, "unable to write filename of directory \"%s\" to manifest of new phar \"%s\"", entry->filename, phar->fname);
                   3025:                                } else {
                   3026:                                        spprintf(error, 0, "unable to write filename of file \"%s\" to manifest of new phar \"%s\"", entry->filename, phar->fname);
                   3027:                                }
                   3028:                        }
                   3029:                        return EOF;
                   3030:                }
                   3031: 
                   3032:                /* set the manifest meta-data:
                   3033:                        4: uncompressed filesize
                   3034:                        4: creation timestamp
                   3035:                        4: compressed filesize
                   3036:                        4: crc32
                   3037:                        4: flags
                   3038:                        4: metadata-len
                   3039:                        +: metadata
                   3040:                */
                   3041:                mytime = time(NULL);
                   3042:                phar_set_32(entry_buffer, entry->uncompressed_filesize);
                   3043:                phar_set_32(entry_buffer+4, mytime);
                   3044:                phar_set_32(entry_buffer+8, entry->compressed_filesize);
                   3045:                phar_set_32(entry_buffer+12, entry->crc32);
                   3046:                phar_set_32(entry_buffer+16, entry->flags);
                   3047:                phar_set_32(entry_buffer+20, entry->metadata_str.len);
                   3048: 
                   3049:                if (sizeof(entry_buffer) != php_stream_write(newfile, entry_buffer, sizeof(entry_buffer))
                   3050:                || entry->metadata_str.len != php_stream_write(newfile, entry->metadata_str.c, entry->metadata_str.len)) {
                   3051:                        if (closeoldfile) {
                   3052:                                php_stream_close(oldfile);
                   3053:                        }
                   3054: 
                   3055:                        php_stream_close(newfile);
                   3056: 
                   3057:                        if (error) {
                   3058:                                spprintf(error, 0, "unable to write temporary manifest of file \"%s\" to manifest of new phar \"%s\"", entry->filename, phar->fname);
                   3059:                        }
                   3060: 
                   3061:                        return EOF;
                   3062:                }
                   3063:        }
1.1.1.4 ! misho    3064:        /* Hack - see bug #65028, add padding byte to the end of the manifest */
        !          3065:        if(manifest_hack) {
        !          3066:                if(1 != php_stream_write(newfile, manifest, 1)) {
        !          3067:                        if (closeoldfile) {
        !          3068:                                php_stream_close(oldfile);
        !          3069:                        }
        !          3070: 
        !          3071:                        php_stream_close(newfile);
        !          3072: 
        !          3073:                        if (error) {
        !          3074:                                spprintf(error, 0, "unable to write manifest padding byte");
        !          3075:                        }
        !          3076: 
        !          3077:                        return EOF;
        !          3078:                }
        !          3079:        }
1.1       misho    3080: 
                   3081:        /* now copy the actual file data to the new phar */
                   3082:        offset = php_stream_tell(newfile);
                   3083:        for (zend_hash_internal_pointer_reset(&phar->manifest);
                   3084:                zend_hash_has_more_elements(&phar->manifest) == SUCCESS;
                   3085:                zend_hash_move_forward(&phar->manifest)) {
                   3086: 
                   3087:                if (zend_hash_get_current_data(&phar->manifest, (void **)&entry) == FAILURE) {
                   3088:                        continue;
                   3089:                }
                   3090: 
                   3091:                if (entry->is_deleted || entry->is_dir || entry->is_mounted) {
                   3092:                        continue;
                   3093:                }
                   3094: 
                   3095:                if (entry->cfp) {
                   3096:                        file = entry->cfp;
                   3097:                        php_stream_rewind(file);
                   3098:                } else {
                   3099:                        file = phar_get_efp(entry, 0 TSRMLS_CC);
                   3100:                        if (-1 == phar_seek_efp(entry, 0, SEEK_SET, 0, 0 TSRMLS_CC)) {
                   3101:                                if (closeoldfile) {
                   3102:                                        php_stream_close(oldfile);
                   3103:                                }
                   3104:                                php_stream_close(newfile);
                   3105:                                if (error) {
                   3106:                                        spprintf(error, 0, "unable to seek to start of file \"%s\" while creating new phar \"%s\"", entry->filename, phar->fname);
                   3107:                                }
                   3108:                                return EOF;
                   3109:                        }
                   3110:                }
                   3111: 
                   3112:                if (!file) {
                   3113:                        if (closeoldfile) {
                   3114:                                php_stream_close(oldfile);
                   3115:                        }
                   3116:                        php_stream_close(newfile);
                   3117:                        if (error) {
                   3118:                                spprintf(error, 0, "unable to seek to start of file \"%s\" while creating new phar \"%s\"", entry->filename, phar->fname);
                   3119:                        }
                   3120:                        return EOF;
                   3121:                }
                   3122: 
                   3123:                /* this will have changed for all files that have either changed compression or been modified */
                   3124:                entry->offset = entry->offset_abs = offset;
                   3125:                offset += entry->compressed_filesize;
                   3126:                if (phar_stream_copy_to_stream(file, newfile, entry->compressed_filesize, &wrote) == FAILURE) {
                   3127:                        if (closeoldfile) {
                   3128:                                php_stream_close(oldfile);
                   3129:                        }
                   3130: 
                   3131:                        php_stream_close(newfile);
                   3132: 
                   3133:                        if (error) {
                   3134:                                spprintf(error, 0, "unable to write contents of file \"%s\" to new phar \"%s\"", entry->filename, phar->fname);
                   3135:                        }
                   3136: 
                   3137:                        return EOF;
                   3138:                }
                   3139: 
                   3140:                entry->is_modified = 0;
                   3141: 
                   3142:                if (entry->cfp) {
                   3143:                        php_stream_close(entry->cfp);
                   3144:                        entry->cfp = NULL;
                   3145:                }
                   3146: 
                   3147:                if (entry->fp_type == PHAR_MOD) {
                   3148:                        /* this fp is in use by a phar_entry_data returned by phar_get_entry_data, it will be closed when the phar_entry_data is phar_entry_delref'ed */
                   3149:                        if (entry->fp_refcount == 0 && entry->fp != phar->fp && entry->fp != phar->ufp) {
                   3150:                                php_stream_close(entry->fp);
                   3151:                        }
                   3152: 
                   3153:                        entry->fp = NULL;
                   3154:                        entry->fp_type = PHAR_FP;
                   3155:                } else if (entry->fp_type == PHAR_UFP) {
                   3156:                        entry->fp_type = PHAR_FP;
                   3157:                }
                   3158:        }
                   3159: 
                   3160:        /* append signature */
                   3161:        if (global_flags & PHAR_HDR_SIGNATURE) {
                   3162:                char sig_buf[4];
                   3163: 
                   3164:                php_stream_rewind(newfile);
                   3165: 
                   3166:                if (phar->signature) {
                   3167:                        efree(phar->signature);
                   3168:                        phar->signature = NULL;
                   3169:                }
                   3170: 
                   3171:                switch(phar->sig_flags) {
                   3172: #ifndef PHAR_HASH_OK
                   3173:                        case PHAR_SIG_SHA512:
                   3174:                        case PHAR_SIG_SHA256:
                   3175:                                if (closeoldfile) {
                   3176:                                        php_stream_close(oldfile);
                   3177:                                }
                   3178:                                php_stream_close(newfile);
                   3179:                                if (error) {
                   3180:                                        spprintf(error, 0, "unable to write contents of file \"%s\" to new phar \"%s\" with requested hash type", entry->filename, phar->fname);
                   3181:                                }
                   3182:                                return EOF;
                   3183: #endif
                   3184:                        default: {
                   3185:                                char *digest = NULL;
                   3186:                                int digest_len;
                   3187: 
                   3188:                                if (FAILURE == phar_create_signature(phar, newfile, &digest, &digest_len, error TSRMLS_CC)) {
                   3189:                                        if (error) {
                   3190:                                                char *save = *error;
                   3191:                                                spprintf(error, 0, "phar error: unable to write signature: %s", save);
                   3192:                                                efree(save);
                   3193:                                        }
                   3194:                                        if (digest) {
                   3195:                                                efree(digest);
                   3196:                                        }
                   3197:                                        if (closeoldfile) {
                   3198:                                                php_stream_close(oldfile);
                   3199:                                        }
                   3200:                                        php_stream_close(newfile);
                   3201:                                        return EOF;
                   3202:                                }
                   3203: 
                   3204:                                php_stream_write(newfile, digest, digest_len);
                   3205:                                efree(digest);
                   3206:                                if (phar->sig_flags == PHAR_SIG_OPENSSL) {
                   3207:                                        phar_set_32(sig_buf, digest_len);
                   3208:                                        php_stream_write(newfile, sig_buf, 4);
                   3209:                                }
                   3210:                                break;
                   3211:                        }
                   3212:                }
                   3213:                phar_set_32(sig_buf, phar->sig_flags);
                   3214:                php_stream_write(newfile, sig_buf, 4);
                   3215:                php_stream_write(newfile, "GBMB", 4);
                   3216:        }
                   3217: 
                   3218:        /* finally, close the temp file, rename the original phar,
                   3219:           move the temp to the old phar, unlink the old phar, and reload it into memory
                   3220:        */
                   3221:        if (phar->fp && free_fp) {
                   3222:                php_stream_close(phar->fp);
                   3223:        }
                   3224: 
                   3225:        if (phar->ufp) {
                   3226:                if (free_ufp) {
                   3227:                        php_stream_close(phar->ufp);
                   3228:                }
                   3229:                phar->ufp = NULL;
                   3230:        }
                   3231: 
                   3232:        if (closeoldfile) {
                   3233:                php_stream_close(oldfile);
                   3234:        }
                   3235: 
                   3236:        phar->internal_file_start = halt_offset + manifest_len + 4;
                   3237:        phar->halt_offset = halt_offset;
                   3238:        phar->is_brandnew = 0;
                   3239: 
                   3240:        php_stream_rewind(newfile);
                   3241: 
                   3242:        if (phar->donotflush) {
                   3243:                /* deferred flush */
                   3244:                phar->fp = newfile;
                   3245:        } else {
                   3246:                phar->fp = php_stream_open_wrapper(phar->fname, "w+b", IGNORE_URL|STREAM_MUST_SEEK|REPORT_ERRORS, NULL);
                   3247:                if (!phar->fp) {
                   3248:                        phar->fp = newfile;
                   3249:                        if (error) {
                   3250:                                spprintf(error, 4096, "unable to open new phar \"%s\" for writing", phar->fname);
                   3251:                        }
                   3252:                        return EOF;
                   3253:                }
                   3254: 
                   3255:                if (phar->flags & PHAR_FILE_COMPRESSED_GZ) {
                   3256:                        /* to properly compress, we have to tell zlib to add a zlib header */
                   3257:                        zval filterparams;
                   3258: 
                   3259:                        array_init(&filterparams);
                   3260:                        add_assoc_long(&filterparams, "window", MAX_WBITS+16);
                   3261:                        filter = php_stream_filter_create("zlib.deflate", &filterparams, php_stream_is_persistent(phar->fp) TSRMLS_CC);
                   3262:                        zval_dtor(&filterparams);
                   3263: 
                   3264:                        if (!filter) {
                   3265:                                if (error) {
                   3266:                                        spprintf(error, 4096, "unable to compress all contents of phar \"%s\" using zlib, PHP versions older than 5.2.6 have a buggy zlib", phar->fname);
                   3267:                                }
                   3268:                                return EOF;
                   3269:                        }
                   3270: 
                   3271:                        php_stream_filter_append(&phar->fp->writefilters, filter);
                   3272:                        phar_stream_copy_to_stream(newfile, phar->fp, PHP_STREAM_COPY_ALL, NULL);
                   3273:                        php_stream_filter_flush(filter, 1);
                   3274:                        php_stream_filter_remove(filter, 1 TSRMLS_CC);
                   3275:                        php_stream_close(phar->fp);
                   3276:                        /* use the temp stream as our base */
                   3277:                        phar->fp = newfile;
                   3278:                } else if (phar->flags & PHAR_FILE_COMPRESSED_BZ2) {
                   3279:                        filter = php_stream_filter_create("bzip2.compress", NULL, php_stream_is_persistent(phar->fp) TSRMLS_CC);
                   3280:                        php_stream_filter_append(&phar->fp->writefilters, filter);
                   3281:                        phar_stream_copy_to_stream(newfile, phar->fp, PHP_STREAM_COPY_ALL, NULL);
                   3282:                        php_stream_filter_flush(filter, 1);
                   3283:                        php_stream_filter_remove(filter, 1 TSRMLS_CC);
                   3284:                        php_stream_close(phar->fp);
                   3285:                        /* use the temp stream as our base */
                   3286:                        phar->fp = newfile;
                   3287:                } else {
                   3288:                        phar_stream_copy_to_stream(newfile, phar->fp, PHP_STREAM_COPY_ALL, NULL);
                   3289:                        /* we could also reopen the file in "rb" mode but there is no need for that */
                   3290:                        php_stream_close(newfile);
                   3291:                }
                   3292:        }
                   3293: 
                   3294:        if (-1 == php_stream_seek(phar->fp, phar->halt_offset, SEEK_SET)) {
                   3295:                if (error) {
                   3296:                        spprintf(error, 0, "unable to seek to __HALT_COMPILER(); in new phar \"%s\"", phar->fname);
                   3297:                }
                   3298:                return EOF;
                   3299:        }
                   3300: 
                   3301:        return EOF;
                   3302: }
                   3303: /* }}} */
                   3304: 
                   3305: #ifdef COMPILE_DL_PHAR
                   3306: ZEND_GET_MODULE(phar)
                   3307: #endif
                   3308: 
                   3309: /* {{{ phar_functions[]
                   3310:  *
                   3311:  * Every user visible function must have an entry in phar_functions[].
                   3312:  */
                   3313: zend_function_entry phar_functions[] = {
                   3314:        PHP_FE_END
                   3315: };
                   3316: /* }}}*/
                   3317: 
                   3318: static size_t phar_zend_stream_reader(void *handle, char *buf, size_t len TSRMLS_DC) /* {{{ */
                   3319: {
                   3320:        return php_stream_read(phar_get_pharfp((phar_archive_data*)handle TSRMLS_CC), buf, len);
                   3321: }
                   3322: /* }}} */
                   3323: 
                   3324: #if PHP_VERSION_ID >= 50300
                   3325: static size_t phar_zend_stream_fsizer(void *handle TSRMLS_DC) /* {{{ */
                   3326: {
                   3327:        return ((phar_archive_data*)handle)->halt_offset + 32;
                   3328: } /* }}} */
                   3329: 
                   3330: #else /* PHP_VERSION_ID */
                   3331: 
                   3332: static long phar_stream_fteller_for_zend(void *handle TSRMLS_DC) /* {{{ */
                   3333: {
                   3334:        return (long)php_stream_tell(phar_get_pharfp((phar_archive_data*)handle TSRMLS_CC));
                   3335: }
                   3336: /* }}} */
                   3337: #endif
                   3338: 
                   3339: zend_op_array *(*phar_orig_compile_file)(zend_file_handle *file_handle, int type TSRMLS_DC);
                   3340: #if PHP_VERSION_ID >= 50300
                   3341: #define phar_orig_zend_open zend_stream_open_function
                   3342: static char *phar_resolve_path(const char *filename, int filename_len TSRMLS_DC)
                   3343: {
                   3344:        return phar_find_in_include_path((char *) filename, filename_len, NULL TSRMLS_CC);
                   3345: }
                   3346: #else
                   3347: int (*phar_orig_zend_open)(const char *filename, zend_file_handle *handle TSRMLS_DC);
                   3348: #endif
                   3349: 
                   3350: static zend_op_array *phar_compile_file(zend_file_handle *file_handle, int type TSRMLS_DC) /* {{{ */
                   3351: {
                   3352:        zend_op_array *res;
                   3353:        char *name = NULL;
                   3354:        int failed;
                   3355:        phar_archive_data *phar;
                   3356: 
                   3357:        if (!file_handle || !file_handle->filename) {
                   3358:                return phar_orig_compile_file(file_handle, type TSRMLS_CC);
                   3359:        }
                   3360:        if (strstr(file_handle->filename, ".phar") && !strstr(file_handle->filename, "://")) {
1.1.1.2   misho    3361:                if (SUCCESS == phar_open_from_filename((char*)file_handle->filename, strlen(file_handle->filename), NULL, 0, 0, &phar, NULL TSRMLS_CC)) {
1.1       misho    3362:                        if (phar->is_zip || phar->is_tar) {
                   3363:                                zend_file_handle f = *file_handle;
                   3364: 
                   3365:                                /* zip or tar-based phar */
                   3366:                                spprintf(&name, 4096, "phar://%s/%s", file_handle->filename, ".phar/stub.php");
                   3367:                                if (SUCCESS == phar_orig_zend_open((const char *)name, file_handle TSRMLS_CC)) {
                   3368:                                        efree(name);
                   3369:                                        name = NULL;
                   3370:                                        file_handle->filename = f.filename;
                   3371:                                        if (file_handle->opened_path) {
                   3372:                                                efree(file_handle->opened_path);
                   3373:                                        }
                   3374:                                        file_handle->opened_path = f.opened_path;
                   3375:                                        file_handle->free_filename = f.free_filename;
                   3376:                                } else {
                   3377:                                        *file_handle = f;
                   3378:                                }
                   3379:                        } else if (phar->flags & PHAR_FILE_COMPRESSION_MASK) {
                   3380:                                /* compressed phar */
                   3381: #if PHP_VERSION_ID >= 50300
                   3382:                                file_handle->type = ZEND_HANDLE_STREAM;
                   3383:                                /* we do our own reading directly from the phar, don't change the next line */
                   3384:                                file_handle->handle.stream.handle  = phar;
                   3385:                                file_handle->handle.stream.reader  = phar_zend_stream_reader;
                   3386:                                file_handle->handle.stream.closer  = NULL;
                   3387:                                file_handle->handle.stream.fsizer  = phar_zend_stream_fsizer;
                   3388:                                file_handle->handle.stream.isatty  = 0;
                   3389:                                phar->is_persistent ?
                   3390:                                        php_stream_rewind(PHAR_GLOBALS->cached_fp[phar->phar_pos].fp) :
                   3391:                                        php_stream_rewind(phar->fp);
                   3392:                                memset(&file_handle->handle.stream.mmap, 0, sizeof(file_handle->handle.stream.mmap));
                   3393: #else /* PHP_VERSION_ID */
                   3394:                                file_handle->type = ZEND_HANDLE_STREAM;
                   3395:                                /* we do our own reading directly from the phar, don't change the next line */
                   3396:                                file_handle->handle.stream.handle = phar;
                   3397:                                file_handle->handle.stream.reader = phar_zend_stream_reader;
                   3398:                                file_handle->handle.stream.closer = NULL; /* don't close - let phar handle this one */
                   3399:                                file_handle->handle.stream.fteller = phar_stream_fteller_for_zend;
                   3400:                                file_handle->handle.stream.interactive = 0;
                   3401:                                phar->is_persistent ?
                   3402:                                        php_stream_rewind(PHAR_GLOBALS->cached_fp[phar->phar_pos].fp) :
                   3403:                                        php_stream_rewind(phar->fp);
                   3404: #endif
                   3405:                        }
                   3406:                }
                   3407:        }
                   3408: 
                   3409:        zend_try {
                   3410:                failed = 0;
                   3411:                res = phar_orig_compile_file(file_handle, type TSRMLS_CC);
                   3412:        } zend_catch {
                   3413:                failed = 1;
                   3414:                res = NULL;
                   3415:        } zend_end_try();
                   3416: 
                   3417:        if (name) {
                   3418:                efree(name);
                   3419:        }
                   3420: 
                   3421:        if (failed) {
                   3422:                zend_bailout();
                   3423:        }
                   3424: 
                   3425:        return res;
                   3426: }
                   3427: /* }}} */
                   3428: 
                   3429: #if PHP_VERSION_ID < 50300
                   3430: int phar_zend_open(const char *filename, zend_file_handle *handle TSRMLS_DC) /* {{{ */
                   3431: {
                   3432:        char *arch, *entry;
                   3433:        int arch_len, entry_len;
                   3434: 
                   3435:        /* this code is obsoleted in php 5.3 */
                   3436:        entry = (char *) filename;
                   3437:        if (!IS_ABSOLUTE_PATH(entry, strlen(entry)) && !strstr(entry, "://")) {
                   3438:                phar_archive_data **pphar = NULL;
                   3439:                char *fname;
                   3440:                int fname_len;
                   3441: 
1.1.1.2   misho    3442:                fname = (char*)zend_get_executed_filename(TSRMLS_C);
1.1       misho    3443:                fname_len = strlen(fname);
                   3444: 
                   3445:                if (fname_len > 7 && !strncasecmp(fname, "phar://", 7)) {
                   3446:                        if (SUCCESS == phar_split_fname(fname, fname_len, &arch, &arch_len, &entry, &entry_len, 1, 0 TSRMLS_CC)) {
                   3447:                                zend_hash_find(&(PHAR_GLOBALS->phar_fname_map), arch, arch_len, (void **) &pphar);
                   3448:                                if (!pphar && PHAR_G(manifest_cached)) {
                   3449:                                        zend_hash_find(&cached_phars, arch, arch_len, (void **) &pphar);
                   3450:                                }
                   3451:                                efree(arch);
                   3452:                                efree(entry);
                   3453:                        }
                   3454:                }
                   3455: 
                   3456:                /* retrieving an include within the current directory, so use this if possible */
                   3457:                if (!(entry = phar_find_in_include_path((char *) filename, strlen(filename), NULL TSRMLS_CC))) {
                   3458:                        /* this file is not in the phar, use the original path */
                   3459:                        goto skip_phar;
                   3460:                }
                   3461: 
                   3462:                if (SUCCESS == phar_orig_zend_open(entry, handle TSRMLS_CC)) {
                   3463:                        if (!handle->opened_path) {
                   3464:                                handle->opened_path = entry;
                   3465:                        }
                   3466:                        if (entry != filename) {
                   3467:                                handle->free_filename = 1;
                   3468:                        }
                   3469:                        return SUCCESS;
                   3470:                }
                   3471: 
                   3472:                if (entry != filename) {
                   3473:                        efree(entry);
                   3474:                }
                   3475: 
                   3476:                return FAILURE;
                   3477:        }
                   3478: skip_phar:
                   3479:        return phar_orig_zend_open(filename, handle TSRMLS_CC);
                   3480: }
                   3481: /* }}} */
                   3482: #endif
                   3483: typedef zend_op_array* (zend_compile_t)(zend_file_handle*, int TSRMLS_DC);
                   3484: typedef zend_compile_t* (compile_hook)(zend_compile_t *ptr);
                   3485: 
                   3486: PHP_GINIT_FUNCTION(phar) /* {{{ */
                   3487: {
                   3488:        phar_mime_type mime;
                   3489: 
                   3490:        memset(phar_globals, 0, sizeof(zend_phar_globals));
                   3491:        phar_globals->readonly = 1;
                   3492: 
                   3493:        zend_hash_init(&phar_globals->mime_types, 0, NULL, NULL, 1);
                   3494: 
                   3495: #define PHAR_SET_MIME(mimetype, ret, fileext) \
                   3496:                mime.mime = mimetype; \
                   3497:                mime.len = sizeof((mimetype))+1; \
                   3498:                mime.type = ret; \
                   3499:                zend_hash_add(&phar_globals->mime_types, fileext, sizeof(fileext)-1, (void *)&mime, sizeof(phar_mime_type), NULL); \
                   3500: 
                   3501:        PHAR_SET_MIME("text/html", PHAR_MIME_PHPS, "phps")
                   3502:        PHAR_SET_MIME("text/plain", PHAR_MIME_OTHER, "c")
                   3503:        PHAR_SET_MIME("text/plain", PHAR_MIME_OTHER, "cc")
                   3504:        PHAR_SET_MIME("text/plain", PHAR_MIME_OTHER, "cpp")
                   3505:        PHAR_SET_MIME("text/plain", PHAR_MIME_OTHER, "c++")
                   3506:        PHAR_SET_MIME("text/plain", PHAR_MIME_OTHER, "dtd")
                   3507:        PHAR_SET_MIME("text/plain", PHAR_MIME_OTHER, "h")
                   3508:        PHAR_SET_MIME("text/plain", PHAR_MIME_OTHER, "log")
                   3509:        PHAR_SET_MIME("text/plain", PHAR_MIME_OTHER, "rng")
                   3510:        PHAR_SET_MIME("text/plain", PHAR_MIME_OTHER, "txt")
                   3511:        PHAR_SET_MIME("text/plain", PHAR_MIME_OTHER, "xsd")
                   3512:        PHAR_SET_MIME("", PHAR_MIME_PHP, "php")
                   3513:        PHAR_SET_MIME("", PHAR_MIME_PHP, "inc")
                   3514:        PHAR_SET_MIME("video/avi", PHAR_MIME_OTHER, "avi")
                   3515:        PHAR_SET_MIME("image/bmp", PHAR_MIME_OTHER, "bmp")
                   3516:        PHAR_SET_MIME("text/css", PHAR_MIME_OTHER, "css")
                   3517:        PHAR_SET_MIME("image/gif", PHAR_MIME_OTHER, "gif")
                   3518:        PHAR_SET_MIME("text/html", PHAR_MIME_OTHER, "htm")
                   3519:        PHAR_SET_MIME("text/html", PHAR_MIME_OTHER, "html")
                   3520:        PHAR_SET_MIME("text/html", PHAR_MIME_OTHER, "htmls")
                   3521:        PHAR_SET_MIME("image/x-ico", PHAR_MIME_OTHER, "ico")
                   3522:        PHAR_SET_MIME("image/jpeg", PHAR_MIME_OTHER, "jpe")
                   3523:        PHAR_SET_MIME("image/jpeg", PHAR_MIME_OTHER, "jpg")
                   3524:        PHAR_SET_MIME("image/jpeg", PHAR_MIME_OTHER, "jpeg")
                   3525:        PHAR_SET_MIME("application/x-javascript", PHAR_MIME_OTHER, "js")
                   3526:        PHAR_SET_MIME("audio/midi", PHAR_MIME_OTHER, "midi")
                   3527:        PHAR_SET_MIME("audio/midi", PHAR_MIME_OTHER, "mid")
                   3528:        PHAR_SET_MIME("audio/mod", PHAR_MIME_OTHER, "mod")
                   3529:        PHAR_SET_MIME("movie/quicktime", PHAR_MIME_OTHER, "mov")
                   3530:        PHAR_SET_MIME("audio/mp3", PHAR_MIME_OTHER, "mp3")
                   3531:        PHAR_SET_MIME("video/mpeg", PHAR_MIME_OTHER, "mpg")
                   3532:        PHAR_SET_MIME("video/mpeg", PHAR_MIME_OTHER, "mpeg")
                   3533:        PHAR_SET_MIME("application/pdf", PHAR_MIME_OTHER, "pdf")
                   3534:        PHAR_SET_MIME("image/png", PHAR_MIME_OTHER, "png")
                   3535:        PHAR_SET_MIME("application/shockwave-flash", PHAR_MIME_OTHER, "swf")
                   3536:        PHAR_SET_MIME("image/tiff", PHAR_MIME_OTHER, "tif")
                   3537:        PHAR_SET_MIME("image/tiff", PHAR_MIME_OTHER, "tiff")
                   3538:        PHAR_SET_MIME("audio/wav", PHAR_MIME_OTHER, "wav")
                   3539:        PHAR_SET_MIME("image/xbm", PHAR_MIME_OTHER, "xbm")
                   3540:        PHAR_SET_MIME("text/xml", PHAR_MIME_OTHER, "xml")
                   3541: 
                   3542:        phar_restore_orig_functions(TSRMLS_C);
                   3543: }
                   3544: /* }}} */
                   3545: 
                   3546: PHP_GSHUTDOWN_FUNCTION(phar) /* {{{ */
                   3547: {
                   3548:        zend_hash_destroy(&phar_globals->mime_types);
                   3549: }
                   3550: /* }}} */
                   3551: 
                   3552: PHP_MINIT_FUNCTION(phar) /* {{{ */
                   3553: {
                   3554:        REGISTER_INI_ENTRIES();
                   3555: 
                   3556:        phar_orig_compile_file = zend_compile_file;
                   3557:        zend_compile_file = phar_compile_file;
                   3558: 
                   3559: #if PHP_VERSION_ID >= 50300
                   3560:        phar_save_resolve_path = zend_resolve_path;
                   3561:        zend_resolve_path = phar_resolve_path;
                   3562: #else
                   3563:        phar_orig_zend_open = zend_stream_open_function;
                   3564:        zend_stream_open_function = phar_zend_open;
                   3565: #endif
                   3566: 
                   3567:        phar_object_init(TSRMLS_C);
                   3568: 
                   3569:        phar_intercept_functions_init(TSRMLS_C);
                   3570:        phar_save_orig_functions(TSRMLS_C);
                   3571: 
                   3572:        return php_register_url_stream_wrapper("phar", &php_stream_phar_wrapper TSRMLS_CC);
                   3573: }
                   3574: /* }}} */
                   3575: 
                   3576: PHP_MSHUTDOWN_FUNCTION(phar) /* {{{ */
                   3577: {
                   3578:        php_unregister_url_stream_wrapper("phar" TSRMLS_CC);
                   3579: 
                   3580:        phar_intercept_functions_shutdown(TSRMLS_C);
                   3581: 
                   3582:        if (zend_compile_file == phar_compile_file) {
                   3583:                zend_compile_file = phar_orig_compile_file;
                   3584:        }
                   3585: 
                   3586: #if PHP_VERSION_ID < 50300
                   3587:        if (zend_stream_open_function == phar_zend_open) {
                   3588:                zend_stream_open_function = phar_orig_zend_open;
                   3589:        }
                   3590: #endif
                   3591:        if (PHAR_G(manifest_cached)) {
                   3592:                zend_hash_destroy(&(cached_phars));
                   3593:                zend_hash_destroy(&(cached_alias));
                   3594:        }
                   3595: 
                   3596:        return SUCCESS;
                   3597: }
                   3598: /* }}} */
                   3599: 
                   3600: void phar_request_initialize(TSRMLS_D) /* {{{ */
                   3601: {
                   3602:        if (!PHAR_GLOBALS->request_init)
                   3603:        {
                   3604:                PHAR_G(last_phar) = NULL;
                   3605:                PHAR_G(last_phar_name) = PHAR_G(last_alias) = NULL;
                   3606:                PHAR_G(has_bz2) = zend_hash_exists(&module_registry, "bz2", sizeof("bz2"));
                   3607:                PHAR_G(has_zlib) = zend_hash_exists(&module_registry, "zlib", sizeof("zlib"));
                   3608:                PHAR_GLOBALS->request_init = 1;
                   3609:                PHAR_GLOBALS->request_ends = 0;
                   3610:                PHAR_GLOBALS->request_done = 0;
                   3611:                zend_hash_init(&(PHAR_GLOBALS->phar_fname_map), 5, zend_get_hash_value, destroy_phar_data,  0);
                   3612:                zend_hash_init(&(PHAR_GLOBALS->phar_persist_map), 5, zend_get_hash_value, NULL,  0);
                   3613:                zend_hash_init(&(PHAR_GLOBALS->phar_alias_map), 5, zend_get_hash_value, NULL, 0);
                   3614: 
                   3615:                if (PHAR_G(manifest_cached)) {
                   3616:                        phar_archive_data **pphar;
                   3617:                        phar_entry_fp *stuff = (phar_entry_fp *) ecalloc(zend_hash_num_elements(&cached_phars), sizeof(phar_entry_fp));
                   3618: 
                   3619:                        for (zend_hash_internal_pointer_reset(&cached_phars);
                   3620:                        zend_hash_get_current_data(&cached_phars, (void **)&pphar) == SUCCESS;
                   3621:                        zend_hash_move_forward(&cached_phars)) {
                   3622:                                stuff[pphar[0]->phar_pos].manifest = (phar_entry_fp_info *) ecalloc( zend_hash_num_elements(&(pphar[0]->manifest)), sizeof(phar_entry_fp_info));
                   3623:                        }
                   3624: 
                   3625:                        PHAR_GLOBALS->cached_fp = stuff;
                   3626:                }
                   3627: 
                   3628:                PHAR_GLOBALS->phar_SERVER_mung_list = 0;
                   3629:                PHAR_G(cwd) = NULL;
                   3630:                PHAR_G(cwd_len) = 0;
                   3631:                PHAR_G(cwd_init) = 0;
                   3632:        }
                   3633: }
                   3634: /* }}} */
                   3635: 
                   3636: PHP_RSHUTDOWN_FUNCTION(phar) /* {{{ */
                   3637: {
                   3638:        int i;
                   3639: 
                   3640:        PHAR_GLOBALS->request_ends = 1;
                   3641: 
                   3642:        if (PHAR_GLOBALS->request_init)
                   3643:        {
                   3644:                phar_release_functions(TSRMLS_C);
                   3645:                zend_hash_destroy(&(PHAR_GLOBALS->phar_alias_map));
                   3646:                PHAR_GLOBALS->phar_alias_map.arBuckets = NULL;
                   3647:                zend_hash_destroy(&(PHAR_GLOBALS->phar_fname_map));
                   3648:                PHAR_GLOBALS->phar_fname_map.arBuckets = NULL;
                   3649:                zend_hash_destroy(&(PHAR_GLOBALS->phar_persist_map));
                   3650:                PHAR_GLOBALS->phar_persist_map.arBuckets = NULL;
                   3651:                PHAR_GLOBALS->phar_SERVER_mung_list = 0;
                   3652: 
                   3653:                if (PHAR_GLOBALS->cached_fp) {
                   3654:                        for (i = 0; i < zend_hash_num_elements(&cached_phars); ++i) {
                   3655:                                if (PHAR_GLOBALS->cached_fp[i].fp) {
                   3656:                                        php_stream_close(PHAR_GLOBALS->cached_fp[i].fp);
                   3657:                                }
                   3658:                                if (PHAR_GLOBALS->cached_fp[i].ufp) {
                   3659:                                        php_stream_close(PHAR_GLOBALS->cached_fp[i].ufp);
                   3660:                                }
                   3661:                                efree(PHAR_GLOBALS->cached_fp[i].manifest);
                   3662:                        }
                   3663:                        efree(PHAR_GLOBALS->cached_fp);
                   3664:                        PHAR_GLOBALS->cached_fp = 0;
                   3665:                }
                   3666: 
                   3667:                PHAR_GLOBALS->request_init = 0;
                   3668: 
                   3669:                if (PHAR_G(cwd)) {
                   3670:                        efree(PHAR_G(cwd));
                   3671:                }
                   3672: 
                   3673:                PHAR_G(cwd) = NULL;
                   3674:                PHAR_G(cwd_len) = 0;
                   3675:                PHAR_G(cwd_init) = 0;
                   3676:        }
                   3677: 
                   3678:        PHAR_GLOBALS->request_done = 1;
                   3679:        return SUCCESS;
                   3680: }
                   3681: /* }}} */
                   3682: 
                   3683: PHP_MINFO_FUNCTION(phar) /* {{{ */
                   3684: {
                   3685:        phar_request_initialize(TSRMLS_C);
                   3686:        php_info_print_table_start();
                   3687:        php_info_print_table_header(2, "Phar: PHP Archive support", "enabled");
                   3688:        php_info_print_table_row(2, "Phar EXT version", PHP_PHAR_VERSION);
                   3689:        php_info_print_table_row(2, "Phar API version", PHP_PHAR_API_VERSION);
1.1.1.4 ! misho    3690:        php_info_print_table_row(2, "SVN revision", "$Id: c85687ef5cec51a63c41cffb9ec3972cb8c3f7f3 $");
1.1       misho    3691:        php_info_print_table_row(2, "Phar-based phar archives", "enabled");
                   3692:        php_info_print_table_row(2, "Tar-based phar archives", "enabled");
                   3693:        php_info_print_table_row(2, "ZIP-based phar archives", "enabled");
                   3694: 
                   3695:        if (PHAR_G(has_zlib)) {
                   3696:                php_info_print_table_row(2, "gzip compression", "enabled");
                   3697:        } else {
                   3698:                php_info_print_table_row(2, "gzip compression", "disabled (install ext/zlib)");
                   3699:        }
                   3700: 
                   3701:        if (PHAR_G(has_bz2)) {
                   3702:                php_info_print_table_row(2, "bzip2 compression", "enabled");
                   3703:        } else {
                   3704:                php_info_print_table_row(2, "bzip2 compression", "disabled (install pecl/bz2)");
                   3705:        }
                   3706: #ifdef PHAR_HAVE_OPENSSL
                   3707:        php_info_print_table_row(2, "Native OpenSSL support", "enabled");
                   3708: #else
                   3709:        if (zend_hash_exists(&module_registry, "openssl", sizeof("openssl"))) {
                   3710:                php_info_print_table_row(2, "OpenSSL support", "enabled");
                   3711:        } else {
                   3712:                php_info_print_table_row(2, "OpenSSL support", "disabled (install ext/openssl)");
                   3713:        }
                   3714: #endif
                   3715:        php_info_print_table_end();
                   3716: 
                   3717:        php_info_print_box_start(0);
                   3718:        PUTS("Phar based on pear/PHP_Archive, original concept by Davey Shafik.");
                   3719:        PUTS(!sapi_module.phpinfo_as_text?"<br />":"\n");
                   3720:        PUTS("Phar fully realized by Gregory Beaver and Marcus Boerger.");
                   3721:        PUTS(!sapi_module.phpinfo_as_text?"<br />":"\n");
                   3722:        PUTS("Portions of tar implementation Copyright (c) 2003-2009 Tim Kientzle.");
                   3723:        php_info_print_box_end();
                   3724: 
                   3725:        DISPLAY_INI_ENTRIES();
                   3726: }
                   3727: /* }}} */
                   3728: 
                   3729: /* {{{ phar_module_entry
                   3730:  */
                   3731: static const zend_module_dep phar_deps[] = {
                   3732:        ZEND_MOD_OPTIONAL("apc")
                   3733:        ZEND_MOD_OPTIONAL("bz2")
                   3734:        ZEND_MOD_OPTIONAL("openssl")
                   3735:        ZEND_MOD_OPTIONAL("zlib")
                   3736:        ZEND_MOD_OPTIONAL("standard")
                   3737: #if defined(HAVE_HASH) && !defined(COMPILE_DL_HASH)
                   3738:        ZEND_MOD_REQUIRED("hash")
                   3739: #endif
                   3740: #if HAVE_SPL
                   3741:        ZEND_MOD_REQUIRED("spl")
                   3742: #endif
                   3743:        ZEND_MOD_END
                   3744: };
                   3745: 
                   3746: zend_module_entry phar_module_entry = {
                   3747:        STANDARD_MODULE_HEADER_EX, NULL,
                   3748:        phar_deps,
                   3749:        "Phar",
                   3750:        phar_functions,
                   3751:        PHP_MINIT(phar),
                   3752:        PHP_MSHUTDOWN(phar),
                   3753:        NULL,
                   3754:        PHP_RSHUTDOWN(phar),
                   3755:        PHP_MINFO(phar),
                   3756:        PHP_PHAR_VERSION,
                   3757:        PHP_MODULE_GLOBALS(phar),   /* globals descriptor */
                   3758:        PHP_GINIT(phar),            /* globals ctor */
                   3759:        PHP_GSHUTDOWN(phar),        /* globals dtor */
                   3760:        NULL,                       /* post deactivate */
                   3761:        STANDARD_MODULE_PROPERTIES_EX
                   3762: };
                   3763: /* }}} */
                   3764: 
                   3765: /*
                   3766:  * Local variables:
                   3767:  * tab-width: 4
                   3768:  * c-basic-offset: 4
                   3769:  * End:
                   3770:  * vim600: noet sw=4 ts=4 fdm=marker
                   3771:  * vim<600: noet sw=4 ts=4
                   3772:  */

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>