#!/bin/sh

export DATE="14.8.2007";SCRIPT=${0#/rom}
export TITLE="Administración:
Publicar"
. ${SCRIPT%/*}/cgi-bin-pre.sh

cat<<EOF
<H1>Administraci&oacute;n:
Publicar</H1>
EOF

if [ "$REQUEST_METHOD" != "POST" ]; then

cat<<EOF
<FORM ACTION="webpages.html" ENCTYPE="multipart/form-data" METHOD="POST">
<TABLE CLASS="shadow0" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE CLASS="shadow1" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE CLASS="shadow2" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE BORDER="0" CLASS="form"
TITLE="Seleccionar un fichero *.tar, *.tgz o *.tar.gz que contenga las nuevas páginas web. Or choose an intro.jpg file for the main page picture.">
<TR>
<TD>Archivo p&aacute;gina Web (*.tar) o
intro.jpg:</TD>
</TR>
<TR>
<TD><INPUT NAME="webfile" SIZE="32" TYPE="FILE" VALUE="Explorar..."></TD>
</TR>
<TR>
<TD>&nbsp;</TD>
</TR>
<TR>
<TD><INPUT NAME="post_web" TITLE="Cargar el archivo de páginas web especificado. Las páginas webs serán visibles inmediatamente." TYPE="SUBMIT" VALUE="Cargar páginas web">&nbsp;&nbsp;&nbsp;<INPUT NAME="post_abort" TITLE="Cancelar la edición de la página." TYPE="SUBMIT" VALUE="Cancelar"></TD>
</TR>
</TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></FORM>
<H2>Creaci&oacute;n
de p&aacute;ginas Web</H2>
<P>Con
el micro-sistema de publicaci&oacute;n incluido en este firmware, es muy f&aacute;cil
personalizar las p&aacute;ginas Web en este dispositivo o a&ntilde;adir
nuevas. Con el sistema operativo Windows es necesario instalar dos
programas adicionales: El lenguaje del script
<A HREF="http://www.perl.org/">Perl</A> y un programa para comprimir
archivos TAR (p.ej. <A HREF="http://www.ultimatezip.de/">UltimateZip</A>).
En un Linux standard, este software viene normalmente incluido.</P>
<H3>Funcionamiento</H3>
<P>Un script en Perl (template.pl) interpretar&aacute;
un archivo de plantilla HTML (template.html) buscando una cadena de
caracteres &quot;%BODY%&quot;. Despu&eacute;s, el script de Perl leer&aacute;
los otros archivos HTML del directorio sucesivamente extrayendo la parte
entre &lt;BODY&gt; y &lt;BODY&gt;. El c&oacute;digo HTML que se extrae se
insertar&aacute; despu&eacute;s en la plantilla en la posici&oacute;n
%BODY% y el resultado se escribir&aacute; en un nuevo directorio
(./out-es/).</P>
<P>Los archivos referenciados (p.ej. im&aacute;genes)
tambi&eacute;n se copian a trav&eacute;s del script de Perl. La cadena de
caracteres &quot;$(echo -n %)DATE%&quot; se reemplazar&aacute; por la
fecha y la hora del archivo fuente. La cadena de caracteres &quot;$(echo -n %)TITLE%&quot; se reemplazar&aacute; por el primer encabezamiento H1
que se encuentra en el archivo fuente.</P>
<P>Si
el nombre del archivo fuente comienza por &quot;cgi-bin&quot; se insertar&aacute;n
los comandos de consola adecuados para la ejecuci&oacute;n del servidor
Web. Sus propios comandos de la l&iacute;nea de comandos se pueden
escribir entre &lt;SCRIPT LANGUAGE=&quot;shell&quot;&gt;&lt;/SCRIPT&gt;
etiquetas en el archivo fuente. Durante la ejecuci&oacute;n del servidor
Web las variables de consola se resolver&aacute;n de manera standard.
Ejemplos: &quot;\$PWD&quot; se transformar&aacute;n en $PWD, &quot;\$(ls /tmp)&quot; va a listar los contenidos del directorio /tmp.
</P>
<P LANG="s">El
directorio de destino resultante (./out-es/) se empaqueta junto con todos
los subdirectorios en un archivo TAR-, TGZ- o TAR.GZ . El archivo se puede
subir a trav&eacute;s de esta p&aacute;gina de administraci&oacute;n. Las
p&aacute;ginas existentes (como estas p&aacute;ginas de administraci&oacute;n)
no se suprimen mediante este proceso.</P>
<H3>Manual Breve</H3>
<OL>
<LI>Recuperar
el paquete de publicaci&oacute;n <A HREF=""></A>.</LI>
<LI>Extraer
los archivos en un nuevo directorio (Linux: &quot;tar -xvf
ff-pubpak*.tar&quot;).</LI>
<LI>
Iniciar el script de
perl: (Linux:
EOF

echo 'cd ff-pubpak; perl template.pl -x "/index.html" -S xx; ls out-xx'

cat<<EOF
).</LI>
<LI>Crear
un fichero de archivo desde del directorio de salida (Linux: &quot;tar
-cvf out-es.tar out-es&quot;).</LI>
<LI>Subir
el nuevo fichero de archivo out-en.tar con esta pagina de administraci&oacute;n.</LI>
<LI>Cambiar
los archivos HTML segun necesidades y repetir desde el paso 3.</LI>
</OL>
<P STYLE="display:none"><B>A tener en
cuenta</B>: En el paquete de publicaci&oacute;n, no se incluyen dos links
simbolicos que estan disponibles en el /www directorio del dispositivo de
todos modos. Los mensajes de alerta &quot;No ./netperf, No ./netserver&quot;
son frecuentes y simplemente indican estos hechos.</P>
<P><B>Notas
para usuarios de Windows</B>: Si los &quot;tar&quot; y &quot;Perl&quot;
est&aacute;n instalados, los comandos de Linux se aceptar&aacute;n
igualmente en la l&iacute;nea de comandos de windows. Se tendr&aacute; que
reemplazar el car&aacute;cter &quot;/&quot; por el gui&oacute;n (&quot;\&quot;).
El archivo de Perl tambi&eacute;n puede ejecutarse haciendo doble click
encima del nombre del archivo &quot;template.pl&quot;.</P>
<H3>Consejos</H3>
<P>Escribe un HTML v&aacute;lido y
cierra y abre &lt;Tags&gt;&lt;/Tags&gt; con &lt;/Tags&gt;. Usa un editor
de HTML de validaci&oacute;n o un editor de texto con un m&iacute;nimo de
rigor.</P>
<P>A&ntilde;ade
un link a la nueva p&aacute;gina en el archivo template.html. Copia una de
las l&iacute;neas de la tabla (p.ej. &lt;TR&gt;... Status ...&lt;/TR&gt;)
y cambia la etiqueta &lt;A HREF=&quot;&quot;&gt; y el texto. Puede ser
necesaria la ampliaci&oacute;n de la barra de navegaci&oacute;n. Busca y
cambia el atributo WIDTH=&quot;150&quot; al tama&ntilde;o conveniente.</P>
<P>Un
nuevo subdirectorio tambi&eacute;n necesitar&aacute; un nuevo
template.html. El&nbsp;script de Perl leer&aacute; cada plantilla por
separado para cada subdirectorio. Para ahorrar espacio, cambia referencias
a im&aacute;genes existentes como &quot;../images/&quot;.</P>
<P>El archivo TAR se examinar&aacute;
para recortar subdirectorios adicionales en el archivo.</P>
<P>Se
puede a&ntilde;adir soporte multi-lenguaje &lt;SPAN LANG=&quot;xx&quot;&gt;
tags. Tambi&eacute;n se buscan atributos como TITLE, ALT y VALUE por medio
del patr&oacute;n &quot;Todos los lenguajes!xx:Text for language
A!yy:Texto para el lenguaje B&quot;. El script de Perl acepta par&aacute;metros
para filtrar el lenguaje deseado.</P>
EOF

elif ! ffout=$(./freifunk-upload 2>&1); then

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>$ffout</TD>
</TR>
</TABLE>
<P>La carga de la p&aacute;gina
Web se ha cancelado.</P>
EOF

elif [ -n "$ffout" ]; then

cat<<EOF
<P>Descomprimiendo p&aacute;ginas Web.</P>
EOF

echo "<PRE>"
if [ "${ffout##*/}" = "intro.jpg" ]; then
set -x
rm -f /www/images/intro.jpg
mv "$ffout" /www/images
set +x
else
zflag=
if [ -z "${ffout##*.tar.gz}" ] || [ -z "${ffout##*.tgz}" ]; then
zflag=-z
fi
tardir=$(tar $zflag -tvf "$ffout"|if read line;then if [ "-" != $(echo $line|dd bs=1 count=1 2>&-) ];then set $line;echo $6;fi;fi)
mkdir /tmp/wwwtmp.$$/
tar -C /tmp/wwwtmp.$$/ $zflag -xf "$ffout"
rm -f "$ffout"
chmod +x /tmp/wwwtmp.$$/$tardir/cgi-bin*>/dev/null 2>&1
chmod +x /tmp/wwwtmp.$$/$tardir/cgi-bin/*>/dev/null 2>&1
tar -cC "/tmp/wwwtmp.$$/$tardir" .| tar -xvC /www/
rm -rf /tmp/wwwtmp.$$/
fi
echo "</PRE>"
else

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>No se ha recibido ninguna p&aacute;gina
Web.</TD>
</TR>
</TABLE>
<P>La carga de la p&aacute;gina
Web se ha cancelado.</P>
EOF

fi

. ${SCRIPT%/*}/cgi-bin-post.sh