Better method for creating SSLROOT:.
Make sure to include the path to evptest.txt.
This commit is contained in:
parent
e3c1854b0c
commit
4585fd0734
@ -14,8 +14,12 @@ $ exe_dir := sys$disk:[-.'__arch'.exe.apps]
|
|||||||
$
|
$
|
||||||
$ set default '__here'
|
$ set default '__here'
|
||||||
$
|
$
|
||||||
$ sslroot = f$parse("sys$disk:[-.apps];",,,,"syntax_only") - "].;"+ ".]"
|
$ ROOT = F$PARSE("sys$disk:[-]A.;0",,,,"SYNTAX_ONLY,NO_CONCEAL") - "A.;0"
|
||||||
$ define /translation_attributes = concealed sslroot 'sslroot'
|
$ ROOT_DEV = F$PARSE(ROOT,,,"DEVICE","SYNTAX_ONLY")
|
||||||
|
$ ROOT_DIR = F$PARSE(ROOT,,,"DIRECTORY","SYNTAX_ONLY") -
|
||||||
|
- ".][000000" - "[000000." - "][" - "[" - "]"
|
||||||
|
$ ROOT = ROOT_DEV + "[" + ROOT_DIR
|
||||||
|
$ DEFINE/NOLOG SSLROOT 'ROOT'.APPS.] /TRANS=CONC
|
||||||
$ openssl_conf := sslroot:[000000]openssl-vms.cnf
|
$ openssl_conf := sslroot:[000000]openssl-vms.cnf
|
||||||
$
|
$
|
||||||
$ on control_y then goto exit
|
$ on control_y then goto exit
|
||||||
@ -82,7 +86,7 @@ $ gosub 'tests_e'
|
|||||||
$ goto loop_tests
|
$ goto loop_tests
|
||||||
$
|
$
|
||||||
$ test_evp:
|
$ test_evp:
|
||||||
$ mcr 'texe_dir''evptest' evptests.txt
|
$ mcr 'texe_dir''evptest' 'ROOT'.CRYPTO.EVP]evptests.txt
|
||||||
$ return
|
$ return
|
||||||
$ test_des:
|
$ test_des:
|
||||||
$ mcr 'texe_dir''destest'
|
$ mcr 'texe_dir''destest'
|
||||||
|
Loading…
x
Reference in New Issue
Block a user