mirror of
https://github.com/openssl/openssl.git
synced 2024-12-03 05:41:46 +08:00
3426de2262
On VMS, it's customary to have a procedure to check that the software was installed correctly and can run as advertised. The procedure added here is fairly simple, it checks that all libraries are in place, that the header crypto.h is in place, and that the command 'openssl version -a' runs without trouble. Reviewed-by: Rich Salz <rsalz@openssl.org>
41 lines
1.5 KiB
Plaintext
41 lines
1.5 KiB
Plaintext
$ ! OpenSSL Internal Verification Procedure
|
|
$ !
|
|
$ ! This script checks the consistency of a OpenSSL installation
|
|
$ ! It had better be spawned, as it creates process logicals
|
|
$
|
|
$ ! Generated information
|
|
$ INSTALLTOP := {- $config{INSTALLTOP} -}
|
|
$ OPENSSLDIR := {- $config{OPENSSLDIR} -}
|
|
$
|
|
$ ! Make sure that INSTALLTOP and OPENSSLDIR become something one
|
|
$ ! can use to call the startup procedure
|
|
$ INSTALLTOP_ = F$PARSE("A.;",INSTALLTOP,,,"NO_CONCEAL") -
|
|
- ".][000000" - "[000000." - "][" - "]A.;" + "."
|
|
$ OPENSSLDIR_ = F$PARSE("A.;",OPENSSLDIR,,,"NO_CONCEAL") -
|
|
- ".][000000" - "[000000." - "][" - "]A.;" + "."
|
|
$
|
|
$ @'INSTALLTOP_'SYS$STARTUP]openssl_startup
|
|
$ @'INSTALLTOP_'SYS$STARTUP]openssl_utils
|
|
$
|
|
$ v := {- sprintf "%02d%02d", split(/\./, $config{version}) -}
|
|
$ pz := {- $config{pointer_size} -}
|
|
$
|
|
$ IF F$SEARCH("OSSL$LIBCRYPTO''pz'") .EQS. "" -
|
|
.OR. F$SEARCH("OSSL$LIBSSL''pz'") .EQS. "" -
|
|
.OR. F$SEARCH("OSSL$LIBCRYPTO_SHR''pz'") .EQS. "" -
|
|
.OR. F$SEARCH("OSSL$LIBSSL_SHR''pz'") .EQS. "" -
|
|
.OR. F$SEARCH("OSSL$INCLUDE:[OPENSSL]crypto.h") .EQS. "" -
|
|
.OR. F$SEARCH("OPENSSL:crypto.h") .EQS. "" -
|
|
.OR. F$SEARCH("OSSL$EXE:OPENSSL''v'.EXE") .EQS. ""
|
|
$ THEN
|
|
$ WRITE SYS$ERROR "Installation inconsistent"
|
|
$ EXIT %x00018292 ! RMS$_FNF, file not found
|
|
$ ENDIF
|
|
$
|
|
$ ! If something else is wrong with the installation, we're likely
|
|
$ ! to get an image activation error here
|
|
$ openssl version -a
|
|
$
|
|
$ WRITE SYS$ERROR "OpenSSL IVP passed"
|
|
$ EXIT %x10000001
|