Avoid endless loops. Really, we were using the same variable for two

different conditions...
This commit is contained in:
Richard Levitte 2005-06-08 21:59:47 +00:00
parent cbed917fee
commit 2073d95fb4

View file

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