svn: r17414
This commit is contained in:
Eli Barzilay 2009-12-28 18:32:31 +00:00
parent 590cf99637
commit 211530e9df

View File

@ -623,20 +623,22 @@
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(let ([port (get-conf 'port-number)])
(log-line "server started on port ~a ------------------------------" port)
(hook 'server-start `([port ,port])))
(define stop-status (web:run)) (define stop-status (web:run))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define session-count 0) (define session-count 0)
(define default-context-length (error-print-context-length)) (define default-context-length (error-print-context-length))
(parameterize ([error-display-handler (lambda (msg exn) (log-line msg))] (parameterize ([error-display-handler (lambda (msg exn) (log-line msg))]
[error-print-context-length 0] [error-print-context-length 0]
[current-directory server-dir]) [current-directory server-dir])
(define port (get-conf 'port-number))
(log-line "server started on port ~a ------------------------------" port)
(hook 'server-start `([port ,port]))
(run-server (run-server
(get-conf 'port-number) port
(lambda (r w) (lambda (r w)
(error-print-context-length default-context-length) (error-print-context-length default-context-length)
(set! connection-num (add1 connection-num)) (set! connection-num (add1 connection-num))