]>
Commit | Line | Data |
---|---|---|
3426de22 RL |
1 | $ ! OpenSSL Internal Verification Procedure |
2 | $ ! | |
3 | $ ! This script checks the consistency of a OpenSSL installation | |
4 | $ ! It had better be spawned, as it creates process logicals | |
5 | $ | |
6 | $ ! Generated information | |
7 | $ INSTALLTOP := {- $config{INSTALLTOP} -} | |
8 | $ OPENSSLDIR := {- $config{OPENSSLDIR} -} | |
9 | $ | |
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.;" + "." | |
16 | $ | |
3426de22 RL |
17 | $ v := {- sprintf "%02d%02d", split(/\./, $config{version}) -} |
18 | $ pz := {- $config{pointer_size} -} | |
19 | $ | |
07aaab39 RL |
20 | $ @'INSTALLTOP_'SYS$STARTUP]openssl_startup'v' |
21 | $ @'INSTALLTOP_'SYS$STARTUP]openssl_utils'v' | |
22 | $ | |
3426de22 | 23 | $ IF F$SEARCH("OSSL$LIBCRYPTO''pz'") .EQS. "" - |
fa849d73 | 24 | .OR. F$SEARCH("OSSL$LIBSSL''pz'") .EQS. "" {- output_off() if $config{no_shared}; "" -}- |
3426de22 | 25 | .OR. F$SEARCH("OSSL$LIBCRYPTO_SHR''pz'") .EQS. "" - |
fa849d73 | 26 | .OR. F$SEARCH("OSSL$LIBSSL_SHR''pz'") .EQS. "" {- output_on() if $config{no_shared}; "" -}- |
3426de22 RL |
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. "" | |
30 | $ THEN | |
31 | $ WRITE SYS$ERROR "Installation inconsistent" | |
32 | $ EXIT %x00018292 ! RMS$_FNF, file not found | |
33 | $ ENDIF | |
34 | $ | |
547a19cf RL |
35 | $ ON ERROR THEN GOTO error |
36 | $ | |
3426de22 RL |
37 | $ ! If something else is wrong with the installation, we're likely |
38 | $ ! to get an image activation error here | |
39 | $ openssl version -a | |
40 | $ | |
46117d31 RL |
41 | $ ! FUTURE ENHANCEMENT: Verify that engines are where they should be. |
42 | $ ! openssl engine -c -t checker | |
547a19cf | 43 | $ |
3426de22 RL |
44 | $ WRITE SYS$ERROR "OpenSSL IVP passed" |
45 | $ EXIT %x10000001 | |
547a19cf RL |
46 | $ |
47 | $ error: | |
48 | $ save_status = $STATUS | |
49 | $ WRITE SYS$ERROR "OpenSSL IVP failed" | |
50 | $ EXIT 'save_status' |