mambax7 /
extcal
| @@ 2834-2849 (lines=16) @@ | ||
| 2831 | } |
|
| 2832 | ||
| 2833 | // ----- Read the header properties |
|
| 2834 | if (1 != ($v_result = PclTarHandleReadHeader($v_binary_data, $v_header))) { |
|
| 2835 | // ----- Close the archive file |
|
| 2836 | if ('tar' === $p_tar_mode) { |
|
| 2837 | fclose($v_tar); |
|
| 2838 | fclose($v_temp_tar); |
|
| 2839 | } else { |
|
| 2840 | gzclose($v_tar); |
|
| 2841 | gzclose($v_temp_tar); |
|
| 2842 | } |
|
| 2843 | @unlink($v_temp_tarname); |
|
| 2844 | ||
| 2845 | // ----- Return |
|
| 2846 | TrFctEnd(__FILE__, __LINE__, $v_result); |
|
| 2847 | ||
| 2848 | return $v_result; |
|
| 2849 | } |
|
| 2850 | ||
| 2851 | // ----- Look for empty blocks to skip |
|
| 2852 | if ('' == $v_header['filename']) { |
|
| @@ 3107-3122 (lines=16) @@ | ||
| 3104 | } |
|
| 3105 | ||
| 3106 | // ----- Read the header properties |
|
| 3107 | if (1 != ($v_result = PclTarHandleReadHeader($v_binary_data, $v_header))) { |
|
| 3108 | // ----- Close the archive file |
|
| 3109 | if ('tar' === $p_tar_mode) { |
|
| 3110 | fclose($v_tar); |
|
| 3111 | fclose($v_temp_tar); |
|
| 3112 | } else { |
|
| 3113 | gzclose($v_tar); |
|
| 3114 | gzclose($v_temp_tar); |
|
| 3115 | } |
|
| 3116 | @unlink($v_temp_tarname); |
|
| 3117 | ||
| 3118 | // ----- Return |
|
| 3119 | TrFctEnd(__FILE__, __LINE__, $v_result); |
|
| 3120 | ||
| 3121 | return $v_result; |
|
| 3122 | } |
|
| 3123 | ||
| 3124 | // ----- Look for empty blocks to skip |
|
| 3125 | if ('' == $v_header['filename']) { |
|
