#!/bin/sh

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

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

if [ "$REQUEST_METHOD" = "POST" ]; then
read QUERY_STRING
fi
if [ -z "$QUERY_STRING" ]; then
#Speedups
wan_proto="$(nvram get wan_proto)"

cat<<EOF
<FORM ACTION="pppoecd.html" 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="Inserta el nombre de usuario para la cuenta Internet.">
<TD>Nombre
de usuario:</TD>
<TD><INPUT NAME="ppp_username" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_username)"></TD>
</TR>
<TR
TITLE="Inserta la contraseña de la cuenta internet.">
<TD>Contrase&ntilde;a:</TD>
<TD><INPUT NAME="ppp_passwd" SIZE="48" TYPE="PASSWORD" VALUE="$(nvram get ppp_passwd)"></TD>
</TR>
<TR
TITLE="La conexión on-demand se conectará si se detecta un intento de acceder a Internet. Si no se detecta ninguna actividad Internet, la conexión será terminada después del periodo de inactividad especificado.">
<TD> Conexi&oacute;n on Demand:</TD>
<TD><INPUT CLASS="radio" NAME="ppp_demand" TYPE="RADIO" VALUE="1"$(if [ "$(nvram get ppp_demand)" = "1" ];then echo ' checked="checked"';fi)><INPUT MAXLENGTH="4" NAME="ppp_idletime" SIZE="5" TYPE="TEXT" VALUE="$(nvram get ppp_idletime)">
Min. (Inactividad)</TD>
</TR>
<TR
TITLE="Con la opción 'Permanecer Conectados', la conexión quedará siempre activa. El valor 'Reintentar' controlará la detection de interrupción de la conexión. Deja el campo en blanco para el valor por defecto de 30 segundos.">
<TD>Permanecer Conectados:</TD>
<TD><INPUT CLASS="radio" NAME="ppp_demand" TYPE="RADIO" VALUE="0"$(if [ "$(nvram get ppp_demand)" != "1" ];then echo ' checked="checked"';fi)><INPUT MAXLENGTH="4" NAME="ppp_redialperiod" SIZE="5" TYPE="TEXT" VALUE="$(nvram get ppp_redialperiod)">
Seg. (Reintentar)</TD>
</TR>
<TR>
<TD COLSPAN="2">&nbsp;</TD>
</TR>
<TR
TITLE="Opción: ID del dispositivo remoto, normalmente este campo tendría que estar en blanco.">
<TD>Concentrador de Acceso:</TD>
<TD><INPUT NAME="ppp_ac" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_ac)"></TD>
</TR>
<TR
TITLE="Opción: ID del modem DSL, utilizado si hay dos o más modems DSL. Normalmente este campo tedría que estar en blanco.">
<TD>Nombre
del Servicio:</TD>
<TD><INPUT NAME="ppp_service" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_service)"></TD>
</TR>
<TR
TITLE="Opción: dirección IP del modem DSL. Normalmente este campo tedría que estar en blanco.">
<TD>IP
Est&aacute;tica:</TD>
<TD><INPUT NAME="ppp_static_ip" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_static_ip)"></TD>
</TR>
<TR
TITLE="Opción: Maximum Transfer Unit, normalmente el valor por defecto de 1500 bytes es adecuado. En el caso de problemas de conexión a sitios web específicos, se puede bajar este valor, por ej. a 1492.">
<TD>MTU:</TD>
<TD><INPUT MAXLENGTH="4" NAME="wan_mtu" SIZE="48" TYPE="TEXT" VALUE="$(nvram get wan_mtu)"></TD>
</TR>
<TR
TITLE="Interface with IP address and firewall configuration: 'ppp0' by default.">
<TD>Interface:</TD>
<TD><INPUT MAXLENGTH="8" NAME="wan_ifname" SIZE="48" TYPE="TEXT" VALUE="$(nvram get wan_ifname)"></TD>
</TR>
<TR
TITLE="Physical device for PPPoE communication: 'vlan1' in most cases.">
<TD>Device:</TD>
<TD><INPUT MAXLENGTH="8" NAME="wan_device" SIZE="48" TYPE="TEXT" VALUE="$(nvram get wan_device)"></TD>
</TR>
<TR>
<TD COLSPAN="2">&nbsp;</TD>
</TR>
<TR>
<TD COLSPAN="2"><INPUT NAME="post_pppoecd" 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>
EOF

if [ -n "$(ip -f inet addr show dev ppp0 2>&-)" ]; then
eval $(ip -f inet addr show dev ppp0|sed -n '
2{
h
s/.*inet \+\([0-9\.]*\).*/ADDR=\1/
p
g
s/.*peer \+\([0-9\.]*\).*/PEER=\1/
p
}
')

cat<<EOF
<P> <B>Estado</B>:
La conexi&oacute;n ;PPPoE est&aacute; activa. La direcci&oacute;n de la
interfaz es $ADDR y la direcci&oacute;n del peer es $PEER.</P>
EOF

else

cat<<EOF
<P>
<B>Estado</B>:
La conexi&oacute;n PPPoE no est&aacute; activa.</P>
EOF

fi
else
IFS=\&;set $QUERY_STRING;unset IFS;eval $*
DIRTY=
if [ -n "$post_pppoecd" ]; then
for V in wan_ifname wan_device wan_mtu ppp_passwd ppp_username ppp_demand ppp_ac ppp_idletime ppp_redialperiod ppp_service ppp_static ppp_static_ip; 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 registrados. Los par&aacute;metros se activar&ntilde;an
despu&eacute;s del pr&oacute;ximo Reinicio<A HREF="reset.html"></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