chamilo / chamilo-lms

    $v_binary_data = fread($this->zip_fd, 26);

    // ----- Look for invalid block size

    if (strlen($v_binary_data) != 26)

    {

      $p_header['filename'] = "";

      $p_header['status'] = "invalid_header";

      // ----- Error log

      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid block size : ".strlen($v_binary_data));

      // ----- Return

      return PclZip::errorCode();

    }

    // ----- Extract the values

    $v_data = unpack('vversion/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len', $v_binary_data);

    $v_binary_data = fread($this->zip_fd, 42);

    // ----- Look for invalid block size

    if (strlen($v_binary_data) != 42)

    {

      $p_header['filename'] = "";

      $p_header['status'] = "invalid_header";

      // ----- Error log

      PclZip::privErrorLog(PCLZIP_ERR_BAD_FORMAT, "Invalid block size : ".strlen($v_binary_data));

      // ----- Return

      return PclZip::errorCode();

    }

    // ----- Extract the values

    $p_header = unpack('vversion/vversion_extracted/vflag/vcompression/vmtime/vmdate/Vcrc/Vcompressed_size/Vsize/vfilename_len/vextra_len/vcomment_len/vdisk/vinternal/Vexternal/Voffset', $v_binary_data);