![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to tarmaker.php.inc 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 / tar / files|
Return to tarmaker.php.inc CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / ext / phar / tests / tar / files |
1.1 misho 1: <?php
2: // stolen from PEAR2_Pyrus_Developer_Creator_Tar by Greg Beaver, the original author, for use in unit tests
3: class tarmaker
4: {
5: /**
6: * Path to archive file
7: *
8: * @var string
9: */
10: protected $archive;
11: /**
12: * Temporary stream used for creating the archive
13: *
14: * @var stream
15: */
16: protected $tmp;
17: protected $path;
18: protected $compress;
19: function __construct($path, $compress = 'zlib')
20: {
21: $this->compress = $compress;
22: if ($compress === 'bz2' && !function_exists('bzopen')) {
23: throw new PEAR2_Pyrus_Developer_Creator_Exception(
24: 'bzip2 extension not available');
25: }
26: if ($compress === 'zlib' && !function_exists('gzopen')) {
27: throw new PEAR2_Pyrus_Developer_Creator_Exception(
28: 'zlib extension not available');
29: }
30: $this->path = $path;
31: }
32:
33: /**
34: * save a file inside this package
35: *
36: * This code is modified from Vincent Lascaux's File_Archive
37: * package, which is licensed under the LGPL license.
38: * @param string relative path within the package
39: * @param string|resource file contents or open file handle
40: */
41: function addFile($path, $fileOrStream, $stat = null)
42: {
43: clearstatcache();
44: if ($stat === null) {
45: if (is_resource($fileOrStream)) {
46: $stat = fstat($fileOrStream);
47: } else {
48: $stat = array(
49: 'mode' => 0x8000 + 0644,
50: 'uid' => 0,
51: 'gid' => 0,
52: 'size' => strlen($fileOrStream),
53: 'mtime' => time(),
54: );
55: }
56: }
57:
58: $link = null;
59: if ($stat['mode'] & 0x4000) {
60: $type = 5; // Directory
61: } else if ($stat['mode'] & 0x8000) {
62: $type = 0; // Regular
63: } else if ($stat['mode'] & 0xA000) {
64: $type = 1; // Link
65: $link = @readlink($current);
66: } else {
67: $type = 9; // Unknown
68: }
69:
70: $filePrefix = '';
71: if (strlen($path) > 255) {
72: throw new Exception(
73: "$path is too long, must be 255 characters or less"
74: );
75: } else if (strlen($path) > 100) {
76: $filePrefix = substr($path, 0, strlen($path)-100);
77: $path = substr($path, -100);
78: }
79:
80: $block = pack('a100a8a8a8a12A12',
81: $path,
82: decoct($stat['mode']),
83: sprintf('%6s ',decoct($stat['uid'])),
84: sprintf('%6s ',decoct($stat['gid'])),
85: sprintf('%11s ',decoct($stat['size'])),
86: sprintf('%11s ',decoct($stat['mtime']))
87: );
88:
89: $blockend = pack('a1a100a6a2a32a32a8a8a155a12',
90: $type,
91: $link,
92: 'ustar',
93: '00',
94: 'Pyrus',
95: 'Pyrus',
96: '',
97: '',
98: $filePrefix,
99: '');
100:
101: $checkheader = array_merge(str_split($block), str_split($blockend));
102: if (!function_exists('_pear2tarchecksum')) {
103: function _pear2tarchecksum($a, $b) {return $a + ord($b);}
104: }
105: $checksum = 256; // 8 * ord(' ');
106: $checksum += array_reduce($checkheader, '_pear2tarchecksum');
107:
108: $checksum = pack('a8', sprintf('%6s ', decoct($checksum)));
109:
110: fwrite($this->tmp, (binary)$block . $checksum . $blockend, 512);
111: if (is_resource($fileOrStream)) {
112: stream_copy_to_stream($fileOrStream, $this->tmp);
113: if ($stat['size'] % 512) {
114: fwrite($this->tmp, (binary)str_repeat("\0", 512 - $stat['size'] % 512));
115: }
116: } else {
117: fwrite($this->tmp, (binary)$fileOrStream);
118: if (strlen($fileOrStream) % 512) {
119: fwrite($this->tmp, (binary)str_repeat("\0", 512 - strlen($fileOrStream) % 512));
120: }
121: }
122: }
123:
124: /**
125: * Initialize the package creator
126: */
127: function init()
128: {
129: switch ($this->compress) {
130: case 'zlib' :
131: $this->tmp = gzopen($this->path, 'wb');
132: break;
133: case 'bz2' :
134: $this->tmp = bzopen($this->path, 'w');
135: break;
136: case 'none' :
137: $this->tmp = fopen($this->path, 'wb');
138: break;
139: default :
140: throw new Exception(
141: 'unknown compression type ' . $this->compress);
142: }
143: }
144:
145: /**
146: * Create an internal directory, creating parent directories as needed
147: *
148: * @param string $dir
149: */
150: function mkdir($dir)
151: {
152: $this->addFile($dir, "", array(
153: 'mode' => 0x4000 + 0644,
154: 'uid' => 0,
155: 'gid' => 0,
156: 'size' => 0,
157: 'mtime' => time(),
158: ));
159: }
160:
161: /**
162: * Finish saving the package
163: */
164: function close()
165: {
166: fwrite($this->tmp, pack('a1024', ''));
167: fclose($this->tmp);
168: }
169: }