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

fixes for tight-security guard

Browse Source 
svn: r838
This commit is contained in:
Eli Barzilay 2005-09-12 16:51:25 +00:00
parent 8ebf009e18
commit 57e6e0c2b5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/handin-server/utils.ss
View File

@ -139,7 +139,9 @@
(string-append (string-append
"^(?:" "^(?:"
(apply string-append (apply string-append
(cdr (apply append (map (lambda (p) (list "|" (regexp-quote p))) (cdr (apply append
(map (lambda (p)
(list "|" (regexp-quote (path->string p))))
(current-library-collection-paths))))) (current-library-collection-paths)))))
")(?:/|$)"))) ")(?:/|$)")))
@ -150,7 +152,7 @@
(when (or (memq 'write modes) (when (or (memq 'write modes)
(memq 'execute modes) (memq 'execute modes)
(memq 'delete modes) (memq 'delete modes)
(not (regexp-match ok-path-re (path->string path)))) (and path (not (regexp-match ok-path-re (path->string path)))))
(error what "file access denied (~a)" path))) (error what "file access denied (~a)" path)))
(lambda (what host port mode) (error what "network access denied")))) (lambda (what host port mode) (error what "network access denied"))))