| Index: content/utility/utility.sb
|
| diff --git a/content/utility/utility.sb b/content/utility/utility.sb
|
| index 0e0bf767d8ffe495a51a26b8b958f56937373dfa..c60b4be9f1f7f2bdace4dac38668e98e31d9316e 100644
|
| --- a/content/utility/utility.sb
|
| +++ b/content/utility/utility.sb
|
| @@ -14,4 +14,7 @@
|
| ; *** The contents of content/common/common.sb are implicitly included here. ***
|
|
|
| ; Enable full access to given directory if needed.
|
| -;ENABLE_DIRECTORY_ACCESS
|
| +(if (param-defined? permitted-dir)
|
| + (begin
|
| + (allow file-read-metadata )
|
| + (allow file-read* file-write* (regex (param permitted-dir)))))
|
|
|