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

handle that properly.
This commit is contained in:
Richard Levitte 2005-03-21 13:52:12 +00:00
parent 689c6f2542
commit 9fc9b55237

View File

@ -15,12 +15,15 @@ $ f = f$search("[-.certs]*.pem")
$ if f .nes. "" .and. f .nes. old_f $ if f .nes. "" .and. f .nes. old_f
$ then $ then
$ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem" $ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"
$ if f$length(certs) .lt. 180 then goto loop_certs2
$ c := YES $ c := YES
$ if f$length(certs) .lt. 180 then goto loop_certs2
$ endif $ endif
$ certs = certs - " " $ certs = certs - " "
$ $
$ mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs' $ if c
$ if c then goto loop_certs $ then
$ mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
$ goto loop_certs
$ endif
$ $
$ delete certs.tmp;* $ delete certs.tmp;*