Foro - Perl en Español

El '_' es una cuestión estética... sirve para ayudar a leer números grandes.

No hay diferencia en el resultado de escribir

que

pero se lee más cómodamente

Disculpen la demora en informar.

Actualicé unas cuantas cosas al script más que todo necesidades personales. Por ejemplo, la lista negra de URL y hay que redireccionar solo salen a una lista de IP en específico. La URL del aviso temporal va codificada pues necesitaba pasar unas variables...

Lo que note extraño es que no me respeta el tiempo de redirección temporal. Estoy testeando a ver cuál sería el problema.

He estado evaluando y planteo si se podría enviar el aviso temporal por ejemplo cada hora independientemente de si hay o no actividad en la navegación.

Explorer: es increíble lo que ayudan los módulos, son muy prácticos y te ahorran un montón de tiempo. Lo otro que quería decirles es que el script es mucho mas rápido que el original.

Saludos.

Me sucede lo siguiente:

Arranco mi PC con Linux; carga los servicios entre ellos squid que a su vez carga el redirector.

Cuando un usuario empiece a navegar debería aparecerle el aviso temporal, pero eso aveces no sucede. De 4 reinicios lo hace 1 o dos veces.

A ver si entendí lo siguiente:


Son 3600 segundos.


Quiere decir que si el tiempo de inactividad es mayor o igual a 3600 redirige la IP al aviso.


Ok, eso esta claro.

No veo dónde podría estar el problema. A no ser que otro software aparte del de los navegadores tenga actividad por puerto 80, el cual redirecciono a squid port 8080.

Por eso y para garantizar que el aviso llegue sería conveniente que el aviso salga cada hora independientemente de la actividad del que navegue.

Voy a trabajarlo esta noche a ver si lo logro.
Saludos.

La variable


¿Dónde la usas?

Estoy un poco confundido.

Quizás sea un problema con la inicialización del valor de $hay_que_controlar.

angelruiz escribiste:La variable

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

my $inicio             = time - $tiempo_de_aviso;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

¿Dónde la usas?

Estoy un poco confundido.

En la línea 39.

La uso para inicializar el valor de las visitas a un tiempo que es el de ahora menos $tiempo_de_aviso, por lo que la primera vez que se conecten, les saldrá el aviso.

Hola amigos.
El redirector se esta portando de lujo. pero quiero consultarles algo.

Tengo una lista de URL a bloquear. Ejemplo:

http://www.loquesea.com

Anda perfecto, pero si solicito

http://www.loquesea.com/otro_contenido/aqui.jpg

no bloquea porque no coincide con el URL de mi lista.

¿La solución sería algo así como esto?

if ($url =~ /$_/) {

Pues eso es un problema... tendrías que hacer un bucle por todas las URL en la lista negra, con lo que perdemos las ventajas de usar diccionarios.

Una solución sería pasar la $url que recibimos a través de una expresión regular que filtrase todo aquello que va después de la primera barra, para que quede como las URL que queremos filtrar.

En la línea 70, con algo como


Con esa expresión eliminamos todo aquello que sigue a la primera barra del recurso, con lo que ya podemos seguir con el resto del programa.

Hola amigos.

Les comento que todo lo logrado en este post lo adapté a la distro brazilfw; le agregué unas cuantas funciones nuevas orientadas a necesidades puntuales para el tipo de trabajo que hace mi server; no las he publicado para no alterar el desarrollo de este post.

Ahora bien, he estado tratando de hacer lo siguiente:

Existe el archivo llamado block que contiene la lista de IP a bloquear;
ejemplo:

192.168.50.33
192.168.50.13

Lo que he intentado hacer es poder agregarle un comentario al lado del IP para tener referencia de qué usuario se trata. Ejemplo:

192.168.50.33 #angel
192.168.50.13 #ruiz

el resultado obtenido es:


Lo que trato de hacer es que me ignore lo que esté antecedido de #; he intentado varias formas sin obtener resultados.

Si por favor me tiran una luz les estaré agradecido...

Saludos.

Resuelto:



¡¡Quedo perfecto!!