#!/usr/bin/perl
# -------------------------------------------------------------------------
# -  (c) MICROBITCA, S.L.           ENERO 2000                            -
# - Scrip de limpieza. Es el equivalente a un 'clean'                     -
# -------------------------------------------------------------------------

print "*---------------------------------------------------\n";
print "* (C) MICROBOTICA, S.L.  ENERO 2000                *\n";
print "*---------------------------------------------------\n";
print "Limpiando...\n";

@fich=`ls`;             # Leer todos los ficheros del directorio
$numfich=@fich;

for ($i=0; $i<$numfich; $i++) {      # Recorrer todos los ficheros
  chomp($fich[$i]);
  if (-d $fich[$i]) {                # Si es un directorio
    chdir("$fich[$i]/src");          # Ejecutar script de instalacion
    system("make clean");
    chdir("../..");
  }
}

print "\n";
print "OK!\n\n";


