test/tverify.com

   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 $       c := NO
  12 $       certs :=
  13 $ loop_certs2:
  14 $       f = f$search("[-.certs]*.pem")
  15 $       if f .nes. "" .and. f .nes. old_f
  16 $       then
  17 $           certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"
  18 $           c := YES
  19 $           if f$length(certs) .lt. 180 then goto loop_certs2
  20 $       endif
  21 $       certs = certs - " "
  22 $
  23 $       if c
  24 $       then
  25 $           mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
  26 $           goto loop_certs
  27 $       endif
  28 $
  29 $       delete certs.tmp;*