openssl_ivp.com.in 2.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556
  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'