diff --git a/check_ircd_ssl b/check_ircd_ssl index 7df8a88..e0cbbb5 100644 --- a/check_ircd_ssl +++ b/check_ircd_ssl @@ -37,7 +37,7 @@ # 1999/09/20. Some code taken from Charlie Cook (check_disk.pl). # use Getopt::Long; -use IO::Socket::INET6; +use IO::Socket::IP; use strict; use vars qw($PROGNAME $VERSION); use vars qw($opt_V $opt_h $opt_t $opt_p $opt_H $opt_w $opt_c $ssl $verbose); @@ -106,10 +106,10 @@ sub connection ($$$$$$) { debug("Attempting connect.\n",$verbose); # Connect to server debug("Connecting ...........\n",$verbose); - my $sock = IO::Socket::INET6->new( PeerAddr => $server, - PeerPort => $port, - Proto => 'tcp', - Domain => AF_UNSPEC ) or return ($user); + my $sock = IO::Socket::IP->new( PeerAddr => $server, + PeerPort => $port, + Proto => 'tcp', + Domain => AF_UNSPEC ) or return ($user); if($ssl) { use IO::Socket::SSL; debug("Starting SSL .........\n",$verbose); diff --git a/monitoring-plugins-ircd-INET6-deprecation.patch b/monitoring-plugins-ircd-INET6-deprecation.patch new file mode 100644 index 0000000..1c8e032 --- /dev/null +++ b/monitoring-plugins-ircd-INET6-deprecation.patch @@ -0,0 +1,28 @@ +Index: monitoring-plugins-2.3.5/plugins-scripts/check_ircd.pl +=================================================================== +--- monitoring-plugins-2.3.5.orig/plugins-scripts/check_ircd.pl ++++ monitoring-plugins-2.3.5/plugins-scripts/check_ircd.pl +@@ -37,7 +37,7 @@ + # 1999/09/20. Some code taken from Charlie Cook (check_disk.pl). + # + use Getopt::Long; +-use IO::Socket::INET6; ++use IO::Socket::IP; + use strict; + use vars qw($PROGNAME $VERSION); + use vars qw($opt_V $opt_h $opt_t $opt_p $opt_H $opt_w $opt_c $ssl $verbose); +@@ -106,10 +107,10 @@ sub connection ($$$$$$) { + debug("Attempting connect.\n",$verbose); + # Connect to server + debug("Connecting ...........\n",$verbose); +- my $sock = IO::Socket::INET6->new( PeerAddr => $server, +- PeerPort => $port, +- Proto => 'tcp', +- Domain => AF_UNSPEC ) or return ($user); ++ my $sock = IO::Socket::IP->new( PeerAddr => $server, ++ PeerPort => $port, ++ Proto => 'tcp', ++ Domain => AF_UNSPEC ) or return ($user); + if($ssl) { + use IO::Socket::SSL; + debug("Starting SSL .........\n",$verbose); diff --git a/monitoring-plugins.changes b/monitoring-plugins.changes index 6b46e63..83ad80b 100644 --- a/monitoring-plugins.changes +++ b/monitoring-plugins.changes @@ -1,3 +1,13 @@ +------------------------------------------------------------------- +Mon Jan 15 10:44:48 UTC 2024 - Pedro Monreal + +- check_ircd: Remove the perl-IO-Socket-INET6 dependency. + * Remove the dependency on perl(IO::Socket::INET6) as it has been + deprecated by upstream, is no longer suitable for use and its not + being maintained. A compatible replacement for this package is + perl(IO::Socket::IP) which is shipped by the perl-base package. + * Add monitoring-plugins-ircd-INET6-deprecation.patch + ------------------------------------------------------------------- Tue Dec 5 11:46:24 UTC 2023 - Lars Vogdt - 2.3.5 diff --git a/monitoring-plugins.spec b/monitoring-plugins.spec index a9b204f..d396551 100644 --- a/monitoring-plugins.spec +++ b/monitoring-plugins.spec @@ -73,6 +73,8 @@ Patch126: monitoring-plugins-2.3.3-check_ssh.t_-_improve_testing.patch Patch128: monitoring-plugins-2.3.3-check_disk_on_btrfs.patch # PATCH-FIX-UPSTREAM - see https://github.com/monitoring-plugins/monitoring-plugins/pull/1774 Patch129: monitoring-plugins-2.3.3-check_by_ssh.patch +# PATCH-FIX-openSUSE - check_ircd: Remove the perl-IO-Socket-INET6 dependency +Patch130: monitoring-plugins-ircd-INET6-deprecation.patch BuildRequires: bind-utils BuildRequires: dhcp-devel BuildRequires: fping @@ -654,7 +656,7 @@ Summary: Check an IRCd server Group: System/Monitoring Requires: %{name}-common = %{version} Requires: perl -Requires: perl(IO::Socket::INET6) +Requires: perl(IO::Socket::IP) Requires: perl(IO::Socket::SSL) Provides: nagios-plugins-ircd = %{version} Obsoletes: nagios-plugins-ircd <= 1.5