| Index: openssl/test/testssl.com
|
| ===================================================================
|
| --- openssl/test/testssl.com (revision 105093)
|
| +++ openssl/test/testssl.com (working copy)
|
| @@ -1,11 +1,14 @@
|
| $! TESTSSL.COM
|
| $
|
| -$ __arch := VAX
|
| +$ __arch = "VAX"
|
| $ if f$getsyi("cpu") .ge. 128 then -
|
| __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
|
| -$ if __arch .eqs. "" then __arch := UNK
|
| -$ texe_dir := sys$disk:[-.'__arch'.exe.test]
|
| -$ exe_dir := sys$disk:[-.'__arch'.exe.apps]
|
| +$ if __arch .eqs. "" then __arch = "UNK"
|
| +$!
|
| +$ if (p4 .eqs. "64") then __arch = __arch+ "_64"
|
| +$!
|
| +$ texe_dir = "sys$disk:[-.''__arch'.exe.test]"
|
| +$ exe_dir = "sys$disk:[-.''__arch'.exe.apps]"
|
| $
|
| $ if p1 .eqs. ""
|
| $ then
|
| @@ -19,21 +22,21 @@
|
| $ else
|
| $ cert=p2
|
| $ endif
|
| -$ ssltest := mcr 'texe_dir'ssltest -key 'key' -cert 'cert' -c_key 'key' -c_cert 'cert'
|
| -$
|
| +$ 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
|
| $ then
|
| -$ dsa_cert := YES
|
| +$ dsa_cert = "YES"
|
| $ else
|
| -$ dsa_cert := NO
|
| +$ dsa_cert = "NO"
|
| $ endif
|
| -$ set on
|
| $ delete testssl-x509-output.;*
|
| $
|
| $ if p3 .eqs. ""
|
| @@ -161,14 +164,12 @@
|
| $
|
| $!###########################################################################
|
| $
|
| -$ 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
|
| @@ -203,4 +204,5 @@
|
| $ RET = 3
|
| $ exit:
|
| $ if p3 .eqs. "" then delete certs.tmp;*
|
| +$ set on
|
| $ exit 'RET'
|
|
|