$
$ 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;*