#!/bin/sh export DATE="6.6.2005";SCRIPT=${0#/rom} export TITLE="Administración: Información de contacto" . ${SCRIPT%/*}/cgi-bin-pre.sh cat<Administración: Información de contacto EOF if [ "$REQUEST_METHOD" = "POST" ]; then read QUERY_STRING fi if [ -z "$QUERY_STRING" ]; then cat<
Nickname:
Nombre:
Correo Electrónico:
Teléfono:
Localidad:
Notas:
 
   

Consejo: Las informaciones de esta página son visibles por los visitantes de la página Contacta.

EOF else eval $(echo "$QUERY_STRING"|awk -F'&' '{for(i=1;i<=NF;i++){print $i}}') DIRTY= if [ -n "$post_adress" ]; then for V in ff_adm_nick ff_adm_name ff_adm_mail ff_adm_tel ff_adm_loc ff_adm_note; 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< Los cambios han sido registrados. Los nuevos parámetros son activos. EOF else cat< No se ha hecho ningún cambio en los parámetros. EOF fi fi . ${SCRIPT%/*}/cgi-bin-post.sh