steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

call canonicalize-path when determining if we can serve a path

db4
Doug Coleman 2009-02-18 15:49:18 -06:00
parent 30e639ae39
commit 1ed6c013a2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ftp/server/server.factor
View File

@ -58,7 +58,7 @@ C: <ftp-disconnect> ftp-disconnect
send-response ; send-response ;
: serving? ( path -- ? ) : serving? ( path -- ? )
normalize-path server get serving-directory>> head? ; canonicalize-path server get serving-directory>> head? ;
: can-serve-directory? ( path -- ? ) : can-serve-directory? ( path -- ? )
{ [ exists? ] [ file-info directory? ] [ serving? ] } 1&& ; { [ exists? ] [ file-info directory? ] [ serving? ] } 1&& ;