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.
Reply to: