Debian\b.*?([\d.]+)/,
- file => "/etc/debian_version",
- ok => 0
-);
-
-MAIN: {
- Getopt::Long::Configure('bundling');
- GetOptions(
- "u|url=s" => \$opt{url},
- "s|search=s" => \$opt{search},
- "f|file=s" => \$opt{file},
- "o|ok" => \$opt{ok},
- "h|help" => sub { pod2usage(-verbose => 1, -exitval => $ERRORS{OK}) },
- "m|man" => sub { pod2usage(-verbose => 2, -exitval => $ERRORS{OK}) },
- "V|version" => sub { version($ME, $VERSION); exit $ERRORS{OK}; }
- ) or pod2usage(-verbose => 1, -exitval => $ERRORS{CRITICAL});
-
- my ($local_release, $stable_release) = eval {
- get_local_release($opt{file}),
- get_stable_release($opt{url}, $opt{search});
- };
- if ($@) {
- print "RELEASE CRITICAL: $@\n";
- exit $ERRORS{CRITICAL};
- }
- report($local_release, $stable_release);
-}
-
-sub get_local_release {
-
- my $local_release = do {
- local @ARGV = grep { -r } @_
- or die "@_: $!\n";
- <>;
- };
-
- chomp $local_release;
- return $local_release;
-}
-
-sub get_stable_release($$) {
- my ($url, $search) = @_;
- my $website;
-
- $website = get($url)
- or die "Failed to get $url\n";
-
- $website =~ /$opt{search}/s
- or die "an't parse $url\n";
-
- return $1;
-}
-
-sub compare_versions {
- my ($left, $right) = @_;
- my @left = split '.', $left;
- my @right = split '.', $right;
-
-}
-
-sub report($$) {
- my ($local_release, $stable_release) = @_;
- my ($local_major, $stable_major) = map { int } $local_release, $stable_release;
-
-
- if ($opt{ok} or $local_release eq $stable_release or $local_major > $stable_major) {
- print "RELEASE OK: $local_release/$stable_release\n";
- exit $ERRORS{OK};
- }
-
- if ($local_major - $stable_major < -1) {
- print "RELEASE CRITICAL: $local_release / $stable_release\n";
- exit $ERRORS{CRITICAL};
- }
-
- print "RELEASE WARNING: $local_release / $stable_release\n";
- exit $ERRORS{"WARNING"};
-
-}
-
-sub version($$) {
- my ($progname, $version) = @_;
-
- print <<_VERSION;
-$progname version $version
-Copyright (C) 2011-2013 by Christian Arnold and Schlittermann internet & unix support.
-Copyright (C) 2015 by Schlittermann internet & unix support.
-
-$ME comes with ABSOLUTELY NO WARRANTY. This is free software,
-and you are welcome to redistribute it under certain conditions.
-See the GNU General Public Licence for details.
-_VERSION
-}
-
-__END__
-
-=head1 NAME
-
-check_release - nagios plugin to checks the current debian release number
-
-=head1 SYNOPSIS
-
-check_release [-u|--url url]
- [-s|--search string]
- [-f|--file path]
- [-o|--ok]
- [-h|--help]
- [-m|--man]
- [-V|--version]
-
-=head1 OPTIONS
-
-=over
-
-=item B<-u>|B<--url> I Debian\b.*?([\d.]+)/)
-
-=item B<-f>|B<--file> I