diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-10-11 21:42:56 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-10-11 21:42:56 +0000 |
commit | c6ba2cbcfd360e747bad4643cfdd11d8c62f064a (patch) | |
tree | 491c683a271136288ca6db54be4dbeebfa862fe9 | |
parent | 4b8a18740872e02c6361ebd478fdfb6f5736061e (diff) | |
download | ellinika-c6ba2cbcfd360e747bad4643cfdd11d8c62f064a.tar.gz ellinika-c6ba2cbcfd360e747bad4643cfdd11d8c62f064a.tar.bz2 |
[IFACE!=CGI](cgi-server-hostname)
(cgi-server-protocol-name,cgi-server-protocol-version): New publics.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@474 941c8c0f-9102-463b-b60b-cd22ce0e6858
-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 @@ -37,12 +37,29 @@ ifelse(IFACE,[CGI],,dnl (define-public (cgi:names) (map car form-data)) (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)))))) + ) ;;; User-definable variables (define-public base-dir "PREFIX") (define-public html-dir "HTMLDIR") |