1$! TVERIFY.COM 2$ 3$ __arch := VAX 4$ if f$getsyi("cpu") .ge. 128 then __arch := AXP 5$ exe_dir := sys$disk:[-.'__arch'.exe.apps] 6$ 7$ copy/concatenate [-.certs]*.pem certs.tmp 8$ 9$ old_f := 10$ loop_certs: 11$ verify := NO 12$ more := YES 13$ certs := 14$ loop_certs2: 15$ f = f$search("[-.certs]*.pem") 16$ if f .nes. "" .and. f .nes. old_f 17$ then 18$ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem" 19$ verify := YES 20$ if f$length(certs) .lt. 180 then goto loop_certs2 21$ else 22$ more := NO 23$ endif 24$ certs = certs - " " 25$ 26$ if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs' 27$ if more then goto loop_certs 28$ 29$ delete certs.tmp;* 30