diff --git a/scheme/httpd/surflets/start-surflet-server b/scheme/httpd/surflets/start-surflet-server index 1194ce9..fffea47 100755 --- a/scheme/httpd/surflets/start-surflet-server +++ b/scheme/httpd/surflets/start-surflet-server @@ -166,6 +166,10 @@ exec scsh -lm $sunet/packages.scm -lm $ssax/lib/packages.scm -lm $sunet/httpd/se (with-simultaneous-requests simultaneous-requests (with-syslog? #t (with-logfile log-file-name + ;; The following settings are made to avoid dns lookups. + (with-reported-port port + (with-fqdn "localhost" + (with-resolve-ips? #f (with-request-handler (alist-path-dispatcher (list (cons "h" (home-dir-handler "public_html")) @@ -175,8 +179,12 @@ exec scsh -lm $sunet/packages.scm -lm $ssax/lib/packages.scm -lm $sunet/httpd/se ; (cons "info" (info-handler #f #f #f ; "Generated by info-gateway")) ; (cons "cgi-bin" (cgi-handler cgi-bin-dir)) + (cons "source" (lambda (path req) + (format #t "source~%") + ((rooted-file-or-directory-handler servlet-dir) path req))) (cons "servlet" (servlet-handler servlet-dir "/servlet/"))) - (rooted-file-or-directory-handler htdocs-dir)))))))))) + (rooted-file-or-directory-handler htdocs-dir))))))))))) + )) )) ;; EOF