#
#  proposito crea una página en html a partir del directorio indicado
#    toma cada archivo y crea una liga a este en la página final
#    la idea es usar esta página para usarla con el buscador de google.
#
#  uso: perl creaPagina.pl RUTA > out.html
#

$listaOrigen = @ARGV[0];
$rutaDestino = @ARGV[1];

#
# para cada archivo 
#

open( INPUT, "<$listaOrigen" );
foreach $archivo (<INPUT>) {

#
# procesamos los individuales
#
   chomp($archivo);
   if ( $archivo !~ /\.[a-z]/ ) {
   	 if ( $archivo =~ /\:/ ) {
   	   print "directorio: $archivo\n";
   	   $archivo =~ /^(.*)\:/;
   	   $directorio = $1;
   	}
  } else {
  	  system ("cp "."\"".$directorio."\/".$archivo."\" \"".$rutaDestino."\/$archivo"."\"");
      print "cp "."\"".$directorio."\/".$archivo."\" \"".$rutaDestino."\/$archivo"."\""."\n";
    }
}
