From 1e2387474a449452b78520b9ad96a8b4b5e99722 Mon Sep 17 00:00:00 2001
From: Harald Pfeiffer <coding@lirion.de>
Date: Wed, 17 Apr 2019 19:07:19 +0200
Subject: initial commit of source fetch

---
 .../debian/patches/check_haproxy/monitoring-plugin | 48 ++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_haproxy/monitoring-plugin

(limited to 'nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_haproxy/monitoring-plugin')

diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_haproxy/monitoring-plugin b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_haproxy/monitoring-plugin
new file mode 100644
index 0000000..8e47f4a
--- /dev/null
+++ b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_haproxy/monitoring-plugin
@@ -0,0 +1,48 @@
+--- a/check_haproxy/check_haproxy
++++ b/check_haproxy/check_haproxy
+@@ -31,7 +31,28 @@
+ use Time::HiRes qw(time);			# get microtime
+ use POSIX qw(mktime);
+ 
+-use Nagios::Plugin ;
++sub load_module {
++    my @names = @_;
++    my $module;
++    for my $name (@names) {
++        my $file = $name;
++        # requires need either a bare word or a file name
++        $file =~ s{::}{/}gsxm;
++        $file .= '.pm';
++        eval {
++            require $file;
++            $name->import();
++            $module = $name;
++		};
++		last if $module;
++    }
++    return $module;
++}
++
++my $plugin_module;
++BEGIN {
++	$plugin_module = load_module( 'Monitoring::Plugin', 'Nagios::Plugin' );
++}
+ 
+ use LWP::UserAgent;			# http client
+ use HTTP::Request;			# used by LWP::UserAgent
+@@ -53,7 +74,7 @@
+ textdomain('nagios-plugins-perl');
+ 
+ 
+-my $np = Nagios::Plugin->new(
++my $np = $plugin_module->new(
+ 	version => $VERSION,
+ 	blurb => _gt('Plugin to check HAProxy stats url'),
+ 	usage => "Usage: %s [ -v|--verbose ]  -u <url> [-t <timeout>] [-U <username>] [-P <password>] [ -c|--critical=<threshold> ] [ -w|--warning=<threshold> ]",
+@@ -319,4 +340,4 @@
+ 
+ Stéphane Urbanovski <stephane.urbanovski@ac-nancy-metz.fr>
+ 
+-=cut
+\ No newline at end of file
++=cut
-- 
cgit v1.2.3