chamilo / chamilo-lms

        else {

        // ----- Open the source file

        if (($v_file = @fopen($p_filename, "rb")) == 0) {

          PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '$p_filename' in binary read mode");

          return PclZip::errorCode();

        }

        // ----- Read the file content

        $v_content = @fread($v_file, $p_header['size']);

    // ----- Open the source file

    if (($v_file = @fopen($p_filename, "rb")) == 0) {

      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, "Unable to open file '$p_filename' in binary read mode");

      return PclZip::errorCode();

    }

    // ----- Creates a compressed temporary file

    $v_gzip_temp_name = PCLZIP_TEMPORARY_DIR.uniqid('pclzip-').'.gz';

    }

    // ----- Extract the compressed attributes

    if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0) {

      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary read mode');

      return PclZip::errorCode();

    }

    // ----- Read the gzip file header

    $v_binary_data = @fread($v_file_compressed, 10);

    }

    // ----- Add the compressed data

    if (($v_file_compressed = @fopen($v_gzip_temp_name, "rb")) == 0)

    {

      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open temporary file \''.$v_gzip_temp_name.'\' in binary read mode');

      return PclZip::errorCode();

    }

    // ----- Read the file by PCLZIP_READ_BLOCK_SIZE octets blocks

    fseek($v_file_compressed, 10);

    }

    // ----- Open the temporary file in write mode

    if (($v_zip_temp_fd = @fopen($p_archive_filename, 'rb')) == 0)

    {

      $this->privCloseFd();

      PclZip::privErrorLog(PCLZIP_ERR_READ_OPEN_FAIL, 'Unable to open archive file \''.$p_archive_filename.'\' in binary write mode');

      // ----- Return

      return PclZip::errorCode();

    }

    // ----- Copy the files from the archive to the temporary file

    // TBC : Here I should better append the file and go back to erase the central dir