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
15 $ f = f$search("[-.certs]*.pem")
16 $ if f .nes. "" .and. f .nes. old_f
18 $ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"
20 $ if f$length(certs) .lt. 180 then goto loop_certs2
26 $ if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
27 $ if more then goto loop_certs