Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision Next revisionBoth sides next revision | ||
monitors:rpi-apt [2018/03/11 10:04] – [Installation] wnelis | monitors:rpi-apt [2018/03/11 10:10] – [Changelog] wnelis | ||
---|---|---|---|
Line 70: | Line 70: | ||
my $Result= '' | my $Result= '' | ||
- | my %Class= ( High => ' | + | my %Class= ( High => ' |
my %UPL = () ; | my %UPL = () ; | ||
$UPL{$_} = {} foreach ( keys %Class ) ; | $UPL{$_} = {} foreach ( keys %Class ) ; | ||
Line 87: | Line 87: | ||
| | ||
@Lines= `stat $uplcFileName` ; # Cache file statistics | @Lines= `stat $uplcFileName` ; # Cache file statistics | ||
- | | + | |
| | ||
foreach ( @Lines ) { | foreach ( @Lines ) { | ||
Line 108: | Line 108: | ||
# | # | ||
sub GetListOfUpdates() { | sub GetListOfUpdates() { | ||
+ | my $InPostponed= 0 ; # Flag: in list of kept back packages | ||
+ | |||
@Lines= `$upCmd` ; # Current list of updatable packages | @Lines= `$upCmd` ; # Current list of updatable packages | ||
foreach ( @Lines ) { | foreach ( @Lines ) { | ||
chomp ; | 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: | ||
+ | # | ||
+ | # | ||
+ | # | ||
+ | if ( $InPostponed ) { | ||
+ | if ( m/ | ||
+ | $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/^Inst (.+?) \[(.+?)] \((.+?) / ) { | ||
if ( m/securi/i ) { | if ( m/securi/i ) { | ||
Line 155: | Line 175: | ||
$Result.= "</ | $Result.= "</ | ||
- | return if $upCnt == 0 ; | + | return if $upCnt |
| | ||
- | $Result.= " | + | $Result.= " |
$Result.= "< | $Result.= "< | ||
$Result.= " < | $Result.= " < | ||
Line 227: | Line 247: | ||
* **2018-01-20** | * **2018-01-20** | ||
* Initial release | * Initial release | ||
+ | * **2018-03-11** | ||
+ | * Report the packages which are kept back too | ||