Proxy Web sencillo April 11, 2004
Posted by Iñigo in : Cosas que Hago, Uncategorized , add a commentUn proxy web escrito en menos de 200 líneas de código en Perl.
Este programa surgió como una prueba de concepto sobre cómo hacer desarrollo rápido de aplicaciones en Perl en Unix.
El programa consiste en proxy impementado mediante un script en Perl. Su funcionamiento es el siguiente:
- El script espera una petición http desde stdin.
- Analizamos la petición.
- Si la solicitud contiene un URI (como http://www.exocert.com/ ), entonces:
-
- Nos conectamos al host que contiene el URI.
- Obtenemos el Contenido
- Lo devolvemos a través de stdout.
- En caso de error, mostramos un documento http por stdout.
Este proxy solamente ofrece servicio de conectividad. No es un proxy caché.
Utilización
Para instalar el programa (en *BSD y Solaris), basta con incluir una linea como la siguiente en el fichero /etc/inetd.conf y mandar la señal HUP (kill -HUP) al demonio inetd para activar la configuración:
# port� stream {tcp|udp} {wait|nowait} cmdline
8080 stream tcp nowait proxy /usr/bin/perl perl /usr/local/bin/httproxy
8080 stream tcp nowait proxy /usr/bin/perl perl /usr/local/bin/httproxy
Para más información puede consultar la documentación de POD incluída en el programa, ejecutando:
perldoc httproxy.pl
