#!/bin/sh

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

cat<<EOF
<H1>Verwaltung: 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="Benutzernamen des Internet-Zugangs eingeben.">
<TD>Benutzername:</TD>
<TD><INPUT NAME="ppp_username" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_username)"></TD>
</TR>
<TR
TITLE="Kennwort des Internet-Zugangs eingeben.">
<TD>Kennwort:</TD>
<TD><INPUT NAME="ppp_passwd" SIZE="48" TYPE="PASSWORD" VALUE="$(nvram get ppp_passwd)"></TD>
</TR>
<TR
TITLE="Die automatische Einwahl baut die Verbindung auf, wenn ein Internet-Zugriff erkannt wird. Wird kein Internet-Verkehr mehr festgestellt, wird die Verbindung nach der eingestellten Leerlaufzeit wieder beendet.">
<TD>Einwahl bei Bedarf:</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. (Leerlaufzeit)</TD>
</TR>
<TR
TITLE="Bei einer Dauerverbindung wird die Internet-Verbindung dauernd aktiv gehalten. Die Wiederholungszeit beeinflusst, wie eine getrennte Verbindung erkannt wird. Eingabefeld leer lassen für die Vorgabe von 30 Sekunden.">
<TD>Verbindung halten:</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)">
Sek. (Wiederholungs-Zeit)</TD>
</TR>
<TR>
<TD COLSPAN="2">&nbsp;</TD>
</TR>
<TR
TITLE="Option: ID der Gegenstation, im Regelfall das Eingabefeld leer lassen.">
<TD>Access-Concentrator:</TD>
<TD><INPUT NAME="ppp_ac" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_ac)"></TD>
</TR>
<TR
TITLE="Option: ID des DSL-Modems wenn mehrere DSL-Modems vorhanden sind. Im Regelfall das Eingabefeld leer lassen.">
<TD>Service-Name:</TD>
<TD><INPUT NAME="ppp_service" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_service)"></TD>
</TR>
<TR
TITLE="Option: IP-Adresse des DSL-Modems, im Regelfall das Eingabefeld leer lassen.">
<TD>Statische IP:</TD>
<TD><INPUT NAME="ppp_static_ip" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_static_ip)"></TD>
</TR>
<TR
TITLE="Option: Maximale Übertragungs-Paketgröße, im Regelfall den Vorgabewert von 1500 verwenden. Bei Verbindungsproblemen zu einigen Websites kann dieser Wert verringert werden, z.B. auf 1492.">
<TD>MTU:</TD>
<TD><INPUT MAXLENGTH="4" NAME="wan_mtu" SIZE="48" TYPE="TEXT" VALUE="$(nvram get wan_mtu)"></TD>
</TR>
<TR
TITLE="Logisches Interface mit IP-Adresse und Firewall-Konfiguration: im Regelfall 'ppp0'.">
<TD>Interface:</TD>
<TD><INPUT MAXLENGTH="8" NAME="wan_ifname" SIZE="48" TYPE="TEXT" VALUE="$(nvram get wan_ifname)"></TD>
</TR>
<TR
TITLE="Physisches Device über das PPPoE verwendet wird: im Regelfall 'vlan1'.">
<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="Die Einstellungen übernehmen. Diese werden erst nach einem Neustart wirksam." TYPE="SUBMIT" VALUE="Übernehmen">&nbsp;&nbsp;&nbsp;<INPUT NAME="post_abort" TITLE="Abbruch dieser Dialogseite" TYPE="SUBMIT" VALUE="Abbruch"></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>Status</B>: Die PPPoE-Verbindung ist aktiv. Die
Schnittstellen-Adresse ist $ADDR und die Adresse der Gegenstation ist
$PEER. </P>
EOF

else

cat<<EOF
<P><B>Status</B>: Die PPPoE-Verbindung ist nicht aktiv.
</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>Die ge&auml;nderten Einstellungen wurden &uuml;bernommen.
Die Einstellungen sind erst beim n&auml;chsten <A HREF="reset.html">Neustart</A>
aktiv.</TD>
</TR>
</TABLE>
EOF

else

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>Es wurden keine Einstellungen ge&auml;ndert.</TD>
</TR>
</TABLE>
EOF

fi
fi

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