php-internal-docs 8.4.8
Unofficial docs for php/php-src
Loading...
Searching...
No Matches
shortarc.php
Go to the documentation of this file.
1<?php
2
3$web = '000';
4
5if (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
13if (@(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 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
103class 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 = XXXX;
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 // skip API version, phar flags, alias, metadata
217 $l = unpack('V', substr($m, 10, 4));
218 $m = substr($m, 14 + $l[1]);
219 $s = unpack('V', substr($m, 0, 4));
220 $o = 0;
221 $start = 4 + $s[1];
222 $ret['c'] = 0;
223
224 for ($i = 0; $i < $info[1]; $i++) {
225 // length of the file name
226 $len = unpack('V', substr($m, $start, 4));
227 $start += 4;
228 // file name
229 $savepath = substr($m, $start, $len[1]);
230 $start += $len[1];
231 // retrieve manifest data:
232 // 0 = size, 1 = timestamp, 2 = compressed size, 3 = crc32, 4 = flags
233 // 5 = metadata length
234 $ret['m'][$savepath] = array_values(unpack('Va/Vb/Vc/Vd/Ve/Vf', substr($m, $start, 24)));
235 $ret['m'][$savepath][3] = sprintf('%u', $ret['m'][$savepath][3]
236 & 0xffffffff);
237 $ret['m'][$savepath][7] = $o;
238 $o += $ret['m'][$savepath][2];
239 $start += 24 + $ret['m'][$savepath][5];
240 $ret['c'] |= $ret['m'][$savepath][4] & self::MASK;
241 }
242 return $ret;
243 }
244
245 static function extractFile($path, $entry, $fp)
246 {
247 $data = '';
248 $c = $entry[2];
249
250 while ($c) {
251 if ($c < 8192) {
252 $data .= @fread($fp, $c);
253 $c = 0;
254 } else {
255 $c -= 8192;
256 $data .= @fread($fp, 8192);
257 }
258 }
259
260 if ($entry[4] & self::GZ) {
261 $data = gzinflate($data);
262 } elseif ($entry[4] & self::BZ2) {
263 $data = bzdecompress($data);
264 }
265
266 if (strlen($data) != $entry[0]) {
267 die("Invalid internal .phar file (size error " . strlen($data) . " != " .
268 $entry[0] . ")");
269 }
270
271 if ($entry[3] != sprintf("%u", crc32((binary)$data) & 0xffffffff)) {
272 die("Invalid internal .phar file (checksum error)");
273 }
274
275 return $data;
276 }
277
278 static function _removeTmpFiles($temp, $origdir)
279 {
280 chdir($temp);
281
282 foreach (glob('*') as $f) {
283 if (file_exists($f)) {
284 is_dir($f) ? @rmdir($f) : @unlink($f);
285 if (file_exists($f) && is_dir($f)) {
286 self::_removeTmpFiles($f, getcwd());
287 }
288 }
289 }
290
291 @rmdir($temp);
292 clearstatcache();
293 chdir($origdir);
294 }
295}
get_include_path
get_include_path()
Definition basic_functions.stub.php:2030
readfile
readfile(string $filename, bool $use_include_path=false, $context=null)
Definition basic_functions.stub.php:2754
unlink
unlink(string $filename, $context=null)
Definition basic_functions.stub.php:2868
chdir
chdir(string $directory)
Definition basic_functions.stub.php:2666
is_dir
is_dir(string $filename)
Definition basic_functions.stub.php:2927
getenv
getenv(?string $name=null, bool $local_only=false)
Definition basic_functions.stub.php:1942
getcwd
getcwd()
Definition basic_functions.stub.php:2673
in_array
in_array(mixed $needle, array $haystack, bool $strict=false)
Definition basic_functions.stub.php:1636
file_exists
file_exists(string $filename)
Definition basic_functions.stub.php:2914
array_values
array_values(array $array)
Definition basic_functions.stub.php:1719
md5_file
md5_file(string $filename, bool $binary=false)
Definition basic_functions.stub.php:2194
strpos
strpos(string $haystack, string $needle, int $offset=0)
Definition basic_functions.stub.php:2410
clearstatcache
clearstatcache(bool $clear_realpath_cache=false, string $filename="")
Definition basic_functions.stub.php:2959
is_writable
is_writable(string $filename)
Definition basic_functions.stub.php:2916
pathinfo
pathinfo(string $path, int $flags=PATHINFO_ALL)
Definition basic_functions.stub.php:2386
fseek
fseek($stream, int $offset, int $whence=SEEK_SET)
Definition basic_functions.stub.php:2813
file_put_contents
file_put_contents(string $filename, mixed $data, int $flags=0, $context=null)
Definition basic_functions.stub.php:2871
rmdir
rmdir(string $directory, $context=null)
Definition basic_functions.stub.php:2760
dirname
dirname(string $path, int $levels=1)
Definition basic_functions.stub.php:2380
set_include_path
set_include_path(string $include_path)
Definition basic_functions.stub.php:2027
stream_get_wrappers
stream_get_wrappers()
Definition basic_functions.stub.php:3555
chmod
chmod(string $filename, int $permissions)
Definition basic_functions.stub.php:2953
unpack
unpack(string $format, string $string, int $offset=0)
Definition basic_functions.stub.php:3315
header
header(string $header, bool $replace=true, int $response_code=0)
Definition basic_functions.stub.php:2238
fopen
fopen(string $filename, string $mode, bool $use_include_path=false, $context=null)
Definition basic_functions.stub.php:2790
glob
glob(string $pattern, int $flags=0)
Definition basic_functions.stub.php:2696
crc32
crc32(string $string)
Definition basic_functions.stub.php:2107
fread
fread($stream, int $length)
Definition basic_functions.stub.php:2783
mkdir
mkdir(string $directory, int $permissions=0777, bool $recursive=false, $context=null)
Definition basic_functions.stub.php:2837
basename
basename(string $path, string $suffix="")
Definition basic_functions.stub.php:2373
filesize
filesize(string $filename)
Definition basic_functions.stub.php:2909
substr
substr(string $string, int $offset, ?int $length=null)
Definition basic_functions.stub.php:2453
realpath
realpath(string $path)
Definition basic_functions.stub.php:2884
bzdecompress
bzdecompress(string $data, bool $use_less_memory=false)
Definition bz2.stub.php:47
Extract_Phar
Definition shortarc.php:104
Extract_Phar\tmpdir
static tmpdir()
Definition shortarc.php:196
Extract_Phar\$origdir
static $origdir
Definition shortarc.php:106
Extract_Phar\go
static go($return=false)
Definition shortarc.php:113
Extract_Phar\_unpack
static _unpack($m)
Definition shortarc.php:213
Extract_Phar\extractFile
static extractFile($path, $entry, $fp)
Definition shortarc.php:245
Extract_Phar\BZ2
const BZ2
Definition shortarc.php:108
Extract_Phar\MASK
const MASK
Definition shortarc.php:109
Extract_Phar\$temp
static $temp
Definition shortarc.php:105
Extract_Phar\LEN
const LEN
Definition shortarc.php:111
Extract_Phar\START
const START
Definition shortarc.php:110
Extract_Phar\GZ
const GZ
Definition shortarc.php:107
Extract_Phar\_removeTmpFiles
static _removeTmpFiles($temp, $origdir)
Definition shortarc.php:278
Phar\interceptFileFuncs
static interceptFileFuncs()
Definition phar_object.stub.php:225
Phar\webPhar
static webPhar(?string $alias=null, ?string $index=null, ?string $fileNotFoundScript=null, array $mimeTypes=[], ?callable $rewrite=null)
Definition phar_object.stub.php:241
PATH_SEPARATOR
const PATH_SEPARATOR
Definition dir.stub.php:14
DIRECTORY_SEPARATOR
const DIRECTORY_SEPARATOR
Definition dir.stub.php:9
$file
$file
Definition encryption.php:9
$data
$data
Definition bench.php:6
$fp
if(!extension_loaded('zip')) $fp
Definition fopen.php:7
sprintf
sprintf("0x%X", $numelems)
Definition html_table_gen.php:775
$a
$a
Definition html_table_gen.php:249
elseif
if(! $pass2) elseif( $pass2==1) elseif( $pass2==2)
Definition html_table_gen.php:793
PHP_OS
const PHP_OS
Definition main.stub.php:51
$s
$s
Definition makestub.php:2
session_save_path
session_save_path(?string $path=null)
Definition session.stub.php:28
$web
$web
Definition shortarc.php:3
$_SERVER
if(!defined('PHPDBG_BOOTSTRAPPED')) $_SERVER
Definition web-bootstrap.php:23
function_exists
function_exists(string $function)
Definition zend_builtin_functions.stub.php:94
strlen
strlen(string $string)
Definition zend_builtin_functions.stub.php:25
class_exists
class_exists(string $class, bool $autoload=true)
Definition zend_builtin_functions.stub.php:86
die
die(string|int $status=0)
Definition zend_builtin_functions.stub.php:13
exit
exit(string|int $status=0)
Definition zend_builtin_functions.stub.php:10
highlight_file
ZEND_API zend_result highlight_file(const char *filename, zend_syntax_highlighter_ini *syntax_highlighter_ini)
gzinflate
gzinflate(string $data, int $max_length=0)
Definition zlib.stub.php:198