Listing 6. Reading the Request

while(1){
  r=BIO_gets(io,buf,BUFSIZZ-1);
  switch(SSL_get_error(ssl,r)){
    case SSL_ERROR_NONE:
      len=r;
      break;
    default:
      berr_exit("SSL read problem");
  }
  /* Look for the blank line that signals
    the end of the HTTP headers */
  if(!strcmp(buf,"\r\n") ||
    !strcmp(buf,"\n"))
    break;
}