chamilo / chamilo-lms

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

    $v_size = $p_entry['size'];

    while ($v_size != 0) {

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

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

      //$v_binary_data = pack('a'.$v_read_size, $v_buffer);

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

      $v_size -= $v_read_size;

    }

    @fclose($v_dest_file);

    @gzclose($v_src_file);

    if ($p_mode==0)

    {

      while ($p_size != 0)

      {

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

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

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

        $p_size -= $v_read_size;

      }

    }

    else if ($p_mode==1)

    {

    }

    else if ($p_mode==1)

    {

      while ($p_size != 0)

      {

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

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

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

        $p_size -= $v_read_size;

      }

    }

    else if ($p_mode==2)

    {

    }

    else if ($p_mode==2)

    {

      while ($p_size != 0)

      {

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

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

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

        $p_size -= $v_read_size;

      }

    }

    else if ($p_mode==3)

    {

    }

    else if ($p_mode==3)

    {

      while ($p_size != 0)

      {

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

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

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

        $p_size -= $v_read_size;

      }

    }

    // ----- Return