chamilo / chamilo-lms

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

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

    if (($v_file_compressed = @gzopen($v_gzip_temp_name, "wb")) == 0) {

      fclose($v_file);

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

      return PclZip::errorCode();

    }

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

    $v_size = filesize($p_filename);

    // ----- Creates a temporary file

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

    if (($v_dest_file = @fopen($v_gzip_temp_name, "wb")) == 0) {

      fclose($v_file);

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

      return PclZip::errorCode();

    }

    // ----- Write gz file format header

    }

    // ----- Open the temporary gz file

    if (($v_src_file = @gzopen($v_gzip_temp_name, 'rb')) == 0) {

      @fclose($v_dest_file);

      $p_entry['status'] = "read_error";

      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