summaryrefslogtreecommitdiff
path: root/ext/phar/tests/files/phar_test.inc
blob: f5279a93d20b1d80931e8d08ac5702a1202d9475 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
<?php

date_default_timezone_set('UTC');

$manifest = (binary)'';
$gflags = 0;

foreach($files as $name => $cont)
{
    global $gflags, $files;

    $comp = NULL;
    $crc32= NULL;
    $clen = NULL;
    $ulen = NULL;
    $time = isset($ftime) ? $ftime : @mktime(12, 0, 0, 3, 1, 2006);
    $flags= 0;
    $perm = 0x000001B6;
    $meta = NULL;

    // overwrite if array
    if (is_array($cont))
    {
        foreach(array('comp','crc32','clen','ulen','time','flags','perm','meta','cont') as $what)
        {
            if (isset($cont[$what]))
            {
                $$what = $cont[$what];
            }
        }
    }

    // create if not yet done
    if (empty($comp)) $comp = $cont;
    if (empty($ulen)) $ulen = strlen($cont);
    if (empty($clen)) $clen = strlen($comp);
    if (empty($crc32))$crc32= crc32((binary)$cont);
    if (isset($meta)) $meta = serialize($meta);

    // write manifest entry
    $manifest .= pack('V', strlen($name)) . (binary)$name;
    $manifest .= pack('VVVVVV', $ulen, $time, $clen, $crc32, $flags|$perm, strlen($meta)) . (binary)$meta;

    // globals
    $gflags |= $flags;
    $files[$name] = $comp;
}

if (!isset($alias)) $alias = 'hio';

if (isset($pmeta)) $pmeta = serialize($pmeta); else $pmeta = '';

$manifest = pack('VnVV', count($files), isset($hasdir) ? 0x1110 : 0x1000, $gflags, strlen($alias)) . (binary)$alias . pack('V', strlen($pmeta)) . (binary)$pmeta . $manifest;
$file = (binary)$file;
$file .= pack('V', strlen($manifest)) . $manifest;

foreach($files as $cont)
{
    $file .= (binary)$cont;
}

file_put_contents($fname, $file);

if (@$gzip) {
    $fp = gzopen($fname, 'w');
    fwrite($fp, $file);
    fclose($fp);
}

if (@$bz2) {
    $fp = bzopen($fname, 'w');
    fwrite($fp, $file);
    fclose($fp);
}

?>