From 07fc35519eb6e63ccc6c9336b021b90b27a84cd9 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Fri, 11 Feb 2000 18:12:47 +0000 Subject: [PATCH] A hack to make sure access() will give us the correct answer about the accessability of an "empty" directory. Thsi *is* weird, and a better solution will be provided in apps/ca.c, when I get time to hack at it. --- apps/CA.com | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/apps/CA.com b/apps/CA.com index a33fe0b7e4..02682e424a 100644 --- a/apps/CA.com +++ b/apps/CA.com @@ -97,10 +97,18 @@ $ CREATE /DIR /PROTECTION=OWNER:RWED 'CATOP'.certs] $ CREATE /DIR /PROTECTION=OWNER:RWED 'CATOP'.crl] $ CREATE /DIR /PROTECTION=OWNER:RWED 'CATOP'.newcerts] $ CREATE /DIR /PROTECTION=OWNER:RWED 'CATOP'.private] +$ $ OPEN /WRITE ser_file 'CATOP']serial. $ WRITE ser_file "01" $ CLOSE ser_file $ APPEND/NEW NL: 'CATOP']index.txt +$ +$ ! The following is to make sure access() doesn't get confused. It +$ ! really needs one file in the directory to give correct answers... +$ COPY NLA0: 'CATOP'.certs].; +$ COPY NLA0: 'CATOP'.crl].; +$ COPY NLA0: 'CATOP'.newcerts].; +$ COPY NLA0: 'CATOP'.private].; $ ENDIF $! $ IF F$SEARCH(CATOP+".private"+CAKEY) .EQS. "" -- 2.34.1