better messages, clarify comment

svn: r17431

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))

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 () "/")))

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