xref: /PHP-8.4/ext/phar/shortarc.php (revision ba0913a2)
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}
296