#!/usr/bin/perl
#
#
# remet les appartenances et les droits sur tous les RPM installés
#
#
# (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 '') {
			`rpm --setugids -vv $prog `;
			`rpm --setperms  $prog `;
	}

}
close(FIC);