From 08947a0d754cfc1e64fb7cfec5619b7d06f44f05 Mon Sep 17 00:00:00 2001
From: J Pipkin <j@dawnrazor.net>
Date: Sun, 13 Jan 2013 06:30:12 -0600
Subject: add support to sboclean -w for /tmp/package-*-compat32 things

---
 man1/sboclean.1 |  4 ++--
 sboclean        | 36 +++++++++++++++++++++++++++---------
 2 files changed, 29 insertions(+), 11 deletions(-)

diff --git a/man1/sboclean.1 b/man1/sboclean.1
index 6e9e38e..0cb308c 100644
--- a/man1/sboclean.1
+++ b/man1/sboclean.1
@@ -7,7 +7,7 @@ sboclean - clean files left around by sbotools.
 sboclean [-h|-v] [-dwi]
 .SH DESCRIPTION
 .P
-sboclean is used to clean files left around by sbotools, such as downloaded source files ("distfiles"), or work directories under /tmp/SBo. Note that if not run with the -i flag, sboclean will remove anything in the distfiles or /tmp/SBo folders with extreme prejudice. One of either -d or -w must be specified for this script to do anything.
+sboclean is used to clean files left around by sbotools, such as downloaded source files ("distfiles"), or work directories under /tmp/SBo and, for compat32 installs, under /tmp. Note that if not run with the -i flag, sboclean will remove anything in the distfiles or /tmp/SBo folders and any /tmp/package-*-compat32 directories with extreme prejudice. One of either -d or -w must be specified for this script to do anything.
 .SH OPTIONS
 .P
 -h|--help
@@ -27,7 +27,7 @@ Clean distfiles, by default located at /usr/sbo/distfiles.
 .P
 -w|--clean-work
 .RS
-Clean working directories, located under /tmp/SBo.
+Clean working directories, located under /tmp/SBo and, for compat32 installs, /tmp.
 .RE
 .P
 -i|--interactive
diff --git a/sboclean b/sboclean
index 3835de7..3a43ade 100755
--- a/sboclean
+++ b/sboclean
@@ -54,24 +54,42 @@ show_version and exit 0 if $vers;
 usage_error "You must specify at least one of -d or -w." unless 
 	($clean_dist || $clean_work);
 
+sub rm_full($) {
+	exists $_[0] or script_error 'rm_full requires an argument.';
+	my $full = shift;
+	if ($interactive) {
+		print "Remove $full? [n] ";
+		return unless <STDIN> =~ /^[Yy]/;
+	}
+	unlink $full if -f $full;
+	remove_tree($full) if -d $full;
+	return 1;
+}
+
 sub remove_stuff($) {
-	exists $_[0] or script_error 'remove_stuff requires an argument';
+	exists $_[0] or script_error 'remove_stuff requires an argument.';
 	-d $_[0] or say 'Nothing to do.' and return 1;
 	my $dir = shift;
 	opendir(my $dh, $dir);
 	FIRST: while (my $ls = readdir $dh) {
 		next FIRST if $ls =~ /^(\.){1,2}$/;
-		my $full = "$dir/$ls";
-		if ($interactive) {
-			print "Remove $full? [n] ";
-			next FIRST unless <STDIN> =~ /^[Yy]/;
-		}
-		unlink $full if -f $full;
-		remove_tree($full) if -d $full;
+		rm_full "$dir/$ls";
 	}
 }
 
+sub clean_c32() {
+	opendir(my $dh, '/tmp/');
+	FIRST: while (my $ls = readdir $dh) {
+		next FIRST unless $ls =~ /^package-.+-compat32$/;
+		rm_full "$dir/$ls";
+	}
+{
+
 remove_stuff $config{SBO_HOME} .'/distfiles' if $clean_dist;
-remove_stuff '/tmp/SBo' if $clean_work;
+
+if ($clean_work) {
+	remove_stuff '/tmp/SBo';
+	clean_c32;
+}
 
 exit 0;
-- 
cgit v1.2.3


From e86433279141617306c136e2cac4ca42d5821d55 Mon Sep 17 00:00:00 2001
From: J Pipkin <j@dawnrazor.net>
Date: Sun, 13 Jan 2013 08:11:20 -0600
Subject: bug fixes to initial commit

---
 sboclean | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/sboclean b/sboclean
index 3a43ade..c9ee8c0 100755
--- a/sboclean
+++ b/sboclean
@@ -78,12 +78,13 @@ sub remove_stuff($) {
 }
 
 sub clean_c32() {
-	opendir(my $dh, '/tmp/');
+	my $dir = '/tmp';
+	opendir(my $dh, $dir);
 	FIRST: while (my $ls = readdir $dh) {
 		next FIRST unless $ls =~ /^package-.+-compat32$/;
 		rm_full "$dir/$ls";
 	}
-{
+}
 
 remove_stuff $config{SBO_HOME} .'/distfiles' if $clean_dist;
 
-- 
cgit v1.2.3