add zpm-test program to check for valid zpm db files

[zpackage] / zpm-test

diff --git a/zpm-test b/zpm-test
new file mode 100755 (executable)
index 0000000..9f74718
--- /dev/null
+++ b/zpm-test
@@ -0,0 +1,24 @@
+#!/bin/sh
+
+# tests a package file
+
+# just checks that all args are valid pkg files
+verbose=0
+
+while getopts v opt; do
+        case $opt in
+                v) verbose=1 ;;
+        esac
+done
+
+for pkgfile in "$@"; do
+appid=$(sqlite3 $pkgfile 'pragma application_id;' | ( echo obase = 16; cat - ) | bc)
+if [ "$appid" != "5A504442" ]; then
+       if [ "$verbose" -eq 1 ]; then
+               echo $pkgfile does not appear to be a zpm package file 1>&2
+       fi
+       exit 1
+fi
+done
+
+exit 0