#!/usr/bin/perl
# -------------------------------------------------------------------------
# -  (c) MICROBITCA, S.L.           AGOSTO 2000                           -
# - Scrip de compilacion.                                                 -
# -------------------------------------------------------------------------

print "*---------------------------------------------------\n";
print "* (C) MICROBOTICA, S.L.  AGOSTO 2000               *\n";
print "*---------------------------------------------------\n";
print "Compilando...\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");
    chdir("../..");
  }
}

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


