1 $ ! OpenSSL Internal Verification Procedure
3 $ ! This script checks the consistency of a OpenSSL installation
4 $ ! It had better be spawned, as it creates process logicals
6 $ ! Generated information
7 $ INSTALLTOP := {- $config{INSTALLTOP} -}
8 $ OPENSSLDIR := {- $config{OPENSSLDIR} -}
10 $ ! Make sure that INSTALLTOP and OPENSSLDIR become something one
11 $ ! can use to call the startup procedure
12 $ INSTALLTOP_ = F$PARSE("A.;",INSTALLTOP,,,"NO_CONCEAL") -
13 - ".][000000" - "[000000." - "][" - "]A.;" + "."
14 $ OPENSSLDIR_ = F$PARSE("A.;",OPENSSLDIR,,,"NO_CONCEAL") -
15 - ".][000000" - "[000000." - "][" - "]A.;" + "."
17 $ v := {- sprintf "%02d%02d", split(/\./, $config{version}) -}
18 $ pz := {- $config{pointer_size} -}
20 $ @'INSTALLTOP_'SYS$STARTUP]openssl_startup'v'
21 $ @'INSTALLTOP_'SYS$STARTUP]openssl_utils'v'
23 $ IF F$SEARCH("OSSL$LIBCRYPTO''pz'") .EQS. "" -
24 .OR. F$SEARCH("OSSL$LIBSSL''pz'") .EQS. "" {- output_off() if $config{no_shared}; "" -}-
25 .OR. F$SEARCH("OSSL$LIBCRYPTO_SHR''pz'") .EQS. "" -
26 .OR. F$SEARCH("OSSL$LIBSSL_SHR''pz'") .EQS. "" {- output_on() if $config{no_shared}; "" -}-
27 .OR. F$SEARCH("OSSL$INCLUDE:[OPENSSL]crypto.h") .EQS. "" -
28 .OR. F$SEARCH("OPENSSL:crypto.h") .EQS. "" -
29 .OR. F$SEARCH("OSSL$EXE:OPENSSL''v'.EXE") .EQS. ""
31 $ WRITE SYS$ERROR "Installation inconsistent"
32 $ EXIT %x00018292 ! RMS$_FNF, file not found
35 $ ON ERROR THEN GOTO error
37 $ ! If something else is wrong with the installation, we're likely
38 $ ! to get an image activation error here
41 $ ! FUTURE ENHANCEMENT: Verify that engines are where they should be.
42 $ ! openssl engine -c -t checker
44 $ WRITE SYS$ERROR "OpenSSL IVP passed"
48 $ save_status = $STATUS
49 $ WRITE SYS$ERROR "OpenSSL IVP failed"