#!/bin/sh -ef
export LC_ALL=C

dump_file()
{
	rpm -qp --qf '[%{FILENAMES}\t%{FILEMODES:octal}\n]' "$@" >files
	if [ -d d ]; then chmod -Rf u+rwX d; rm -rf d; fi
	rpm2cpio "$@" |(mkdir d; cd d; cpio -idmu --quiet)
	awk -F'\t' '{printf"d/%s\0",$1}' files |xargs -r0 file -b >types
	paste files types
}

dump_dir()
{
	local d="$1"; shift
	packages "$d" >packages
	sort -t$'\t' -o packages -u -k1,1 packages
	mkdir -p c
	while IFS=$'\t' read p v f _; do
		b="${f%%.rpm}"
		[ -f c/"$b" ] || dump_file "$d/$f" >c/"$b"
		awk -v p="$p" '{print p"\t"$0}' c/"$b"
	done <packages
}

while getopts h opt; do
	case "$opt" in
		h) pod2usage --exit=0 "$0"; exit 0 ;;
		*) pod2usage --exit=2 "$0"; exit 2 ;;
	esac
done
shift "$((OPTIND-1))"

if [ -z "$workdir" ]; then
	atexit() { rc=$?; trap - EXIT; rm -rf "$workdir"; exit $rc; }
	workdir="$(mktemp -d -t "${0##*/}.XXXXXXXX")"
	trap atexit EXIT HUP INT QUIT PIPE TERM
	export workdir
fi

if [ -z "$*" ]; then
	: ${sisyphus:=/raid/ALT/Sisyphus}
	set -- "$sisyphus"/files/i586/RPMS
fi

for arg; do
	arg="$(readlink -ev "${arg:?}")"
	cd "${workdir:?}"
	if [ -f "$arg" ]; then
		dump_file "$arg"
	else
		dump_dir "$arg"
	fi
	cd -
done

: <<'__EOF__'

=head1	NAME

rpmfile - list file modes and types in RPM packages

=head1	SYNOPSIS

B<rpmfile> [B<-h>] [I<FILE>...] [I<DIR>...]

=head1	AUTHOR

Written by Alexey Tourbin <at@altlinux.org>.

=head1	COPYING

Copyright (c) 2005 Alexey Tourbin, ALT Linux Team.

This is free software; you can redistribute it and/or modify it under the terms
of the GNU General Public License as published by the Free Software Foundation;
either version 2 of the License, or (at your option) any later version.

=head1	SEE ALSO

rpm(8),
rpm2cpio(8),
file(1)

=cut

__EOF__