Estos días ando metido en la puesta en marcha de un sistema de monitorización de servicios de red.

Para ello he seleccionado Cacti, que es una herramienta que ya conocía, madura y bastante potente.

El caso es que en esta ocasión me he encontrado con un pequeño problemilla. Necesitaba monitorizar el estado de servicios externos a nuestra red y a los cuales no podía acceder ni vía ping, ni vía SNMP. Después de hacer una pequeña investigación me encontre con hping, una herramienta que es como un ping superavanzado que permite enviar no solo paquetes ICMP (pings) sino componer y enviar paquetes a cualquier puerto destino. Por ejemplo, me permite hacer un ping (estrictamente hablando no es un ping) a un servidor al puerto de CVS, o de HTTP, o de cualquier otra cosa.

Después de investigar un buen rato comprobé que nadie (extrañamente) se había encontrado con el mismo problema y por lo tanto me he tenido que poner a integrar yo hping con Cacti. Esto se concreta en programar un script que ejecute el hping e imprima los resultados en un formato determinado que Cacti es capaz de interpretar.

El proceso es muy simple, me he limitado a copiar un script Perl que hacía algo parecido y adaptarlo para que use hping en vez de ping. Me animo a publicarlo por que no he encontrado ya uno hecho y por que he perdido más de 2 horas hasta que he averiguado que el comando hping2 se comporta de forma «peculiar» ya que parte de su salida la envía a STDOUT y otra parte a STDERR. Si alguno de vosotros se encuentra en la misma tesitura espero que mi experiencia os sirva para ahorraros esas dos horas. 🙂

Adjunto a continuación el scrip completo.

#!/usr/bin/perl -w## File     : hping2.pl
# Version  : 1.
# Date     : July 19th 2007
# Author   : Jorge Tomé Hernando <jorge@jorgetome.info>
#
# Based on : echoping.pl by Sébastien Desse <sdesse@euresys.fr>
#            SmokePing Like 1.0 for Cacti by drose12
#
# Description
# ===========
# This script uses the hping2 utility to check the availability
# and response times of remote services.
# I create this script to be able to monitor the availability of
# services on servers external to my network (behind a firewall) that
# i cannot ping neither access by SNMP.
#
# Syntax
# hping2.pl <number of tests> <destination port> <destination host>
#
# Where...
#   number of tests  : Numeric value. Greater than 0.
#   destination port : Numeric value. Any valid port.
#   destination host : IP address or host name
#
# The script prints a line to the STDOUT with this format:
#
# min:$min avg:$avg max:$max loss:$loss
#
# Where...
#   $min  : Numeric value. Minimum response time in milliseconds
#   $avg  : Numeric value. Average response time in milliseconds
#   $max  : Numeric value. Maximum response time in milliseconds
#   $loss : Numeric value. Percent of packets loss

## Configuration section ==============================================
$HPING2CMD    = "/usr/sbin/hping2";    # Location of the hping2 program
$HPING2PARAMS = "--numeric --quiet --syn"; # Parameters for hping2
# End of configuration section =======================================

# Check syntax
@ARGV == 3 or die "Syntax : hping2.pl <number of tests> <destination port> <destination host>n";

# Map arguments
my $count    = $ARGV[0];
my $destport = $ARGV[1];
my $host     = $ARGV[2];

# Initialize variables
my $min  = "err";
my $avg  = "err";
my $max  = "err";
my $loss = "err";

# Execute hping2
# Important!!. I lost more than 2 hours until i discovered that
# hping2 sends the result to STDERR instead of STDOUT, this is
# the reason for the "2>&1" in the command invocation.
open (HPING, "$HPING2CMD $HPING2PARAMS --count $count --destport $destport $host 2>&1 | ");

# Analyze the result
while (<HPING>) {
/(d+)% packet loss/ && ($loss = $1);
/= (.+)/(.+)/(.+) ms/ && (($min,$avg,$max) = ($1,$2,$3));
}

close(HPING);

# Print the results
print "min:$min avg:$avg max:$max loss:$loss";

## End of script