module.archive.tar.php

Go to the documentation of this file.

<?php
//  available at http://getid3.sourceforge.net                 //
//            or http://www.getid3.org                         //
// See readme.txt for more details                             //
//                                                             //
// module.archive.tar.php                                      //
// written by Mike Mozolin <teddybearØmail*ru>                 //
// module for analyzing TAR files                              //
// dependencies: NONE                                          //
//                                                            ///
 
class getid3_tar {
 
        function getid3_tar(&$fd, &$ThisFileInfo) {
                $ThisFileInfo['fileformat'] = 'tar';
                $ThisFileInfo['tar']['files'] = array();
 
                $unpack_header = 'a100fname/a8mode/a8uid/a8gid/a12size/a12mtime/a8chksum/a1typflag/a100lnkname/a6magic/a2ver/a32uname/a32gname/a8devmaj/a8devmin/a155/prefix';
                $null_512k = str_repeat("\0", 512); // end-of-file marker
 
                @fseek($fd, 0);
        while (!feof($fd)) {
            $buffer = fread($fd, 512);
 
                        // check the block
                        $checksum = 0;
                        for ($i = 0; $i < 148; $i++) {
                                $checksum += ord($buffer{$i});
                        }
                        for ($i = 148; $i < 156; $i++) {
                                $checksum += ord(' ');
                        }
                        for ($i = 156; $i < 512; $i++) {
                                $checksum += ord($buffer{$i});
                        }
                        $attr    = unpack($unpack_header, $buffer);
                        $name    =        trim(@$attr['fname']);
                        $mode    = octdec(trim(@$attr['mode']));
                        $uid     = octdec(trim(@$attr['uid']));
                        $gid     = octdec(trim(@$attr['gid']));
                        $size    = octdec(trim(@$attr['size']));
                        $mtime   = octdec(trim(@$attr['mtime']));
                        $chksum  = octdec(trim(@$attr['chksum']));
                        $typflag =        trim(@$attr['typflag']);
                        $lnkname =        trim(@$attr['lnkname']);
                        $magic   =        trim(@$attr['magic']);
                        $ver     =        trim(@$attr['ver']);
                        $uname   =        trim(@$attr['uname']);
                        $gname   =        trim(@$attr['gname']);
                        $devmaj  = octdec(trim(@$attr['devmaj']));
                        $devmin  = octdec(trim(@$attr['devmin']));
                        $prefix  =        trim(@$attr['prefix']);
                        if (($checksum == 256) && ($chksum == 0)) {
                                // EOF Found
                                break;
                        }
                        if ($prefix) {
                                $name = $prefix.'/'.$name;
                        }
                        if ((preg_match('#/$#', $name)) && !$name) {
                                $typeflag = 5;
                        }
                        if ($buffer == $null_512k) {
                                // it's the end of the tar-file...
                                break;
                        }
 
                        // Read to the next chunk
                        fseek($fd, $size, SEEK_CUR);
 
                        $diff = $size % 512;
                        if ($diff != 0) {
                                // Padding, throw away
                                fseek($fd, (512 - $diff), SEEK_CUR);
                        }
                        // Protect against tar-files with garbage at the end
                        if ($name == '') {
                                break;
                        }
                        $ThisFileInfo['tar']['file_details'][$name] = array (
                                'name'     => $name,
                                'mode_raw' => $mode,
                                'mode'     => getid3_tar::display_perms($mode),
                                'uid'      => $uid,
                                'gid'      => $gid,
                                'size'     => $size,
                                'mtime'    => $mtime,
                                'chksum'   => $chksum,
                                'typeflag' => getid3_tar::get_flag_type($typflag),
                                'linkname' => $lnkname,
                                'magic'    => $magic,
                                'version'  => $ver,
                                'uname'    => $uname,
                                'gname'    => $gname,
                                'devmajor' => $devmaj,
                                'devminor' => $devmin
                        );
                        $ThisFileInfo['tar']['files'] = getid3_lib::array_merge_clobber($ThisFileInfo['tar']['files'], getid3_lib::CreateDeepArray($ThisFileInfo['tar']['file_details'][$name]['name'], '/', $size));
                }
                return true;
        }
 
        // Parses the file mode to file permissions
        function display_perms($mode) {
                // Determine Type
                if     ($mode & 0x1000) $type='p'; // FIFO pipe
                elseif ($mode & 0x2000) $type='c'; // Character special
                elseif ($mode & 0x4000) $type='d'; // Directory
                elseif ($mode & 0x6000) $type='b'; // Block special
                elseif ($mode & 0x8000) $type='-'; // Regular
                elseif ($mode & 0xA000) $type='l'; // Symbolic Link
                elseif ($mode & 0xC000) $type='s'; // Socket
                else                    $type='u'; // UNKNOWN
 
                // Determine permissions
                $owner['read']    = (($mode & 00400) ? 'r' : '-');
                $owner['write']   = (($mode & 00200) ? 'w' : '-');
                $owner['execute'] = (($mode & 00100) ? 'x' : '-');
                $group['read']    = (($mode & 00040) ? 'r' : '-');
                $group['write']   = (($mode & 00020) ? 'w' : '-');
                $group['execute'] = (($mode & 00010) ? 'x' : '-');
                $world['read']    = (($mode & 00004) ? 'r' : '-');
                $world['write']   = (($mode & 00002) ? 'w' : '-');
                $world['execute'] = (($mode & 00001) ? 'x' : '-');
 
                // Adjust for SUID, SGID and sticky bit
                if ($mode & 0x800) $owner['execute'] = ($owner['execute'] == 'x') ? 's' : 'S';
                if ($mode & 0x400) $group['execute'] = ($group['execute'] == 'x') ? 's' : 'S';
                if ($mode & 0x200) $world['execute'] = ($world['execute'] == 'x') ? 't' : 'T';
 
                $s  = sprintf('%1s', $type);
                $s .= sprintf('%1s%1s%1s',      $owner['read'], $owner['write'], $owner['execute']);
                $s .= sprintf('%1s%1s%1s',      $group['read'], $group['write'], $group['execute']);
                $s .= sprintf('%1s%1s%1s'."\n", $world['read'], $world['write'], $world['execute']);
                return $s;
        }
 
        // Converts the file type
        function get_flag_type($typflag) {
                static $flag_types = array(
                        '0' => 'LF_NORMAL',
                        '1' => 'LF_LINK',
                        '2' => 'LF_SYNLINK',
                        '3' => 'LF_CHR',
                        '4' => 'LF_BLK',
                        '5' => 'LF_DIR',
                        '6' => 'LF_FIFO',
                        '7' => 'LF_CONFIG',
                        'D' => 'LF_DUMPDIR',
                        'K' => 'LF_LONGLINK',
                        'L' => 'LF_LONGNAME',
                        'M' => 'LF_MULTIVOL',
                        'N' => 'LF_NAMES',
                        'S' => 'LF_SPARSE',
                        'V' => 'LF_VOLHDR'
                );
                return @$flag_types[$typflag];
        }
 
}
 
?>