mirrors/php-src
0
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2024-12-27 19:00:27 +08:00
Code Issues Packages Projects Releases Wiki Activity
bc72c13db1
php-src/ext/phar/shortarc.php

274 lines
9.6 KiB
PHP
Raw Normal View History

major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
<?php
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
$web = '000';
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
if ($web) {
if (in_array('phar', stream_get_wrappers()) && class_exists('Phar', 0)) {
Phar::interceptFileFuncs();
Phar::webPhar(null, $web);
include 'phar://' . __FILE__ . '/' . Extract_Phar::START;
return;
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
}
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
if (isset($_SERVER['REQUEST_URI']) && isset($_SERVER['REQUEST_METHOD']) && $_SERVER['REQUEST_METHOD'] == 'GET' || $_SERVER['REQUEST_METHOD'] == 'POST') {
Extract_Phar::go(true);
$mimes = array(
'phps' => 2,
'c' => 'text/plain',
'cc' => 'text/plain',
'cpp' => 'text/plain',
'c++' => 'text/plain',
'dtd' => 'text/plain',
'h' => 'text/plain',
'log' => 'text/plain',
'rng' => 'text/plain',
'txt' => 'text/plain',
'xsd' => 'text/plain',
'php' => 1,
'inc' => 1,
'avi' => 'video/avi',
'bmp' => 'image/bmp',
'css' => 'text/css',
'gif' => 'image/gif',
'htm' => 'text/html',
'html' => 'text/html',
'htmls' => 'text/html',
'ico' => 'image/x-ico',
'jpe' => 'image/jpeg',
'jpg' => 'image/jpeg',
'jpeg' => 'image/jpeg',
'js' => 'application/x-javascript',
'midi' => 'audio/midi',
'mid' => 'audio/midi',
'mod' => 'audio/mod',
'mov' => 'movie/quicktime',
'mp3' => 'audio/mp3',
'mpg' => 'video/mpeg',
'mpeg' => 'video/mpeg',
'pdf' => 'application/pdf',
'png' => 'image/png',
'swf' => 'application/shockwave-flash',
'tif' => 'image/tiff',
'tiff' => 'image/tiff',
'wav' => 'audio/wav',
'xbm' => 'image/xbm',
'xml' => 'text/xml',
);
$basename = basename(__FILE__);
if (!strpos($_SERVER['REQUEST_URI'], $basename)) {
chdir(Extract_Phar::$temp);
include Extract_Phar::START;
}
$pt = substr($_SERVER['REQUEST_URI'], strpos($_SERVER['REQUEST_URI'], $basename) + strlen($basename));
if (!$pt || $pt == '/') {
$pt = $web;
header('HTTP/1.1 301 Moved Permanently');
header('Location: ' . $_SERVER['REQUEST_URI'] . '/' . $pt);
}
$a = realpath(Extract_Phar::$temp . DIRECTORY_SEPARATOR . $pt);
if (!$a || strlen(dirname($a)) < strlen(Extract_Phar::$temp)) {
header('HTTP/1.0 404 Not Found');
echo "<html>\n <head>\n <title>File Not Found<title>\n </head>\n <body>\n <h1>404 - File ", $pt, " Not Found</h1>\n </body>\n</html>";
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
exit;
}
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
$b = pathinfo($a);
if (!isset($b['extension'])) {
header('Content-Type: text/plain');
header('Content-Length: ' . filesize($a));
readfile($a);
exit;
}
if (isset($mimes[$b['extension']])) {
if ($mimes[$b['extension']] === 1) {
$_SERVER['PHAR_PATH_INFO'] = $_SERVER['PATH_INFO'];
$_SERVER['PATH_INFO'] = substr($_SERVER['PATH_INFO'], strpos($_SERVER['PATH_INFO'], $basename) + strlen($basename));
if (isset($_SERVER['PATH_TRANSLATED'])) {
$_SERVER['PHAR_PATH_TRANSLATED'] = $_SERVER['PATH_TRANSLATED'];
$_SERVER['PATH_TRANSLATED'] = $a;
}
include $a;
exit;
}
if ($mimes[$b['extension']] === 2) {
highlight_file($a);
exit;
}
header('Content-Type: ' .$mimes[$b['extension']]);
header('Content-Length: ' . filesize($a));
readfile($a);
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
exit;
}
}
}
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
if (in_array('phar', stream_get_wrappers()) && class_exists('Phar', 0)) {
Phar::interceptFileFuncs();
add Phar::createDefaultStub(), which can take as an argument the filename that should be loaded as a "bootstrap" for the phar archive
2008-01-19 12:26:22 +08:00
include 'phar://' . __FILE__ . '/' . Extract_Phar::START;
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
return;
}
class Extract_Phar
{
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
static $temp;
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
static $tmp = array();
static $origdir;
const GZ = 0x1000;
const BZ2 = 0x2000;
const MASK = 0x3000;
add Phar::createDefaultStub(), which can take as an argument the filename that should be loaded as a "bootstrap" for the phar archive
2008-01-19 12:26:22 +08:00
const START = 'index.php';
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
const LEN = XXXX;
static function go($return = false)
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
{
register_shutdown_function(array('Extract_Phar', '_removeTmpFiles'));
$fp = fopen(__FILE__, 'rb');
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
fseek($fp, self::LEN);
$L = unpack('V', $a = fread($fp, 4));
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
$m = '';
do {
$read = 8192;
if ($L[1] - strlen($m) < 8192) {
$read = $L[1] - strlen($m);
}
$last = fread($fp, $read);
$m .= $last;
} while (strlen($last) && strlen($m) < $L[1]);
if (strlen($m) < $L[1]) {
die('ERROR: manifest length read was "' .
strlen($m) .'" should be "' .
$L[1] . '"');
}
$info = self::_unpack($m);
$f = $info['c'];
if ($f & self::GZ) {
if (!function_exists('gzinflate')) {
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
die('Error: zlib extension is not enabled -' .
' gzinflate() function needed for zlib-compressed .phars');
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
}
}
if ($f & self::BZ2) {
if (!function_exists('bzdecompress')) {
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
die('Error: bzip2 extension is not enabled -' .
' bzdecompress() function needed for bz2-compressed .phars');
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
}
}
$temp = self::tmpdir();
- Added is_writable() check on temp directory - Regenerated stub and tests/nophar.phar - Fixed tests
2008-01-26 08:12:00 +08:00
if (!$temp || !is_writable($temp)) {
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
$sessionpath = session_save_path();
- Added is_writable() check on temp directory - Regenerated stub and tests/nophar.phar - Fixed tests
2008-01-26 08:12:00 +08:00
if (strpos ($sessionpath, ";") !== false)
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
$sessionpath = substr ($sessionpath, strpos ($sessionpath, ";")+1);
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
if (!file_exists($sessionpath) || !is_dir($sessionpath)) {
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
die('Could not locate temporary directory to extract phar');
}
$temp = $sessionpath;
}
$temp .= '/pharextract';
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
self::$temp = $temp;
while (file_exists($temp)) {
$temp .= 1;
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
}
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
@mkdir($temp);
@chmod($temp, 0777);
$temp = realpath($temp);
self::$tmp[] = $temp;
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
self::$origdir = getcwd();
foreach ($info['m'] as $path => $file) {
$a = !file_exists(dirname($temp . '/' . $path));
@mkdir(dirname($temp . '/' . $path), 0777, true);
clearstatcache();
if ($a) self::$tmp[] = realpath(dirname($temp . '/' . $path));
if ($path[strlen($path) - 1] == '/') {
mkdir($temp . '/' . $path);
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
@chmod($temp . '/' . $path, 0777);
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
} else {
file_put_contents($temp . '/' . $path, self::extractFile($path, $file, $fp));
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
@chmod($temp . '/' . $path, 0666);
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
}
self::$tmp[] = realpath($temp . '/' . $path);
}
chdir($temp);
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
if (!$return) include self::START;
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
}
static function tmpdir()
{
if (strpos(PHP_OS, 'WIN') !== false) {
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
if ($var = getenv('TMP') ? getenv('TMP') : getenv('TEMP')) {
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
return $var;
}
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
if (is_dir('/temp') || mkdir('/temp')) {
return realpath('/temp');
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
}
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
return false;
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
}
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
if ($var = getenv('TMPDIR')) {
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
return $var;
}
return realpath('/tmp');
}
static function _unpack($m)
{
$info = unpack('V', substr($m, 0, 4));
// skip API version, phar flags, alias, metadata
$l = unpack('V', substr($m, 10, 4));
$m = substr($m, 14 + $l[1]);
$s = unpack('V', substr($m, 0, 4));
$o = 0;
$start = 4 + $s[1];
$ret['c'] = 0;
for ($i = 0; $i < $info[1]; $i++) {
// length of the file name
$len = unpack('V', substr($m, $start, 4));
$start += 4;
// file name
$savepath = substr($m, $start, $len[1]);
$start += $len[1];
// retrieve manifest data:
// 0 = size, 1 = timestamp, 2 = compressed size, 3 = crc32, 4 = flags
// 5 = metadata length
$ret['m'][$savepath] = array_values(unpack('Va/Vb/Vc/Vd/Ve/Vf', substr($m, $start, 24)));
$ret['m'][$savepath][3] = sprintf('%u', $ret['m'][$savepath][3]
& 0xffffffff);
$ret['m'][$savepath][7] = $o;
$o += $ret['m'][$savepath][2];
$start += 24 + $ret['m'][$savepath][5];
$ret['c'] |= $ret['m'][$savepath][4] & self::MASK;
}
return $ret;
}
static function extractFile($path, $entry, $fp)
{
$data = '';
$c = $entry[2];
while ($c) {
if ($c < 8192) {
$data .= @fread($fp, $c);
$c = 0;
} else {
$c -= 8192;
$data .= @fread($fp, 8192);
}
}
if ($entry[4] & self::GZ) {
$data = gzinflate($data);
} elseif ($entry[4] & self::BZ2) {
$data = bzdecompress($data);
}
if (strlen($data) != $entry[0]) {
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
die("Invalid internal .phar file (size error " . strlen($data) . " != " .
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
$stat[7] . ")");
}
if ($entry[3] != sprintf("%u", crc32($data) & 0xffffffff)) {
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
die("Invalid internal .phar file (checksum error)");
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
}
return $data;
}
static function _removeTmpFiles()
{
if (count(self::$tmp)) {
add web-based support for default stub, now phars written with webPhar() will work out of the box regardless of server configuration with phar file format split up stub.h strings into 2046 byte chunks because MS VC 6 is friggin stupid
2008-01-20 08:49:45 +08:00
foreach (array_reverse(self::$tmp) as $f) {
major improvement: the new default stub allows creation of phars that run identically 1) with Phar extension 2) without Phar extension 3) extracted to disk from the phar this makes the default phar format quite interesting as it eliminates the only drawback of the extension
2008-01-18 13:42:16 +08:00
if (file_exists($f)) is_dir($f) ? @rmdir($f) : @unlink($f);
}
}
chdir(self::$origdir);
}
- Rewrite stub to take up slightly less space - Fix tests - Test phars should probably be regenerated, although only one fails here currently (nophar.phar in web context)
2008-01-26 01:26:18 +08:00
}
Reference in New Issue Copy Permalink