Add new invirt-ood-packages script to invirt-dev

svn path=/trunk/packages/invirt-dev/; revision=1570

diff --git a/debian/changelog b/debian/changelog
index ed831f4..41b6f74 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+invirt-dev (0.0.5) unstable; urgency=low
+
+  * Add new invirt-ood-packages script
+
+ -- Evan Broder <broder@mit.edu>  Sat, 08 Nov 2008 23:52:09 -0500
+
 invirt-dev (0.0.4) unstable; urgency=low
 
   * Get the svn repo from the config file, instead of /srv/checkout

diff --git a/debian/invirt-dev.install b/debian/invirt-dev.install
index 36cd3ff..2b17bae 100644 (file)
--- a/debian/invirt-dev.install
+++ b/debian/invirt-dev.install
@@ -1,3 +1,4 @@
-reprepro-env /usr/bin
+reprepro-env usr/bin
 repository-config/* srv/repository/conf
-invirt-build-release /usr/bin
+invirt-build-release usr/bin
+invirt-ood-packages usr/bin

diff --git a/invirt-ood-packages b/invirt-ood-packages
new file mode 100755 (executable)
index 0000000..0d1d918
--- /dev/null
+++ b/invirt-ood-packages
@@ -0,0 +1,12 @@
+#!/bin/bash
+
+svn="$(invirt-getconf svn.uri)"
+
+for package in $(svn ls "$svn/trunk/packages"); do
+    package=${package%%/}
+    version=$(svn cat "$svn/trunk/packages/$package/debian/changelog" | dpkg-parsechangelog -l- | perl '-F:\s+' -lane 'print $F[1] if /^Version/')
+    
+    if ! svn ls "$svn/package_tags/$package/$version" >/dev/null 2>&1; then
+        echo $package
+    fi
+done