#
#  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
#

$lista = @ARGV[0];

#
# para cada archivo 
#

open(INPUT, "<$lista");

foreach $archivo (<INPUT>) {

#
# procesamos los individuales
#
 
   print "<li><a class='urllink' href='http://ccc.inaoep.mx/~villasen/bib/",$archivo,"' rel='nofollow'>",$archivo,"</a>",$archivo,"</li>\n";
}
