Protocols.HTTP.Query: Enable timeouts for blocking SSL too.

Non-responsive blocking https requests will now terminate after
the set timeout (default 2 minutes).

lib/modules/Protocols.pmod/HTTP.pmod/Query.pike

@@ -248,6 +248,11 @@ protected int ponder_answer( int|void start_position )
    ok=1;
    remove_async_timeout();
    TOUCH_TIMEOUT_WATCHDOG();
+   if (con && con->set_timeout) {
+     // SSL connection.
+     con->set_timeout((data_timeout || timeout) &&
+                      (float)(data_timeout || timeout));
+   }
 
    if (request_ok) request_ok(this,@extra_args);
    return 1;
@@ -302,6 +307,8 @@ void start_tls(int|void blocking, int|void async)
     ssl->set_blocking();
   }
 
+  ssl->set_timeout(timeout && (float)timeout);
+
   if (!(ssl_session = ssl->connect(real_host, ssl_session))) {
     error("HTTPS connection failed.\n");
   }