From 1d7f3ff2f46e0998cc182345c25c41b7bd49087d Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 30 Dec 2009 04:16:32 +0000
Subject: [PATCH] better messages, clarify comment

svn: r17431
---
 collects/handin-server/main.ss              | 6 ++++--
 collects/handin-server/run-servlet.ss       | 4 ++--
 collects/handin-server/web-status-server.ss | 2 +-
 3 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/collects/handin-server/main.ss b/collects/handin-server/main.ss
index 1031fb0438..9f83c38c1c 100644
--- a/collects/handin-server/main.ss
+++ b/collects/handin-server/main.ss
@@ -636,8 +636,9 @@
                [error-print-context-length 0]
                [current-directory server-dir])
   (define port (get-conf 'port-number))
-  (log-line "server started on port ~a ------------------------------" port)
-  (hook 'server-start `([port ,port]))
+  (define (start-notify)
+    (log-line "*** handin server started on port ~a" port)
+    (hook 'server-start `([port ,port])))
   (run-server
    port
    (lambda (r w)
@@ -697,5 +698,6 @@
      (let ([l (ssl-listen port-k cnt #t)])
        (ssl-load-certificate-chain! l "server-cert.pem")
        (ssl-load-private-key! l "private-key.pem")
+       (start-notify)
        l))
    ssl-close ssl-accept ssl-accept/enable-break))
diff --git a/collects/handin-server/run-servlet.ss b/collects/handin-server/run-servlet.ss
index 5c50fc576b..30cf9fbeb1 100644
--- a/collects/handin-server/run-servlet.ss
+++ b/collects/handin-server/run-servlet.ss
@@ -53,8 +53,8 @@
                   (send-error "Your session has expired" init-path)
                   (* 12 1024 1024))))
     ;; This can be used to serve html content too; doesn't make sense now,
-    ;; since the servlet will be used for all requests.  (See "servlet-env.ss"
-    ;; for the needed `require's)
+    ;; since the servlet will be used for all requests, and it never calls
+    ;; (next-dispatcher).  (See "servlet-env.ss" for the needed `require's.)
     ;; (files:make
     ;;  #:url->path (fsmap:make-url->path (build-path server-dir "htdocs")))
     ;; (lift:make (send-error "File not found" (lambda () "/")))
diff --git a/collects/handin-server/web-status-server.ss b/collects/handin-server/web-status-server.ss
index 2ac4c0534e..c74885866a 100644
--- a/collects/handin-server/web-status-server.ss
+++ b/collects/handin-server/web-status-server.ss
@@ -256,7 +256,7 @@
 (define (run)
   (cond [(get-conf 'https-port-number)
          => (lambda (p)
-              (log-line "*** starting web server")
+              (log-line "*** starting embedded web server on port ~a" p)
               (parameterize ([error-print-context-length 0])
                 (run-servlet dispatcher p server-dir
                              #:namespace '(handin-server/private/md5