Commit 1cf12a63 authored by Richard Levitte's avatar Richard Levitte
Browse files

No need to look for the file if none was entered.

parent dc9461e2

apps/CA.com

+2 −2
Original line number Diff line number Diff line
@@ -114,8 +114,8 @@ $! 
$   IF F$SEARCH(CATOP+".private"+CAKEY) .EQS. ""

$   THEN

$     READ '__INPUT' FILE -

	   /PROMT="CA certificate filename (or enter to create)"

$     IF F$SEARCH(FILE) .NES. ""

	   /PROMPT="CA certificate filename (or enter to create)"

$     IF (FILE .NES. "") .AND. (F$SEARCH(FILE) .NES. "")

$     THEN

$       COPY 'FILE' 'CATOP'.private'CAKEY'

$	RET=$STATUS