suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

show a bad-access file in the log

Browse Source 
svn: r7411
This commit is contained in:
Eli Barzilay 2007-09-25 04:24:30 +00:00
parent c017ff26ae
commit 07d6df5ab4
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/handin-server/status-web-root/servlets/status.ss
View File

@ -167,14 +167,15 @@
[else #f]) [else #f])
(loop base (cdr elts))))))) (loop base (cdr elts)))))))
(define file (build-path server-dir tag)) (define file (build-path server-dir tag))
(with-handlers ([exn:fail? (lambda (exn) (with-handlers ([exn:fail?
(log-line "Status exception: ~s" exn) (lambda (exn)
(log-line "Status exception: ~a" (exn-message exn))
(make-page "Error" "Illegal file access"))]) (make-page "Error" "Illegal file access"))])
;; Make sure the user is allowed to read the requested file: ;; Make sure the user is allowed to read the requested file:
(or (check file `(,who *) #t) (or (check file `(,who *) #t)
(check file `(#rx"^solution") #f) (check file `(#rx"^solution") #f)
(check file `(#rx"^solution" *) #f) (check file `(#rx"^solution" *) #f)
(error "Boom!")) (error 'download "bad file access for ~s: ~a" who file))
(log-line "Status file-get: ~s ~a" who file) (log-line "Status file-get: ~s ~a" who file)
(hook 'status-file-get `([username ,(string->symbol who)] [file ,file])) (hook 'status-file-get `([username ,(string->symbol who)] [file ,file]))
;; Return the downloaded file ;; Return the downloaded file