mambax7 /
extcal
| @@ 2857-2872 (lines=16) @@ | ||
| 2854 | } |
|
| 2855 | ||
| 2856 | // ----- Read the header properties |
|
| 2857 | if (($v_result = PclTarHandleReadHeader($v_binary_data, $v_header)) != 1) { |
|
| 2858 | // ----- Close the archive file |
|
| 2859 | if ($p_tar_mode === 'tar') { |
|
| 2860 | fclose($v_tar); |
|
| 2861 | fclose($v_temp_tar); |
|
| 2862 | } else { |
|
| 2863 | gzclose($v_tar); |
|
| 2864 | gzclose($v_temp_tar); |
|
| 2865 | } |
|
| 2866 | @unlink($v_temp_tarname); |
|
| 2867 | ||
| 2868 | // ----- Return |
|
| 2869 | TrFctEnd(__FILE__, __LINE__, $v_result); |
|
| 2870 | ||
| 2871 | return $v_result; |
|
| 2872 | } |
|
| 2873 | ||
| 2874 | // ----- Look for empty blocks to skip |
|
| 2875 | if ($v_header['filename'] == '') { |
|
| @@ 3130-3145 (lines=16) @@ | ||
| 3127 | } |
|
| 3128 | ||
| 3129 | // ----- Read the header properties |
|
| 3130 | if (($v_result = PclTarHandleReadHeader($v_binary_data, $v_header)) != 1) { |
|
| 3131 | // ----- Close the archive file |
|
| 3132 | if ($p_tar_mode === 'tar') { |
|
| 3133 | fclose($v_tar); |
|
| 3134 | fclose($v_temp_tar); |
|
| 3135 | } else { |
|
| 3136 | gzclose($v_tar); |
|
| 3137 | gzclose($v_temp_tar); |
|
| 3138 | } |
|
| 3139 | @unlink($v_temp_tarname); |
|
| 3140 | ||
| 3141 | // ----- Return |
|
| 3142 | TrFctEnd(__FILE__, __LINE__, $v_result); |
|
| 3143 | ||
| 3144 | return $v_result; |
|
| 3145 | } |
|
| 3146 | ||
| 3147 | // ----- Look for empty blocks to skip |
|
| 3148 | if ($v_header['filename'] == '') { |
|
