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_libvirt/monitoring-plugin | 48 ++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_libvirt/monitoring-plugin (limited to 'nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_libvirt/monitoring-plugin') diff --git a/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_libvirt/monitoring-plugin b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_libvirt/monitoring-plugin new file mode 100644 index 0000000..c51c873 --- /dev/null +++ b/nagios-plugins-contrib-24.20190301~bpo9+1/debian/patches/check_libvirt/monitoring-plugin @@ -0,0 +1,48 @@ +diff --git a/check_libvirt/check_libvirt b/check_libvirt/check_libvirt +index 2029c9e..618d1ac 100755 +--- a/check_libvirt/check_libvirt ++++ b/check_libvirt/check_libvirt +@@ -27,11 +27,33 @@ + use strict; + use warnings; + use vars qw($PROGNAME $VERSION $output $result); +-use Nagios::Plugin; + use File::Basename; + use Sys::Virt; + use XML::Simple; + ++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' ); ++} ++ + $PROGNAME = basename($0); + $VERSION = '0.1.0'; + my $spooldir="/opt/monitor/var/check_libvirt"; +@@ -41,7 +63,7 @@ if (!-d $spooldir) + mkdir($spooldir); + } + +-my $np = Nagios::Plugin->new( ++my $np = $plugin_module->new( + usage => "Usage: %s -H [ -N ]\n" + . " [-u -p ]\n" + . " -l [ -s ]\n" -- cgit v1.2.3