www/plugins-dist/medias/lib/getid3/module.archive.tar.php

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