We expect these scripts not to bail on error, so make sure that's what happens.

$	endif

$	ssltest := mcr 'texe_dir'ssltest -key 'key' -cert 'cert' -c_key 'key' -c_cert 'cert'

$

$	set noon

$	define/user sys$output testssl-x509-output.

$	define/user sys$error nla0:

$	mcr 'exe_dir'openssl x509 -in 'cert' -text -noout

$	set noon

$	define/user sys$error nla0:

$	search/output=nla0: testssl-x509-output. "DSA Public Key"/exact

$	if $severity .eq. 1

$	else

$	    dsa_cert := NO

$	endif

$	set on

$	delete testssl-x509-output.;*

$

$	if p3 .eqs. ""

$

$!###########################################################################

$

$	set noon

$	define/user sys$output nla0:

$	mcr 'exe_dir'openssl no-rsa

$	no_rsa=$SEVERITY

$	define/user sys$output nla0:

$	mcr 'exe_dir'openssl no-dh

$	no_dh=$SEVERITY

$	set on

$

$	if no_dh

$	then

$	RET = 3

$ exit:

$	if p3 .eqs. "" then delete certs.tmp;*

$	set on

$	exit 'RET'

$

$	! Main body ----------------------------------------------------------

$

$	set noon

$

$	write sys$output "Setting up TSA test directory..."

$	call setup_dir

$

$	write sys$output "Cleaning up..."

$	call clean_up_dir

$

$	set on

$

$	exit