Home | History | Annotate | Line # | Download | only in VMS 
      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 $disabled{shared}; "" -}-
     25            .OR. F$SEARCH("OSSL$LIBCRYPTO_SHR''pz'") .EQS. "" -
     26            .OR. F$SEARCH("OSSL$LIBSSL_SHR''pz'") .EQS. "" {- output_on() if $disabled{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'
     57