Changeset 12529 in project for release/4/spiffy/trunk/spiffy.scm


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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.