From: Richard Kettlewell <rjk@greenend.org.uk>
Date: Sat, 10 May 2008 19:48:15 +0000 (+0100)
Subject: infer_url() now attempts to spot https
X-Git-Tag: 4.0~76^2~37
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/disorder/commitdiff_plain/3c35e8a0720481f5c235fe32d7f128642661bc41

infer_url() now attempts to spot https
---

diff --git a/lib/url.c b/lib/url.c
index 6d19911..16f3257 100644
--- a/lib/url.c
+++ b/lib/url.c
@@ -44,6 +44,10 @@ char *infer_url(void) {
   const char *scheme = "http", *server, *script, *e, *request_uri;
   char *url;
   int port;
+
+  /* mod_ssl sets HTTPS=on if the scheme is https */
+  if((e = getenv("HTTPS")) && !strcmp(e, "on"))
+    scheme = "https";
   
   /* Figure out the server.  'MUST' be set and we don't cope if it
    * is not. */