#!/usr/bin/perl
#
#
# prend la liste despackages RPM et en extrait le nom, et envoie en sortie
# standard la liste des RPM précédé de INCLUDE pour utiliser freshrpms
#
#
# (c)1998 Emmanuel PIERRE
#          epierre@e-nef.com
#          http://www.e-nef.com/users/Emmanuel.PIERRE
#

open (FIC,"rpm -qa | ");
while (<FIC>) {
	
	($prog)=(/(.*)-[0-9]+\.[0-9]+.*/);
	if ($prog ne '') {
			print "INCLUDE $prog \n";
	}

}
close(FIC);