#!/usr/bin/perl -w
# vérifie si il y a des packages à mettre à jour
# il faut avoir fait un apt-get update avant !
# TODO : rajouter un truc pour prévenir quand il s'agit de paquets "custom".
# un fichier contenant des noms et une description dans /root par example...
#
use strict;
use warnings;

# si on précise "quiet" sur la ligne de commande, certains messages n'apparaitront pas
unless ((defined $ARGV[0]) && ($ARGV[0] eq "quiet")) {
	print "Récupération de la liste des packages...\n";
}

# d'abord un petit handle...
my $apt_out = open (APT_OUT, "apt-get upgrade --no-act -q |") or die "could not run apt-get : $! ";

# quelques déclarations...
my @packages_list;

# la boucle kifétou
while (<APT_OUT>) {
	if ($_ =~ /^Inst/) {
		$_ =~ s/^Inst//;
		push (@packages_list,$_);
	} 
}

close APT_OUT;

if (defined ($packages_list[0])) {
print "Les packages suivant doivent être mis à jour:\n";
print "\n@packages_list\n";
print "Lancez 'apt-get upgrade' pour effectuer la mise à jour\n";
} elsif	(! ((defined($ARGV[0]) && ($ARGV[0] eq "quiet")))) {
	print "Aucun package à mettre à jour.\n";
}

