git.lirion.de

Of git, get, and gud

summaryrefslogtreecommitdiffstats
path: root/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_cups/monitoring-plugin
blob: ec3439e3311721de914b4dfc7b4d15af97218ea4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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',