#---------------------------------------------------------------------
#
#  crear_enlaces.csh: A partir del archivo 'lista_simple' muestra el
#  codigo HTML para crear una lista de URLs.
#
#  Copyright (C) 2007 Alef Sheridan Ariel Ramírez Chiñas.
#
#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with this program; if not, write to the Free Software
#  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
#---------------------------------------------------------------------

#!/bin/tcsh -f

# Una variable global por cualquier cosa
set INPUT_FILE = 'lista_simple'
set OUTPUT_FILE = 'lista_de_enlaces'

# Primero vamos a ver cuantas lineas tiene el archivo
set TOTAL_DE_LINEAS = `wc -l < "$INPUT_FILE"`

set LINEA_DE_ENTRADA_ACTUAL = 1

while ($LINEA_DE_ENTRADA_ACTUAL <= $TOTAL_DE_LINEAS)
 @ INDICE = $LINEA_DE_ENTRADA_ACTUAL - 1

 set SECCION = `head -n $LINEA_DE_ENTRADA_ACTUAL < $INPUT_FILE | tail -n 1`

 # Dirección de las noticias
 # http://www.mononeurona.org/index.php?topic=
 #
 # "Machote" para crear los indices:
 #
 # <a title="El título del enlace que va en un cuadrito"
 # href="La dirección del enlace">
 # El título del enlace en la página</a>

 # 17 - <a title="Secci&oacute;n: KDE" 
 echo -n $INDICE - \<a title=\"Secci\&oacute\;n: $SECCION\"; echo -n " "

 #  href="http://www.mononeurona.org/index.php?topic=17">
 echo -n href=\"http://www.mononeurona.org/index.php\?topic=$INDICE\"\>; echo -n " "

 # KDE</a><br>
 echo $SECCION\</a\>\<br\>

 @ LINEA_DE_ENTRADA_ACTUAL ++

end

crear_enlaces.csh