From 0db253e1a19408cbd59c698ed7c3d19f7a456cfa Mon Sep 17 00:00:00 2001 From: sperber Date: Fri, 26 Mar 2004 13:46:56 +0000 Subject: [PATCH] Add hack for the benefits of ftpds on AFS directories, to enable anonymous-upload directories: We don't list a directory unless the Unix permissions would allow us to. --- scheme/lib/ls.scm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/scheme/lib/ls.scm b/scheme/lib/ls.scm index cabf038..cf1b6c0 100644 --- a/scheme/lib/ls.scm +++ b/scheme/lib/ls.scm @@ -75,6 +75,13 @@ ; a FILE is a pair whose car is a file-name and whose cdr is ; either its file-info-object or #f (if not needed) ; a INFO is a file-info-object + + ;; This is actually a hack for the benefits of systems using AFS, + ;; mainly to enable anonymous-upload directories: We don't list + ;; a directory unless the Unix permissions would allow us to. + (if (not (file-readable? directory)) + (errno-error errno/perm directory-files directory)) + (let* ((directory (file-name-as-directory directory)) (substantial-directory (string-append directory ".")) (file-names (directory-files substantial-directory all?)))