6d152fb925
(from 'original to 'ver1). * The client gets the list of extra fields from the server (when the dialog is used for the first time), the full-name, ID, and email fields are now part of this description which is in the server configuration file * The network protocol has a generic initial part when clients set arbitrary key/values that are later used for actual actions * In the submission dialog, there is a checkbox that makes it retrieve the submitted work instead of sending a new one. The retrieved contents will pop up in a new DrScheme frame. The file that is retrieved is the newest WXME file that is found in the student's main submission directory. * The hack of returning a list from the checker is not needed now -- it is possible to send text messages that are displayed on the handin dialog and it is also possible to send message-boxes and get the result that the client returns after getting the user response. This is a much better generalization of the single final popup that was enabled by the list hack. * When registering, a second password for verification is required. * It is now possible to edit any information field, with a configuration entry that locks by default any such changes. * It is now possible to standard Unix encrypted passwords instead of MD5 hashes -- so a "users.ss" can be made from a plain /etc/passwd file. svn: r995
16 lines
461 B
Scheme
16 lines
461 B
Scheme
(module run-status mzscheme
|
|
(define current-run-status-box (make-parameter #f))
|
|
|
|
(define (current-run-status s)
|
|
(let ([b (current-run-status-box)])
|
|
(when b (set-box! b s) (message s))))
|
|
|
|
(define current-messenger (make-parameter #f))
|
|
(define (message . args)
|
|
(let ([messenger (current-messenger)])
|
|
(and messenger (apply messenger args))))
|
|
|
|
(provide current-run-status-box current-run-status
|
|
current-messenger message))
|
|
|