Edit File by line

// Function : PclZipUtilPathInclusion()

[5500] Fix | Delete

// Description :

[5501] Fix | Delete

// This function indicates if the path $p_path is under the $p_dir tree. Or,

[5502] Fix | Delete

// said in an other way, if the file or sub-dir $p_path is inside the dir

[5503] Fix | Delete

// $p_dir.

[5504] Fix | Delete

// The function indicates also if the path is exactly the same as the dir.

[5505] Fix | Delete

// This function supports path with duplicated '/' like '//', but does not

[5506] Fix | Delete

// support '.' or '..' statements.

[5507] Fix | Delete

// Parameters :

[5508] Fix | Delete

// Return Values :

[5509] Fix | Delete

// 0 if $p_path is not inside directory $p_dir

[5510] Fix | Delete

// 1 if $p_path is inside directory $p_dir

[5511] Fix | Delete

// 2 if $p_path is exactly the same as $p_dir

[5512] Fix | Delete

// --------------------------------------------------------------------------------

[5513] Fix | Delete

function PclZipUtilPathInclusion($p_dir, $p_path)

[5514] Fix | Delete

{

[5515] Fix | Delete

$v_result = 1;

[5516] Fix | Delete

[5517] Fix | Delete

// ----- Look for path beginning by ./

[5518] Fix | Delete

if ( ($p_dir == '.')

[5519] Fix | Delete

|| ((strlen($p_dir) >=2) && (substr($p_dir, 0, 2) == './'))) {

[5520] Fix | Delete

$p_dir = PclZipUtilTranslateWinPath(getcwd(), FALSE).'/'.substr($p_dir, 1);

[5521] Fix | Delete

}

[5522] Fix | Delete

if ( ($p_path == '.')

[5523] Fix | Delete

|| ((strlen($p_path) >=2) && (substr($p_path, 0, 2) == './'))) {

[5524] Fix | Delete

$p_path = PclZipUtilTranslateWinPath(getcwd(), FALSE).'/'.substr($p_path, 1);

[5525] Fix | Delete

}

[5526] Fix | Delete

[5527] Fix | Delete

// ----- Explode dir and path by directory separator

[5528] Fix | Delete

$v_list_dir = explode("/", $p_dir);

[5529] Fix | Delete

$v_list_dir_size = sizeof($v_list_dir);

[5530] Fix | Delete

$v_list_path = explode("/", $p_path);

[5531] Fix | Delete

$v_list_path_size = sizeof($v_list_path);

[5532] Fix | Delete

[5533] Fix | Delete

// ----- Study directories paths

[5534] Fix | Delete

$i = 0;

[5535] Fix | Delete

$j = 0;

[5536] Fix | Delete

while (($i < $v_list_dir_size) && ($j < $v_list_path_size) && ($v_result)) {

[5537] Fix | Delete

[5538] Fix | Delete

// ----- Look for empty dir (path reduction)

[5539] Fix | Delete

if ($v_list_dir[$i] == '') {

[5540] Fix | Delete

$i++;

[5541] Fix | Delete

continue;

[5542] Fix | Delete

}

[5543] Fix | Delete

if ($v_list_path[$j] == '') {

[5544] Fix | Delete

$j++;

[5545] Fix | Delete

continue;

[5546] Fix | Delete

}

[5547] Fix | Delete

[5548] Fix | Delete

// ----- Compare the items

[5549] Fix | Delete

if (($v_list_dir[$i] != $v_list_path[$j]) && ($v_list_dir[$i] != '') && ( $v_list_path[$j] != '')) {

[5550] Fix | Delete

$v_result = 0;

[5551] Fix | Delete

}

[5552] Fix | Delete

[5553] Fix | Delete

// ----- Next items

[5554] Fix | Delete

$i++;

[5555] Fix | Delete

$j++;

[5556] Fix | Delete

}

[5557] Fix | Delete

[5558] Fix | Delete

// ----- Look if everything seems to be the same

[5559] Fix | Delete

if ($v_result) {

[5560] Fix | Delete

// ----- Skip all the empty items

[5561] Fix | Delete

while (($j < $v_list_path_size) && ($v_list_path[$j] == '')) $j++;

[5562] Fix | Delete

while (($i < $v_list_dir_size) && ($v_list_dir[$i] == '')) $i++;

[5563] Fix | Delete

[5564] Fix | Delete

if (($i >= $v_list_dir_size) && ($j >= $v_list_path_size)) {

[5565] Fix | Delete

// ----- There are exactly the same

[5566] Fix | Delete

$v_result = 2;

[5567] Fix | Delete

}

[5568] Fix | Delete

else if ($i < $v_list_dir_size) {

[5569] Fix | Delete

// ----- The path is shorter than the dir

[5570] Fix | Delete

$v_result = 0;

[5571] Fix | Delete

}

[5572] Fix | Delete

}

[5573] Fix | Delete

[5574] Fix | Delete

// ----- Return

[5575] Fix | Delete

return $v_result;

[5576] Fix | Delete

}

[5577] Fix | Delete

// --------------------------------------------------------------------------------

[5578] Fix | Delete

[5579] Fix | Delete

// --------------------------------------------------------------------------------

[5580] Fix | Delete

// Function : PclZipUtilCopyBlock()

[5581] Fix | Delete

// Description :

[5582] Fix | Delete

// Parameters :

[5583] Fix | Delete

// $p_mode : read/write compression mode

[5584] Fix | Delete

// 0 : src & dest normal

[5585] Fix | Delete

// 1 : src gzip, dest normal

[5586] Fix | Delete

// 2 : src normal, dest gzip

[5587] Fix | Delete

// 3 : src & dest gzip

[5588] Fix | Delete

// Return Values :

[5589] Fix | Delete

// --------------------------------------------------------------------------------

[5590] Fix | Delete

function PclZipUtilCopyBlock($p_src, $p_dest, $p_size, $p_mode=0)

[5591] Fix | Delete

{

[5592] Fix | Delete

$v_result = 1;

[5593] Fix | Delete

[5594] Fix | Delete

if ($p_mode==0)

[5595] Fix | Delete

{

[5596] Fix | Delete

while ($p_size != 0)

[5597] Fix | Delete

{

[5598] Fix | Delete

$v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);

[5599] Fix | Delete

$v_buffer = @fread($p_src, $v_read_size);

[5600] Fix | Delete

@fwrite($p_dest, $v_buffer, $v_read_size);

[5601] Fix | Delete

$p_size -= $v_read_size;

[5602] Fix | Delete

}

[5603] Fix | Delete

}

[5604] Fix | Delete

else if ($p_mode==1)

[5605] Fix | Delete

{

[5606] Fix | Delete

while ($p_size != 0)

[5607] Fix | Delete

{

[5608] Fix | Delete

$v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);

[5609] Fix | Delete

$v_buffer = @gzread($p_src, $v_read_size);

[5610] Fix | Delete

@fwrite($p_dest, $v_buffer, $v_read_size);

[5611] Fix | Delete

$p_size -= $v_read_size;

[5612] Fix | Delete

}

[5613] Fix | Delete

}

[5614] Fix | Delete

else if ($p_mode==2)

[5615] Fix | Delete

{

[5616] Fix | Delete

while ($p_size != 0)

[5617] Fix | Delete

{

[5618] Fix | Delete

$v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);

[5619] Fix | Delete

$v_buffer = @fread($p_src, $v_read_size);

[5620] Fix | Delete

@gzwrite($p_dest, $v_buffer, $v_read_size);

[5621] Fix | Delete

$p_size -= $v_read_size;

[5622] Fix | Delete

}

[5623] Fix | Delete

}

[5624] Fix | Delete

else if ($p_mode==3)

[5625] Fix | Delete

{

[5626] Fix | Delete

while ($p_size != 0)

[5627] Fix | Delete

{

[5628] Fix | Delete

$v_read_size = ($p_size < PCLZIP_READ_BLOCK_SIZE ? $p_size : PCLZIP_READ_BLOCK_SIZE);

[5629] Fix | Delete

$v_buffer = @gzread($p_src, $v_read_size);

[5630] Fix | Delete

@gzwrite($p_dest, $v_buffer, $v_read_size);

[5631] Fix | Delete

$p_size -= $v_read_size;

[5632] Fix | Delete

}

[5633] Fix | Delete

}

[5634] Fix | Delete

[5635] Fix | Delete

// ----- Return

[5636] Fix | Delete

return $v_result;

[5637] Fix | Delete

}

[5638] Fix | Delete

// --------------------------------------------------------------------------------

[5639] Fix | Delete

[5640] Fix | Delete

// --------------------------------------------------------------------------------

[5641] Fix | Delete

// Function : PclZipUtilRename()

[5642] Fix | Delete

// Description :

[5643] Fix | Delete

// This function tries to do a simple rename() function. If it fails, it

[5644] Fix | Delete

// tries to copy the $p_src file in a new $p_dest file and then unlink the

[5645] Fix | Delete

// first one.

[5646] Fix | Delete

// Parameters :

[5647] Fix | Delete

// $p_src : Old filename

[5648] Fix | Delete

// $p_dest : New filename

[5649] Fix | Delete

// Return Values :

[5650] Fix | Delete

// 1 on success, 0 on failure.

[5651] Fix | Delete

// --------------------------------------------------------------------------------

[5652] Fix | Delete

function PclZipUtilRename($p_src, $p_dest)

[5653] Fix | Delete

{

[5654] Fix | Delete

$v_result = 1;

[5655] Fix | Delete

[5656] Fix | Delete

// ----- Try to rename the files

[5657] Fix | Delete

if (!@rename($p_src, $p_dest)) {

[5658] Fix | Delete

[5659] Fix | Delete

// ----- Try to copy & unlink the src

[5660] Fix | Delete

if (!@copy($p_src, $p_dest)) {

[5661] Fix | Delete

$v_result = 0;

[5662] Fix | Delete

}

[5663] Fix | Delete

else if (!@unlink($p_src)) {

[5664] Fix | Delete

$v_result = 0;

[5665] Fix | Delete

}

[5666] Fix | Delete

}

[5667] Fix | Delete

[5668] Fix | Delete

// ----- Return

[5669] Fix | Delete

return $v_result;

[5670] Fix | Delete

}

[5671] Fix | Delete

// --------------------------------------------------------------------------------

[5672] Fix | Delete

[5673] Fix | Delete

// --------------------------------------------------------------------------------

[5674] Fix | Delete

// Function : PclZipUtilOptionText()

[5675] Fix | Delete

// Description :

[5676] Fix | Delete

// Translate option value in text. Mainly for debug purpose.

[5677] Fix | Delete

// Parameters :

[5678] Fix | Delete

// $p_option : the option value.

[5679] Fix | Delete

// Return Values :

[5680] Fix | Delete

// The option text value.

[5681] Fix | Delete

// --------------------------------------------------------------------------------

[5682] Fix | Delete

function PclZipUtilOptionText($p_option)

[5683] Fix | Delete

{

[5684] Fix | Delete

[5685] Fix | Delete

$v_list = get_defined_constants();

[5686] Fix | Delete

for (reset($v_list); $v_key = key($v_list); next($v_list)) {

[5687] Fix | Delete

$v_prefix = substr($v_key, 0, 10);

[5688] Fix | Delete

if (( ($v_prefix == 'PCLZIP_OPT')

[5689] Fix | Delete

|| ($v_prefix == 'PCLZIP_CB_')

[5690] Fix | Delete

|| ($v_prefix == 'PCLZIP_ATT'))

[5691] Fix | Delete

&& ($v_list[$v_key] == $p_option)) {

[5692] Fix | Delete

return $v_key;

[5693] Fix | Delete

}

[5694] Fix | Delete

}

[5695] Fix | Delete

[5696] Fix | Delete

$v_result = 'Unknown';

[5697] Fix | Delete

[5698] Fix | Delete

return $v_result;

[5699] Fix | Delete

}

[5700] Fix | Delete

// --------------------------------------------------------------------------------

[5701] Fix | Delete

[5702] Fix | Delete

// --------------------------------------------------------------------------------

[5703] Fix | Delete

// Function : PclZipUtilTranslateWinPath()

[5704] Fix | Delete

// Description :

[5705] Fix | Delete

// Translate windows path by replacing '\' by '/' and optionally removing

[5706] Fix | Delete

// drive letter.

[5707] Fix | Delete

// Parameters :

[5708] Fix | Delete

// $p_path : path to translate.

[5709] Fix | Delete

// $p_remove_disk_letter : true | false

[5710] Fix | Delete

// Return Values :

[5711] Fix | Delete

// The path translated.

[5712] Fix | Delete

// --------------------------------------------------------------------------------

[5713] Fix | Delete

function PclZipUtilTranslateWinPath($p_path, $p_remove_disk_letter=true)

[5714] Fix | Delete

{

[5715] Fix | Delete

if (stristr(php_uname(), 'windows')) {

[5716] Fix | Delete

// ----- Look for potential disk letter

[5717] Fix | Delete

if (($p_remove_disk_letter) && (($v_position = strpos($p_path, ':')) != false)) {

[5718] Fix | Delete

$p_path = substr($p_path, $v_position+1);

[5719] Fix | Delete

}

[5720] Fix | Delete

// ----- Change potential windows directory separator

[5721] Fix | Delete

if ((strpos($p_path, '\\') > 0) || (substr($p_path, 0,1) == '\\')) {

[5722] Fix | Delete

$p_path = strtr($p_path, '\\', '/');

[5723] Fix | Delete

}

[5724] Fix | Delete

}

[5725] Fix | Delete

return $p_path;

[5726] Fix | Delete

}

[5727] Fix | Delete

// --------------------------------------------------------------------------------

[5728] Fix | Delete

[5729] Fix | Delete

[5730] Fix | Delete

[5731] Fix | Delete

[5732] Fix | Delete

1 ...7 8 9 10 1112