2
0

openssl_undo.com 383 B

1234567891011121314151617181920
  1. $!
  2. $! Deassign OpenSSL logical names.
  3. $!
  4. $ call deass "OPENSSL" "''p1'"
  5. $ call deass "SSLCERTS" "''p1'"
  6. $ call deass "SSLEXE" "''p1'"
  7. $ call deass "SSLINCLUDE" "''p1'"
  8. $ call deass "SSLLIB" "''p1'"
  9. $ call deass "SSLPRIVATE" "''p1'"
  10. $ call deass "SSLROOT" "''p1'"
  11. $!
  12. $ exit
  13. $!
  14. $deass: subroutine
  15. $ if (f$trnlnm( p1) .nes. "")
  16. $ then
  17. $ deassign 'p2' 'p1'
  18. $ endif
  19. $ endsubroutine
  20. $!