#!/bin/sh

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

cat<<EOF
<H1>Admin: 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="Enter the username of the internet account.">
<TD>Username:</TD>
<TD><INPUT NAME="ppp_username" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_username)"></TD>
</TR>
<TR
TITLE="Enter the password of the internet account.">
<TD>Password:</TD>
<TD><INPUT NAME="ppp_passwd" SIZE="48" TYPE="PASSWORD" VALUE="$(nvram get ppp_passwd)"></TD>
</TR>
<TR
TITLE="The on-demand connection will connect if an attempt to access the internet is detected. If no internet activity is detected, the connection will be terminated after the specified idle time.">
<TD>
Connect 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. (Idle
Time)</TD>
</TR>
<TR
TITLE="With the keep alive option, the connection will remain permanently active. The retry period will influence the hang-up detection. Leave the input field empty for the 30 seconds default.">
<TD>Keep
Alive:</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)">
Sec.
(Retry Period)</TD>
</TR>
<TR>
<TD COLSPAN="2">&nbsp;</TD>
</TR>
<TR
TITLE="Option: ID of the peer device, normally this input field should be empty.">
<TD>Access
Concentrator:</TD>
<TD><INPUT NAME="ppp_ac" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_ac)"></TD>
</TR>
<TR
TITLE="Option: ID of the DSL modem, used if two or more DSL modems are present. Normally this input field should be empty.">
<TD>Service Name:</TD>
<TD><INPUT NAME="ppp_service" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_service)"></TD>
</TR>
<TR
TITLE="Option: IP address of the DSL modem, normally this input field should be empty.">
<TD>Static IP:</TD>
<TD><INPUT NAME="ppp_static_ip" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_static_ip)"></TD>
</TR>
<TR
TITLE="Option: Maximum Transfer Unit, normally the 1500 byte default will do. In case of connections problems to specific websites, this value may be lowered e.g. to 1492.">
<TD>MTU:</TD>
<TD><INPUT MAXLENGTH="4" NAME="wan_mtu" SIZE="48" TYPE="TEXT" VALUE="$(nvram get wan_mtu)"></TD>
</TR>
<TR
TITLE="Logical 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 (vlan1 or br0):</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="Apply these settings. The settings are applied with the next restart." TYPE="SUBMIT" VALUE="Apply">&nbsp;&nbsp;&nbsp;<INPUT NAME="post_abort" TITLE="Cancel dialog page." TYPE="SUBMIT" VALUE="Cancel"></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>State</B>: The PPPoE connection is
active. The interface address is $ADDR and the peer address is $PEER.</P>
EOF

else

cat<<EOF
<P>
<B>State</B>: The PPPoE connection is not active.</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>The changed settings are committed. The
settings are active after the next <A HREF="reset.html">Restart</A>.</TD>
</TR>
</TABLE>
EOF

else

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>No
settings are changed.</TD>
</TR>
</TABLE>
EOF

fi
fi

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