Differences

This shows you the differences between two versions of the page.

--- monitors:rpi-apt [2018/03/11 10:04] – [Installation] wnelis
+++ monitors:rpi-apt [2018/03/11 10:09] – [Installation] wnelis
@@ Line 70: / Line 70: @@
 my $Result= '' ;			# Message to sent to Xymon
-my %Class= ( High => 'red', Normal => 'yellow' ) ;
+my %Class= ( High => 'red', Normal => 'yellow', Postponed => 'green' ) ;
 my %UPL  = () ;
 $UPL{$_} = {}			foreach ( keys %Class ) ;
@@ Line 87: / Line 87: @@
   @Lines= `stat $uplcFileName` ;	# Cache file statistics
-  next			unless @Lines ;	# Ignore error condition
+  return			unless @Lines ;	# Ignore error condition
   foreach ( @Lines ) {
@@ Line 108: / Line 108: @@
 #
 sub GetListOfUpdates() {
+  my $InPostponed= 0 ;			# Flag: in list of kept back packages
   @Lines= `$upCmd` ;			# Current list of updatable packages
   foreach ( @Lines ) {
     chomp ;
+ # Handle the list of packages which are not to be upgraded (which are kept
+ # back). The format of such a list is as follows:
+ #  The following packages have been kept back:
+ #    firmware-brcm80211
+ #
+    if ( $InPostponed ) {
+      if ( m/^\s\s(\S+)/ ) {
+	$UPL{Postponed}{$1}= [ $1, '?', '?' ] ;
+	next ;				# Line is handled
+      } else {
+	$InPostponed= 0 ;		# Enf o section found
+      }  # of else
+    } elsif ( m/^The following packages have been kept back/ ) {
+      $InPostponed= 1 ;			# Start of section found
+      next ;				# Line is handled
+    }  # of elsif
     if ( m/^Inst (.+?) \[(.+?)] \((.+?) / ) {
       if ( m/securi/i ) {
@@ Line 155: / Line 175: @@
   $Result.= "</table>\n" ;
-  return			if $upCnt == 0 ;
+  return		if $upCnt == 0  and  keys(%{$UPL{Postponed}}) == 0 ;
-  $Result.= "\nList of upgradable packages\n\n" ;
+  $Result.= "\nList of upgradeable packages\n\n" ;
   $Result.= "<table>\n" ;
   $Result.= " <tr><th>Package</th><th>Priority</th>" .