Commit 9fc9b552 authored by Richard Levitte's avatar Richard Levitte
Browse files

There are cases when there are no files left to verify. Make sure to 

handle that properly.
parent 689c6f25

test/tverify.com

+6 −3
Original line number Diff line number Diff line
@@ -15,12 +15,15 @@ $ f = f$search("[-.certs]*.pem") 
$	if f .nes. "" .and. f .nes. old_f

$	then

$	    certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"

$	    if f$length(certs) .lt. 180 then goto loop_certs2

$	    c := YES

$	    if f$length(certs) .lt. 180 then goto loop_certs2

$	endif

$	certs = certs - " "

$

$	if c

$	then

$	    mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'

$	if c then goto loop_certs

$	    goto loop_certs

$	endif

$

$	delete certs.tmp;*