| $! 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: |
| $ 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" |
| $ verify := YES |
| $ if f$length(certs) .lt. 180 then goto loop_certs2 |
| $ else |
| $ more := NO |
| $ endif |
| $ certs = certs - " " |
| $ |
| $ if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs' |
| $ if more then goto loop_certs |
| $ |
| $ delete certs.tmp;* |
