OT sript en perl para redirigir squid
No se por que no me funciona esto:
por lo que he podido analizar no llega a leer la dirección en la entrada
del programa.
¿Alguien puede hecharme una mano?:
#!/usr/bin/perl
use Net::Ping;
$|=1;
$p = Net::Ping-new();
$host = 10.60.163.226;
$n_intentos=3;
while () {
chomp;
@X = split;
$url = $X[1];
if ($url =~ /^http:\/\/www\.hvn\.es/) {
$n = 1 ;
while ($n $n_intentos) {
if ( $p-ping($host) ) {
$url =~ s/^hvn\.es/hvn\.junta-andalucia\.es/;
print $X[0]. 302:$url\n;
$n = $n_intentos ;
} else {
$n++;
}
}
print $X[0]. \n;
} else {
print $X[0]. \n;
}
}
--
Fain would I climb, yet fear I to fall.
-- Sir Walter Raleigh
Por favor, NO utilice formatos de archivo propietarios para el
intercambio de documentos, como DOC y XLS, sino HTML, RTF, TXT,CSV
o cualquier otro que no obligue a utilizar un programa de un
fabricante concreto para tratar la información contenida en él.
SALUD.
--
To UNSUBSCRIBE, email to debian-user-spanish-requ...@lists.debian.org
with a subject of unsubscribe. Trouble? Contact listmas...@lists.debian.org
Archive: http://lists.debian.org/4ecf5a7c.9080...@juntadeandalucia.es
Re: OT sript en perl para redirigir squid
El 25/11/11 10:06, Trujillo Carmona, Antonio escribió:
No se por que no me funciona esto:
por lo que he podido analizar no llega a leer la dirección en la entrada
del programa.
¿Alguien puede hecharme una mano?:
#!/usr/bin/perl
use Net::Ping;
$|=1;
$p = Net::Ping-new();
$host = 10.60.163.226;
$n_intentos=3;
while () {
chomp;
@X = split;
$url = $X[1];
if ($url =~ /^http:\/\/www\.hvn\.es/) {
$n = 1 ;
while ($n $n_intentos) {
if ( $p-ping($host) ) {
$url =~ s/^hvn\.es/hvn\.junta-andalucia\.es/;
print $X[0]. 302:$url\n;
$n = $n_intentos ;
} else {
$n++;
}
}
print $X[0]. \n;
} else {
print $X[0]. \n;
}
}
¿Cómo lo ejecutas? Tienes que pasarle como parámetro uno o mas archivos,
no URLs.
Un saludo.
--
To UNSUBSCRIBE, email to debian-user-spanish-requ...@lists.debian.org
with a subject of unsubscribe. Trouble? Contact listmas...@lists.debian.org
Archive: http://lists.debian.org/4ecf69fe.6000...@limbo.ari.es
Re: OT sript en perl para redirigir squid
El 25/11/11 11:12, Juan Antonio escribió:
El 25/11/11 10:06, Trujillo Carmona, Antonio escribió:
No se por que no me funciona esto:
por lo que he podido analizar no llega a leer la dirección en la entrada
del programa.
¿Alguien puede hecharme una mano?:
#!/usr/bin/perl
use Net::Ping;
$|=1;
$p = Net::Ping-new();
$host = 10.60.163.226;
$n_intentos=3;
while () {
chomp;
@X = split;
$url = $X[1];
if ($url =~ /^http:\/\/www\.hvn\.es/) {
$n = 1 ;
while ($n $n_intentos) {
if ( $p-ping($host) ) {
$url =~ s/^hvn\.es/hvn\.junta-andalucia\.es/;
print $X[0]. 302:$url\n;
$n = $n_intentos ;
} else {
$n++;
}
}
print $X[0]. \n;
} else {
print $X[0]. \n;
}
}
¿Cómo lo ejecutas? Tienes que pasarle como parámetro uno o mas archivos,
no URLs.
Un saludo.
Se trata de un programa para redirigir url desde el squid, en las
caracteristicas ( y los ejemplos ) dicen que tiene que ser un bucle
infinito que irán reciviendo las peticiones como parametros.
--
Everything that you know is wrong, but you can be straightened out.
Por favor, NO utilice formatos de archivo propietarios para el
intercambio de documentos, como DOC y XLS, sino HTML, RTF, TXT,CSV
o cualquier otro que no obligue a utilizar un programa de un
fabricante concreto para tratar la información contenida en él.
SALUD.
--
To UNSUBSCRIBE, email to debian-user-spanish-requ...@lists.debian.org
with a subject of unsubscribe. Trouble? Contact listmas...@lists.debian.org
Archive: http://lists.debian.org/4ecf87fe.4080...@juntadeandalucia.es
Re: OT sript en perl para redirigir squid FIN
El 25/11/11 10:06, Trujillo Carmona, Antonio escribió:
No se por que no me funciona esto:
por lo que he podido analizar no llega a leer la dirección en la entrada
del programa.
¿Alguien puede hecharme una mano?:
#!/usr/bin/perl
use Net::Ping;
$|=1;
$p = Net::Ping-new();
$host = 10.60.163.226;
$n_intentos=3;
while () {
chomp;
@X = split;
$url = $X[1];
if ($url =~ /^http:\/\/www\.hvn\.es/) {
$n = 1 ;
while ($n $n_intentos) {
if ( $p-ping($host) ) {
$url =~ s/^hvn\.es/hvn\.junta-andalucia\.es/;
print $X[0]. 302:$url\n;
$n = $n_intentos ;
} else {
$n++;
}
}
print $X[0]. \n;
} else {
print $X[0]. \n;
}
}
Muchas gracias y perdonar por el ruido, he optado por otra solución
--
Alone, adj.:
In bad company.
-- Ambrose Bierce, The Devil's Dictionary
Por favor, NO utilice formatos de archivo propietarios para el
intercambio de documentos, como DOC y XLS, sino HTML, RTF, TXT,CSV
o cualquier otro que no obligue a utilizar un programa de un
fabricante concreto para tratar la información contenida en él.
SALUD.
--
To UNSUBSCRIBE, email to debian-user-spanish-requ...@lists.debian.org
with a subject of unsubscribe. Trouble? Contact listmas...@lists.debian.org
Archive: http://lists.debian.org/4ecf8833@juntadeandalucia.es
Re: OT sript en perl para redirigir squid
El 25/11/11 13:20, Trujillo Carmona, Antonio escribió:
El 25/11/11 11:12, Juan Antonio escribió:
El 25/11/11 10:06, Trujillo Carmona, Antonio escribió:
No se por que no me funciona esto:
por lo que he podido analizar no llega a leer la dirección en la entrada
del programa.
¿Alguien puede hecharme una mano?:
#!/usr/bin/perl
use Net::Ping;
$|=1;
$p = Net::Ping-new();
$host = 10.60.163.226;
$n_intentos=3;
while () {
chomp;
@X = split;
$url = $X[1];
if ($url =~ /^http:\/\/www\.hvn\.es/) {
$n = 1 ;
while ($n $n_intentos) {
if ( $p-ping($host) ) {
$url =~ s/^hvn\.es/hvn\.junta-andalucia\.es/;
print $X[0]. 302:$url\n;
$n = $n_intentos ;
} else {
$n++;
}
}
print $X[0]. \n;
} else {
print $X[0]. \n;
}
}
¿Cómo lo ejecutas? Tienes que pasarle como parámetro uno o mas archivos,
no URLs.
Un saludo.
Se trata de un programa para redirigir url desde el squid, en las
caracteristicas ( y los ejemplos ) dicen que tiene que ser un bucle
infinito que irán reciviendo las peticiones como parametros.
Bueno, con lo que hay en tu correo lo mas que se puede hacer, o al menos
lo que yo he podido hacer, es comprobarlo de manera utónoma, y pasándole
como parámetro un archivo con contenido el script parece que hace lo que
tiene que hacer. Como no se en que contexto lo estas ejecutando, ni de
que manera, pues no puedo serte de mas ayuda.
Un saludo.
--
To UNSUBSCRIBE, email to debian-user-spanish-requ...@lists.debian.org
with a subject of unsubscribe. Trouble? Contact listmas...@lists.debian.org
Archive: http://lists.debian.org/4ecf8906.8060...@limbo.ari.es
