#!/usr/bin/perl

use strict;

if ( $#ARGV ne 0)
{
        die "usage: $0 \n";
}

my $logfile = $ARGV[0];
my $upgrades = undef;

open(LOG,"< $logfile") or die "can't open logfile: $logfile";
while()
{
        my $line = $_;

        if($line =~ /The following packages will be upgraded/g)
        {
                $line = ;
                while($line !~ /\d+ upgraded, \d+ newly installed, \d+ to remove and \d+ not upgraded/)
                {
                        $upgrades = $upgrades . " " . $line;
                        $line = ;
                }
        }

        if($line =~ /Die folgenden Pakete werden aktualisiert/g)
        {
                $line = ;
                while($line !~ /\d+ aktualisiert, \d+ neu installiert, \d+ zu entfernen und \d+ nicht aktualisiert./)
                {
                        $upgrades = $upgrades . " " . $line;
                        $line = ;
                }
        }


}
close(LOG);

$upgrades =~ s/^\s+//g;
$upgrades =~ s/\r+//g;
$upgrades =~ s/\n+//g;

if($upgrades =~ /^\s+$/g or $upgrades =~ /^$/g or $upgrades =~ /^\n$/g)
{
        exit 0;
}

my @arr = split(/\s+/,$upgrades);
print "$upgrades \n";
exit $#arr + 1;