[Previo por Fecha] [Siguiente por Fecha] [Previo por Hilo] [Siguiente por Hilo]

[Hilos de Discusión] [Fecha] [Tema] [Autor]

[Ayuda] ayuda con script Perl



Hola

TEngo un problema.

Tengo instalado Webalizer en mi server, y hay un script de perl para que cree las estadisticas de cada uno de mis sites virtuales, sin embargo el script tambien trata de crear estadisticas de los alias de los servers.... (pe. www.kaliman.com.mx y su alias www.kaliman.org.mx) asi que manda varios errores (todos los dias), pues esos directorios no existen...

Lo malo es que no se de perl para modificar el script....

este es un fragmento del script, qeu se ejecuta como un cron.daily:

---------------------------------------

# Where sites on a RaQ3/4 live
$prefix = "/home/sites";
# Status messages
my $messages;

chdir "$prefix" or die "Can't cd to $prefix??: $!\n";
opendir THEROOT, $prefix or die "Couldn't open $prefix?: $!\n";
@allsites = grep !/^\.\.?$/,  readdir THEROOT;

foreach $asite (@allsites)
{
# Aqui van las instrucciones para cada site, como:  crear los subdirectorios,
# si es que no existen, crear el archivo .httpacces y finalmente correr el Webalizer

 $messages .=
`webalizer -p -n $asite -q -T -D /home/log/reverse.dns -o $thepath $prefix/$asite/logs/web.log`;

}
-----------------------------------------------------
lo que quiero es añadir una instruccion para que no ejecute las acciones cuando el archivo

$thepath $prefix/$asite/logs/web.log`

no exista... y prefiero preguntar antes que regarla...

me peude hechar una mano con esto?

Javier






Paralax Multimedia
www.paralax.com.mx
Interactivos, kioscos, sites, web hosting, video 3d, animacion 3d, anaglifos
tel 5373 3620  y  5363 4953
Naucalpan de Juarez, Edo. Mex.

tambien visite:
http://www.kaliman.com.mx
http://www.paralax.com.mx/javier

_______________________________________________
Ayuda mailing list
Ayuda en linux org mx



[Hilos de Discusión] [Fecha] [Tema] [Autor]