Commit 07fc3551 authored by Richard Levitte's avatar Richard Levitte
Browse files

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.
parent 3ebf0be1

apps/CA.com

+8 −0
Original line number Diff line number Diff line
@@ -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. ""