Lo que sucede es que tengo un hosting que autoinstala paquetes pero necesito automatizar la creación de bases de datos y para eso necesito hacer tan solo una petición GET con mi autenticación en el header y listo, pero no sé cómo hacerlo ya que sólo puedo ingresar vía SSL.
Encontré por ahí un texto donde desde la línea de comandos puedes hacer una petición similar a la que haces con netcat pero con openssl:
openssl s_client -connect 255.255.255.255:443 -cipher EXP-RC4-MD5
Sí resulta, pero luego tengo que enviarle el buffer con toda la petición e intenté hacer para testear esto:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- $comando = 'openssl s_client -connect mihost:443 -cipher EXP-RC4-MD5';
- $buffer =
- 'GET / HTTP/1.1
- connection: close
- host mihost
- ';
- system($comando."\n".$buffer);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
pero al ejecutarlo no envía el buffer y recién se ve cuando termina la conexión.
¿Hay alguna forma de hacer petición GET directamente desde Perl con algún módulo o lo que sea?
Gracias de antemano.