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