4 $ if f$getsyi("cpu") .ge. 128 then __arch := AXP
5 $ exe_dir := sys$disk:[-.'__arch'.exe.apps]
7 $ copy/concatenate [-.certs]*.pem certs.tmp
14 $ f = f$search("[-.certs]*.pem")
15 $ if f .nes. "" .and. f .nes. old_f
17 $ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"
18 $ if f$length(certs) .lt. 180 then goto loop_certs2
23 $ mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
24 $ if c then goto loop_certs