initial commit of source fetch

1 files changed, 46 insertions, 0 deletions

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 (<shuff\@hmdc.harvard.edu>).
+ LICENSE
+-my( $plugin ) = Nagios::Plugin->new( 
++my( $plugin ) = $plugin_module->new(
+                                     shortname   => 'check_cups',
+                                     usage       => $usagemsg,
+                                     version     => '0.2',