diff options
author | Steph Fox <sfox@php.net> | 2008-02-20 14:28:49 +0000 |
---|---|---|
committer | Steph Fox <sfox@php.net> | 2008-02-20 14:28:49 +0000 |
commit | 3285ceba7edca72c2aa7a3037cac8217115ef1b3 (patch) | |
tree | c43f3df00d5be9f77153ca0a40f0668c539487c1 /ext/phar/tests/phar_commitwrite.phpt | |
parent | cd5558b895c8be1b50f582a0c808075db45bb0ac (diff) | |
download | php-git-3285ceba7edca72c2aa7a3037cac8217115ef1b3.tar.gz |
Take some of the pain out of stub rewrites. (Full default stub is tested elsewhere.)
Diffstat (limited to 'ext/phar/tests/phar_commitwrite.phpt')
-rw-r--r-- | ext/phar/tests/phar_commitwrite.phpt | 294 |
1 files changed, 2 insertions, 292 deletions
diff --git a/ext/phar/tests/phar_commitwrite.phpt b/ext/phar/tests/phar_commitwrite.phpt index 5932deee1c..51bab40a54 100644 --- a/ext/phar/tests/phar_commitwrite.phpt +++ b/ext/phar/tests/phar_commitwrite.phpt @@ -10,7 +10,7 @@ phar.readonly=0 $p = new Phar(dirname(__FILE__) . '/brandnewphar.phar', 0, 'brandnewphar.phar'); $p['file1.txt'] = 'hi'; $p->stopBuffering(); -var_dump($p->getStub()); +var_dump(strlen($p->getStub())); $p->setStub("<?php function __autoload(\$class) { @@ -29,297 +29,7 @@ unlink(dirname(__FILE__) . '/brandnewphar.phar'); __HALT_COMPILER(); ?> --EXPECT-- -string(6571) "<?php - -$web = 'index.php'; - -if (in_array('phar', stream_get_wrappers()) && class_exists('Phar', 0)) { -Phar::interceptFileFuncs(); -Phar::webPhar(null, $web); -include 'phar://' . __FILE__ . '/' . Extract_Phar::START; -return; -} - -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', -); - -header("Cache-Control: no-cache, must-revalidate"); -header("Pragma: no-cache"); - -$basename = basename(__FILE__); -if (!strpos($_SERVER['REQUEST_URI'], $basename)) { -chdir(Extract_Phar::$temp); -include $web; -return; -} -$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); -exit; -} -$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>"; -exit; -} -$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) { -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); -exit; -} -} - -class Extract_Phar -{ -static $temp; -static $origdir; -const GZ = 0x1000; -const BZ2 = 0x2000; -const MASK = 0x3000; -const START = 'index.php'; -const LEN = 6573; - -static function go($return = false) -{ -$fp = fopen(__FILE__, 'rb'); -fseek($fp, self::LEN); -$L = unpack('V', $a = fread($fp, 4)); -$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')) { -die('Error: zlib extension is not enabled -' . -' gzinflate() function needed for zlib-compressed .phars'); -} -} - -if ($f & self::BZ2) { -if (!function_exists('bzdecompress')) { -die('Error: bzip2 extension is not enabled -' . -' bzdecompress() function needed for bz2-compressed .phars'); -} -} - -$temp = self::tmpdir(); - -if (!$temp || !is_writable($temp)) { -$sessionpath = session_save_path(); -if (strpos ($sessionpath, ";") !== false) -$sessionpath = substr ($sessionpath, strpos ($sessionpath, ";")+1); -if (!file_exists($sessionpath) || !is_dir($sessionpath)) { -die('Could not locate temporary directory to extract phar'); -} -$temp = $sessionpath; -} - -$temp .= '/pharextract/'.basename(__FILE__, '.phar'); -self::$temp = $temp; -self::$origdir = getcwd(); -@mkdir($temp, 0777, true); -$temp = realpath($temp); - -if (!file_exists($temp . DIRECTORY_SEPARATOR . md5_file(__FILE__))) { -self::_removeTmpFiles($temp, getcwd()); -@mkdir($temp, 0777, true); -@file_put_contents($temp . '/' . md5_file(__FILE__), ''); - -foreach ($info['m'] as $path => $file) { -$a = !file_exists(dirname($temp . '/' . $path)); -@mkdir(dirname($temp . '/' . $path), 0777, true); -clearstatcache(); - -if ($path[strlen($path) - 1] == '/') { -@mkdir($temp . '/' . $path, 0777); -} else { -file_put_contents($temp . '/' . $path, self::extractFile($path, $file, $fp)); -@chmod($temp . '/' . $path, 0666); -} -} -} - -chdir($temp); - -if (!$return) { -include self::START; -} -} - -static function tmpdir() -{ -if (strpos(PHP_OS, 'WIN') !== false) { -if ($var = getenv('TMP') ? getenv('TMP') : getenv('TEMP')) { -return $var; -} -if (is_dir('/temp') || mkdir('/temp')) { -return realpath('/temp'); -} -return false; -} -if ($var = getenv('TMPDIR')) { -return $var; -} -return realpath('/tmp'); -} - -static function _unpack($m) -{ -$info = unpack('V', substr($m, 0, 4)); - $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++) { - $len = unpack('V', substr($m, $start, 4)); -$start += 4; - $savepath = substr($m, $start, $len[1]); -$start += $len[1]; - $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]) { -die("Invalid internal .phar file (size error " . strlen($data) . " != " . -$stat[7] . ")"); -} - -if ($entry[3] != sprintf("%u", crc32($data) & 0xffffffff)) { -die("Invalid internal .phar file (checksum error)"); -} - -return $data; -} - -static function _removeTmpFiles($temp, $origdir) -{ -chdir($temp); - -foreach (glob('*') as $f) { -if (file_exists($f)) { -is_dir($f) ? @rmdir($f) : @unlink($f); -if (file_exists($f) && is_dir($f)) { -self::_removeTmpFiles($f, getcwd()); -} -} -} - -@rmdir($temp); -clearstatcache(); -chdir($origdir); -} -} - -Extract_Phar::go(); -__HALT_COMPILER(); ?>" +int(6571) string(200) "<?php function __autoload($class) { |