#!/bin/sh

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

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

if [ "$REQUEST_METHOD" = "POST" ]; then
read QUERY_STRING
fi
if [ -z "$QUERY_STRING" ]; then
#Speedups
ff_dnsmasq="$(nvram get ff_dnsmasq)"
ff_mini_fo="$(nvram get ff_mini_fo)"
ff_nonetmsg="$(nvram get ff_nonetmsg)"
wl0_country_code="$(nvram get wl0_country_code)"
ff_tz="$(nvram get ff_tz)"
test -z "$ff_tz" && ff_tz="MET-1MEST-2,M3.3.0,M10.5.0"

cat<<EOF
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript"><!--
function validate(obj) {
old_mini_fo=$(nvram get ff_mini_fo)
for(var i = 0; i < obj.ff_mini_fo.length; i++) {
if (obj.ff_mini_fo[i].checked) {
new_mini_fo=obj.ff_mini_fo[i].value;
}
}
if (('1'==old_mini_fo) != ('1'==new_mini_fo)) {
var ask = 'mini_fo='+new_mini_fo+' reformats JFFS2. Enter OK.';
if ('es'=='de') ask = 'mini_fo='+new_mini_fo+' formatiert JFFS2. OK eingeben.';
return 'OK' == prompt(ask, '');
}
return true;
}
--></SCRIPT>
<FORM ACTION="system.html" ID="systemform" 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">
<TR
TITLE="Con este nombre se podrá acceder al aparato por nombre. Este es el nombre que se visualizará al prompt de la línea de comandos.">
<TD>Nombre del Host:</TD>
<TD><INPUT NAME="wan_hostname" SIZE="48" TYPE="TEXT" VALUE="$(nvram get wan_hostname)"></TD>
</TR>
<TR
TITLE="Los nombres de internet con este nombre de dominio serán considerados como nombres internos. Por favor, escoge un nombre de dominio que no sea utilizado en internet.">
<TD>Nombre
del Dominio:</TD>
<TD><INPUT NAME="wan_domain" SIZE="48" TYPE="TEXT" VALUE="$(nvram get wan_domain)"></TD>
</TR>
<TR
TITLE="Las búsquedas DNS para resolver nombre internet en direcciones IP se enviarán a esta dirección IP. Si el campo está en blanco, se utilizará una dirección por defecto preconfigurada. Puedes separar multiples direcciones DNS con un punto y coma.">
<TD>Servidor DNS:</TD>
<TD><INPUT NAME="wan_dns" SIZE="48" TYPE="TEXT" VALUE="$(nvram get wan_dns)">
EOF

if [ -x /etc/init.d/S*dnsmasq ];then

cat<<EOF
</TD>
</TR>
<TR
TITLE="Desconecta el servidor dnsmask de DNS+DHCP. Esto optimiza el uso de la memoria.">
<TD>Iniciar
Servidor DNS/DHCP:</TD>
<TD><INPUT CLASS="radio" NAME="ff_dnsmasq" TYPE="RADIO" VALUE="1"$(if [ "$ff_dnsmasq" != "0" ];then echo ' checked="checked"';fi)>Habilitar&nbsp;
<INPUT CLASS="radio" NAME="ff_dnsmasq" TYPE="RADIO" VALUE="0"$(if [ "$ff_dnsmasq" = "0" ];then echo ' checked="checked"';fi)>Deshabilitar
EOF

fi

cat<<EOF
</TD>
</TR>
<TR
TITLE="Use the mini_fo fanout file system instead of symbolic links. Saves space in JFF2, but may have bugs. Activated by default only on devices with 2Mb flash. Restart with format necessary.">
<TD>Utiliza
mini_fo:</TD>
<TD><INPUT CLASS="radio" NAME="ff_mini_fo" TYPE="RADIO" VALUE="1"$(if [ "$ff_mini_fo" != "0" ];then echo ' checked="checked"';fi)>Habilitar&nbsp;
<INPUT CLASS="radio" NAME="ff_mini_fo" TYPE="RADIO" VALUE="0"$(if [ "$ff_mini_fo" = "0" ];then echo ' checked="checked"';fi)>Deshabilitar
</TD>
</TR>
<TR
TITLE="Additional source line for /etc/ipkg.conf. Example: 'src mynet http://download.mynet.org/packs'.">
<TD>IPK
Source:</TD>
<TD><INPUT NAME="ff_ipkg" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ff_ipkg)">
</TD>
</TR>
<TR
TITLE="Starting the device is announced with an UDP message on all LAN/WAN jacks. In rare occasion, the short time bridge configuration between LAN and WAN may hang the device.">
<TD>Mensajes de arranque de la red:</TD>
<TD><INPUT CLASS="radio" NAME="ff_nonetmsg" TYPE="RADIO" VALUE="0"$(if [ "$ff_nonetmsg" != "1" ];then echo ' checked="checked"';fi)>Habilitar&nbsp;
<INPUT CLASS="radio" NAME="ff_nonetmsg" TYPE="RADIO" VALUE="1"$(if [ "$ff_nonetmsg" = "1" ];then echo ' checked="checked"';fi)>Deshabilitar
</TD>
</TR>
<TR>
<TD COLSPAN="2">&nbsp;</TD>
</TR>
<TR
TITLE="Sets the environment variable TZ, which is used to correct the system date. For central europe the default 'MET-1MEST-2,M3.3.0,M10.5.0' can be used.">
<TD>Zona
horaria:</TD>
<TD><INPUT NAME="ff_tz" SIZE="48" TYPE="TEXT" VALUE="$ff_tz"> </TD>
</TR>
<TR
TITLE="Determines the country setting, e.g. for acceptable radio channels.">
<TD>Pa&iacute;s:</TD>
<TD><SELECT NAME="wl0_country_code" STYLE="width:100%">
<OPTION>No configurado</OPTION>$(wl country list|sed -ne '2,$ {s/[^ 	]\+/<OPTION VALUE="&">& -/;s/="'${wl0_country_code%% *}'"/& SELECTED="SELECTED"/;s/.$/&<\/OPTION>/;p}')</SELECT></TD>
</TR>
<TR>
<TD COLSPAN="2">&nbsp;</TD>
</TR>
<TR>
<TD COLSPAN="2"><INPUT NAME="post_system" ONCLICK="return validate(systemform);" TITLE="Aplicar estos parámetros. Los cambios serán efectivos con el próximo reinicio." TYPE="SUBMIT" VALUE="Aplicar">&nbsp;&nbsp;&nbsp;<INPUT NAME="post_abort" TITLE="Cancelar la página de edición." TYPE="SUBMIT" VALUE="Cancelar"></TD>
</TR>
</TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></FORM>
<P>
<B>Consejo</B>:
Para asegurar un acceso sencillo a la red, tendr&aacute;s que introducir
el <B>Nombre del Host</B> (un solo nombre sin puntos) y&nbsp;el <B>Nombre
del Dominio</B> interno (nombres m&uacute;ltiples separados por puntos).
Ejemplo: Si pones&nbsp;como <B>Nombre del Host</B> &quot;mywr&quot; y
como <B>Nombre del Dominio</B>&nbsp; &quot;mynet.freifunk.net&quot;, podr&aacute;s
acceder a las p&aacute;ginas de este dispositivo con
<A HREF="http://mywrt.mynet.freifunk.net/">http://mywrt.mynet.freifunk.net/</A>
o tambi&eacute;n con <A HREF="http://mywrt/">http://mywrt/</A>.</P>
EOF

else
IFS=\&;set ${QUERY_STRING%%[^%&=+-:@-_a-z~]*};unset IFS;eval $*
DIRTY=
if [ -n "$post_system" ]; then
ff_reset=$(nvram get ff_reset)
old_mini_fo=$(nvram get ff_mini_fo)
if [ "0" != "$old_mini_fo" ] && [ "0" = "$ff_mini_fo" ]; then
ff_reset=format
elif [ "0" = "$old_mini_fo" ] && [ "0" != "$ff_mini_fo" ]; then
ff_reset=format
fi
for V in wan_dns wan_hostname wan_domain ff_dnsmasq ff_mini_fo ff_reset ff_nonetmsg ff_ipkg ff_tz wl0_country_code; do
eval "C=\$$V"
C=$(unescape $C)
if [ "$C" != "$(nvram get $V)" ]; then
DIRTY=1
nvram set $V="$C"
fi
done
fi
if [ -n "$DIRTY" ]; then
nvram commit>/dev/null 2>&1

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>Los cambios
han sido guardados. Los nuevos par&aacute;metros se activar&aacute;n
tras el pr&oacute;ximo <A HREF="reset.html">Reinicio</A>.</TD>
</TR>
</TABLE>
EOF

else

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>No se ha cambiado ning&uacute;n
par&aacute;metro.</TD>
</TR>
</TABLE>
EOF

fi
fi

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