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

Alexey Tourbin =?iso-8859-1?q?at_=CE=C1_altlinux=2Eru?=
Ср Авг 3 04:28:37 MSD 2005


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.

Завтра я объясню, как этот скрипт "завернуть" в робота.
----------- следующая часть -----------
#!/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}"
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Тип     : application/pgp-signature
Размер  : 189 байтов
Описание: =?iso-8859-1?q?=CF=D4=D3=D5=D4=D3=D4=D7=D5=C5=D4?=
Url     : <http://lists.altlinux.org/pipermail/devel/attachments/20050803/09b51ae0/attachment-0001.bin>


Подробная информация о списке рассылки Devel