* - Initial commit

.gitignore

+[._]*.s[a-w][a-z]
+[._]s[a-w][a-z]
+*.un~
+Session.vim
+.netrwhist
+*~
+
+/blib/
+/.build/
+_build/
+cover_db/
+inc/
+Build
+!Build/
+Build.bat
+.last_cover_stats
+/Makefile
+/Makefile.old
+/MANIFEST.bak
+/META.yml
+/META.json
+/MYMETA.*
+nytprof.out
+/pm_to_blib
+*.o
+*.bs
+/_eumm/

CHANGELOG.md

+Changelog
+=========
+
+0.1 (2021-01-21)
+----------------
+
+- Initial version

README.md

+check_mtr
+=========
+
+Use [My traceroute(MTR)](https://github.com/traviscross/mtr) to monitor all reachable routers on the network path.
+
+Requirements
+------------
+
+**General**
+
+- Perl 5
+- Perl Modules:
+    - Monitoring::Plugin or Nagios::Plugin
+- [mtr](https://github.com/traviscross/mtr)
+
+**RHEL/CentOS**
+
+- perl
+- perl-Monitoring-Plugin or perl-Nagios-Plugin
+- mtr
+
+
+Installation
+------------
+
+Just copy the file `check_mtr.pl` to your Icinga or Nagios plugin directory.
+
+Source
+------
+
+- [Latest source at git.dinotools.org](https://git.dinotools.org/monitoring/check_mtr)
+- [Mirror at github.com](https://github.com/DinoTools/monitoring-check_mtr)
+
+License
+-------
+
+GPLv3+

check_mtr.pl

+#!/usr/bin/perl
+use strict;
+use warnings FATAL => 'all';
+
+use Pod::Text::Termcap;
+
+use constant OK         => 0;
+use constant WARNING    => 1;
+use constant CRITICAL   => 2;
+use constant UNKNOWN    => 3;
+use constant DEPENDENT  => 4;
+
+my $pkg_nagios_available = 0;
+my $pkg_monitoring_available = 0;
+my @g_long_message;
+
+BEGIN {
+    eval {
+        require Monitoring::Plugin;
+        require Monitoring::Plugin::Functions;
+        $pkg_monitoring_available = 1;
+    };
+    if (!$pkg_monitoring_available) {
+        eval {
+            require Nagios::Plugin;
+            require Nagios::Plugin::Functions;
+            *Monitoring::Plugin:: = *Nagios::Plugin::;
+            $pkg_nagios_available = 1;
+        };
+    }
+    if (!$pkg_monitoring_available && !$pkg_nagios_available) {
+        print("UNKNOWN - Unable to find module Monitoring::Plugin or Nagios::Plugin\n");
+        exit UNKNOWN;
+    }
+}
+
+my $parser = Pod::Text::Termcap->new (sentence => 0, width => 78);
+my $extra_doc = <<'END_MESSAGE';
+
+END_MESSAGE
+
+my $extra_doc_output;
+$parser->output_string(\$extra_doc_output);
+$parser->parse_string_document($extra_doc);
+
+my $mp = Monitoring::Plugin->new(
+    shortname => "check_mtr",
+    usage => "",
+    extra => $extra_doc_output
+);
+
+$mp->add_arg(
+    spec => 'hostname|H=s',
+    help => '',
+    required => 1
+);
+
+$mp->add_arg(
+    spec => 'latency_warn=s',
+    help => '',
+
+);
+
+$mp->add_arg(
+    spec => 'latency_crit=s',
+    help => '',
+);
+
+$mp->add_arg(
+    spec => 'packet_loss_warn=s',
+    help => '',
+);
+
+$mp->add_arg(
+    spec => 'packet_loss_crit=s',
+    help => '',
+);
+
+
+$mp->getopts;
+
+check();
+
+my ($code, $message) = $mp->check_messages();
+wrap_exit($code, $message . "\n" . join("\n", @g_long_message));
+
+sub check
+{
+    my @cmd;
+    push(@cmd, 'mtr');
+    push(@cmd, ('-n', '-c', '4', '--report', '--report-wide'));
+    push(@cmd, $mp->opts->hostname);
+
+    open(my $pipe,'-|',@cmd) or die "Can't start process: $!";
+    my @output=<$pipe>;
+    close($pipe) or die "Broken pipe: $!";
+    my $hop_count = 0;
+    my $hop_reachable = 1;
+    foreach my $line (@output) {
+        my $status = OK;
+        if ($line =~ /^\s*(\d+).\s*[|-]+?\s+([0-9a-f.:\?]+)\s+(\d+.\d+)%?\s+(\d+)\s+(\d+.\d+)\s+(\d+.\d+)\s+(.*?)\s.*?$/) {
+            my $host_address = $2;
+            my $latency_value = $6;
+            my $packet_loss_value = $3;
+            my $latency_status = OK;
+            my $packet_loss_status = OK;
+
+            $hop_count++;
+
+            if ($host_address eq '???') {
+                $hop_reachable = 0;
+            } else {
+                $hop_reachable = 1;
+                $latency_status = $mp->check_threshold(
+                    check    => $latency_value,
+                    warning  => $mp->opts->latency_warn,
+                    critical => $mp->opts->latency_crit
+                );
+                $mp->add_perfdata(
+                    label    => "latency_$hop_count",
+                    value    => $latency_value,
+                    warning  => $mp->opts->latency_warn,
+                    critical => $mp->opts->latency_crit,
+                );
+
+                $packet_loss_status = $mp->check_threshold(
+                    check    => $packet_loss_value,
+                    warning  => $mp->opts->packet_loss_warn,
+                    critical => $mp->opts->packet_loss_crit,
+                );
+                $mp->add_perfdata(
+                    label    => "packet_loss_$hop_count",
+                    value    => $packet_loss_value,
+                    warning  => $mp->opts->packet_loss_warn,
+                    critical => $mp->opts->packet_loss_crit,
+                );
+            }
+
+            if($latency_status != OK || $packet_loss_status != OK) {
+                if ($latency_status > $packet_loss_status) {
+                    $mp->add_message(
+                        $latency_status,
+                        sprintf(
+                            '%s latency %s',
+                            $host_address,
+                            $latency_value
+                        )
+                    );
+                    $status = $latency_status;
+                } elsif ($latency_status < $packet_loss_status) {
+                    $mp->add_message(
+                        $packet_loss_status,
+                        sprintf(
+                            '%s packet loss %s%%',
+                            $host_address,
+                            $packet_loss_value
+                        )
+                    );
+                    $status = $packet_loss_status;
+                } else {
+                    $mp->add_message(
+                        $latency_status,
+                        sprintf(
+                            '%s latency %s and packet loss %s%%',
+                            $host_address,
+                            $latency_value,
+                            $packet_loss_value
+                        )
+                    );
+                    $status = $latency_status;
+                }
+            }
+            my $status_msg = '';
+            if ($status == OK) {
+                $status_msg = '';
+            } elsif ($status == WARNING) {
+                $status_msg = ' <- !!! WARNING !!!';
+            } elsif ($status == CRITICAL) {
+                $status_msg = ' <- !!! CRITICAL !!!';
+            } else {
+                $status_msg = ' <- !!! Unknown !!!';
+            }
+            chomp($line);
+            push(@g_long_message, $line.$status_msg);
+        }
+    }
+    if (!$hop_reachable) {
+        # Last hop is unreachable
+        $mp->add_message(
+            CRITICAL,
+            sprintf(
+                'Host %s unreachable',
+                $mp->opts->hostname,
+            )
+        );
+    } else {
+        $mp->add_message(
+            OK,
+            sprintf(
+                'Host %s reachable in %d hop(s)',
+                $mp->opts->hostname,
+                $hop_count,
+            )
+        );
+    }
+}
+
+sub wrap_exit
+{
+    if($pkg_monitoring_available == 1) {
+        $mp->plugin_exit( @_ );
+    } else {
+        $mp->nagios_exit( @_ );
+    }
+}