Script for checking moved packages against current GLSA corpus

check_movedpackages.pl (text/plain), 642 bytes, created by Thierry Carrez (RETIRED) on 2004-12-01 08:07:42 UTC

print "Parsing updates...\n";
open (FILENAMES,"find /usr/portage/profiles/updates -type f -print |");
while ($filename = <FILENAMES>) {
	chop $filename;
	open (RCFILE,$filename);
	while (<RCFILE>)
	{
		if (/^move (\S+) (\S+)/)
		{
			$moves{$1}=$2;
		}
	}
	close RCFILE;
}
close FILENAMES;
print "Parsing GLSAs...\n";
open (FILENAMES,"find /usr/portage/metadata/glsa -type f -print |");
while ($filename = <FILENAMES>) {
	chop $filename;
	open (RCFILE,$filename);
	while (<RCFILE>)
	{
		if (/<package name="([^"]+)"/) 
		{
			if ($moves{$1} ne "")
			{
				print "$filename $1 -> $moves{$1}\n";
			}
		}
	}
	close RCFILE;
}
close FILENAMES;