Re: OT sript en perl para redirigir squid

[Juan Antonio <pushakk@limbo.ari.es>]

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.