xref: /PHP-5.3/ext/phar/tests/files/openssl.phar (revision 5fbeb235)
1<?php
2
3$web = 'index.php';
4
5if (in_array('phar', stream_get_wrappers()) && class_exists('Phar', 0)) {
6Phar::interceptFileFuncs();
7set_include_path('phar://' . __FILE__ . PATH_SEPARATOR . get_include_path());
8Phar::webPhar(null, $web);
9include 'phar://' . __FILE__ . '/' . Extract_Phar::START;
10return;
11}
12
13if (@(isset($_SERVER['REQUEST_URI']) && isset($_SERVER['REQUEST_METHOD']) && ($_SERVER['REQUEST_METHOD'] == 'GET' || $_SERVER['REQUEST_METHOD'] == 'POST'))) {
14Extract_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
58header("Cache-Control: no-cache, must-revalidate");
59header("Pragma: no-cache");
60
61$basename = basename(__FILE__);
62if (!strpos($_SERVER['REQUEST_URI'], $basename)) {
63chdir(Extract_Phar::$temp);
64include $web;
65return;
66}
67$pt = substr($_SERVER['REQUEST_URI'], strpos($_SERVER['REQUEST_URI'], $basename) + strlen($basename));
68if (!$pt || $pt == '/') {
69$pt = $web;
70header('HTTP/1.1 301 Moved Permanently');
71header('Location: ' . $_SERVER['REQUEST_URI'] . '/' . $pt);
72exit;
73}
74$a = realpath(Extract_Phar::$temp . DIRECTORY_SEPARATOR . $pt);
75if (!$a || strlen(dirname($a)) < strlen(Extract_Phar::$temp)) {
76header('HTTP/1.0 404 Not Found');
77echo "<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>";
78exit;
79}
80$b = pathinfo($a);
81if (!isset($b['extension'])) {
82header('Content-Type: text/plain');
83header('Content-Length: ' . filesize($a));
84readfile($a);
85exit;
86}
87if (isset($mimes[$b['extension']])) {
88if ($mimes[$b['extension']] === 1) {
89include $a;
90exit;
91}
92if ($mimes[$b['extension']] === 2) {
93highlight_file($a);
94exit;
95}
96header('Content-Type: ' .$mimes[$b['extension']]);
97header('Content-Length: ' . filesize($a));
98readfile($a);
99exit;
100}
101}
102
103class Extract_Phar
104{
105static $temp;
106static $origdir;
107const GZ = 0x1000;
108const BZ2 = 0x2000;
109const MASK = 0x3000;
110const START = 'index.php';
111const LEN = 6685;
112
113static function go($return = false)
114{
115$fp = fopen(__FILE__, 'rb');
116fseek($fp, self::LEN);
117$L = unpack('V', $a = (binary)fread($fp, 4));
118$m = (binary)'';
119
120do {
121$read = 8192;
122if ($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
129if (strlen($m) < $L[1]) {
130die('ERROR: manifest length read was "' .
131strlen($m) .'" should be "' .
132$L[1] . '"');
133}
134
135$info = self::_unpack($m);
136$f = $info['c'];
137
138if ($f & self::GZ) {
139if (!function_exists('gzinflate')) {
140die('Error: zlib extension is not enabled -' .
141' gzinflate() function needed for zlib-compressed .phars');
142}
143}
144
145if ($f & self::BZ2) {
146if (!function_exists('bzdecompress')) {
147die('Error: bzip2 extension is not enabled -' .
148' bzdecompress() function needed for bz2-compressed .phars');
149}
150}
151
152$temp = self::tmpdir();
153
154if (!$temp || !is_writable($temp)) {
155$sessionpath = session_save_path();
156if (strpos ($sessionpath, ";") !== false)
157$sessionpath = substr ($sessionpath, strpos ($sessionpath, ";")+1);
158if (!file_exists($sessionpath) || !is_dir($sessionpath)) {
159die('Could not locate temporary directory to extract phar');
160}
161$temp = $sessionpath;
162}
163
164$temp .= '/pharextract/'.basename(__FILE__, '.phar');
165self::$temp = $temp;
166self::$origdir = getcwd();
167@mkdir($temp, 0777, true);
168$temp = realpath($temp);
169
170if (!file_exists($temp . DIRECTORY_SEPARATOR . md5_file(__FILE__))) {
171self::_removeTmpFiles($temp, getcwd());
172@mkdir($temp, 0777, true);
173@file_put_contents($temp . '/' . md5_file(__FILE__), '');
174
175foreach ($info['m'] as $path => $file) {
176$a = !file_exists(dirname($temp . '/' . $path));
177@mkdir(dirname($temp . '/' . $path), 0777, true);
178clearstatcache();
179
180if ($path[strlen($path) - 1] == '/') {
181@mkdir($temp . '/' . $path, 0777);
182} else {
183file_put_contents($temp . '/' . $path, self::extractFile($path, $file, $fp));
184@chmod($temp . '/' . $path, 0666);
185}
186}
187}
188
189chdir($temp);
190
191if (!$return) {
192include self::START;
193}
194}
195
196static function tmpdir()
197{
198if (strpos(PHP_OS, 'WIN') !== false) {
199if ($var = getenv('TMP') ? getenv('TMP') : getenv('TEMP')) {
200return $var;
201}
202if (is_dir('/temp') || mkdir('/temp')) {
203return realpath('/temp');
204}
205return false;
206}
207if ($var = getenv('TMPDIR')) {
208return $var;
209}
210return realpath('/tmp');
211}
212
213static 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
223for ($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}
236return $ret;
237}
238
239static function extractFile($path, $entry, $fp)
240{
241$data = '';
242$c = $entry[2];
243
244while ($c) {
245if ($c < 8192) {
246$data .= @fread($fp, $c);
247$c = 0;
248} else {
249$c -= 8192;
250$data .= @fread($fp, 8192);
251}
252}
253
254if ($entry[4] & self::GZ) {
255$data = gzinflate($data);
256} elseif ($entry[4] & self::BZ2) {
257$data = bzdecompress($data);
258}
259
260if (strlen($data) != $entry[0]) {
261die("Invalid internal .phar file (size error " . strlen($data) . " != " .
262$stat[7] . ")");
263}
264
265if ($entry[3] != sprintf("%u", crc32((binary)$data) & 0xffffffff)) {
266die("Invalid internal .phar file (checksum error)");
267}
268
269return $data;
270}
271
272static function _removeTmpFiles($temp, $origdir)
273{
274chdir($temp);
275
276foreach (glob('*') as $f) {
277if (file_exists($f)) {
278is_dir($f) ? @rmdir($f) : @unlink($f);
279if (file_exists($f) && is_dir($f)) {
280self::_removeTmpFiles($f, getcwd());
281}
282}
283}
284
285@rmdir($temp);
286clearstatcache();
287chdir($origdir);
288}
289}
290
291Extract_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