From 1e2387474a449452b78520b9ad96a8b4b5e99722 Mon Sep 17 00:00:00 2001 From: Harald Pfeiffer Date: Wed, 17 Apr 2019 19:07:19 +0200 Subject: initial commit of source fetch --- .../debian/patches/check_cups/monitoring-plugin | 46 ++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin (limited to 'nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin') diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin new file mode 100644 index 0000000..ec3439e --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin @@ -0,0 +1,46 @@ +--- a/check_cups/check_cups ++++ b/check_cups/check_cups +@@ -39,13 +39,33 @@ + # http://search.cpan.org/~rgarcia/perl-5.6.2/pod/perllexwarn.pod + no warnings qw( redefine prototype ); + ++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 { + + # use Opsview libs + use lib '/usr/local/nagios/perl/lib'; + use lib '/usr/local/nagios/lib'; + +- use Nagios::Plugin; ++ $plugin_module = load_module( 'Monitoring::Plugin', 'Nagios::Plugin' ); + + use Data::Dumper; + +@@ -95,7 +115,7 @@ + This plugin was written at The Harvard-MIT Data Center + (http://www.hmdc.harvard.edu) by Steve Huff (). + LICENSE +-my( $plugin ) = Nagios::Plugin->new( ++my( $plugin ) = $plugin_module->new( + shortname => 'check_cups', + usage => $usagemsg, + version => '0.2', -- cgit v1.2.3