tar.gz - chmod

jeg har en funktion som skal lave en header til hver fil i min .tar fil, men tror jeg gør noget galt

    function header_block($pathfile)
    {
        if(strlen($pathfile) > 99) die('Error: More than 99 chars in path: '.$pathfile);
       
        $stat_arr = stat($pathfile);
        if(substr($pathfile, -1, 1) == '/') $stat_arr['size'] = 0;
       
        $header_arr = pack(
            'a100a8a8a8a12A12a8a1a100a255',
            $pathfile,
            sprintf('%6s ', decoct($stat_arr['mode'])),
            sprintf('%6s ', decoct($stat_arr['uid'])),
            sprintf('%6s ', decoct($stat_arr['gid'])),
            sprintf('%11s ', decoct($stat_arr['size'])),
            sprintf('%11s ', decoct($stat_arr['mtime'])),
            sprintf('%8s ', ' '),
            (substr($pathfile, -1, 1) == '/' ? 5:0),
            '',
            ''
        );
       
        clearstatcache();
       
        $checksum = 0;
        for($i=0; $i<512; $i++) $checksum += chr($header_arr{$i});
       
        $checksum_data = pack(
            'a8',
            sprintf('%6s ', decoct($checksum))
        );
       
        for($i=0, $j=148; $i<7; $i++, $j++) $header_arr[$j] = $checksum_data[$i];
       
        return $header_arr;
    }

lukker