| $! TVERIFY.COM |
| $ |
| $ __arch := VAX |
| $ if f$getsyi("cpu") .ge. 128 then __arch := AXP |
| $ exe_dir := sys$disk:[-.'__arch'.exe.apps] |
| $ |
| $ copy/concatenate [-.certs]*.pem certs.tmp |
| $ |
| $ old_f := |
| $ loop_certs: |
| $ c := NO |
| $ 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" |
| $ if f$length(certs) .lt. 180 then goto loop_certs2 |
| $ c := YES |
| $ endif |
| $ certs = certs - " " |
| $ |
| $ mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs' |
| $ if c then goto loop_certs |
| $ |
| $ delete certs.tmp;* |
