1 | <?php |
---|
2 | ///////////////////////////////////////////////////////////////// |
---|
3 | /// getID3() by James Heinrich <info@getid3.org> // |
---|
4 | // available at http://getid3.sourceforge.net // |
---|
5 | // or http://www.getid3.org // |
---|
6 | ///////////////////////////////////////////////////////////////// |
---|
7 | // See readme.txt for more details // |
---|
8 | ///////////////////////////////////////////////////////////////// |
---|
9 | // // |
---|
10 | // module.archive.tar.php // |
---|
11 | // module for analyzing TAR files // |
---|
12 | // dependencies: NONE // |
---|
13 | // /// |
---|
14 | ///////////////////////////////////////////////////////////////// |
---|
15 | // // |
---|
16 | // Module originally written by // |
---|
17 | // Mike Mozolin <teddybearØmail*ru> // |
---|
18 | // // |
---|
19 | ///////////////////////////////////////////////////////////////// |
---|
20 | |
---|
21 | |
---|
22 | class getid3_tar { |
---|
23 | |
---|
24 | function getid3_tar(&$fd, &$ThisFileInfo) { |
---|
25 | $ThisFileInfo['fileformat'] = 'tar'; |
---|
26 | $ThisFileInfo['tar']['files'] = array(); |
---|
27 | |
---|
28 | $unpack_header = 'a100fname/a8mode/a8uid/a8gid/a12size/a12mtime/a8chksum/a1typflag/a100lnkname/a6magic/a2ver/a32uname/a32gname/a8devmaj/a8devmin/a155prefix'; |
---|
29 | $null_512k = str_repeat("\x00", 512); // end-of-file marker |
---|
30 | |
---|
31 | @fseek($fd, 0); |
---|
32 | while (!feof($fd)) { |
---|
33 | $buffer = fread($fd, 512); |
---|
34 | if (strlen($buffer) < 512) { |
---|
35 | break; |
---|
36 | } |
---|
37 | |
---|
38 | // check the block |
---|
39 | $checksum = 0; |
---|
40 | for ($i = 0; $i < 148; $i++) { |
---|
41 | $checksum += ord($buffer{$i}); |
---|
42 | } |
---|
43 | for ($i = 148; $i < 156; $i++) { |
---|
44 | $checksum += ord(' '); |
---|
45 | } |
---|
46 | for ($i = 156; $i < 512; $i++) { |
---|
47 | $checksum += ord($buffer{$i}); |
---|
48 | } |
---|
49 | $attr = unpack($unpack_header, $buffer); |
---|
50 | $name = trim(@$attr['fname']); |
---|
51 | $mode = octdec(trim(@$attr['mode'])); |
---|
52 | $uid = octdec(trim(@$attr['uid'])); |
---|
53 | $gid = octdec(trim(@$attr['gid'])); |
---|
54 | $size = octdec(trim(@$attr['size'])); |
---|
55 | $mtime = octdec(trim(@$attr['mtime'])); |
---|
56 | $chksum = octdec(trim(@$attr['chksum'])); |
---|
57 | $typflag = trim(@$attr['typflag']); |
---|
58 | $lnkname = trim(@$attr['lnkname']); |
---|
59 | $magic = trim(@$attr['magic']); |
---|
60 | $ver = trim(@$attr['ver']); |
---|
61 | $uname = trim(@$attr['uname']); |
---|
62 | $gname = trim(@$attr['gname']); |
---|
63 | $devmaj = octdec(trim(@$attr['devmaj'])); |
---|
64 | $devmin = octdec(trim(@$attr['devmin'])); |
---|
65 | $prefix = trim(@$attr['prefix']); |
---|
66 | if (($checksum == 256) && ($chksum == 0)) { |
---|
67 | // EOF Found |
---|
68 | break; |
---|
69 | } |
---|
70 | if ($prefix) { |
---|
71 | $name = $prefix.'/'.$name; |
---|
72 | } |
---|
73 | if ((preg_match('#/$#', $name)) && !$name) { |
---|
74 | $typeflag = 5; |
---|
75 | } |
---|
76 | if ($buffer == $null_512k) { |
---|
77 | // it's the end of the tar-file... |
---|
78 | break; |
---|
79 | } |
---|
80 | |
---|
81 | // Read to the next chunk |
---|
82 | fseek($fd, $size, SEEK_CUR); |
---|
83 | |
---|
84 | $diff = $size % 512; |
---|
85 | if ($diff != 0) { |
---|
86 | // Padding, throw away |
---|
87 | fseek($fd, (512 - $diff), SEEK_CUR); |
---|
88 | } |
---|
89 | // Protect against tar-files with garbage at the end |
---|
90 | if ($name == '') { |
---|
91 | break; |
---|
92 | } |
---|
93 | $ThisFileInfo['tar']['file_details'][$name] = array ( |
---|
94 | 'name' => $name, |
---|
95 | 'mode_raw' => $mode, |
---|
96 | 'mode' => getid3_tar::display_perms($mode), |
---|
97 | 'uid' => $uid, |
---|
98 | 'gid' => $gid, |
---|
99 | 'size' => $size, |
---|
100 | 'mtime' => $mtime, |
---|
101 | 'chksum' => $chksum, |
---|
102 | 'typeflag' => getid3_tar::get_flag_type($typflag), |
---|
103 | 'linkname' => $lnkname, |
---|
104 | 'magic' => $magic, |
---|
105 | 'version' => $ver, |
---|
106 | 'uname' => $uname, |
---|
107 | 'gname' => $gname, |
---|
108 | 'devmajor' => $devmaj, |
---|
109 | 'devminor' => $devmin |
---|
110 | ); |
---|
111 | $ThisFileInfo['tar']['files'] = getid3_lib::array_merge_clobber($ThisFileInfo['tar']['files'], getid3_lib::CreateDeepArray($ThisFileInfo['tar']['file_details'][$name]['name'], '/', $size)); |
---|
112 | } |
---|
113 | return true; |
---|
114 | } |
---|
115 | |
---|
116 | // Parses the file mode to file permissions |
---|
117 | function display_perms($mode) { |
---|
118 | // Determine Type |
---|
119 | if ($mode & 0x1000) $type='p'; // FIFO pipe |
---|
120 | elseif ($mode & 0x2000) $type='c'; // Character special |
---|
121 | elseif ($mode & 0x4000) $type='d'; // Directory |
---|
122 | elseif ($mode & 0x6000) $type='b'; // Block special |
---|
123 | elseif ($mode & 0x8000) $type='-'; // Regular |
---|
124 | elseif ($mode & 0xA000) $type='l'; // Symbolic Link |
---|
125 | elseif ($mode & 0xC000) $type='s'; // Socket |
---|
126 | else $type='u'; // UNKNOWN |
---|
127 | |
---|
128 | // Determine permissions |
---|
129 | $owner['read'] = (($mode & 00400) ? 'r' : '-'); |
---|
130 | $owner['write'] = (($mode & 00200) ? 'w' : '-'); |
---|
131 | $owner['execute'] = (($mode & 00100) ? 'x' : '-'); |
---|
132 | $group['read'] = (($mode & 00040) ? 'r' : '-'); |
---|
133 | $group['write'] = (($mode & 00020) ? 'w' : '-'); |
---|
134 | $group['execute'] = (($mode & 00010) ? 'x' : '-'); |
---|
135 | $world['read'] = (($mode & 00004) ? 'r' : '-'); |
---|
136 | $world['write'] = (($mode & 00002) ? 'w' : '-'); |
---|
137 | $world['execute'] = (($mode & 00001) ? 'x' : '-'); |
---|
138 | |
---|
139 | // Adjust for SUID, SGID and sticky bit |
---|
140 | if ($mode & 0x800) $owner['execute'] = ($owner['execute'] == 'x') ? 's' : 'S'; |
---|
141 | if ($mode & 0x400) $group['execute'] = ($group['execute'] == 'x') ? 's' : 'S'; |
---|
142 | if ($mode & 0x200) $world['execute'] = ($world['execute'] == 'x') ? 't' : 'T'; |
---|
143 | |
---|
144 | $s = sprintf('%1s', $type); |
---|
145 | $s .= sprintf('%1s%1s%1s', $owner['read'], $owner['write'], $owner['execute']); |
---|
146 | $s .= sprintf('%1s%1s%1s', $group['read'], $group['write'], $group['execute']); |
---|
147 | $s .= sprintf('%1s%1s%1s'."\n", $world['read'], $world['write'], $world['execute']); |
---|
148 | return $s; |
---|
149 | } |
---|
150 | |
---|
151 | // Converts the file type |
---|
152 | function get_flag_type($typflag) { |
---|
153 | static $flag_types = array( |
---|
154 | '0' => 'LF_NORMAL', |
---|
155 | '1' => 'LF_LINK', |
---|
156 | '2' => 'LF_SYNLINK', |
---|
157 | '3' => 'LF_CHR', |
---|
158 | '4' => 'LF_BLK', |
---|
159 | '5' => 'LF_DIR', |
---|
160 | '6' => 'LF_FIFO', |
---|
161 | '7' => 'LF_CONFIG', |
---|
162 | 'D' => 'LF_DUMPDIR', |
---|
163 | 'K' => 'LF_LONGLINK', |
---|
164 | 'L' => 'LF_LONGNAME', |
---|
165 | 'M' => 'LF_MULTIVOL', |
---|
166 | 'N' => 'LF_NAMES', |
---|
167 | 'S' => 'LF_SPARSE', |
---|
168 | 'V' => 'LF_VOLHDR' |
---|
169 | ); |
---|
170 | return @$flag_types[$typflag]; |
---|
171 | } |
---|
172 | |
---|
173 | } |
---|
174 | |
---|
175 | ?> |
---|