$!-----------------------------------------------------------------------------
$! SSL_SETUP.COM
$!
$! Copyright (C) 1996-2026 Mark G.Daniel.
$!
$! Licensed under the Apache License, Version 2.0 (the "License");
$! you may not use this file except in compliance with the License.
$! You may obtain a copy of the License at
$!
$!    http://www.apache.org/licenses/LICENSE-2.0
$!
$! Unless required by applicable law or agreed to in writing, software
$! distributed under the License is distributed on an "AS IS" BASIS,
$! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
$! See the License for the specific language governing permissions and
$! limitations under the License.
$!
$! 22-DEC-2025  MGD  initial
$!-----------------------------------------------------------------------------
$!
$ p1 = f$edit(p1,"upcase")
$ ss$_abort = 44
$ if f$search("WASD_ROOT:[INSTALL]SSL_DETECT.COM") .nes. ""
$    then procedures = "WASD_ROOT:[INSTALL]"
$    else procedures = "[]"
$ endif
$!
$ if p1 .eqs. "SSL=0"
$ then
$!   (unconditionally reset the SSL selection)
$    @'procedures'SSL_DETECT_CANCEL
$    @'procedures'SSL_DETECT
$ endif
$ wasd_sslroot = f$trnlnm("WASD_SSLROOT","lnm$job")
$!
$ if p1 .eqs. "SSL"
$ then
$    if wasd_sslroot .eqs. "" .or. wasd_sslroot .eqs. "!"
$    then
$!      (if looking for an SSL build and one not previously selected)
$       @'procedures'SSL_DETECT
$       wasd_sslroot = f$trnlnm("WASD_SSLROOT","lnm$job")
$    endif
$ endif
$!
$ if wasd_sslroot .eqs. "" .or. wasd_sslroot .eqs. "!"
$ then
$    @'procedures'SSL_DETECT_CANCEL
$    write sys$output "SSL build requested but not selected.
$    exit ss$_abort
$ endif
$!
$ wasd_openssl = f$trnlnm("WASD_OPENSSL","lnm$job")
$ define SSLROOT /job /nolog /translation=concealed "''wasd_sslroot'"
$ define OPENSSL /job /nolog "''wasd_openssl'"
$ write sys$output "SSL from ''wasd_sslroot'"
$!
$!-----------------------------------------------------------------------------