#!/bin/sh export DATE="18.4.2010";SCRIPT=${0#/rom} export TITLE="Administración: WAN" . ${SCRIPT%/*}/cgi-bin-pre.sh cat<Administración: WAN EOF if [ "$REQUEST_METHOD" = "POST" ]; then read QUERY_STRING fi wan_ifname="$(nvram get wan_ifname)" if [ -z "$QUERY_STRING" ]; then #Speedups wan_proto="$(nvram get wan_proto)" wan_ports="$(nvram get $wan_ifname'ports')" cat<
Protocolo WAN:
Dirección IP WAN:
Máscara de red WAN:
Ruta por defecto WAN:
Conectores RJ45:
 
Permitir SSH:
Permitir HTTP:
Permitir HTTPS:
Permite Ping:
 
   
EOF else IFS=\&;set ${QUERY_STRING%%[^%&=+-:@-_a-z~]*};unset IFS;eval $* DIRTY= if [ -n "$post_wan" ]; then if [ "pppoe" = "$wan_proto" ]; then wan_ifname=ppp0 else wan_ifname=$(nvram get wan_device) fi for V in wan_proto wan_ifname wan_ipaddr wan_netmask wan_gateway wan_ports ff_wanssh ff_wanhttp ff_wanhttps ff_wanicmp; do eval "C=\$$V" C=$(httpd -d "$C") test "$V" = "wan_ports" && V=$wan_ifname'ports' 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<Los cambios han sido registrados. Los nuevos parámetros se activarán tras el próximo Reinicio. EOF else cat<No se ha cambiado ningún parámetro. EOF fi fi . ${SCRIPT%/*}/cgi-bin-post.sh