Re: [Gutl-l] si alguien sabe de perl una ayuda por favor...
On Friday 19 November 2010 19:33:38 Reinaldo de la Cruz Méndez wrote: > Mi pedido de ayuda es que si alguien que sepa algo de programación en > perl me puede decir dónde y cómo puedo añadir en este fichero que les > copio textualmente abajo (perdonen la extensión) la simple línea que le > diga que tiene un proxy padre, algo como: > cache_peer "x.x.x.x" parent 3128 0 proxy-only no-query default > login="user":"pass" > Esta línea es la que uso ahora en el squid que tengo instalado en el > servidor. Abajo les dejo el texto de la plantilla que les dije. > Cualquier sugerencia se agradece de antemano. Saludos. > Reinaldo de la Cruz. Biblioteca Municipal Placetas VC. > > % if ($cache_host and $cache_port) { > cache_peer <% $cache_host %> parent <% $cache_port %> 0 no-query > no-digest never_direct allow all > % } saludos colega la sintaxis de escritura de este codigo se parece mucho a la que se usa con Mason (HTML::Mason), es la que uso en algunos sitios web aqui .. el colega hugo tiene razon en lo que dice .. define los valores de las variables $cache_host y $cache_port % $cache_host = "x.x.x.x"; % $cache_port = 3128; % if ($cache_host and $cache_port) { cache_peer <% $cache_host %> parent <% $cache_port %> 0 no-query no-digest never_direct allow all % } en caso contrario, no definas esos valores y escribe directamente tu linea de configuracion antes de ese bloque (el anterior que te puse). cache_peer "x.x.x.x" parent 3128 0 proxy-only no-query default login="user":"pass" % if ($cache_host and $cache_port) { cache_peer <% $cache_host %> parent <% $cache_port %> 0 no-query no-digest never_direct allow all % } te funcionara de las dos formas, estoy convencido, pero veo que en tu linea personalizada tienes otros parametros a la palabra reservada 'cache_peer' de squid, por lo que quiza quieras usar la 2da variante espero te ayude __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l
Re: [Gutl-l] si alguien sabe de perl una ayuda por favor...
> [...] están escritas en perl, ya que como es lógico dependen unas > de otras y están integradas con las plantillas que a su vez son usadas > en la interfaz web por donde se administra y donde el usuario entra los > datos de las configuraciones y demás. > Mi pedido de ayuda es que si alguien que sepa algo de programación en > perl me puede decir dónde y cómo puedo añadir en este fichero que les > copio textualmente abajo (perdonen la extensión) la simple línea que le > diga que tiene un proxy padre, algo como: > cache_peer "x.x.x.x" parent 3128 0 proxy-only no-query default > login="user":"pass" > Esta línea es la que uso ahora en el squid que tengo instalado en el > servidor. Abajo les dejo el texto de la plantilla que les dije. > Cualquier sugerencia se agradece de antemano. Realmente no se programar en perl, pero tu problema me resultó interesante, así que le he echado una ojeada al código y si no me equivoco, lo que buscas está cerca de la línea 107, lo que sucede es que el nombre del servidor y el puerto se pasan como variables. Si mi interpretación es correcta, el script lo que hace es comprobar si las variables $cache_host y $cache_port contienen valores, y de ser asi configura el cache_peer. Lo extraño es que estas dos variables se introducen en las lineas 19 y 20, junto con otras, y a ninguna de ellas se les asignan valores, por lo que asumo que los toma de alguna otra parte, o bien tiene que proporcionarselos uno, tendrías que probar. Quizas el script toma las variables de algún control que estas pasando por alto. En definitiva, la solución a tu problema probablemente ande por ahi. Suerte. Saludos, Hugo PD. Por cierto, las versiones 1.x aun se llamaba Ebox (lo digo porque de hecho tengo una 1.5.1), creo que el nombre cambió a Zentyal con la versión 2.0 __ Lista de correos del Grupo de Usuarios de Tecnologías Libres de Cuba. Gutl-l@jovenclub.cu https://listas.jovenclub.cu/cgi-bin/mailman/listinfo/gutl-l