Wed Jan 9 00:06:34 PST 2013

1 files changed, 26 insertions, 0 deletions

diff --git a/libre/dpkg/compare b/libre/dpkg/compare
new file mode 100755
index 000000000..4556440a5
--- /dev/null
+++ b/libre/dpkg/compare
@@ -0,0 +1,26 @@
+#!/bin/bash
+# compare the packages extracted in pkg/ to the packages from debian
+
+_check() {
+	local pacpkg=$1
+	local debpkg=$2
+
+	libremessages msg "dpkg:$debpkg -> pacman:$pacpkg"
+
+	make -f compare.mk tmp/$pacpkg.pacman.filelist tmp/$debpkg.debian.filelist &>/dev/null
+
+	echo -e 'pacman\tdpkg'
+	comm -3 \
+		<(sed -e 's|\.gz$||' tmp/$pacpkg.pacman.filelist|sort) \
+		<(sed -e 's|\.gz$||' -e '/^usr\/share\/man\/..\/man.\//d' -e 's|usr/share/perl5/|&vendor_perl/|' -e "s|$debpkg|$pacpkg|g" tmp/$debpkg.debian.filelist|sort)
+}
+
+mkdir -p tmp
+
+_check dpkg dpkg
+_check dpkg-devtools dpkg-dev
+_check dselect dselect
+_check libdpkg libdpkg-dev
+_check perl-dpkg libdpkg-perl
+
+rm -rf tmp