#!/bin/sh
#
# Review changes file and the diffstat output for the diff file for a debian
# package.

# Get the package name.
package=`head -n 1 debian/changelog | cut -f 1 -d ' '`

# Get the package version.
version=`head -n 1 debian/changelog | cut -f 2 -d ' ' | perl -pe 's/\((.*?)\)/$1/; s/^\d+://;'`

header () {
	echo ">>> $1 <<<"
}

(
	if [ -d .svn ]; then
		header svn
		svn st
	fi
	header linda
	linda ../${package}_${version}*.changes
	header lintian
	lintian ../${package}_${version}*.changes
	header debdiff
	debdiff ~/lib/debian/unstable/${package}_*.changes ../${package}_${version}*.changes 
	header diffstat
	zcat ../${package}_${version}*.diff.gz | diffstat
	header changes file
	cat ../${package}_${version}*.changes
	header package contents
	debc ../${package}_${version}*.changes
) 2>&1 | $PAGER