WelcomeRedirector.pl

Pequeño script que al utilizarse con Squid permite que la primera petición de cada máquina se redirija a determinada URL. Se utiliza en la XEiLL para mostrar una página de información en la primera visita de cada cliente.

Necesita un intérprete de Perl para funcionar.

WelcomeRedirector.pl

#!/usr/bin/perl
#
# WelcomeRedirector v0.1 (por Victor Carceler)
#
# Este script es software libre GPL
#
# Este script es un redirector para Squid (http://www.squid-cache.org/Doc/FAQ/FAQ-15.html)
# Cuando Squid recibe una petición, se la pasa a WelcomeRedirector y el script retorna
# la URL que Squid debe retornar al cliente.
#
# Si es la primera vez que el cliente realiza la petición, o hace más de TIMEOUT segundos
# desde la última petición, el cliente es dirigido a URL. En caso contrario el cliente
# obtiene el documento que pidió.
#
# Para que Squid utilice este software debe configurar la directiva redirect_program
# y redirect_children (con valor 1) en squid.conf

my $TIMEOUT = 3600;
my $URL = "http://iespuigcastellar.xeill.net/activitats/xeill";

$|=1;

my %registro;

while (<>) {
@X = split;
$url = $X[0];
$address = $X[1];
$ident = $X[2];
$method = $X[3];

#print "Petición: $url -> $address -> $ident -> $method\n";

# Tenemos $address registrada ?
my @ips = keys %registro;
my $registrado = 0;
foreach(@ips) {
if ($_ == $address) {
if ((time - $registro{$address}) >= $TIMEOUT) {delete $registro{$address};
} else {
$registrado = 1;
#print "Tengo la ip registrada !!!";
}
}
}

if (! $registrado) {
$url = $URL;
print "302:$url\n";
$registro{$address}=time;
} else {
print "$url\n";
}
}

Parámetros de configuración:

Puede editar el script y cambiar el valor de las variables:

$TIMEOUT
Número de segundos durante el que se considera que la máquina ya ha sido avisada. Por ejemplo, si el valor es 3600, se mostrará a cada cliente la web informativa cada hora.
$URL
Dirección de la web a la que se redirigirá la primera solicitud de cada cliente



Navegació