[MKDoc-commit] [1.6] rewrite http(s) for hosts behind SSL proxies

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
[1.6] rewrite http(s) for hosts behind SSL proxies

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/MKDoc:
        CGI.pm

-------------- next part --------------
Index: CGI.pm
===================================================================
RCS file: /var/spool/cvs/mkd/MKDoc/Attic/CGI.pm,v
retrieving revision 1.3.2.24
retrieving revision 1.3.2.25
diff -LMKDoc/CGI.pm -LMKDoc/CGI.pm -u -r1.3.2.24 -r1.3.2.25
--- MKDoc/CGI.pm
+++ MKDoc/CGI.pm
@@ -74,6 +74,11 @@
     $url =~ s/(.*?\:\/\/(?:.*?\@)?)(.*):(?:${port_strip_str})(?!\d)(.*)/$1$2$3/
         if ($url =~ /(.*?\:\/\/(?:.*?\@)?)(.*):${port_strip_str}(?!\d)(.*)/);
 
+    # may be behind an SSL proxy, rewrite appropriately
+    use MKDoc::Config;
+    $url =~ s/^http:/https:/
+        if (MKDoc::Config->USER_DOMAIN =~ /^https:/ and defined $ENV{REMOTE_USER});
+
     return $url;
 }