1999-05-13 19:37:32 +08:00
|
|
|
$! 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:
|
2005-06-09 05:59:47 +08:00
|
|
|
$ verify := NO
|
|
|
|
|
$ more := YES
|
1999-05-13 19:37:32 +08:00
|
|
|
$ 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"
|
2005-06-09 05:59:47 +08:00
|
|
|
$ verify := YES
|
2005-03-21 21:52:12 +08:00
|
|
|
$ if f$length(certs) .lt. 180 then goto loop_certs2
|
2005-06-09 05:59:47 +08:00
|
|
|
$ else
|
|
|
|
|
$ more := NO
|
1999-05-13 19:37:32 +08:00
|
|
|
$ endif
|
|
|
|
|
$ certs = certs - " "
|
|
|
|
|
$
|
2005-06-09 05:59:47 +08:00
|
|
|
$ if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
|
|
|
|
|
$ if more then goto loop_certs
|
1999-05-13 19:37:32 +08:00
|
|
|
$
|
|
|
|
|
$ delete certs.tmp;*
|
