warning if major releases differ by 1 only
authorHeiko Schlittermann (JUMPER) <hs@schlittermann.de>
Wed, 28 Jan 2015 21:08:04 +0100
changeset 10 0b560168af46
parent 9 25921fa4d40f
child 11 a389953805d3
warning if major releases differ by 1 only
check_release.pl
debian/rules
--- a/check_release.pl	Thu May 30 10:17:43 2013 +0200
+++ b/check_release.pl	Wed Jan 28 21:08:04 2015 +0100
@@ -1,6 +1,7 @@
 #!/usr/bin/perl -w
 
 #    Copyright (C) 2011  Christian Arnold
+#    Copyright (C) 2015  Heiko Schlittermann
 #
 #    This program is free software: you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
@@ -37,7 +38,7 @@
 sub version($$);
 
 my $ME      = basename $0;
-my $VERSION = "2.3";
+my $VERSION = "2.5";
 
 my %opt = (
     url    => "http://www.debian.org/releases/stable/index.html",
@@ -116,29 +117,24 @@
 sub report($$) {
     my ($current_release, $stable_release) = @_;
 
+
+    if ($opt{ok} or $current_release eq $stable_release) {
+        print "RELEASE OK: $current_release/$stable_release\n";
+        exit $ERRORS{OK};
+    }
+
     $stable_release =~ /^(\d+)/ and my $stable_major = int($1);
     $current_release =~ /^(\d+)/ and my $current_major = int($1);
 
-    if ($current_major < $stable_major) {
-		if ($opt{ok}) {
-			print "RELEASE OK: $current_release/$stable_release\n";
-			exit $ERRORS{OK};
-		}
+
+    if ($current_major - $stable_major < -1) {
         print "RELEASE CRITICAL: $current_release / $stable_release\n";
         exit $ERRORS{CRITICAL};
     }
 
-    if ($current_release ne $stable_release) {
-		if ($opt{ok}) {
-			print "RELEASE OK: $current_release/$stable_release\n";
-			exit $ERRORS{OK};
-		}
         print "RELEASE WARNING: $current_release / $stable_release\n";
         exit $ERRORS{"WARNING"};
-    }
 
-    print "RELEASE OK: $current_release/$stable_release\n";
-    exit $ERRORS{"OK"};
 }
 
 sub version($$) {
@@ -146,7 +142,8 @@
 
     print <<_VERSION;
 $progname version $version
-Copyright (C) 2011 by Christian Arnold and Schlittermann internet & unix support.
+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.
--- a/debian/rules	Thu May 30 10:17:43 2013 +0200
+++ b/debian/rules	Wed Jan 28 21:08:04 2015 +0100
@@ -9,5 +9,9 @@
 # Uncomment this to turn on verbose mode.
 #export DH_VERBOSE=1
 
+export PERL5LIB=
+export PERL_MB_OPT=
+export PERL_MM_OPT=
+
 %:
 	dh $@