Missing pointer in the eng_table_register function. Reported by
[openssl.git] / 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 $           if f$length(certs) .lt. 180 then goto loop_certs2
19 $           c := YES
20 $       endif
21 $       certs = certs - " "
22 $
23 $       mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
24 $       if c then goto loop_certs
25 $
26 $       delete certs.tmp;*