#!/bin/sh export DATE="17.10.2007";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<
Apodo:
Nombre:
Correo Electrónico:
Teléfono:
Localidad:
URL Net Hompeage
Notas:
 
   

Consejo: La información de esta página es visible para todos los visitantes de la página Contacta.

EOF else IFS=\&;set ${QUERY_STRING%%[^%&=+-:@-_a-z~]*};unset IFS;eval $* 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_neturl ff_adm_note; do eval "C=\$$V" C=$(httpd -d "$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 están activos. EOF else cat< No se ha hecho ningún cambio en los parámetros. EOF fi fi . ${SCRIPT%/*}/cgi-bin-post.sh