|
[-]
[+]
|
Changed |
check_updates.changes
|
|
|
|
[-]
[+]
|
Changed |
check_updates.spec
^
|
|
|
|
[-]
[+]
|
Deleted |
check_updates-1.5.0.tar.bz2/META.yml
^
|
| @@ -1,34 +0,0 @@
----
-abstract: ~
-author:
- - 'Matteo Corti <matteo.corti@id.ethz.ch>'
-build_requires:
- ExtUtils::MakeMaker: 6.42
- File::Spec: 0
- Test::More: 0
-configure_requires:
- ExtUtils::MakeMaker: 6.42
-distribution_type: module
-generated_by: 'Module::Install version 1.01'
-license: gpl
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
-name: check_updates
-no_index:
- directory:
- - inc
- - t
-requires:
- Carp: 0
- English: 0
- Nagios::Plugin: 0
- Nagios::Plugin::Getopt: 0
- Nagios::Plugin::Threshold: 0
- POSIX: 0
- Readonly: 0
- Sort::Versions: 0
- perl: 5.8.0
-resources:
- license: http://opensource.org/licenses/gpl-license.php
-version: 1.5.0
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/AUTHORS
^
|
| @@ -5,9 +5,10 @@
* Mark Greenheigh for the prompt and precise bug reports
* Jose Pedro Oliveira for the build and release fixes
* Tomas Edwardsson for a patch fixing the detection of RH EL 6 systems
+ * Cott Lang for the Amazon Linux patch
# File version information:
-# $Id: AUTHORS 1245 2011-05-24 10:09:00Z corti $
-# $Revision: 1245 $
+# $Id: AUTHORS 1280 2011-12-03 16:35:13Z corti $
+# $Revision: 1280 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/AUTHORS $
-# $Date: 2011-05-24 12:09:00 +0200 (Tue, 24 May 2011) $
+# $Date: 2011-12-03 17:35:13 +0100 (Sat, 03 Dec 2011) $
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/Changes
^
|
| @@ -1,7 +1,19 @@
+2011-12-04 Matteo Corti <matteo.corti@id.ethz.ch>
+
+ * Version 1.5.2
+ * check_updates: fixed a bug introduced in 1.5.1 which prevented system
+ detection on CentOS 5.X
+
+2011-12-03 Matteo Corti <matteo.corti@id.ethz.ch>
+
+ * Version 1.5.1
+ * check_updates: support for Amazon Linux
+
2011-10-03 Matteo Corti <matteo.corti@id.ethz.ch>
* Version 1.5.0
- * check_updates: fixed a bug which caused the -w and -c options to be ignored
+ * check_updates: fixed a bug which caused the -w and -c options
+ to be ignored
2011-09-23 Matteo Corti <matteo.corti@id.ethz.ch>
@@ -11,7 +23,8 @@
2011-05-25 Matteo Corti <matteo.corti@id.ethz.ch>
* Version 1.4.14
- * check_updates: fixed a problem when checking if a piped command was successful
+ * check_updates: fixed a problem when checking if a piped command was
+ successful
2011-05-24 Matteo Corti <matteo.corti@id.ethz.ch>
@@ -178,7 +191,7 @@
* check_updates: recognizes CentOS
# File version information:
-# $Id: Changes 1269 2011-10-03 08:00:30Z corti $
-# $Revision: 1269 $
+# $Id: Changes 1281 2011-12-04 20:36:19Z corti $
+# $Revision: 1281 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/Changes $
-# $Date: 2011-10-03 10:00:30 +0200 (Mon, 03 Oct 2011) $
+# $Date: 2011-12-04 21:36:19 +0100 (Sun, 04 Dec 2011) $
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/NEWS
^
|
| @@ -1,3 +1,5 @@
+2011-12-04: 1.5.2 - fixed a bug in system detection
+2011-12-03: 1.5.1 - applied a patch to support Amazon Linux
2011-10-03: 1.5.0 - fixed a bug which caused -w and -c to be ignored
2011-09-23: 1.4.15 - using /etc/redhat-release instead of /etc/issue
2011-05-25: 1.4.14 - fixed a bug introduced in 1.4.13 (check on closed pipes)
@@ -41,7 +43,7 @@
First stable release
2008-02-21: 0.9.9 - checks if the running kernel is the latest installed
-# $Id: NEWS 1269 2011-10-03 08:00:30Z corti $
-# $Revision: 1269 $
+# $Id: NEWS 1281 2011-12-04 20:36:19Z corti $
+# $Revision: 1281 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/NEWS $
-# $Date: 2011-10-03 10:00:30 +0200 (Mon, 03 Oct 2011) $
+# $Date: 2011-12-04 21:36:19 +0100 (Sun, 04 Dec 2011) $
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/TODO
^
|
| @@ -1,8 +1,9 @@
* add more unit tests
* Should check for up2date errors (return code?)
* Check for updates on Mac OS X / macports systems
+* Check for the presence of up2date or yum (if the distribution is unknown)
-# $Id: TODO 1240 2011-05-24 08:35:50Z corti $
-# $Revision: 1240 $
+# $Id: TODO 1280 2011-12-03 16:35:13Z corti $
+# $Revision: 1280 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/TODO $
-# $Date: 2011-05-24 10:35:50 +0200 (Tue, 24 May 2011) $
+# $Date: 2011-12-03 17:35:13 +0100 (Sat, 03 Dec 2011) $
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/check_updates
^
|
| @@ -18,17 +18,17 @@
# enable substitution with:
# $ svn propset svn:keywords "Id Revision HeadURL Source Date"
#
-# $Id: check_updates 1270 2011-10-03 08:01:52Z corti $
-# $Revision: 1270 $
-# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/check_updates $
-# $Date: 2011-10-03 10:01:52 +0200 (Mon, 03 Oct 2011) $
+# $Id$
+# $Revision$
+# $HeadURL$
+# $Date$
use 5.00800;
use strict;
use warnings;
-our $VERSION = '1.5.0';
+our $VERSION = '1.5.2';
use Carp;
use English qw(-no_match_vars);
@@ -44,8 +44,6 @@
Readonly our $YUM_RETURN_UPDATES_AVAILABLE => 100;
Readonly our $BITS_PER_BYTE => 8;
-Readonly our $VERSION_FILE => '/etc/redhat-release';
-
# IMPORTANT: Nagios plugins could be executed using embedded perl in this case
# the main routine would be executed as a subroutine and all the
# declared subroutines would therefore be inner subroutines
@@ -612,8 +610,16 @@
my $filename = shift;
if ( !$filename ) {
- # default
- $filename = $VERSION_FILE;
+ if ( -r '/etc/system-release' ) {
+ $filename = '/etc/system-release';
+ }
+ elsif ( -r '/etc/redhat-release' ) {
+ $filename = '/etc/redhat-release';
+ }
+ else {
+ exit_with_error( UNKNOWN, 'Cannot detect Linux distribution' );
+ }
+
}
my $header;
@@ -657,7 +663,8 @@
if ( $name =~ /Fedora/mxs
|| $name =~ /CentOS/mxs
|| $name =~ /Scientific[ ]Linux/mxs
- || $name =~ /Red[ ]Hat.*[ ][56]/mxs )
+ || $name =~ /Red[ ]Hat.*[ ][56]/mxs
+ || $name =~ /Amazon/mxs )
{
return 'yum';
}
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/check_updates.pod
^
|
| @@ -1,9 +1,9 @@
################################################################################
# File version information:
-# $Id: check_updates.pod 1269 2011-10-03 08:00:30Z corti $
-# $Revision: 1269 $
+# $Id: check_updates.pod 1281 2011-12-04 20:36:19Z corti $
+# $Revision: 1281 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/check_updates.pod $
-# $Date: 2011-10-03 10:00:30 +0200 (Mon, 03 Oct 2011) $
+# $Date: 2011-12-04 21:36:19 +0100 (Sun, 04 Dec 2011) $
################################################################################
=pod
@@ -20,7 +20,7 @@
=head1 VERSION
-Version 1.5.0
+Version 1.5.2
=head1 SYNOPSIS
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/check_updates.spec
^
|
| @@ -1,12 +1,12 @@
################################################################################
# File version information:
-# $Id: check_updates.spec 1269 2011-10-03 08:00:30Z corti $
-# $Revision: 1269 $
+# $Id: check_updates.spec 1281 2011-12-04 20:36:19Z corti $
+# $Revision: 1281 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/check_updates.spec $
-# $Date: 2011-10-03 10:00:30 +0200 (Mon, 03 Oct 2011) $
+# $Date: 2011-12-04 21:36:19 +0100 (Sun, 04 Dec 2011) $
################################################################################
-%define version 1.5.0
+%define version 1.5.2
%define release 0
%define sourcename check_updates
%define packagename nagios-plugins-check-updates
@@ -73,6 +73,12 @@
%{_mandir}/man1/%{sourcename}.1*
%changelog
+* Sun Dec 4 2011 Matteo Corti <matteo.corti@id.ethz.ch> - 1.5.2-0
+- Updated to 1.5.2 (bug fix release)
+
+* Sat Dec 3 2011 Matteo Corti <matteo.corti@id.ethz.ch> - 1.5.1-0
+- Support for Amazon Linux
+
* Mon Oct 3 2011 Matteo Corti <matteo.corti@id.ethz.ch> - 1.5.0-0
- Updated to 1.5.0 (fixed a bug which caused -w and -c to be ignored)
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/inc/Module/Install.pm
^
|
| @@ -22,6 +22,7 @@
use Cwd ();
use File::Find ();
use File::Path ();
+use FindBin;
use vars qw{$VERSION $MAIN};
BEGIN {
@@ -31,7 +32,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.01';
+ $VERSION = '0.97';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -230,12 +231,7 @@
sub new {
my ($class, %args) = @_;
- delete $INC{'FindBin.pm'};
- {
- # to suppress the redefine warning
- local $SIG{__WARN__} = sub {};
- require FindBin;
- }
+ FindBin->again;
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
@@ -467,4 +463,4 @@
1;
-# Copyright 2008 - 2011 Adam Kennedy.
+# Copyright 2008 - 2010 Adam Kennedy.
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/inc/Module/Install/Base.pm
^
|
| @@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '0.97';
}
# Suspend handler for "redefined" warnings
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/inc/Module/Install/Include.pm
^
|
| @@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '0.97';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/inc/Module/Install/MakeMaker.pm
^
|
| @@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '0.97';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/inc/Module/Install/Makefile.pm
^
|
| @@ -4,11 +4,10 @@
use strict 'vars';
use ExtUtils::MakeMaker ();
use Module::Install::Base ();
-use Fcntl qw/:flock :seek/;
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '0.97';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -365,9 +364,9 @@
. ($self->postamble || '');
local *MAKEFILE;
- open MAKEFILE, "+< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
- eval { flock MAKEFILE, LOCK_EX };
+ open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
my $makefile = do { local $/; <MAKEFILE> };
+ close MAKEFILE or die $!;
$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
@@ -387,8 +386,7 @@
# XXX - This is currently unused; not sure if it breaks other MM-users
# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
- seek MAKEFILE, 0, SEEK_SET;
- truncate MAKEFILE, 0;
+ open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
print MAKEFILE "$preamble$makefile$postamble" or die $!;
close MAKEFILE or die $!;
@@ -412,4 +410,4 @@
__END__
-#line 541
+#line 539
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/inc/Module/Install/Metadata.pm
^
|
| @@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '0.97';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,7 +515,6 @@
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
- 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -551,9 +550,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- https?\Q://rt.cpan.org/\E[^>]+|
- https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
- https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
+ \Qhttp://rt.cpan.org/\E[^>]+|
+ \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
+ \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
@@ -617,15 +616,8 @@
return $v;
}
-sub add_metadata {
- my $self = shift;
- my %hash = @_;
- for my $key (keys %hash) {
- warn "add_metadata: $key is not prefixed with 'x_'.\n" .
- "Use appopriate function to add non-private metadata.\n" unless $key =~ /^x_/;
- $self->{values}->{$key} = $hash{$key};
- }
-}
+
+
######################################################################
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/inc/Module/Install/Scripts.pm
^
|
| @@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '0.97';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
|
|
[-]
[+]
|
Changed |
check_updates-1.5.2.tar.bz2/inc/version.pm
^
|
| @@ -7,7 +7,7 @@
use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
-$VERSION = 0.88;
+$VERSION = 0.82;
$CLASS = 'version';
@@ -124,7 +124,13 @@
*version::qv = \&version::vpp::qv;
*version::declare = \&version::vpp::declare;
*version::_VERSION = \&version::vpp::_VERSION;
- if ($] >= 5.009000 && $] < 5.011004) {
+ if ($] > 5.009001 && $] < 5.010000) {
+ no strict 'refs';
+ *version::stringify = \&version::vpp::stringify;
+ *{'version::(""'} = \&version::vpp::stringify;
+ *version::new = \&version::vpp::new;
+ }
+ elsif ($] == 5.010000 || $] == 5.010001) {
no strict 'refs';
*version::stringify = \&version::vpp::stringify;
*{'version::(""'} = \&version::vpp::stringify;
@@ -138,8 +144,12 @@
*version::declare = \&version::vxs::declare;
*version::qv = \&version::vxs::qv;
*version::_VERSION = \&version::vxs::_VERSION;
- *version::vcmp = \&version::vxs::VCMP;
- if ($] >= 5.009000 && $] < 5.011004) {
+ if ($] > 5.009001 && $] < 5.010000) {
+ no strict 'refs';
+ *version::stringify = \&version::vxs::stringify;
+ *{'version::(""'} = \&version::vxs::stringify;
+ }
+ elsif ($] == 5.010000 || $] == 5.010001) {
no strict 'refs';
*version::stringify = \&version::vxs::stringify;
*{'version::(""'} = \&version::vxs::stringify;
@@ -198,12 +208,14 @@
}
if (exists($args{'is_strict'})) {
- *{$callpkg.'::is_strict'} = \&version::is_strict
+ *{$callpkg.'::is_strict'} =
+ sub {return $class->is_strict(shift)}
unless defined(&{$callpkg.'::is_strict'});
}
if (exists($args{'is_lax'})) {
- *{$callpkg.'::is_lax'} = \&version::is_lax
+ *{$callpkg.'::is_lax'} =
+ sub {return $class->is_lax(shift)}
unless defined(&{$callpkg.'::is_lax'});
}
}
|
