HTTPS Client problem

Imported from http://bugzilla.roxen.com/bugzilla/show_bug.cgi?id=3621

Reported by Marcus Wellhardh wellhard@roxen.com

The search engine in Roxen CMS does not work when using HTTPS ports.

The following test program does not work when accessing a Roxen Webserver HTTPS site:

object o = Protocols.HTTP.Query();

void ok()
{
   write("ok...\n");
   write(sprintf("%O\n",o->headers));
   exit(0);
}

void fail()
{
   write("fail\n");
   exit(0);
}

int main(int foo, array args)
{
  if(sizeof(args) < 2) { werror("USAGE: https.pike <URL>\n"); exit(0); }
  Standards.URI uri = Standards.URI(args[1]);
  if(uri->scheme == "https") o->https = 1;
  o->set_callbacks(ok, fail);
  o->async_request(uri->host, uri->port, "GET / HTTP/1.0");
  return -17;
}