Changeset 15509 in project

Timestamp:

08/17/09 22:28:58 (10 years ago)

Author:

sjamaan

Message:

Implement bind-address

File:

• release/4/spiffy/trunk/spiffy.scm (modified) (3 diffs)

release/4/spiffy/trunk/spiffy.scm

@@ -43 +43 @@
    current-request remote-address local-address
    current-response current-file current-pathinfo
-   server-software root-path server-port server-ssl-context server-root-uri
-   index-files mime-type-map default-mime-type file-extension-handlers
+   server-software root-path server-port server-ssl-context
+   server-bind-address server-root-uri index-files
+   mime-type-map default-mime-type file-extension-handlers
    default-host vhost-map access-log error-log debug-log
    spiffy-user spiffy-group access-file max-connections
@@ -58 +59 @@
 
 ;;; Request processing information
-(define current-request    (make-parameter #f))
-(define current-response   (make-parameter #f))
-(define current-file       (make-parameter #f))
-(define current-pathinfo   (make-parameter #f))
-(define local-address      (make-parameter #f))
-(define remote-address     (make-parameter #f))
+(define current-request     (make-parameter #f))
+(define current-response    (make-parameter #f))
+(define current-file        (make-parameter #f))
+(define current-pathinfo    (make-parameter #f))
+(define local-address       (make-parameter #f))
+(define remote-address      (make-parameter #f))
 
 ;;; Configuration
-(define server-software    (make-parameter `(("Spiffy"
-                                              ,(conc version "." release)
-                                              ,(conc "Running on Chicken "
-                                                     (chicken-version))))))
-(define root-path          (make-parameter "./web"))
-(define server-port        (make-parameter 8080))
-(define server-ssl-context (make-parameter #f))
-(define index-files        (make-parameter '("index.html" "index.xhtml")))
+(define server-software     (make-parameter `(("Spiffy"
+                                               ,(conc version "." release)
+                                               ,(conc "Running on Chicken "
+                                                      (chicken-version))))))
+(define root-path           (make-parameter "./web"))
+(define server-port         (make-parameter 8080))
+(define server-ssl-context  (make-parameter #f))
+(define server-bind-address (make-parameter #f))
+(define index-files         (make-parameter '("index.html" "index.xhtml")))
 (define mime-type-map
   (make-parameter
@@ -431 +433 @@
 (define (start-server #!key
                       (port (server-port))
-                      (ssl-context (server-ssl-context)))
+                      (ssl-context (server-ssl-context))
+                      (bind-address (server-bind-address)))
   (parameterize ((load-verbose #f))
     (letrec ((thread-count (make-mutex/value 'thread-count 0))
              (listener (if ssl-context
-                           (ssl-listen port 4 #f ssl-context)
-                           (tcp-listen port)))
+                           (ssl-listen port 4 bind-address ssl-context)
+                           (tcp-listen port 10 bind-address)))
              (accept-next-connection
               (lambda ()