#!/bin/bash

#
# IPActu permite publicar la IP dinámica de
# un servidor sin recurrir a servicios de DNS.
#

# El presente script está cubierto por la licencia GPL.
# Por favor, conserve los encabezados si usa IPActu.

# IPActu suele instalarse en un servidor detrás de una ADSL
# que no tiene IP fija para publicar dicha IP en una página
# web alojada en un servidor público con IP fija. El acceso
# a los servicios alojados detrás de la ADSL se hace a
# través de la página fija.

# El sistema se compone de dos scripts: el presente
# script de Bash IPActu que corre en el servidor de
# la ADSL y el script ip.php alojado en el servidor
# con IP fija. IPActu pide la IP a ip.php, y si ésta
# ha cambiado desde la última solicitud, se prepara
# una página de acceso nueva con dicha IP que se sube
# por ftp al servidor fijo.

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# See the GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
# Copyright (C) Sébastien Braud 2001-2006 sebb@sebb.info

# #######################
# Las Variables
# #######################

# La dirección de correo que recibe los posibles errores.
# Mejor si no está en el mismo servidor que la página de
# actualización ($direccion), ya que en el correo de error
# se da la IP dinámica que no se ha conseguido publicar.
# Permite conocer la IP aunque no se haya publicado, por
# ejemplo si se cayera el servidor público.
mail_error="correo2@servidor2.com"

# La frecuencia (En segundos) con la que se controla la IP.
# Se aconseja entre 30 y 600.
espera=30

# URL del ftp en el servidor fijo
servidor_ftp="ftp.servidor_público.com"

# El nombre de usuario en el servidor fijo
usuario_ftp="mi_nombre_de_usuario"

# La contraseña del usuario en el servidor fijo
contra_ftp="mi_contraseña"

# Dirección y nombre de la página en el servidor
# fijo donde se encontrará el link actualizado
archivoActu="public_html/acceso.html"

# Dirección y nombre de la página en el servidor fijo
# donde se encontrará un histórico de los cambios de IP.
archivoLog="public_html/acceso.log.txt"

# La página fija que se usa para recuperar la IP dinámica.
direccion="http://www.servidor_público.com/ip.php"

# La fecha
ahora=`date`

clear

# Ayuda y GPL.
if [ "$#" -ne "0" ] ; then
  echo " # # # # # # # # # # # # # # #
- IPActu se usa sin ningún parámetro. Se aconseja incluirlo en
  los scripts de arranque de Linux, como /etc/init.d/ssh por ejemplo.

- Más información sobre IPActu en http://www.sebb.info/

- IPActu es código libre y se distribuye bajo licencia GPL.
"
else

# #######################
# Dos Funciones
# #######################

function ActualizaLaIP
{
# Subir las páginas actualizadas
ftp -n $servidor_ftp << deaquinopasas
user $usuario_ftp $contra_ftp
put Archivo_Actual $archivoActu
put log.IPActu.txt $archivoLog
quit
deaquinopasas
echo "La IP ha cambiado. IP Actual: $IPActual
"
}

function EnCasoDeError
{
# Se envía correo avisando del problema
echo "Error subiendo los archivos: $ahora.
Parece que no se puede conectar al servidor.
La IP ha cambiado a $IPActual.
" | mail -s "IPActu - Error de actualización." $mail_error
}
# #######################
# #######################

# Pedir la IP hasta traerla
until [ "$IPActual" != "" ]
do
	IPActual=`lynx --source --accept_all_cookies "$direccion" | grep "IP: " \
        | sed -e 's/<[^>]*>//g' -e 's/IP: //g'`
done

# Mirar si la IP ha cambiado desde la última actualización
grep $IPActual Archivo_Actual &> /dev/null

# Si la IP ha cambiado hay que reflejar el cambio online y hacer un log
if [ "$?" = "1" ] ; then
	# Cambiar la IP en el archivo que se va a subir
	sed -e  "s/.*Acceso:.*/<a href=\"http:\/\/"$IPActual"\">Acceso:<\/a>/g" plantilla > Archivo_Actual

	# Dar cuenta del cambio en el log
	echo "Cambio el $ahora - IP Nueva : $IPActual " >> log.IPActu.txt

	# Realizar cambios online o dar parte
	ActualizaLaIP || EnCasoDeError

# Para usar con "at":
# La frecuencia (En minutos) con la que se controla la IP. Se aconseja entre 1 y 5.
# frecuencia=1
# La unidad por defecto para la frecuencia. Puede ser minutes, hours, days o weeks. Siempre en plural.
# unidad=minutes
# at now + $frecuencia $unidad < ./IPActu
fi

# Se marca la pausa definida y se corre de nuevo IPActu
sleep $espera
./IPActu

fi

# FIN IPActu # #####################################