| 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 | ?> |
|---|
