From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Wed, 3 Aug 2005 04:28:37 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: devel@altlinux.ru
Message-ID: <20050803002837.GG28542@solemn.turbinal.org>
Mail-Followup-To: devel@altlinux.ru
References: <20050803001703.GF28542@solemn.turbinal.org>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="TmwHKJoIRFM7Mu/A"
Content-Disposition: inline
In-Reply-To: <20050803001703.GF28542@solemn.turbinal.org>
Subject: [devel] Re: I: Sisyphus-20050803 unexpanded_macros: +6 -9 (782)
X-BeenThere: devel@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: ALT Devel discussion list <devel@altlinux.ru>
List-Id: ALT Devel discussion list <devel.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/devel>
List-Post: <mailto:devel@altlinux.ru>
List-Help: <mailto:devel-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Wed, 03 Aug 2005 00:29:35 -0000
Archived-At: <http://lore.altlinux.org/devel/20050803002837.GG28542@solemn.turbinal.org/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


--TmwHKJoIRFM7Mu/A
Content-Type: multipart/mixed; boundary="z+pzSjdB7cqptWpS"
Content-Disposition: inline


--z+pzSjdB7cqptWpS
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

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

=F7 =D3=CB=D2=C9=D0=D4=C5 =C5=D3=D4=D8 =CF=DB=C9=C2=CB=C1: =C4=CC=D1 =CB=C1=
=D6=C4=CF=CA =D3=C5=CB=C3=C9=C9 (=CE=C1=D0=D2. PREIN) =C9=DD=C5=D4=D3=D1
=CD=C1=CB=D3=C9=CD=D5=CD =CF=C4=C9=CE =CE=C5=D2=C1=D3=CB=D2=D9=D4=D9=CA =CD=
=C1=CB=D2=CF=D3.  =F4=CF =C5=D3=D4=D8 =CB=CF=C7=C4=C1 =CD=C1=CB=D2=CF=D3 %A=
PACHE
=C9=D3=D0=D2=C1=D7=C9=CC=C9, =CF=CB=C1=DA=C1=CC=CF=D3=D8, =DE=D4=CF =D0=D2=
=CF =DA=C1=D0=C1=D3 =C2=D9=CC/=C5=D3=D4=D8 =C5=DD=A3 =CF=C4=C9=CE =CE=C5=D2=
=C1=D3=CB=D2=D9=D4=D9=CA
=CD=C1=CB=D2=CF=D3 -- %HTDOCS.

=FA=C1=D7=D4=D2=C1 =D1 =CF=C2=DF=D1=D3=CE=C0, =CB=C1=CB =DC=D4=CF=D4 =D3=CB=
=D2=C9=D0=D4 "=DA=C1=D7=C5=D2=CE=D5=D4=D8" =D7 =D2=CF=C2=CF=D4=C1.

--z+pzSjdB7cqptWpS
Content-Type: text/plain; charset=us-ascii
Content-Disposition: attachment; filename=unexpanded_macros

#!/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}"

--z+pzSjdB7cqptWpS--

--TmwHKJoIRFM7Mu/A
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.5 (GNU/Linux)

iD8DBQFC8A+0fBKgtDjnu0YRApdGAJ9aGffdBsWDCASCu5mWDx3k2a2AygCgheMB
3GLY+S5g53fnIQYWCmQZq6c=
=E6A5
-----END PGP SIGNATURE-----

--TmwHKJoIRFM7Mu/A--