¡¡¡Explorer!!! Gracias como siempre, Bueno aún no he logrado mucho, comento lo que intento hacer por si alguien más requiere hacer algo similar:
1. Tengo un archivo 'TRA.xml'
2. Generar un archivo .CMS que contenga el TRA.xml, su firma electrónica y el certificado X.509
3. Codificar en Base64 el archivo.CMS
4. Logrado esto llamo a un webservice con lo obtenido en (3)
Estoy haciendo:
open(PKEY, $PATH_KEYPRIVATE) || die "open failed: $!"; #file de clave
open(CERT, $PATH_CERT) || die "open failed: $!"; # certificado
open(TRA_XML, $PATH_XML) || die "open failed: $!"; #file a firmar
my $privkey = do { local $/; <PKEY> };
my $crt = do { local $/; <CERT>};
my $tra_xml = do { local $/; <TRA_XML>};
close (PKEY);
close (CERT);
close (TRA_XML);
# firmo el tra_xml
open(my $fh, "| openssl smime -sign -signer $cert -inkey $privatekey -outform DER -out cms.bin -nodetach");
binmode $fh;
print $fh $tra_xml;
close $fh;
# Ahora tengo que codificar en base 64 el archivo cms.bin. ¿Cómo lo hago?
open my $CMS, q[<], 'cms.bin';
binmode $CMS;
read $CMS, my $cms, -s 'cms.bin';
close $CMS;
use MIME::Base64;
my $encoded = encode_base64($cms); # ¿¿ Es correcto ??
Bueno, no sé dónde están mis errores, pero el $encoded NO ES ACEPTADO.
¡¡¡¡¡GRACIAS!!!!!
