VMS/openssl_ivp.com.in

   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%02d", split(/\./, $config{version}) -}
  18 $       pz   := {- $config{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 $       WRITE SYS$ERROR "OpenSSL IVP passed"
  45 $       EXIT %x10000001
  46 $
  47 $ error:
  48 $       save_status = $STATUS
  49 $       WRITE SYS$ERROR "OpenSSL IVP failed"
  50 $       EXIT 'save_status'