initial commit of source fetch

2 files changed, 56 insertions, 0 deletions

diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_haproxy/epn b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_haproxy/epn
new file mode 100644
index 0000000..1514373
--- /dev/null
+++ b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_haproxy/epn
@@ -0,0 +1,8 @@
+--- a/check_haproxy/check_haproxy
++++ b/check_haproxy/check_haproxy
+@@ -1,4 +1,5 @@
+ #!/usr/bin/perl -w
++# nagios: -epn
+ #
+ # Copyright (c) 2010 Stéphane Urbanovski <stephane.urbanovski@ac-nancy-metz.fr>
+ #
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