added script checkportstree

1 files changed, 35 insertions, 0 deletions

diff --git a/ports/checkportstree b/ports/checkportstree
new file mode 100755
index 0000000..5eaaf2c
--- /dev/null
+++ b/ports/checkportstree
@@ -0,0 +1,35 @@
+#!/bin/sh
+#
+# checkportstree
+#
+# v1.0 jue 2008-10-23
+# 
+# Simple script to find duplicate, missing and orphaned packages.
+# We collect the package-names in a temporary file, find dups from
+# here with 'uniq -d' and dups/orphaned packages by comparing our 
+# list with packages.all
+
+
+ALL_PKGS=../packages.all
+
+if [ ! -f $ALL_PKGS ]; then
+    echo "File $ALL_PKGS missing, run 'make packages.all' to create"
+    exit 1
+fi 
+
+pkgs_d=$(mktemp) 
+pkgs_u=$(mktemp)
+
+find -name '*.pkg.tar.gz' | sed 's|^.*/||;s|#.*$||' | sort > $pkgs_d
+cat $pkgs_d | uniq > $pkgs_u
+
+dups=$(cat $pkgs_d | uniq -d)
+missing=$(comm -3  $ALL_PKGS $pkgs_u | sort | cut -f1)
+orphan=$(comm -3 $ALL_PKGS $pkgs_u | sort | cut -s -f2)
+
+echo "Checking the ports tree for duplicate, missing and orphaned packages..."
+echo "* Duplicates:" $dups
+echo "* Missing:   " $missing
+echo "* Orphaned:  " $orphan
+
+rm $pkgs_d $pkgs_u