Annotation of embedaddon/php/ext/phar/tests/files/openssl.phar, revision 1.1.1.1
1.1 misho 1: <?php
2:
3: $web = 'index.php';
4:
5: if (in_array('phar', stream_get_wrappers()) && class_exists('Phar', 0)) {
6: Phar::interceptFileFuncs();
7: set_include_path('phar://' . __FILE__ . PATH_SEPARATOR . get_include_path());
8: Phar::webPhar(null, $web);
9: include 'phar://' . __FILE__ . '/' . Extract_Phar::START;
10: return;
11: }
12:
13: if (@(isset($_SERVER['REQUEST_URI']) && isset($_SERVER['REQUEST_METHOD']) && ($_SERVER['REQUEST_METHOD'] == 'GET' || $_SERVER['REQUEST_METHOD'] == 'POST'))) {
14: Extract_Phar::go(true);
15: $mimes = array(
16: 'phps' => 2,
17: 'c' => 'text/plain',
18: 'cc' => 'text/plain',
19: 'cpp' => 'text/plain',
20: 'c++' => 'text/plain',
21: 'dtd' => 'text/plain',
22: 'h' => 'text/plain',
23: 'log' => 'text/plain',
24: 'rng' => 'text/plain',
25: 'txt' => 'text/plain',
26: 'xsd' => 'text/plain',
27: 'php' => 1,
28: 'inc' => 1,
29: 'avi' => 'video/avi',
30: 'bmp' => 'image/bmp',
31: 'css' => 'text/css',
32: 'gif' => 'image/gif',
33: 'htm' => 'text/html',
34: 'html' => 'text/html',
35: 'htmls' => 'text/html',
36: 'ico' => 'image/x-ico',
37: 'jpe' => 'image/jpeg',
38: 'jpg' => 'image/jpeg',
39: 'jpeg' => 'image/jpeg',
40: 'js' => 'application/x-javascript',
41: 'midi' => 'audio/midi',
42: 'mid' => 'audio/midi',
43: 'mod' => 'audio/mod',
44: 'mov' => 'movie/quicktime',
45: 'mp3' => 'audio/mp3',
46: 'mpg' => 'video/mpeg',
47: 'mpeg' => 'video/mpeg',
48: 'pdf' => 'application/pdf',
49: 'png' => 'image/png',
50: 'swf' => 'application/shockwave-flash',
51: 'tif' => 'image/tiff',
52: 'tiff' => 'image/tiff',
53: 'wav' => 'audio/wav',
54: 'xbm' => 'image/xbm',
55: 'xml' => 'text/xml',
56: );
57:
58: header("Cache-Control: no-cache, must-revalidate");
59: header("Pragma: no-cache");
60:
61: $basename = basename(__FILE__);
62: if (!strpos($_SERVER['REQUEST_URI'], $basename)) {
63: chdir(Extract_Phar::$temp);
64: include $web;
65: return;
66: }
67: $pt = substr($_SERVER['REQUEST_URI'], strpos($_SERVER['REQUEST_URI'], $basename) + strlen($basename));
68: if (!$pt || $pt == '/') {
69: $pt = $web;
70: header('HTTP/1.1 301 Moved Permanently');
71: header('Location: ' . $_SERVER['REQUEST_URI'] . '/' . $pt);
72: exit;
73: }
74: $a = realpath(Extract_Phar::$temp . DIRECTORY_SEPARATOR . $pt);
75: if (!$a || strlen(dirname($a)) < strlen(Extract_Phar::$temp)) {
76: header('HTTP/1.0 404 Not Found');
77: 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>";
78: exit;
79: }
80: $b = pathinfo($a);
81: if (!isset($b['extension'])) {
82: header('Content-Type: text/plain');
83: header('Content-Length: ' . filesize($a));
84: readfile($a);
85: exit;
86: }
87: if (isset($mimes[$b['extension']])) {
88: if ($mimes[$b['extension']] === 1) {
89: include $a;
90: exit;
91: }
92: if ($mimes[$b['extension']] === 2) {
93: highlight_file($a);
94: exit;
95: }
96: header('Content-Type: ' .$mimes[$b['extension']]);
97: header('Content-Length: ' . filesize($a));
98: readfile($a);
99: exit;
100: }
101: }
102:
103: class Extract_Phar
104: {
105: static $temp;
106: static $origdir;
107: const GZ = 0x1000;
108: const BZ2 = 0x2000;
109: const MASK = 0x3000;
110: const START = 'index.php';
111: const LEN = 6685;
112:
113: static function go($return = false)
114: {
115: $fp = fopen(__FILE__, 'rb');
116: fseek($fp, self::LEN);
117: $L = unpack('V', $a = (binary)fread($fp, 4));
118: $m = (binary)'';
119:
120: do {
121: $read = 8192;
122: if ($L[1] - strlen($m) < 8192) {
123: $read = $L[1] - strlen($m);
124: }
125: $last = (binary)fread($fp, $read);
126: $m .= $last;
127: } while (strlen($last) && strlen($m) < $L[1]);
128:
129: if (strlen($m) < $L[1]) {
130: die('ERROR: manifest length read was "' .
131: strlen($m) .'" should be "' .
132: $L[1] . '"');
133: }
134:
135: $info = self::_unpack($m);
136: $f = $info['c'];
137:
138: if ($f & self::GZ) {
139: if (!function_exists('gzinflate')) {
140: die('Error: zlib extension is not enabled -' .
141: ' gzinflate() function needed for zlib-compressed .phars');
142: }
143: }
144:
145: if ($f & self::BZ2) {
146: if (!function_exists('bzdecompress')) {
147: die('Error: bzip2 extension is not enabled -' .
148: ' bzdecompress() function needed for bz2-compressed .phars');
149: }
150: }
151:
152: $temp = self::tmpdir();
153:
154: if (!$temp || !is_writable($temp)) {
155: $sessionpath = session_save_path();
156: if (strpos ($sessionpath, ";") !== false)
157: $sessionpath = substr ($sessionpath, strpos ($sessionpath, ";")+1);
158: if (!file_exists($sessionpath) || !is_dir($sessionpath)) {
159: die('Could not locate temporary directory to extract phar');
160: }
161: $temp = $sessionpath;
162: }
163:
164: $temp .= '/pharextract/'.basename(__FILE__, '.phar');
165: self::$temp = $temp;
166: self::$origdir = getcwd();
167: @mkdir($temp, 0777, true);
168: $temp = realpath($temp);
169:
170: if (!file_exists($temp . DIRECTORY_SEPARATOR . md5_file(__FILE__))) {
171: self::_removeTmpFiles($temp, getcwd());
172: @mkdir($temp, 0777, true);
173: @file_put_contents($temp . '/' . md5_file(__FILE__), '');
174:
175: foreach ($info['m'] as $path => $file) {
176: $a = !file_exists(dirname($temp . '/' . $path));
177: @mkdir(dirname($temp . '/' . $path), 0777, true);
178: clearstatcache();
179:
180: if ($path[strlen($path) - 1] == '/') {
181: @mkdir($temp . '/' . $path, 0777);
182: } else {
183: file_put_contents($temp . '/' . $path, self::extractFile($path, $file, $fp));
184: @chmod($temp . '/' . $path, 0666);
185: }
186: }
187: }
188:
189: chdir($temp);
190:
191: if (!$return) {
192: include self::START;
193: }
194: }
195:
196: static function tmpdir()
197: {
198: if (strpos(PHP_OS, 'WIN') !== false) {
199: if ($var = getenv('TMP') ? getenv('TMP') : getenv('TEMP')) {
200: return $var;
201: }
202: if (is_dir('/temp') || mkdir('/temp')) {
203: return realpath('/temp');
204: }
205: return false;
206: }
207: if ($var = getenv('TMPDIR')) {
208: return $var;
209: }
210: return realpath('/tmp');
211: }
212:
213: static function _unpack($m)
214: {
215: $info = unpack('V', substr($m, 0, 4));
216: $l = unpack('V', substr($m, 10, 4));
217: $m = substr($m, 14 + $l[1]);
218: $s = unpack('V', substr($m, 0, 4));
219: $o = 0;
220: $start = 4 + $s[1];
221: $ret['c'] = 0;
222:
223: for ($i = 0; $i < $info[1]; $i++) {
224: $len = unpack('V', substr($m, $start, 4));
225: $start += 4;
226: $savepath = substr($m, $start, $len[1]);
227: $start += $len[1];
228: $ret['m'][$savepath] = array_values(unpack('Va/Vb/Vc/Vd/Ve/Vf', substr($m, $start, 24)));
229: $ret['m'][$savepath][3] = sprintf('%u', $ret['m'][$savepath][3]
230: & 0xffffffff);
231: $ret['m'][$savepath][7] = $o;
232: $o += $ret['m'][$savepath][2];
233: $start += 24 + $ret['m'][$savepath][5];
234: $ret['c'] |= $ret['m'][$savepath][4] & self::MASK;
235: }
236: return $ret;
237: }
238:
239: static function extractFile($path, $entry, $fp)
240: {
241: $data = '';
242: $c = $entry[2];
243:
244: while ($c) {
245: if ($c < 8192) {
246: $data .= @fread($fp, $c);
247: $c = 0;
248: } else {
249: $c -= 8192;
250: $data .= @fread($fp, 8192);
251: }
252: }
253:
254: if ($entry[4] & self::GZ) {
255: $data = gzinflate($data);
256: } elseif ($entry[4] & self::BZ2) {
257: $data = bzdecompress($data);
258: }
259:
260: if (strlen($data) != $entry[0]) {
261: die("Invalid internal .phar file (size error " . strlen($data) . " != " .
262: $stat[7] . ")");
263: }
264:
265: if ($entry[3] != sprintf("%u", crc32((binary)$data) & 0xffffffff)) {
266: die("Invalid internal .phar file (checksum error)");
267: }
268:
269: return $data;
270: }
271:
272: static function _removeTmpFiles($temp, $origdir)
273: {
274: chdir($temp);
275:
276: foreach (glob('*') as $f) {
277: if (file_exists($f)) {
278: is_dir($f) ? @rmdir($f) : @unlink($f);
279: if (file_exists($f) && is_dir($f)) {
280: self::_removeTmpFiles($f, getcwd());
281: }
282: }
283: }
284:
285: @rmdir($temp);
286: clearstatcache();
287: chdir($origdir);
288: }
289: }
290:
291: Extract_Phar::go();
292: __HALT_COMPILER(); ?>H & & brandnewphar.phar file1.txt «´AH ¬*“ض& hi¡'ÇÞµ@]_û- ^x¡û™=Š…Hb”(л2ár/BMÇ1ü-KŠ/{>D@Mmj »òä[0(Ìl&ÉÃaÜKeÓ“+\³9H¯ pv룱0²}ÆM}4 .9œ§„‹µ”4Á¼Uµ°bñ4¦”2øÿc½{€ GBMB
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to openssl.phar CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / phar / tests / files