|
@@ 1608-1616 (lines=9) @@
|
| 1605 |
|
} |
| 1606 |
|
|
| 1607 |
|
// ----- Call the header generation |
| 1608 |
|
if (($v_result = PclTarHandleHeader($p_tar, $p_filename, $p_mode, $p_header, $v_stored_filename)) != 1) { |
| 1609 |
|
// ----- Return status |
| 1610 |
|
TrFctEnd(__FILE__, __LINE__, $v_result); |
| 1611 |
|
|
| 1612 |
|
return $v_result; |
| 1613 |
|
} |
| 1614 |
|
|
| 1615 |
|
TrFctMessage(__FILE__, __LINE__, 4, 'File position after header =' . ($p_mode === 'tar' ? ftell($p_tar) : gztell($p_tar))); |
| 1616 |
|
|
| 1617 |
|
// ----- Read the file by 512 octets blocks |
| 1618 |
|
$i = 0; |
| 1619 |
|
while (($v_buffer = fread($v_file, 512)) != '') { |
|
@@ 1637-1645 (lines=9) @@
|
| 1634 |
|
} // ----- Look for a directory |
| 1635 |
|
else { |
| 1636 |
|
// ----- Call the header generation |
| 1637 |
|
if (($v_result = PclTarHandleHeader($p_tar, $p_filename, $p_mode, $p_header, $v_stored_filename)) != 1) { |
| 1638 |
|
// ----- Return status |
| 1639 |
|
TrFctEnd(__FILE__, __LINE__, $v_result); |
| 1640 |
|
|
| 1641 |
|
return $v_result; |
| 1642 |
|
} |
| 1643 |
|
|
| 1644 |
|
TrFctMessage(__FILE__, __LINE__, 4, 'File position after header =' . ($p_mode === 'tar' ? ftell($p_tar) : gztell($p_tar))); |
| 1645 |
|
} |
| 1646 |
|
|
| 1647 |
|
// ----- Return |
| 1648 |
|
TrFctEnd(__FILE__, __LINE__, $v_result); |
mambax7 /
extcal
