A local copy of OpenSSL from GitHub
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

50 lines
1.8 KiB

  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'