diff options
-rw-r--r-- | ellinika/cgi.scm4 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/ellinika/cgi.scm4 b/ellinika/cgi.scm4 index dc7c05d..a7ec2c4 100644 --- a/ellinika/cgi.scm4 +++ b/ellinika/cgi.scm4 @@ -40,6 +40,23 @@ ifelse(IFACE,[CGI],,dnl (define-public cgi-script-name (table:get (request-rec:subprocess-env Request) "SCRIPT_NAME")) + +(define-public cgi-server-hostname + (table:get (request-rec:subprocess-env Request) + "SERVER_NAME")) + +(define-public cgi-server-protocol-name #f) +(define-public cgi-server-protocol-version #f) + +(let* ((server-protocol (table:get (request-rec:subprocess-env Request) + "SERVER_PROTOCOL"))) + (if server-protocol + (let ((slash (string-index server-protocol #\/))) + (set! cgi-server-protocol-name (substring server-protocol + 0 slash)) + (set! cgi-server-protocol-version (substring server-protocol + (1+ slash)))))) + ) |