Use and re-provide server-dir from private/config.

svn: r13413

collects/handin-server/checker.ss

@@ -1,7 +1,7 @@
 #lang scheme/base
 
 (require (for-syntax scheme/base) "utils.ss"
-         scheme/file scheme/list scheme/class mred)
+         scheme/file scheme/class mred)
 
 (provide (except-out (all-from-out scheme/base) #%module-begin)
          (all-from-out "utils.ss"))
@@ -21,8 +21,6 @@
          stx))
       (raise-syntax-error #f "bad syntax" stx))))
 
-(define server-dir (current-directory))
-
 (define (error* fmt . args)
   (error (apply format fmt args)))
 

collects/handin-server/scribblings/utils.scrbl

@@ -193,3 +193,8 @@ Every exception or result mismatch during the call to
   that before the checker is used (after the pre-checker, if
   specified), the timer will be reset to the @scheme['session-timeout]
   value.)}
+
+@defthing[server-dir path-string?]{
+
+  The main directory the server is running from.  Useful for getting
+  to files that are not local to a specific submission.}

collects/handin-server/utils.ss

@@ -1,6 +1,6 @@
 #lang scheme/base
 
-(require scheme/class mred lang/posn scheme/pretty
+(require scheme/class mred scheme/pretty
          (prefix-in pc: mzlib/pconvert)
          (only-in "main.ss" timeout-control)
          "private/run-status.ss"
@@ -12,6 +12,7 @@
 
          get-conf
          log-line
+         server-dir
 
          unpack-submission