[devel] Re: I: Sisyphus-20050803 unexpanded_macros: +6 -9 (782)

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1.1: Type: text/plain, Size: 510 bytes --]

On Wed, Aug 03, 2005 at 04:17:03AM +0400, Alexey M. Tourbin wrote:
> 	6 NEW unexpanded_macros
> oracle-preinstall-0.3-alt2.noarch.rpm	PREIN	%HTDOCS
> 	9 OLD unexpanded_macros
> oracle-preinstall-0.3-alt1.noarch.rpm	PREIN	%APACHE

В скрипте есть ошибка: для каждой секции (напр. PREIN) ищется
максимум один нераскрытый макрос.  То есть когда макрос %APACHE
исправили, оказалось, что про запас был/есть ещё один нераскрытый
макрос -- %HTDOCS.

Завтра я объясню, как этот скрипт "завернуть" в робота.

[-- Attachment #1.2: unexpanded_macros --]
[-- Type: text/plain, Size: 542 bytes --]

#!/bin/sh -ef

dump()
{
	find "$@" -type f -name '*.rpm' -print0 |perl -Mstrict -ln0 -e \
'	use RPM::Header; my $f = $_;
	my $rpm = RPM::Header->new($f) or die "$f: $RPM::err\n";
	while (my ($k, $v) = each %$rpm) {
		next if $k =~ /CHANGELOGTEXT|SIGGPG|SIGMD5|GIF/;
		my @v = ref($v) ? @$v : $v;
		my @lines = map { split /[\r\n]+/ } @v;
		foreach (@lines) {
			next if /^\s*#/;
			next unless /\%[a-zA-Z_][a-zA-Z0-9_]+/;
			use File::Basename;
			printf "%s\t%s\t%s\n", basename($f), $k, $&;
		}
	}
'
}

dump "${1-/raid/ALT/Sisyphus/files}"

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]