Foro - Perl en Español

Ese código de arriba me funciona muy bien en mi local y en un servidor de prueba, pero hay otro servidor que no funciona y no sé la razón. La respuesta del soporte fue:

Please note that we cannot enable the port 9443 on the server. You need to find some other way to connect to your source.

Yo necesito consumir unos webservices y todos apuntan a puertos, pero no entiendo por qué no puedo hacer un mech get a una URL que contenga un puerto desde ese servidor.

Quizás ese servidor, aunque pueda estar escuchando en esos puertos, tenga delante un cortafuegos que impida acceder a ellos.

Si quieres conectarte a un servidor, a un determinado puerto, tienes que avisar al administrador de la máquina para que lo permita (configurar el cortafuegos de la propia máquina), avisar al administrador del sistema (configurar el servicio que quedará escuchando en ese puerto) y al administrador de red (para que permita acceder al puerto de la máquina desde fuera).

Gracias, explorer, quizás no formulé bien la pregunta.

El servidor que tiene los webservices tiene los puertos abiertos. Es más: este es un servicio REST que quiero consumir y que me funciona perfecto: http://monitec.com:3333/monitec-rest-ap ... lCountries

Pero hay un servidor desde donde llamo el script que consume ese WS y solo cuando hago la petición desde ese servidor me sale el error connection time out. Ahora, yo no creo que tenga que abrir el puerto 3333 en ese servidor si mi webservice no está en ese servidor si no que está en otro. El problema está en la máquina que hace la petición del webservice.

No sé cómo pedir al soporte que me solucione este problema.

Bueno, pues si el servidor tiene abiertos sus puertos, no tiene prohibido el acceso desde el ordenador cliente, y el ordenador cliente no tiene prohibido acceder al servidor, todo debería funcionar.

Yo he hecho varias pruebas... y he notado que las primeras pruebas iban muy, muy lentas. Casi me ha saltado un timeout en la primera petición. Pero luego, las siguientes ha funcionado muy bien.

Parece que puede ser una limitación del servidor, que tenga algo de retraso al principio. Da la sensación de que se trata de un sistema con recursos limitados, algo así como una máquina virtual.

Podría ser, también, que nuestra petición, en la cabecera HTTP donde se indica el cliente que hace la petición, vea que se trata de un cliente lwp (en Perl 5, por ejemplo), y eso provoque la denegación de servicio. Esto sigue ocurriendo en muchos servidores, que prohíben cualquier acceso directo a scripts Perl. Si hechas un vistazo a alguno de los programas publicados aquí por Doddy, veras que él siempre falsea el nombre del cliente, para que el servidor se crea que la petición llega de un cliente HTTP normal, no de un script.


Resultado:

Gracias, explorer, pero,

aún no me queda claro, definitivamente el servidor donde están los servicios web está bien.

El problema es el que los consume. ¿Podría darse el caso de que mi computador cliente prohibiera las salidas al servidor?

Ya que estaba probando con otro cliente y de un momento a otro me empezó a dar el mismo problema de timeout...

Sí que es posible, si tuviera instalado algún tipo de cortafuegos.

Pero no es lo normal, el filtrar conexiones hacia el exterior. Lo normal es filtrar solo lo que llega del exterior.

No sé... es muy raro. En alguna parte de la cadena de conexiones entre el ordenador cliente y el servidor, está el problema.

Ya te digo que a mi me resultó sospechosa la primera conexión que hice, que tardó muchísimo. Ahora lo hace en menos de 4 segundos, pero la primera vez se tiró más de 20.

Lo que podrías hacer es... aumentar el timeout del Mechanize.