#!/bin/sh

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

cat<<EOF
<H1>Amministrazione:
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="Inserisci l'utente della connessione internet.">
<TD>Utente:</TD>
<TD><INPUT NAME="ppp_username" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_username)"></TD>
</TR>
<TR
TITLE="Inserisci la password della connessione internet.">
<TD>Password:</TD>
<TD><INPUT NAME="ppp_passwd" SIZE="48" TYPE="PASSWORD" VALUE="$(nvram get ppp_passwd)"></TD>
</TR>
<TR
TITLE="L'opzione 'Connect-on-demand' fa si che la connessione di attivi nel caso venga rilevato un tentativo di accesso a internet. Se non viene rilevata attività verso internet, la connessione verrà terminata dopo il tempo di inattività (idle-time) specificato.">
<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="Quando l'opzione 'keep alive' è attivata la connessione sarà attiva permanentemente. Il tempo intercosro tra le prove di connessione 'retry period' influenzerà la rilevazione del riagganzio della linea. Lasciare questo campo vuoto per il default di 30 secondi.">
<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="Opzione: ID dell'apparato corrispondente, normalmente questo campo va lasciato vuoto.">
<TD>Concentratore d'Accesso:</TD>
<TD><INPUT NAME="ppp_ac" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_ac)"></TD>
</TR>
<TR
TITLE="Opzione: ID del modem DSL , usato se sono presenti due o più modem DSL. Normalmente questo campo va lasciato vuoto.">
<TD>Service
Name:</TD>
<TD><INPUT NAME="ppp_service" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_service)"></TD>
</TR>
<TR
TITLE="Opzione: indirizzo IP del modem DSL, normalmente questo campo va lasciato vuoto.">
<TD>IP
Statico:</TD>
<TD><INPUT NAME="ppp_static_ip" SIZE="48" TYPE="TEXT" VALUE="$(nvram get ppp_static_ip)"></TD>
</TR>
<TR
TITLE="Opzione: Maximum Transfer Unit, normalmente il default di 1500 byte va bene. Nel caso di problemi di connessione a siti web specifici, questo valore può essere abbassato per esempio 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="Applica questi settaggi. I settaggi saranno attivati dopo il prossimo riavvio." TYPE="SUBMIT" VALUE="Applica">&nbsp;&nbsp;&nbsp;<INPUT NAME="post_abort" TITLE="Cancella le variazioni." TYPE="SUBMIT" VALUE="Cancella"></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>Stato</B>: La
connessione PPPoE &egrave; attiva. L'indirizzo dell'interfaccia &egrave;
$ADDR e l'indirizzo del corrispondente &egrave; $PEER.</P>
EOF

else

cat<<EOF
<P>
<B>Stato</B>:
La connessione PPPoE non &egrave; attiva.</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>Le
variazioni ai settaggi sono state inviate. I nuovi settaggi saranno
attivi dopo il prossimo <A HREF="reset.html">Riavvio</A>.</TD>
</TR>
</TABLE>
EOF

else

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>Nessun settaggio &egrave; stato
cambiato.</TD>
</TR>
</TABLE>
EOF

fi
fi

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