> http://antinode.info/ftp/openssl/1_0_0d/openssl-1_0_0d_s3.zip
>
> Unless I've missed something, [...]
Naturally, that was too good to be true. I now have enough Perl on
my VAX system to run into a test failure:
[...]
---> TEST_CMS
CMS consistency test
CMS => PKCS#7 compatibility tests
signed content DER format, RSA key: OK
signed detached content DER format, RSA key: OK
signed content test streaming BER format, RSA: OK
signed content DER format, DSA key: OK
signed detached content DER format, DSA key: OK
signed detached content DER format, add RSA signer: OK
signed content test streaming BER format, DSA key: OK
%DCL-W-TKNOVF, command element is too long - shorten
%DCL-W-TKNOVF, command element is too long - shorten
\mcr SYS$DISK:[-.VAX.EXE.APPS]openssl.exe cms -sign -in smcont.txt
-outform "DER" -nodetach -signer smime-certs/smrsa1.pem -signer
smime-certs/smrsa2.pem -signer smime-certs/smdsa1.pem -signer
smime-certs/smdsa2.pem -stream -out test.cms 2> cms.err > cms
\mcr SYS$DISK:[-.VAX.EXE.APPS]openssl.exe cms -sign -in smcont.txt
-outform "DER" -nodetach -signer smime-certs/smrsa1.pem -signer
smime-certs/smrsa2.pem -signer smime-certs/smdsa1.pem -signer
smime-certs/smdsa2.pem -stream -out test.cms 2> cms.err > cms
signed content test streaming BER format, 2 DSA and 2 RSA keys: generation err
%SYSTEM-F-ABORT, abort
[...]
If you don't work with it regularly, it's easy to forget how lame VMS
VAX V7.3 can be.
A matched pair of changes to "test/cms-test.pl" and "test/tests.com"
sucks about twenty characters out of those command lines, which seems to
be good enough (for now). Instead of making Perl expand a DCL symbol
("EXE_DIR" -> "SYS$DISK:[-.VAX.EXE.APPS]", in this case) to find
"openssl.exe", it's shorter (and cleaner-looking, and less work for
Perl) to define a logical name ("OSSLX"), and then use that. And a
".exe" was redundant, too. (Every byte counts, I always say.)
ALP $ gdiff tests.com;5 tests.com;
345,346c345,346
< $ ! The following makes perl include the DCL symbol table in the env.
< $ define/user perl_env_tables clisym_local,lnm$file_dev,ctrl_env
---
> $ ! Define the logical name used to find openssl.exe in the perl script.
> $ define /user_mode osslx 'exe_dir'
ALP $ gdiff cms-test.pl_orig cms-test.pl
59,60c59,60
< if ( $^O eq "VMS" && -f "$ENV{EXE_DIR}openssl.exe" ) {
< $ossl_path = "pipe mcr $ENV{EXE_DIR}openssl.exe";
---
> if ( $^O eq "VMS" && -f "OSSLX:openssl.exe" ) {
> $ossl_path = "pipe mcr OSSLX:openssl";
That should be turning:
mcr SYS$DISK:[-.VAX.EXE.APPS]openssl.exe
into:
mcr OSSLX:openssl
With any luck, we won't need to start abbreviating the file names soon.
"OSSLX" could be even shorter, but I thought that I'd leave a few fat
cells for the next fellow to trim. Replacement files:
http://antinode.info/ftp/openssl/1_0_0d/openssl-1_0_0d_s3a.zip
What could go wrong now?
SMS.
______________________________________________________________________
OpenSSL Project http://www.openssl.org
Development Mailing List [email protected]
Automated List Manager [email protected]
