Resulta que tengo que autenticarme en una página y para ello necesito tener un certificado digital personal (.pfx).
Esto es lo que hago.
Using perl Syntax Highlighting
- use warnings;
- use Data::Dumper;
- use IO::File;
- use strict;
- use WWW::Mechanize;
- use IO::Socket::SSL qw(debug4);
- my $sslPassword = 'PASSCERTIFICADO';
- my $mech = WWW::Mechanize->new(autocheck => 0);
- $mech->ssl_opts( SSL_use_cert => 1,
- verify_hostname => 1,
- SSL_cert_file => "certificado.pfx",
- SSL_passwd_cb => sub { $sslPassword }
- );
- my $url = "https://zeusr.sii.cl/AUT2000/InicioAutenticacion/IngresoCertificado.html?https://palena.sii.cl/cgi_dte/consultaDTE/wsDTEConsRecContHtml.cgi";
- $mech->agent_alias('Windows Mozilla');
- $mech->get($url);
- $mech->submit();
- my $content = $mech->content;
- print $content;
- my $fh2 = new IO::File(">data.html");
- print $fh2 $content;
- print $content;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El sitio me responde con un código interno el cual significa "Se recomienda cerrar el browser (página de navegación) e intentarlo de nuevo".
De antemano, muchas gracias.
Salu2