| 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 | $
|
|---|
| 17 | $ v := {- sprintf "%02d", split(/\./, $config{version}) -}
|
|---|
| 18 | $ pz := {- $target{pointer_size} -}
|
|---|
| 19 | $
|
|---|
| 20 | $ @'INSTALLTOP_'SYS$STARTUP]openssl_startup'v'
|
|---|
| 21 | $ @'INSTALLTOP_'SYS$STARTUP]openssl_utils'v'
|
|---|
| 22 | $
|
|---|
| 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. ""
|
|---|
| 30 | $ THEN
|
|---|
| 31 | $ WRITE SYS$ERROR "Installation inconsistent"
|
|---|
| 32 | $ EXIT %x00018292 ! RMS$_FNF, file not found
|
|---|
| 33 | $ ENDIF
|
|---|
| 34 | $
|
|---|
| 35 | $ ON ERROR THEN GOTO error
|
|---|
| 36 | $
|
|---|
| 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 | $
|
|---|
| 41 | $ ! FUTURE ENHANCEMENT: Verify that engines are where they should be.
|
|---|
| 42 | $ ! openssl engine -c -t checker
|
|---|
| 43 | $
|
|---|
| 44 | $ ! Verify that the built in providers are reachable. If they aren't,
|
|---|
| 45 | $ ! then we're likely to get an image activation error here
|
|---|
| 46 | $ openssl list -provider base -providers
|
|---|
| 47 | $ openssl list -provider default -providers
|
|---|
| 48 | $ openssl list -provider legacy -providers
|
|---|
| 49 | $
|
|---|
| 50 | $ WRITE SYS$ERROR "OpenSSL IVP passed"
|
|---|
| 51 | $ EXIT %x10000001
|
|---|
| 52 | $
|
|---|
| 53 | $ error:
|
|---|
| 54 | $ save_status = $STATUS
|
|---|
| 55 | $ WRITE SYS$ERROR "OpenSSL IVP failed"
|
|---|
| 56 | $ EXIT 'save_status'
|
|---|
