Changeset 24869 in project for release/4/vandusen/trunk/vandusen-remote.scm

Timestamp:

09/01/11 14:59:37 (9 years ago)

Author:

Moritz Heidkamp

Message:

vandusen-remote: listen on localhost only by default and make it configurable

File:

• release/4/vandusen/trunk/vandusen-remote.scm (modified) (1 diff)

release/4/vandusen/trunk/vandusen-remote.scm

@@ -8 +8 @@
 (plugin 'remote
         (lambda ()
-          (let ((listener (tcp-listen ($ 'remote-port))))
+          (let ((listener (tcp-listen ($ 'remote-port)
+                                      (or ($ 'remote-backlog) 10)
+                                      (or ($ 'remote-host) "localhost"))))
             (add-finalizer (lambda ()
                              (debug "finalizing remote listener")