Changeset 12529 in project


Ignore:
Timestamp:
11/16/08 16:15:36 (12 years ago)
Author:
sjamaan
Message:

Change the way server-software is interpreted; make it a "product" value (like in user-agent and server headers) instead

Location:
release/4/spiffy/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy/trunk/cgi-handler.scm

    r12527 r12529  
    9494                                           (request-major req)
    9595                                           (request-minor req)))
     96            ("SERVER_SOFTWARE" . ,(and-let* ((contents (header-contents
     97                                                        'server
     98                                                        (response-headers
     99                                                         (current-response)))))
     100                                    (unparse-header 'server contents)))
    96101            ;; RFC 3875, section 4.1.6:
    97102            ;; "The value is derived in this way irrespective of whether
     
    169174
    170175(define cgi-default-environment
    171   (make-parameter `(("SERVER_SOFTWARE" . ,(server-software))
    172                     ("GATEWAY_INTERFACE" . "CGI/1.1"))))
     176  (make-parameter `(("GATEWAY_INTERFACE" . "CGI/1.1"))))
    173177)
  • release/4/spiffy/trunk/spiffy.scm

    r12527 r12529  
    6363
    6464;;; Configuration
    65 (define server-software  (make-parameter (conc "Spiffy/" version "." release)))
     65(define server-software  (make-parameter `(("Spiffy"
     66                                            ,(conc version "." release)
     67                                            ,(conc "Running on Chicken "
     68                                                   (chicken-version))))))
    6669(define root-path        (make-parameter "./web"))
    6770(define server-port      (make-parameter 8080))
     
    310313                    (make-response port: out
    311314                                   headers: (headers
    312                                              `((content-type text/html))))))
     315                                             `((content-type text/html)
     316                                               (server ,(server-software)))))))
    313317      (let ((path (uri-path (request-uri (current-request)))))
    314318        (receive (req cont)
Note: See TracChangeset for help on using the changeset viewer.