| Index: openssl/test/tpkcs7.com
|
| ===================================================================
|
| --- openssl/test/tpkcs7.com (revision 105093)
|
| +++ openssl/test/tpkcs7.com (working copy)
|
| @@ -1,14 +1,17 @@
|
| $! TPKCS7.COM -- Tests pkcs7 keys
|
| $
|
| -$ __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
|
| -$ exe_dir := sys$disk:[-.'__arch'.exe.apps]
|
| +$ if __arch .eqs. "" then __arch = "UNK"
|
| +$!
|
| +$ if (p2 .eqs. "64") then __arch = __arch+ "_64"
|
| +$!
|
| +$ exe_dir = "sys$disk:[-.''__arch'.exe.apps]"
|
| $
|
| -$ cmd := mcr 'exe_dir'openssl pkcs7
|
| +$ cmd = "mcr ''exe_dir'openssl pkcs7"
|
| $
|
| -$ t := testp7.pem
|
| +$ t = "testp7.pem"
|
| $ if p1 .nes. "" then t = p1
|
| $
|
| $ write sys$output "testing PKCS7 conversions"
|
|
|