Internet Service Down Notifier

Resource Internet Service Down Notifier

Internet Service Down Notifier

Free

Script that is responsible for monitoring a specific service through some interface, which when it detects that the monitored service is not available, sends an email with the message that has been programmed.

Perfectly compatible with Recursive Routing, PCC Balancing, NTH Balancing or any other configuration that uses multiple Internet access paths.

Compact file Notificador de cambio de estado de ISP1

Download

#####################################################################
# Script que se encarga de notificar si el ISP principal está caido #
#####################################################################

# ID de ISP
:local idIsp 1;

# Interfaz de la interfaz WAN
:local interfaz  "vlan1";

# Dirección IP para realizar las pruebas de ping
:local dirIpHost "1.1.1.1";

# Cantidad de pruebas de ping
:local nPruebasPing 3;

# Configuración del emisor de correos electrónicos
:local cfgServer    "smtp.gmail.com";
:local cfgFrom      "emisor@gmail.com";
:local cfgTo        "receptor@gmail.com";
:local cfgPassword  "password";
:local cfgPort      587;
:local cfgTls       "starttls";
:local cfgUser      "emiar@gmail.com";

# Mensajes a enviar cuando el servicio de internet está activo o caido
:local cfgSubject           "Cambio en el servicio de internet";
:local cfgMensajeIspActivo  "SERVICIO ACTIVO";
:local cfgMensajeIspCaido   "SERVICIO CAIDO";

/ip/vrf;
add name="monitor_ISP$idIsp" interfaces="none";
    
:delay 3;

/ip/route;
add distance=1 gateway="192.168.41.1%$interfaz" \
    routing-table="monitor_ISP$idIsp" \
    check-gateway="ping";

/tool/e-mail;
set server=$cfgServer from=$cfgFrom \
    password=$cfgPassword port=$cfgPort \
    tls=$cfgTls \
    user=$cfgUser;

/system/script;
add dont-require-permissions=no name=("ntfCfgIsp".$idIsp) owner=admin policy=\
    ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=("#\
    ##########################################################################\
    #####\r\
    \n# Configuracion del notificador para el ISP ".$idIsp."\r\
    \n########################################################################\
    ########\r\
    \n\r\
    \n# Declaracion de variables principales\r\
    \n:global ntfIsps;\r\
    \n:global ntfNotificarCambioEnEstadoIsp".$idIsp.";\r\
    \n:global ntfIsp".$idIsp."To \"".$cfgTo."\";\r\
    \n:global ntfIsp".$idIsp."Subject \"".$cfgSubject."\";\r\
    \n:global ntfIsp".$idIsp."MensajeActivo \"".$cfgMensajeIspActivo."\";\r\
    \n:global ntfIsp".$idIsp."MensajeCaido \"".$cfgMensajeIspCaido."\";\r\
    \n\r\
    \n\r\
    \n# Aseguramiento de existencia de variables \r\
    \n:if ([:typeof \$ntfIsps]=\"nothing\") do={ :set ntfIsps [:toarray \"\"]; }\
    ;\r\
    \n:if ([:typeof \$ntfNotificarCambioEnEstadoIsp".$idIsp."]=\"nothing\") do={ :set ntfNotificarCambioEnEstadoIsp".$idIsp." 0;\
    \_};\r\
    \n\r\
    \n\r\
    \n# Importante:\r\
    \n# La configuracion y verificacion de cada uno de los servicios de lo\
    s ISP\r\
    \n# son registrados en los scripts ntfIsp<N> y ntfCheckIsp<N>,\r\
    \n# y los lanzadores lanzadorNtfIsp<N> se encarga de agilizar la veri\
    ficacion \r\
    \n# de todos los servicios en paralelo.\r\
    \n\r\
    ")

add dont-require-permissions=no name=ntfCheckIsp owner=admin policy=\
    ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=("#\
    ##########################################################################\
    ###\r\
    \n# Funcion que verifica que exista conexion a internet a traves del ISP \
    \r\
    \n#\r\
    \n# Soporta el parametro \$id\r\
    \n########################################################################\
    ######\r\
    \n:global ntfCheckIsp;\r\
    \n\r\
    \n:if ( [:typeof \$ntfCheckIsp] = \"nothing\" ) do={\r\
    \n    :set ntfCheckIsp do={\r\
    \n        # Carga del ntfCfgIsp\r\
    \n        /system/script/run ntfCfgIsp".$idIsp.";\r\
    \n    \r\
    \n        :global ntfIsps;\r\
    \n        :global ntfNotificarCambioEnEstadoIsp".$idIsp.";\r\
    \n    \r\
    \n    \r\
    \n        # Identificador del servicio de internet\r\
    \n        # \$id  es un paretro de esta funcion ntfCheckIsp\r\
    \n        :local interfaz         ((\$ntfIsps->\"\$id\")->\"interfaz\");\r\
    \n        :local dirIpHost        ((\$ntfIsps->\"\$id\")->\"diriphost\");\r\
    \n        :local nPruebasPing     ((\$ntfIsps->\"\$id\")->\"npruebasping\")\
    ;\r\
    \n    \r\
    \n        :local estadoActual     0;\r\
    \n        :local estadoAnterior   0;\r\
    \n        :local rping            0;\r\
    \n    \r\
    \n    \r\
    \n        :set estadoAnterior ((\$ntfIsps->\"\$id\")->\"estado_actual\");\r\
    \n        :set ((\$ntfIsps->\"\$id\")->\"estado_anterior\") \$estadoAnterio\
    r;\r\
    \n    \r\
    \n        :set rping [/ping \$dirIpHost vrf=\"monitor_ISP\$id\" \
                   count=\$nPruebasPing size=28];\r\
    \n    \r\
    \n        # Actualizacion del estado actual del ISP\r\
    \n        :if (\$rping=0) do={ \r\
    \n            :set ((\$ntfIsps->\"\$id\")->\"estado_actual\") 0; \r\
    \n        } else={ \r\
    \n            :set ((\$ntfIsps->\"\$id\")->\"estado_actual\") 1; \r\
    \n        };\r\
    \n    \r\
    \n        :set estadoActual ((\$ntfIsps->\"\$id\")->\"estado_actual\");\r\
    \n    \r\
    \n    \r\
    \n        # Si hubo un cambio en el estado del servicio del ISP se activa \
    la \r\
    \n        # bandera para enviar la notificacion de cambio en los ISPs\r\
    \n        :if (\$estadoActual!=\$estadoAnterior) do={ \r\
    \n            :set \$ntfNotificarCambioEnEstadoIsp".$idIsp." 1; \r\
    \n        };\r\
    \n    };\r\
    \n}; \r\
    \n\r\
    \n\r\
    \n\r\
    \n")

add dont-require-permissions=no name="ntfIsp$idIsp" owner=admin policy=\
        ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=("#\
        ##########################################################################\
        #######\r\
        \n# Ntf para el servicio del ISP 1\r\
        \n########################################################################\
        ##########\r\
        \n\r\
        \n/system/script;\r\
        \nrun ntfCfgIsp".$idIsp.";\r\
        \nrun ntfCheckIsp;\r\
        \n\r\
        \n\r\
        \n:global ntfIsps;\r\
        \n:global ntfCheckIsp;\r\
        \n:global ntfNotificarCambioEnEstadoIsp".$idIsp.";\r\
        \n\r\
        \n# Datos del servicio ISP\r\
        \n:local id               \"1\";\r\
        \n:local interfaz         \"$interfaz\";\r\
        \n:local dirIpHost        \"$dirIpHost\";\r\
        \n:local nPruebasPing     \"$nPruebasPing\";\r\
        \n\r\
        \n:local rutaIsp;\r\
        \n:local gatewayRutaIsp;\r\
        \n:local gatewaySrvConInt;\r\
        \n:local estado;\r\
        \n:local estadoAux;\r\
        \n:local srvConInt;\r\
        \n:local idAuxStr;\r\
                \n\r\
                \n\r\
        \n# Si el id, interfaz, gateway, diriphost o npruebasping cambio, se actualizan\r\
        \n:if (((\$ntfIsps->\"\$id\")->\"id\")           != \$id)             do={ :set ((\$ntfIsps->\"\$id\")->\"id\")              \$id;            };\r\
        \n:if (((\$ntfIsps->\"\$id\")->\"interfaz\")     != \$interfaz)       do={ :set ((\$ntfIsps->\"\$id\")->\"interfaz\")        \$interfaz;      };\r\
        \n:if (((\$ntfIsps->\"\$id\")->\"diriphost\")    != \$dirIpHost)      do={ :set ((\$ntfIsps->\"\$id\")->\"diriphost\")       \$dirIpHost;     };\r\
        \n:if (((\$ntfIsps->\"\$id\")->\"npruebasping\") != \$nPruebasPing)   do={ :set ((\$ntfIsps->\"\$id\")->\"npruebasping\")    \$nPruebasPing;  };\r\
        \n\r\
        \n\r\
        \n# Se lanza el checador del servicio del ISP 1\r\
        \n\$ntfCheckIsp id=\$id;\r\
        \n\r\
        \n######################################################################\r\
        \n# Si hubo cambio en el ISP se envia la notificacion\r\
        \n######################################################################\r\
        \n:if ( \$ntfNotificarCambioEnEstadoIsp".$idIsp." = 1 ) do={\r\
        \n  :do {\r\
        \n      run ntfNotificadorCambioIsp".$idIsp.";\r\
        \n  } on-error={\r\
        \n      :log info \"No se pudo enviar la notificacion por correo electronico\";\r\
        \n  };\r\
        \n};\r\
        \n\r\
        \n\r\
        \n");

add dont-require-permissions=no name=("ntfNotificadorCambioIsp".$idIsp) owner=\
    admin policy=\
    ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=("#\
    ####################################################################\r\
    \n# Notificador de cambio en ISPs \r\
    \n#####################################################################\r\
    \n\r\
    \n# Carga del ntfCfgIsp\r\
    \n/system/script/run ntfCfgIsp".$idIsp.";\r\
    \n\r\
    \n# Variables globales\r\
    \n:global ntfIsps;\r\
    \n:global ntfNotificarCambioEnEstadoIsp".$idIsp.";\r\
    \n:global ntfIsp".$idIsp."To;\r\
    \n:global ntfIsp".$idIsp."Subject;\r\
    \n:global ntfIsp".$idIsp."MensajeActivo;\r\
    \n:global ntfIsp".$idIsp."MensajeCaido;\r\
    \n\r\
    \n:local cadIspsActivos \"\";\r\
    \n:local cadIspsCaidos \"\";\r\
    \n:local body \"\";\r\
    \n:local tiempo;\r\
    \n:local fecha;\r\
    \n:local identidad [/system identity get name];\r\
    \n\r\
    \n# Armado de la \$cadIspsActivos y \$cadIspsCaidos\r\
    \n:foreach id,v in=[\$ntfIsps] do={\r\
    \n    :if ( (\$v->\"estado_actual\")=1 ) do={ :set cadIspsActivos (\$cadIspsActivos.\"ISP \".\$id.\", \"); };\r\
    \n    :if ( (\$v->\"estado_actual\")=0 ) do={ :set cadIspsCaidos  (\$cadIspsCaidos.\"ISP \".\$id.\", \"); };\r\
    \n}\r\
    \n\r\
    \n\r\
    \n# Envio de correo de notificacion de ISP Caido\r\
    \n:if ( \$ntfIsp".$idIsp."To != \"\" ) do={\r\
    \n    :set tiempo [/system/clock/get time];\r\
    \n    :set fecha [/system/clock/get date];\r\
    \n\r\
    \n    :if ( \$cadIspsActivos != \"\" ) do={ \r\
    \n        :set body \"\$ntfIsp".$idIsp."MensajeActivo\";\r\
    \n    }; \r\
    \n\r\
    \n    :if ( \$cadIspsCaidos != \"\" ) do={ \r\
    \n        :set body \"\$ntfIsp".$idIsp."MensajeCaido\";\r\
    \n    };\r\
    \n\r\
    \n  :do {\r\
    \n    :delay 15;\r\
    \n\r\
    \n    /tool/e-mail/send to=\"\$ntfIsp".$idIsp."To\" subject=\"\$ntfIsp".$idIsp."Subject\" body=\$body; \r\
    \n    :set ntfNotificarCambioEnEstadoIsp".$idIsp." 0;\r\
    \n  } on-error={\r\
    \n      :log info \"No se pudo enviar la notificacion por correo electronico\";\r\
    \n  };\r\
    \n\r\
    \n    :log info \"Se envio la notificacion con los cambios en los estados de ISPs\";\r\
    \n}\r\
    \n\r\
    \n:if ( \$ntfIsp".$idIsp."To = \"\" ) do={\r\
    \n    :log info \"No se envio la notificacion porque la variable ntfIsp".$idIsp."To esta en blanco\";\r\
    \n}
    \n\r\
    \n\r\
    \n")

/system/scheduler;
        add name=("lanzadorNtfIsp".$idIsp) on-event=("# Scheduler que se encarga de verificar que el ntfIsp".$idIsp."\r\
        \n# no se este ejecutando previamente para evitar duplicidad de procesos\
        \r\
        \n:local idJobEjecucion [/system/script/job/find script=\"ntfIsp".$idIsp."\"];\r\
        \n\r\
        \n# Si el script esta en ejecucion evita lanzar por segunda vez el scr\
        ipt\r\
        \n:if (\$idJobEjecucion!=\"\" ) do={ :return 0; };\r\
        \n\r\
        \n# Si no se esta ejecutando previamente se lanza el script\r\
        \n/system/script/run \"ntfIsp".$idIsp."\"; ") policy=\
        ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon \
        start-date=jan/01/1970 start-time=00:00:00 interval=30s;

:delay 2;

:put "###################################################################"
:put "# Lanzando primera ejecucion." 
:put "###################################################################"

# Ejecución inicial
:do {
    /system/script/; 
        run "ntfIsp$idIsp"; 
} on-error={ };

# ¡IMPORTANTE!
# Los nombres de las interfaces y la cantidad deben coincidir con las de tu router físico

Compact file Ejemplo de configuracion base con ruteo recursivo

Download

# 2023-12-07 17:28:06 by RouterOS 7.12.1
# software id = 2CL5-XVE7
#
# model = RB951Ui-2HnD
# serial number = F5BD0F5A6F46
/interface bridge
add name=bridgeLAN
/interface wireless
set [ find default-name=wlan1 ] ssid=MikroTik
/interface vlan
add interface=ether1 name=vlan1 vlan-id=11
add interface=ether1 name=vlan2 vlan-id=12
add interface=ether1 name=vlan3 vlan-id=13
add interface=ether1 name=vlan4 vlan-id=14
add interface=ether1 name=vlan5 vlan-id=15
/interface lte apn
set [ find default=yes ] ip-type=ipv4 use-network-apn=no
/interface wireless security-profiles
set [ find default=yes ] supplicant-identity=MikroTik
/ip pool
add name=poolOficina ranges=192.168.100.10-192.168.100.100
/ip dhcp-server
add address-pool=poolOficina interface=bridgeLAN name=server1
/interface bridge port
add bridge=bridgeLAN interface=ether4
add bridge=bridgeLAN interface=ether5
/ip settings
set max-neighbor-entries=8192
/ipv6 settings
set disable-ipv6=yes max-neighbor-entries=8192
/ip address
add address=192.168.41.2/24 comment="IP para conexion a Modem 1 de internet" \
    interface=vlan1 network=192.168.41.0
add address=192.168.42.2/24 comment="IP para conexion a Modem 2 de internet" \
    interface=vlan2 network=192.168.42.0
add address=192.168.100.1/24 comment=\
    "IP para conexion de los clientes al router" interface=bridgeLAN network=\
    192.168.100.0
/ip dhcp-server network
add address=192.168.100.0/24 dns-server=8.8.8.8,8.8.4.4 gateway=192.168.100.1 \
    netmask=24
/ip dns
set servers=1.1.1.1
/ip firewall nat
add action=masquerade chain=srcnat out-interface=vlan1
add action=masquerade chain=srcnat out-interface=vlan2
/ip route
add check-gateway=ping comment="Ruta a internet recursiva - ISP1" disabled=no \
    distance=1 dst-address=0.0.0.0/0 gateway=8.8.8.8 pref-src=0.0.0.0 \
    routing-table=main scope=30 suppress-hw-offload=no target-scope=11
add check-gateway=ping comment="Ruta a internet recursiva - ISP2" disabled=no \
    distance=2 dst-address=0.0.0.0/0 gateway=8.8.4.4 pref-src=0.0.0.0 \
    routing-table=main scope=30 suppress-hw-offload=no target-scope=11
add comment="Ruteo recursivo - ISP1" disabled=no distance=1 dst-address=\
    8.8.8.8/32 gateway=192.168.41.1 routing-table=main scope=10 \
    suppress-hw-offload=no
add comment="Ruteo recursivo - ISP2" disabled=no distance=1 dst-address=\
    8.8.4.4/32 gateway=192.168.42.1 routing-table=main scope=10 \
    suppress-hw-offload=no
/routing bfd configuration
add disabled=no interfaces=all min-rx=200ms min-tx=200ms multiplier=5
/system clock
set time-zone-name=America/Mexico_City
/system note
set show-at-login=no

COMMENTS

No comments at the moment