Hi,

My OpenCA 0.9.1 installation works Ok in a linux redhat 7.3, but I've a
problem Generating a PKCS7 signature of anything with perl module
OPENCA::OPENSSL.

I've sign a string variable(digest) without OUTFILE.

I have modified the perl module OpenSSL.pm and now sign Ok.

I've Visited CVS
"openca/openca-0.9/src/modules/openca-openssl/OpenSSL.pm" last version
1.83 and the error is it.


## OpenCA::OpenSSL
##
## Copyright (C) 1998-2001 Massimiliano Pala ([EMAIL PROTECTED]) ## All
rights reserved.

[...]

sub sign {

        ## Generate a PKCS7 signature.
[...]
        if( not $out ) {
                if (not open( TMP, "<$tmpfile" )) {
                        $self->setError (7743081,
"OpenCA::OpenSSL->sign: Cannot open tmpfile $tmpfile for reading.");
                        return undef;
                }
                do {
                        $ret .= <TMP>;
                } while (not eof($ret));
                close(TMP);

                unlink( $tmpfile );
        }
[...]
        return $ret;
}


-----------------------------
The error is in "while":
        } while (not eof($ret));

The correct instruction is:
        } while (not eof(TMP));


Best regards,
Ramon Llorens Creus



-------------------------------------------------------
This SF.NET email is sponsored by:
SourceForge Enterprise Edition + IBM + LinuxWorld = Something 2 See!
http://www.vasoftware.com
_______________________________________________
Openca-Users mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/openca-users

Reply via email to