From 8d80ff50af614cec78cf667a492c29f85f8f9343 Mon Sep 17 00:00:00 2001
From: Loui Chang <louipc.ist@gmail.com>
Date: Thu, 20 Nov 2008 00:01:59 -0500
Subject: Add a script to clean up files of deleted unsupported packages.

Signed-off-by: Loui Chang <louipc.ist@gmail.com>
---
 scripts/cleanup | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 scripts/cleanup

(limited to 'scripts/cleanup')

diff --git a/scripts/cleanup b/scripts/cleanup
new file mode 100755
index 00000000..4fc9ea2d
--- /dev/null
+++ b/scripts/cleanup
@@ -0,0 +1,36 @@
+#!/usr/bin/php
+<?php
+# Run this script by providing it with the top path of AUR.
+# In that path you should see a file lib/aur.inc
+#
+# This will remove files which belong to deleted packages
+# in unsupported.
+#
+# ex: php cleanup dev/aur/web
+#
+$dir = $argv[1];
+
+if (empty($dir)) {
+	echo "Please specify AUR directory.\n";
+	exit;
+}
+
+set_include_path(get_include_path() . PATH_SEPARATOR . "$dir/lib");
+include("config.inc");
+include("aur.inc");
+include("pkgfuncs.inc");
+
+exec('ls ' . INCOMING_DIR, $files);
+
+$count = 0;
+
+foreach ($files as $pkgname) {
+	if (!package_exists($pkgname)) {
+		echo 'Removing ' . INCOMING_DIR . "$pkgname\n";
+		system('rm -r ' . INCOMING_DIR . $pkgname);
+		$count++;
+	}
+}
+
+echo "\nRemoved $count directories.\n";
+
-- 
cgit v1.2.3-24-g4f1b